[kkk]

Добрый вечер.
Имеется программа, которая вычисляет сумму всех чисел кратных 4 от 0 до 100. Сумма выводится в Лейбл, а само множество чисел в Memo. Необходима функция сохранения в Текстовом, типизированном и нетипизированном виде содержимого Лейбл и содержимого Мемо. И так же Открытие содержимого.

Сохранение\Открытие в текстовом виде имеется, а про типизированное\нетипизированное в первой слышу.

Помогите пожалуйста, как сделать сохранения в таких видах ?

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

procedure TForm1.Button2Click(Sender: TObject); // Сохранение в текстовом виде var f:textfile; <font color="red">begin</font> AssignFile(f,'./result.txt'); Rewrite(f); if IOResult<>0 then Exit; Write(f,summa); CloseFile(f); Label2.caption:='Результат сохранён'; Memo1.lines.savetoFile('memoresults.txt'); <font color="red">end;</font>     procedure TForm1.Button3Click(Sender: TObject); //Открытие файла var f:textfile; buffer:string; <font color="red">begin</font> 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'); <font color="red">end;</font>