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)) = '.fmap' then 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]