Forum: Sonstige Fragen zu Delphi
Delphi
by Klaus01,
10. Sep 2009
es wird aber nur ein Auto erstellt.
Du musst pro gelesenen "Datensatz" ein Auto generieren,
ansonsten verweisen Deine Instanzen in der Liste alle
auf die gleiche Instanz und alle Werte Deiner Liste
haben die Werte des zuletzt gelesenen Datensatzes.
Grüße
Klaus
Forum: Sonstige Fragen zu Delphi
Delphi
by Klaus01,
10. Sep 2009
Guten Morgen Schnittcher,
ich würde eigentlich erwarten, das pro eingelesen Datensatz auch
ein Object/Interface vom Typ Auto generiert wird.
nun weiß ich leider nicht was diese Zeilen machen:
Auto := TBackupClassesFactory.Auto;
AutoList := TbackupClassesFactory.AutoList;
Forum: Sonstige Fragen zu Delphi
Delphi
by Klaus01,
9. Sep 2009
procedure TForm1.Button1Click(Sender: TObject);
var
Auto: IAuto;
datensatz: TFahrzeugdaten;
MyFile: file of TFahrzeugdaten;
begin
Auto := TBackupClassesFactory.Auto;
AutoList := TbackupClassesFactory.AutoList;
if OpenDialog1.Execute then
begin
Forum: Sonstige Fragen zu Delphi
Delphi
by Klaus01,
9. Sep 2009
procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
aRec: TFahrzeugdaten;
pAuto: IAuto;
begin
if OpenDialog1.Execute then
AssignFile(MyFile, OpenDialog1.FileName);
Reset(MyFile);
//Anzahl der Datensätze ermitteln und Arraygröße entsprechend setzen
Forum: Sonstige Fragen zu Delphi
Delphi
by Klaus01,
9. Sep 2009
Gute Besserung
Grüße
Klaus
Forum: Sonstige Fragen zu Delphi
Delphi
by Klaus01,
9. Sep 2009
// einen Record (datensatz) Type angelegt
// ein Record ist eine Datenstruktur (ein Zusammenschluß von Daten)
type
TFahrzeugdaten = packed record
fahrzeugName : String;
kw : single;
ps : single;
end;
procedure TForm1.cmdListSpeichernClick(Sender: TObject);
Forum: Sonstige Fragen zu Delphi
Delphi
by Klaus01,
9. Sep 2009
.. oder eine kleine Datenbank (SqLite o.ä) nehmen
Grüße
Klaus