Delphi. Помочь Разобраться В Коде

Тема в разделе "Pascal and Delphi", создана пользователем vadikvrn, 20 июн 2013.

  1. vadikvrn

    vadikvrn New Member

    Регистрация:
    22 дек 2010
    Сообщения:
    2
    Симпатии:
    0
    Здравствуйте. Требуется помощь с процедурами, которые загружают данные из файла в поля ввода, и наоборот из полей ввода сохраняют в файл. Сами процедуры написаны, но я в них ничего не понимаю. Хотелось бы чтобы объяснили как там что работает. Заранее спасибо!)

    Код (Delphi):
    procedure TForm1.N3Click(Sender: TObject); {Открыть}
    var c:double;
    f:textfile;
    begin
    if FileNam='' then
    begin
    OpenDialog1.Execute;
    FileName:=OpenDialog1.FileName;
    GroupBox1.Caption:='Исходные данные  '+FileName;
    end
    else
    begin
    FileName:=FileNam;
    ChDir(ExtractFilePath(FileNam));
    FileNam:='';
    GroupBox1.Caption:='Исходные данные  '+FileName;
    end;
    if FileName<>'' then
    begin
    assignfile(f,FileName);
    reset(f);
    readln(f,c);
    mt:=c;
    edit1.Text:=FloatToStr(c);
    readln(f,c);
    T_vh_p:=c;
    edit2.Text:=FloatToStr(c);
    readln(f,c);
    P_vh_p:=c;
    CloseFile(f);
    end;
    end;

    procedure TForm1.N4Click(Sender: TObject); {Сохранить}
    var f:textfile;
    begin
    if fileName<>'' then
    begin
    assignfile(f,FileName);
    rewrite(f);
    Form1.SaveDat(f);
    closefile(f);
    end
    else Form1.N6Click(Sender);
    end;

    procedure TForm1.SaveDat(var FileI:TextFile);
    begin
    writeln(FileI,edit1.text,' = ',label1.caption);
    writeln(FileI,edit2.text,' = ',label2.caption);
    end;

    procedure TForm1.N6Click(Sender: TObject);  {Сохранить как}
    var f:textfile;
    begin
    if SaveDialog1.Execute then
    if SaveDialog1.FileName<>'' then
    begin
    FileName:=SaveDialog1.FileName;
    assignfile(f,SaveDialog1.FileName);
    rewrite(f);
    Form1.SaveDat(f);
    closefile(f);
    GroupBox1.Caption:='Исходные данные  '+FileName;
    end;
    end;
     
Загрузка...
Похожие Темы - Delphi Помочь Разобраться
  1. cybert
    Ответов:
    0
    Просмотров:
    97
  2. Shouldercannon
    Ответов:
    0
    Просмотров:
    158
  3. antares
    Ответов:
    0
    Просмотров:
    441
  4. Луиза
    Ответов:
    0
    Просмотров:
    296
  5. avizer
    Ответов:
    5
    Просмотров:
    731

Поделиться этой страницей