jetzt habe ich folgenden code:
Delphi-Quellcode:
z:=IndexOF('Map {')+1;
Randomize;
for i:=z to Count-2 do begin
str:=strings[i];
for x:=1 to MapX+1 do begin
if str[x] = 'R' then begin
Steine[x-1,i-z ].Tex:=random(3);
end
else begin
if str[x] = 'K' then
Steine[x-1,i-z ].Tex:=None
else
Steine[x-1,i-z ].Tex:=StrToInt(str[x])
end;
end;
nur das problem besteht leider immer noch.
Warum kann das was mit dem speicher zu tuen haben ?
der code ist doch zimlich klein(naja diesier code abschnitt)
wenn ich kein -1 machen würde gibst doch probleme, wegen der 0 oder nicht ?
str[x] fängt von 1 an und mein 2D array von 0.