Fehler beim laden des Models (Opendialog)

[Lehmar]

Moin,
ich hab 2 Formulare die ich auch mit Programmstart anzeigen lasse...
Beim ersten Formular Initialisiere ich Opengl auf dem zweiten
habe ich einen Opendialog und einen Button.
Wenn man auf den Button klickt öffnet sich der Opendialog und man sucht sich
z.B. Ball2.3ds aus so sieht der Code aus

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
begin
if Opendialog1.Execute then
begin
Filename := Opendialog1.FileName;
Form1.Load;
end;
end;

Und die Load Procedure:

Delphi-Quellcode:

procedure TForm1.Load;
begin
model:=TAll3DSMesh.Create(nil);
model.LoadFromFile('Form2.Filename');
Form1.Modelladen := true;
end;

Die Variable Filename ist eine Globale Variable!

Nun starte ich und...
Tja Fehler:' Objekt konnte nicht geladen werden'! :wall:

Wenn ich nun aber Opendialog weglasse funktioniert es...
In etwa so...

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
begin
Filename := 'Modelle\Ball2.3ds';
Form1.Load;
end;

Aber ich möchte ja aussuchen können welches Objekt ich lade!?
Kann mir jemand erklären wie ich das machen kann? (Ich hoffe ich hab es richtig Formuliert...:lol:)

[Airblader]

Anstatt einer globalen Variable würde ich den Filename lieber als Parameter übergeben ;)

Dein Fehler jedoch ist hier:

Delphi-Quellcode:

model.LoadFromFile('Form2.Filename');
->
model.LoadFromFile(Form2.Filename);

In deiner Variante wäre Form2.Filename ein String, sprich das wäre der Dateiname, den er öffnen soll.
Du gibst aber eine Variable als Parameter weiter, die '' sind also unnötig.

Wie gesagt - ein Parameter in deiner Load-Procedure wäre aber eleganter :)

air

[Lehmar]

Sehr gut danke!!!! :-D
Nur wegen so einem blöden Fehler...
Naja.
Danke! :-D

[Lehmar]

Gut ich nehme dafür besser ein neues Thema! :wink: