overload procedure macht probleme

[pustekuchen]

Danke @ all

Zitat:

Nach dem Aufruf von LoadMap befindest du dich im Verzeichnis

Ahh ok das erklärt natürlich einiges

Delphi-Quellcode:

procedure TMap.LoadMap;
var OpenDlg: TOpenDialog;
begin
  OpenDlg := FormMain.dlgOpen;
    if OpenDlg.Execute then
    begin
      LoadMap(OpenDlg.FileName);
    end;
end;

Hehe daran hab ich garnicht gedacht Werds morgen alles einbauen

[Luckie]

Das OpenDlg := FormMain.dlgOpen;OpenDlg := FormMain.dlgOpen; ist auch ungünstig, denn dass setzt voraus, dass ein Datei-Öffnen-Dialog mit dem Namen dlgOpen (Übrigens eine nichtssagende Bezeichnung.) existiert. Das ist schlecht, wenn du die Klasse weiterverwenden willst, da du keine Trennung von der Oberfläche hast. Entweder du erzeugst den Dialog dynamisch in der Methode der Klasse oder du übergibst den Dialog als Parameter oder noch besser, du machst nur eine Methode mit dem Pfad als Parameter und prüfst vor dem Aufruf, ob die Datei existiert und rufst dann den Dialog auf oder nicht.
Oder du machst den Pfad zu einem Attribut der Klasse.

[pustekuchen]

Nochmals Danke an alle

Bin euren Ratschlägen gefolgt und zu folgendem Ergebnis gekommen

Delphi-Quellcode:

procedure TMap.LoadMap(fileName: string);
var
  listFields: TStringList;
  i,k,c: integer;
  dlgOpenMap: TOpenDialog;
begin
  dlgOpenMap := TOpenDialog.Create(nil);
  listFields := TStringList.Create;
  fileName := fileName + MAP_FILE_EXTENSION;
  try
  if not FileExists(mapPath + fileName ) then
    if dlgOpenMap.Execute then
      fileName := ExtractFileName(dlgOpenMap.FileName);

  listFields.LoadFromFile(mapPath + fileName);

  c := 0;
  for i := 0 to High(Playground) do
    for k := 0 to High(Playground[i]) do
    begin
      Playground[i][k].Free;
      Playground[i][k] := nil;
      Playground[i][k] := TField.Create(
                             TFieldKinds(StrToInt(listFields.Strings[c][1]))
                                        ,i,k);

      case TFieldKinds(StrToInt(listFields.Strings[c][1])) of
        fkENTRANCE: listEntrances.Add(Playground[i][k]);
        fkEXIT: listExits.Add(Playground[i][k]);
      end;

      if (listFields.Strings[c][2] = '-') then
        Playground[i][k].nextField := TNextField(StrToInt('-' +listFields.Strings[c][3]))
      else
        Playground[i][k].nextField := TNextField(StrToInt(listFields.Strings[c][2]));
      inc(c);
    end;
  finally
    listFields.Free;
    dlgOpenMap.Free;
  end;
  Draw(false);
end;

[pustekuchen]

Mhh wodran kann es liegen, das wenn die Datein oft geladen werden zB 5-6x, das eine EOutOfRessources Exception mit der Meldung 'Das Handle ist ungültig'. auftritt?

EDIT: Dannach kommt noch eine EInvalidOperation Exception mit der Meldung 'Leinwand/Bild erlaubt kein Zeichnen'?

EDIT2: Ok der das Programm braucht nach jedem Laden +1-2MB Ram mehr. Scheint so das ich i-wo vergessen habe die Bitmaps Freizugeben.

[hoika]

Haqllo,

dazu müßten wir deine Draw-Methode sehen.


Heiko