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