Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Работа с файлом txt !!! [D7, Win2k, WinXP]

312Kbps © (2005-06-03 11:47:00)
Уважаемые мастера, подскажите что у меня не так !!!
Текст в файл не хочет записываться !?!?!?
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
Что я делаю не так ???

312Kbps (2005-06-03 12:04:00) [1]
ЮЮ © - извени , ты не мог бы мне в асю псотучать 192396315, пару вопросиков задам )))

ЮЮ (2005-06-03 11:54:00) [2]
>почему не логично

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

312Kbps (2005-06-03 11:52:00) [3]
почему не логично, если нет файла создаю и работаю, если есть то сразу работаю с файлом (((( !?!?!

312Kbps (2005-06-03 11:51:00) [4]
Блин , точно , СПАСИБО ))))))

ЮЮ (2005-06-03 11:50:00) [5]
if FileExists then FileCreate - нелогично

Count - 1

TUser (2005-06-03 11:50:00) [6]
Во-первых Count-1

Pearled (2005-06-03 11:50:00) [7]
AssignFile(f,'LogExpedition.txt');
if not FileExists('LogExpedition.txt') then
Rewrite(f)
else
Append(f);

TUser (2005-06-03 11:50:00) [8]
> if FileExists then FileCreate - нелогично

У него not

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »