Das Laden eines Levels dauert zu lange

[devnull]

Du liest einfach jedes Zeichen einzeln ein:

Delphi-Quellcode:

var ch : char;
    t : textfile;
begin
  assignfile (t, 'Level.dat');
  reset (t);
  repeat
    read (t, ch);
    case ch of
      1 : ;// Baum
      2 : ;// Stuhl
      ...
    end;
  until EOF (t);
  closefile (t);
end;

Delphi-Quellcode:

var ch : char;
    t : textfile;
begin
  assignfile (t, 'Level.dat');
  rewrite (t);
  repeat
    write (t, ch);
  until EOF (t);
  closefile (t);
end;

Du könntest aber auch, sagen wir 500 Zeichen, in eine Zeile schreiben und diese später komplett einlesen (readln (t, zeile) und dann mittels Schleife die "Kästchen" ändern/definieren.


Kannst statt 'char' auch 'integer' oder so nehmen...
Ich hoffe, dass war das was gemeint war


devnull