Delphi-Quellcode:
// einen Record (datensatz) Type angelegt
// ein Record ist eine Datenstruktur (ein Zusammenschluß von Daten)
type
TFahrzeugdaten = packed record
fahrzeugName : String[50];
kw : single;
ps : single;
end;
Delphi-Quellcode:
procedure TForm1.cmdListSpeichernClick(Sender: TObject);
var
i: integer;
pAuto: IAuto;
myfile: File of TFahrzeugdaten; // ein Dateivariable deklariert
datenSatz : TFahrzeugdaten; // eine Variable zur Aufnahme der Daten deklariert
begin
try
if AutoList = nil then
raise
EBerechnung.Create('Wenn es keine Liste gibt, kann man sie auch nicht speichern.');
if SaveDialog1.Execute then
AssignFile(myFile, SaveDialog1.FileName);
Rewrite(myFile);
for i := 0 to AutoList.Count - 1 do
begin
pAuto := AutoList.Items[i];
// zuweisen der Daten
datensatz.fahrzeugName := pAuto.ErgebnisName;
datensatz.kw := pAuto.ErgebnisKW;
datensatz.ps := pAuto.ErgebnisPS;
// Daten in die Datei schreiben
Write(myfile,datensatz);
end;
CloseFile(myFile);
except
on E: EBerechnung do
MessageDlg(E.Message, mtInformation, [mbOK], -1);
end;
end;
Für zum Speichern sollte es ungefähr wie oben beschrieben aussehen.
Grüße
Klaus