Добрый вечер.
Имеется программа, которая вычисляет сумму всех чисел кратных 4 от 0 до 100. Сумма выводится в Лейбл, а само множество чисел в Memo. Необходима функция сохранения в Текстовом, типизированном и нетипизированном виде содержимого Лейбл и содержимого Мемо. И так же Открытие содержимого.
Сохранение\Открытие в текстовом виде имеется, а про типизированное\нетипизированное в первой слышу.
Помогите пожалуйста, как сделать сохранения в таких видах ?
Код:
procedure TForm1.Button2Click(Sender: TObject); // Сохранение в текстовом виде
var
f:textfile;
begin
AssignFile(f,'./result.txt');
Rewrite(f);
if IOResult<>0 then Exit;
Write(f,summa);
CloseFile(f);
Label2.caption:='Результат сохранён';
Memo1.lines.savetoFile('memoresults.txt');
end;
procedure TForm1.Button3Click(Sender: TObject); //Открытие файла
var
f:textfile;
buffer:string;
begin
AssignFile(f,'./result.txt');
Reset(f);
if IOResult<>0 then Exit;
read(f,buffer);
label1.Caption:='Сумма чисел кратных 4 от 0-100 = '+buffer;
Label2.caption:='Результат извлечён';
Memo1.lines.loadfromfile('memoresults.txt');
end;
18.12.2011, 17:39
[Тривиаль] Сохранение в Типизированном и Нетипизированном файле
Линейный вид
