Einzelnen Beitrag anzeigen

cook

Registriert seit: 4. Nov 2003
Ort: Ilmenau
37 Beiträge
 
Delphi 6 Enterprise
 
#3

Re: bei Laden aus Datei werden Create- Parameter verlangt

  Alt 19. Nov 2003, 00:03
Meinste das geht?
Ich will ja nicht ständig nur von Datei ne Instanz erzeugen und somit würde er doch bestimmt meckern über das LoadFromFile im Constructor wenn gar keine File da is.
Mich wundert es halt blos das es in dem Beispielprogramm auch funzt:
Delphi-Quellcode:
procedure TformMain.btLadenClick(Sender: TObject);
var rdFahrzeuge : TReader;
    iAnzahl ,i : Integer;
    FahrzeugClass : TFahrzeugRef;
    lFahrzeug : TFahrzeug;
begin
lbFahrzeuge.clear; // aktuelle Fahrzeuge löschen
OpenDialog.Filter:='Alle Dateien |*.*|Sav-Files (*.sav)|*.SAV';
OpenDialog.FilterIndex:= 2;
if OpenDialog.Execute then
begin
for i:= 0 to 19 do
  begin
     aFahrzeuge[i].free;
  end;

strFile := TFileStream.Create(Opendialog.filename,fmOpenRead);

rdFahrzeuge := TReader.Create(strFile,2000);

iAnzahl := rdFahrzeuge.ReadInteger;
for i:= 0 to iAnzahl-1 do
begin
  FahrzeugClass := TFahrzeugRef(findclass(rdFahrzeuge.readString));
  lFahrzeug := FahrzeugClass.Create;
  lFahrzeug.LoadFromFile(rdFahrzeuge);

  aFahrzeuge[i] := lFahrzeug ;
  lbFahrzeuge.items.Add(aFahrzeuge[i].Kennzeichen);
end;
rdFahrzeuge.destroy;
strFile.destroy;

end; // If Laden
end;
und da ist eigentlich nix anders... halt nur die Bezeichnungen!
Hab es ja mehr oder weniger 1:1 übernommen
  Mit Zitat antworten Zitat