Einzelnen Beitrag anzeigen

Benutzerbild von xZise
xZise

Registriert seit: 3. Mär 2006
Ort: Waldbronn
4.303 Beiträge
 
Delphi 2009 Professional
 
#1

[TStringList] Problem mit einer Datei (Lädt nicht)

  Alt 2. Okt 2006, 13:43
Datei siehe Anhang
Ich habe eine Datei, die ich mit einer TStringList geschrieben habe. Nur komischerweise macht sie beim Laden zicke:

Delphi-Quellcode:
procedure TfrmMain.leseMap(Path : TFileName);
var
  i, j, k : Integer;
  F2M : TStrings;
  Buffer : Char;
begin
  // Map leeren:
  SetLength(Map, 0, 0, 0);

  F2M := TStringList.Create;
  try
    F2M.LoadFromFile(Path);
    if LowerCase(ExtractFileExt(Path)) = '.fmapthen begin
      {...}
    end else begin
      // Ansonsten normal "f2m"
      SetLength(Map, 4, Length(F2M[1]), Round(F2M.Count / 4));
      for i := MT_PLAYER to MT_KI do begin
        for j := 0 to Length(F2M[1]) - 1 do begin
          for k := 0 to Round(F2M.Count / 4) - 1 do begin
            Map[i, j, k] := Ord(F2M[i * Round(F2M.Count / 4) + k + 1][j + 1]);
          end;
        end;
      end;
    end;
  finally
    F2M.Free;
  end;
end;
Das funktioniert nicht, und ich bekomme im "SetLength" einen Fehler, weil er "F2M[0]/[1]" nicht kennt:
Zitat:
F2M[0]: Delphi exception EStringListError at $740F949
F2M[1]: Delphi exception EStringListError at $740F949
Und Path gibt es (direkt von OpenDialog ausgelesen!)...

[edit]OOPs... Da fehlte die Datei ^^[/edit]
Angehängte Dateien
Dateityp: zip map1_861.zip (191 Bytes, 7x aufgerufen)
Fabian
Eigentlich hat MS Windows ab Vista den Hang zur Selbstzerstörung abgewöhnt – mkinzler
  Mit Zitat antworten Zitat