глупая запись в файл

[maloun]

У меня есть очень казалось бы простой вопрос,
но ответ на него я так и не нашёл.

Так вот вопрос...
Как быстро добавить в конец файла текст.
не читая весь файл по строчно, не перезаписывая, ничего такого...
просто добавить в конец файла строку текста.(файл будет 600mb)

[maloun]

ой, нашёл, простите http://www.delphibasics.ru/Append.php

[maloun]

как-то не так работает это способ,

procedure TForm1.AddToFile(Name, buff: string);
var
f: TextFile;
fName: string[80];
begin
fName:=Name;
AssignFile(f,fName);  
Append(f);
WriteLn(f,buff);
CloseFile(f);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
AddToFile('ХЫ.txt','1')
end;

всегда новую строчку добавляет сам,
нужно удалять её кикнибуть или... отступать чтоли.
в общем просто к тексту который в файле был приклеить 1 надо(

[eoln]

Write(f,buff);

И что это за txt в 600 метров o_O

[maloun]

просто тесты на txt проводятся

[Человек_Борща]

Мне акажется не читая всего файла не получится. Но это возможно. Но думаю для хранения БД вопросов лучше юзать другой формат. Например баз данных. Или какой-то свой(типизированный).

[chertovich]

В файловом потоке, FileStream.Position := FileStrem.Size и записывать.
Во все не обязательно что-нить считывать...

[Serge_Bliznykov]

Мне акажется не читая всего файла не получится.

не, совсем незачем читать файл, чтобы ДОПИСАТЬ что-то в него!

chertovich, +1

maloun, так чем вариант с Append() не устроил?
совет eoln из пост #4 помог?

[maloun]

Сообщение от Serge_Bliznykov

не, совсем незачем читать файл, чтобы ДОПИСАТЬ что-то в него!

chertovich, +1

maloun, так чем вариант с Append() не устроил?
совет eoln из пост #4 помог?

да, всё помогло...