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

vadikvrn

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

Код:
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;