Guten Abend alle zusammen...
Ich hab folgendes Problem:
Ich habe in einer Datei verschiedene Daten einer Maschine gespeichert (mit eigener Klasse TMaschine) und will diese dann wieder auslesen.
Jedoch wenn ich eine Instanz einer Maschine mit lMaschine := MaschinenClass.Create erzeugen will sagt er mir: nicht genügend wirkliche Parameter.
D.h. ja normalerweise das ich diese dem Constructor Create übergeben muss, also:
...Create(Breite,Laenge,...);
Jedoch soll er das ja aus der Datei auslesen und ich hab auch ein Beispielprogramm bei dem das so klappt. Dazu schreib ich erstmal fix den Quelltext
Delphi-Quellcode:
procedure TForm1.Projektladen1Click(Sender: TObject);
var rdProjekt : TReader;
maschinenAnzahl ,i : Integer;
RaumClass : TRaumRef;
MaschinenClass : TMaschineRef;
lRaum : TRaum;
lMaschine : TMaschine;
begin
lbMaschinen.clear; // aktuelle Maschinen löschen
OpenDialog.Filter:='Alle Dateien |*.*|Map-Files (*.map)|*.MAP';
OpenDialog.FilterIndex:= 2;
if OpenDialog.Execute then
begin
for i:= 0 to 19 do
aMaschine[i].free;
strFile := TFileStream.Create(Opendialog.filename,fmOpenRead);
rdProjekt := TReader.Create(strFile,2000);
RaumClass := TRaumRef(findclass(rdProjekt.ReadString));
lRaum := RaumClass.Create;
lRaum.LoadFromFile(rdProjekt);
maschinenAnzahl := rdProjekt.ReadInteger;
for i:= 0 to maschinenAnzahl-1 do
begin
MaschinenClass := TMaschineRef(findclass(rdProjekt.readString));
lMaschine := MaschinenClass.Create;
lMaschine.LoadFromFile(rdProjekt);
aMaschine[i] := lMaschine ;
lbMaschinen.items.Add(aMaschine[i].Bezeichnung);
end;
rdProjekt.destroy;
strFile.destroy;
end;
end;
Jedoch lädt er mir nichts in lRaum bzw. lMaschine wenn ich vorher nicht die Instanz erzeuge. Aber das kann er ja nur mit den Daten die er mit LoadFromFile bekommt!
TEUFELSKREIS???
mfg cook