Форум: "Основная";
Текущий архив: 2005.06.29;
Скачать: [xml.tar.bz2];

Вниз

Работа с файлом 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;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.039 c