Работа с файлом txt !!!

← →
312Kbps (2005-06-03 11:47) [0]

Уважаемые мастера, подскажите что у меня не так !!!
Текст в файл не хочет записываться !?!?!?
procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
f: TextFile;
begin
if FileExists("LogExpedition.txt")=False then FileCreate("LogExpedition.txt");
AssignFile(f,"LogExpedition.txt");
Append(f);
for i:=0 to LogText.Items.Count do writeln(f, LogText.Items.Strings[i]);
CloseFile(F);
end;

LogText - TListBox
Что я делаю не так ???

← →
ЮЮ © (2005-06-03 11:50) [1]

if FileExists then FileCreate - нелогично

Count - 1

← →
TUser © (2005-06-03 11:50) [2]

Во-первых Count-1

← →
Pearled © (2005-06-03 11:50) [3]

AssignFile(f,"LogExpedition.txt");
if not FileExists("LogExpedition.txt") then
Rewrite(f)
else
Append(f);

← →
TUser © (2005-06-03 11:50) [4]

> if FileExists then FileCreate - нелогично

У него not

← →
312Kbps (2005-06-03 11:51) [5]

Блин , точно , СПАСИБО ))))))

← →
312Kbps (2005-06-03 11:52) [6]

почему не логично, если нет файла создаю и работаю, если есть то сразу работаю с файлом (((( !?!?!

>почему не логично

Потому, что справа от boolean функции даже не глянул, не ожидая такого сравнения :)

← →
312Kbps (2005-06-03 12:04) [8]

Работа с файлом txt !!! Найти похожие ветки