[insidefuture]

Привет,

Как я могу сделать чтоб я могбы в типизированный файл постоянно добовлять новую информацыю при этом не уничтожая старую ?

я делаю так:

type

skaicius = record
pirmas : integer;
end;
.....

procedure TForm1.Button1Click(Sender: TObject);
var F : file of integer;
n : skaicius;
begin


assignfile(F, 'taspats.tts');
rewrite(F);

Edit1.Text:=IntToStr(StrToInt(Edit1.Text)+1);
n.pirmas:=StrToInt(Edit1.Text);
write(F, n.pirmas);
closefile(F);

end;