Цитата:
|
Сообщение от Михалыч
Кнопка "Сохранить данные"
Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
if SaveDialog1.Execute then
with TInifile.Create(SaveDialog1.FileName) Do
begin
WriteString('Дом','',Edit1.Text);
WriteString('Длина','',Edit2.Text);
WriteString('Ширина','',Edit3.Text);
WriteString('Площадь','',Edit4.Text);
end;
end;
end. |
Огромное благодарю. А можно код для кнопки "загрузить данные" из файла. И тогда сопоставив оба варианта и их синтаксис наверное добьюсь цели.
Мне можно было бы просто переписать код, но научиться программированию будет сложно. Хотелось бы в предоставляемом Вами коде видеть коментарии по каждой строке - это просьба.