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

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

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

Запмсь текстового файла [D6, XP]

Canopus © (2006-03-16 08:18:00)
Прошу знатоков помочь в несложной для Вас проблеме записи текстового файла. Вот кусок кода, но после его выполнения пишет только имя файла, введенного через 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

Fay (2006-03-16 10:53:00) [1]
Так?
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;

KyRo (2006-03-16 10:24:00) [2]

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

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

Anatoly Podgoretsky (2006-03-16 10:16:00) [3]
KyRo (16.03.06 10:14) [4]
Зачем это append(F2);

KyRo (2006-03-16 10:14:00) [4]
AssignFile(F2,'C:\Progi\Text\lock.txt');
Rewrite(F2);
append(F2);
Writeln(F2,N_LOG);
CloseFile(F2);

Anatoly Podgoretsky (2006-03-16 09:56:00) [5]
Зачем это Reset(F2);

LordOfRock (2006-03-16 08:49:00) [6]
Проверяй, существует ли уже файл. Если существует - удаляй.

MBo (2006-03-16 08:21:00) [7]
http://www.delphikingdom.ru/lyceum/seminar.asp?ID=2

Наверх

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