Как записывать в файл

[Rain]

Привет! У меня есть код который читает данные из файла:
OpenFile(f,Optovik.DataName,fmOpenR eadWrite+fmShareDenyWrite,SizeOf(r) );
if FileSize(f)<>0 then
begin
seek(f,FileSize(f)-1);
BlockRead(f,r,1);
end;
if (FileSize(f)=0) or (r.Data<Date) then
begin
OpenFile(f2,OperName,fmOpenRead,Siz eOf(NaklaS));
r.Data:=Date;
r.Nomer:=FileSize(f2);
BlockWrite(f,r,1);
CloseFile(f2);
end;
CloseFile(f);

А как мне сделать чтобы он записывал новые данные в этот же файл? Зарание спасибо!

[MadReason]

нужно добавлять данные со смещением. про это хорошо
написано у касперского в книге по хацкингу, думал лажа какая нибудь, прочел, оценил. =)))

[Rain]

Ну и как записывать-то? Код можно?

[Хs-You]

А знаеш что попробуй! создаь(например) файл 1 (основной) и файл два в файл2 будет записоватся всё что ты ведёш в данный момент а в Ф1 всё будет переписоватся по оканчанию работы вот исходник на такую тему. Может пригодится

procedure SaveKeysToFile;
var
FP: TextFile;
I: Integer;
Str1: string;
begin
// Вся инфо хранится в Sum(например)
AssignFile(FP, 'KeysStore.txt');
Rewrite(FP);
WriteLn(FP, 'всего зафиксировано нажатий: ' + IntToStr(Sum));
// записываем остальные данные
for I := 1 to 255 do
begin
Str1 := IntToStr(I) + ' ' + Keys[I];
if IntArray[I] > 0 then Insert(IntToStr(IntArray[I]), Str1, Length(Str1) + 1)
else Continue;
WriteLn(FP, Str1);
end; //for
CloseFile(FP);
end;

Может поможет а хота х.. его знает

[KORT]

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

Ну и как записывать-то? Код можно?

скачай и посмотри код...там и записать и сохранить и что-то

[LianaMir]

Класс!!!
Спасибо мальчики, помогли с примерчиком)))