Скачать: CL | DM;

Запмсь текстового файла   Найти похожие ветки 

← →
Canopus   (2006-03-16 08:18) [0]

Прошу  знатоков  помочь в несложной  для  Вас проблеме записи  текстового  файла. Вот  кусок  кода, но  после  его  выполнения  пишет  только  имя  файла, введенного  через  EDIT, а мне  надо  его  содержание.
  Var
   N_LOG: String;
   F2: TextFile;
begin
   AssignFile(F2,"C:\Progi\Text\lock.txt");
   Reset(F2);
   N_LOG:=Edit1.Text;
   ReWrite(F2,N_LOG);
   CloseFile(F2);
  Точнее  мне  надо  на  место  имеющегося  текстового  файла  записать новый, но  не  получается.
 Помогите, кто  сможет. Спасибо.
  16.03.2006

---

← →
MBo ©   (2006-03-16 08:21) [1]

http://www.delphikingdom.ru/lyceum/seminar.asp?ID=2

---

← →
LordOfRock ©   (2006-03-16 08:49) [2]

Проверяй, существует ли уже файл. Если существует - удаляй.

---

← →
Anatoly Podgoretsky ©   (2006-03-16 09:56) [3]

Зачем это   Reset(F2);

---

← →
KyRo   (2006-03-16 10:14) [4]

AssignFile(F2,"C:\Progi\Text\lock.txt");
Rewrite(F2);
append(F2);
Writeln(F2,N_LOG);
CloseFile(F2);

---

← →
Anatoly Podgoretsky ©   (2006-03-16 10:16) [5]

KyRo   (16.03.06 10:14) [4]
Зачем это   append(F2);

---

← →
KyRo   (2006-03-16 10:24) [6]

> Anatoly Podgoretsky ©   (16.03.06 10:16) [5]
> KyRo   (16.03.06 10:14) [4]
> Зачем это   append(F2);

Не знаю но что то без него писать в текстовый файл не хочет .
У меня покрайней мере возникала ошибка типа файл не открыт для записи.
Вообще этот апенд надо было писать еще в паскале может от туда перекачувало

---

← →
Fay ©   (2006-03-16 10:53) [7]

Так?
var
 h : Thandle;
 n : DWORD;
begin
 h := CreateFile(PChar("C:\Progi\Text\lock.txt"), GENERIC_WRITE, FILE_SHARE_READ, nil, CREATE_ALWAYS, 0, 0);
 WriteFile(h, PChar(N_LOG)^, Length(N_LOG), n, nil);
 CloseFile(h);
end;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.023 c