Delphi-Quellcode:
procedure LevelLaden(datei: String);
var
txt: Textfile;
y: Integer;
dummy: String;
begin
AssignFile(txt,datei); // Verknüpft eine Dateivariable mit einer Datei.
Reset(txt); // Öffnet eine vorhandene !! Datei
while not Eof(txt) do // solange das ende der datei nicht erreicht ist
begin
ReadLn(txt, dummy); // Zeile für zeile auslesen
// for y := Low(dummy) to High(dummy) do // Korrektur!!
for y := 1 to Length(dummy) do // so musses sein
begin
if dummy[y] = '1' then ..... ; // dummy[3] wäre das 3te zeichen...
if dummy[y] = '_' then ..... ;
end;
end;
end;
ich hoff das ist mal ein ansatz
(ungetestet natürlich
)
stefan