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 ?