IniFile zu langsam

[Neutral General]

Hi,

Delphi-Quellcode:

procedure TEditWorld.New(Width:Integer; Height:Integer);
var x,y,i : Integer;
begin
 i:= 0;
 World.Width := Width;
 World.Height:= Height;
 if FLevel <> nil then FLevel.Free;
 FLevel := TIniFile.Create(ExtractFilePath(Application.Exename) + 'Default.ini'); //Default.ini erstellen
 FLevel.WriteInteger('Count','Count',Width*Height);
 for y:= 0 to Height-1 do begin // reinschreiben
  for x:= 0 to Width-1 do begin
    inc(i);
    FLevel.WriteString('Tex' + IntToStr(i),'Tex','Wasser');
    FLevel.WriteInteger('Tex' + IntToStr(i),'x',x);
    FLevel.WriteInteger('Tex' + IntToStr(i),'y',y);
  end;
 end;
 FLevel.UpdateFile;
 LoadFromFile('Default.ini'); //nicht sooo wichtig
end;

So. Und je nachdem wie groß die Welt sein soll können das schonmal 2500 Einträge sein... Und das ist viel und vorallem dauert das ewig das alles in eine Datei zu schreiben..
Geht das nicht irgendwie schneller ?