КАК Записать в .txt ???????

[mobilitialex]

меня больше интересует как проверить файл, пуст или нет?

[mobilitialex]

Вот придумал, правда по другому

function MyFunction(FileName: TFileName): Boolean;
var
  F: File;
begin
  AssignFile(F, FileName);
  Result := FileExists(FileName);
  if Result then begin
    Reset(F, 1);
    Result := FileSize(F) > 0;
    CloseFile(F);
  end;
end;

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[4ok]

If F='' then showmessage('Empty file');

По ходу должно сробоатть.. ну предворительно прверь на существование...

[artemavd]

Читал книги по основам и пользуйся поиском. Один вопрос - одна тема.