Witam!!
Mam maly problem:
mianowicie zapisuje sobie w pliku dane.dat parenascie roznych danych po czym je odczytuje... i pojawiaja mi sie tylko ostatnie zapisane dane... a chce żeby pokazywały mi sie wszystkie... proszę o pomoc!!
przedstawiam krótki listing zapisu i odczytu danych...
Zapis:
dane.nazwaS:=nsedit.Text;
dane.rodzajS:=rsbox.Text;
dane.maxPulap:=strtoint(mpedit.Text);
dane.maxSpeed:=strtoint(mpredit.Text);
dane.Xs:=strtoint(xsedit.Text);
dane.Ys:=strtoint(ysedit.Text);
dane.Fuel:=strtoint(ipedit.Text);
dane.maxPerson:=strtoint(ioedit.Text);
try
AssignFile(plik,'samolot.dat');
rewrite(plik,1);
BlockWrite(plik,dane,SizeOf(dane));
finally
CloseFile(plik);
end;
i odczyt.. :
try
AssignFile(plik,'samolot.dat');
reset(plik,1);
BlockRead(plik,dane,SizeOf(Dane));
ekranForm.EkranM.Lines.Add('Samoloty:');
ekranForm.EkranM.Lines.Add('Nazwa: '+dane.nazwaS);
ekranForm.EkranM.Lines.Add('Rodzaj samolotu: '+dane.rodzajS);
ekranForm.EkranM.Lines.Add('Max pułap: '+inttostr(dane.maxPulap));
ekranForm.EkranM.Lines.Add('Max prędkość: '+inttostr(dane.maxSpeed));
ekranForm.EkranM.Lines.Add('Pojemność zbiornika paliwa: '+inttostr(dane.Fuel)+' litrów.');
ekranForm.EkranM.Lines.Add('Pojemność osób na pokładzie: '+inttostr(dane.maxPerson));
ekranForm.EkranM.Lines.Add(' ');
finally
CloseFile(plik);
end;
... prosze powiedzcie co jest źle.. albo co robie nie tak....