как сохранять текстовые файлы

[nuberod]

я знаю что можно с помощью memo сохранят и открывать txt, а как сделать тоже самое с label. среда программирования delphi 7.
для memo я использоваю: memo1.lines.savetofile('2.txt');.

[Кольша]

With Tstringlist.create do begin
text:=label1.caption;
savetofile('oloolll.txt');
destroy;
end;

P.s code no testing in compilator..

[nuberod]

а как загружать

[Serge_Bliznykov]

предложенный выше Кольша код работает?
А где Ваша благодарность? Элементарное "спасибо", хотя бы?!

Кроме этого, согласитесь, плохо писать программу и использовать чужие куски кода, вообще не понимая, что они означают, да?

а если так?

With TStringList.Create do begin
  LoadFromFile('oloolll.txt');
  label1.caption := text;
  Destroy;
end;

код я тоже не проверял...

[nuberod]

я хотел сказать спасибо, но потом не смог загрузить, исправил спасибо на просьбу. я бы обязательно сказал спасибо когда бы все узнал.
кстати.
код загружает txt а потом выдает ошибку:
'is not a valid integer value'
если я правильно понял то нужно загрузить именно первую строчку.
а при сохранение он делает 2 строчки, одна пустая а другая с нужными цифрами из label.

[Кольша]

With TStringList.Create do begin
  LoadFromFile('oloolll.txt');
  label1.caption := Strings[0];
  Destroy;
end;

Может так?

[nuberod]

все работает, огромное спасибо