Привет,
Как я могу сделать чтоб я могбы в типизированный файл постоянно добовлять новую информацыю при этом не уничтожая старую ?
я делаю так:
Цитата:
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;
|