Отчистка текстового файла

[Sh.I.Va]

При нажатии на кнопку отчистить текстовый файл.

[Sciv]

Дык... Просто сделать ему rewrite - и будет Вам чистый текстовый файл. Или его от чего-то другого оТчистить? От накипи, например...

[BARNEY]

memo1.lines.loadtofile('c:\1.txt');
memo1.lines.clear;
memo1.lines.savetofile('c:\1.txt');

можно и тупо

memo1.lines.savetofile('c:\1.txt');

[Sciv]

Barney, а разве не Memo1.Lines.LoadFromFile()?

[Serge_Bliznykov]

если файл очищается не от накипи (и прочего мусора), тогда загружать его содержимое АБСОЛЮТНО бессмыслено!
я бы предложил банальное:

var f : file;
begin
   AssignFile(f,'c:\1.txt');
   Rewrite(f,1);
   CloseFile(f)
end

или, тоже самое через потоки:

var TFOut : TFileStream;
begin
  TFOut := TFileStream.Create('c:\new.txt', fmCreate);
  FreeAndNil(TFOut);

текстовый (да и любой другой!) файл после проделанных процедур становится девственно чистым, размером 0 байт.

[BARNEY]

Sciv, да вы правы... ошибся...

[DmitryLoktev]

Как вариант (только для XE версий):

uses IOUtils;

procedure TForm1.Button1Click(Sender: TObject);
begin
  TFile.WriteAllText('test.txt', '');
end;