Текущий архив: 2005.06.29;
Скачать: CL | DM;
Вниз
Работа с файлом 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]почему не логично, если нет файла создаю и работаю, если есть то сразу работаю с файлом (((( !?!?!
← →
ЮЮ © (2005-06-03 11:54) [7]>почему не логично
Потому, что справа от boolean функции даже не глянул, не ожидая такого сравнения :)
← →
312Kbps (2005-06-03 12:04) [8]ЮЮ © - извени , ты не мог бы мне в асю псотучать 192396315, пару вопросиков задам )))
Страницы: 1 вся ветка
Текущий архив: 2005.06.29;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.051 c
