Ich habe diese Prozedur geschrieben:
Delphi-Quellcode:
procedure TForm1.bt_startClick(Sender: TObject);
var zahl,i,j:integer; datei:textfile; gesp:tfeld; h:string;
begin
zahl:=strtoint(ed_nummer.text);
[...]
if zahl=0
then
begin
zahl:=random(5);
for i:=1 to 9*zahl do
begin
readln(datei);
end;
try
for i:=1 to 9 do
begin
readln(datei,h);
for j:=1 to 9 do
gesp[i,j]:=strtoint(h[j]);
end;
finally
closefile(datei);
end;
end
else
begin
zahl:=strtoint(ed_nummer.Text)-1;
for i:=1 to 9*zahl do
begin
readln(datei);
end;
try
for i:=1 to 9 do
begin
readln(datei,h);
for j:=1 to 9 do
gesp[i,j]:=strtoint(h[j]);
end;
finally
closefile(datei);
end;
Nun zu meinem Problem: Das klappt nicht so wie ich mir das denke
Irgendwie scheint der then-Zweig nicht zu klappen, denn wenn ich dann das array in das stringgrid übertrage bleibt letzteres leer. Allerdings nur wenn ich den Else-zweig im Programm lass. Sobald ich den herausnehm, klappt der Then-Zweig wunderbar. Vielleicht weiß einer woran das liegt, denn ein "richtiger" Fehler kann es ja nicht sein, oder?