Запмсь текстового файла

← →
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);

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

Так?
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;

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