Как дописать данные в конец текстового файла?

← →
Shopot © (2005-07-28 11:33) [0]

Использую CreateFile для открытия текстового файла.
Но старые данные стираются когда начинаю писать новые.
И вообще в текстовый файл записывается только одна строка.
Что делать?

← →
Leonid Troyanovsky © (2005-07-28 11:39) [1]

> Shopot © (28.07.05 11:33)

> Использую CreateFile для открытия текстового файла.
> Но старые данные стираются когда начинаю писать новые.
> И вообще в текстовый файл записывается только одна строка.

У тебя ошибка в 17 строке.

> Что делать?

Например, использовать TFileStream.
Or, use the predefined TextFile or Text type, RTFM.

--
Regards, LVT.

← →
alpet © (2005-07-28 11:46) [2]

AssignFile (t, "file.txt"); Append (t); WriteLn (t, "string"); CloseFile (t);

← →
Floppy © (2005-07-28 11:46) [3]

var F: TextFile;
....
AssignFile(F, "Your text file");
Append(F);
Writeln(F, "то, что хотим дописать");
Close(F);

← →
Floppy © (2005-07-28 11:47) [4]

>alpet © (28.07.05 11:46) [2]
:((

← →
Shopot © (2005-07-28 11:48) [5]

Я пишу на API.

AssignFile... и т. п. в школе проходил и прекрасно знаю,
как на паскале это делается.

← →
alpet © (2005-07-28 11:53) [6]

function WriteAdd (const s: string): Boolean; var hFile:THandle; nWrited: DWORD; begin result := false; hFile := CreateFile ("c:\boot.ini", GENERIC_WRITE, 0, nil, OPEN_ALWAYS, 0, 0); if (0 = hFile) then exit; SetFilePosition (hFile, 0, nil, FILE_END); WriteFile (hFile, PChar (s + #13#10), Length (s) + 2, nWrited, nil); CloseHandle (hFile); result := nWrited > 0; end;

← →
alpet © (2005-07-28 11:54) [7]

Shopot © (28.07.05 11:48) [5]

А Я пишу на API и еще читаю MSDN :)

← →
Leonid Troyanovsky © (2005-07-28 11:58) [8]

> Shopot © (28.07.05 11:48) [5]
> Я пишу на API.

Мазохист? ;)
System включается в любые exe.

--
Regards, LVT.

← →
alpet © (2005-07-28 12:01) [9]

Leonid Troyanovsky © (28.07.05 11:58) [8]

Ну если unilink пользовать(правильно), то не обязательно, другое дело что это еще надо знать :)

← →
Shopot © (2005-07-28 12:02) [10]

спасибо alpet!

> alpet © (28.07.05 11:54) [7]
> Shopot © (28.07.05 11:48) [5]
>
> А Я пишу на API и еще читаю MSDN :)

Ню-ню.

If the function fails, the return value is INVALID_HANDLE_VALUE

а не 0 ;)

--
Regards, LVT

Как дописать данные в конец текстового файла? Найти похожие ветки