Was sagt der Fehler aus??? Keine Ahnung wwo das Problem liegt...
Hier der Code
Delphi-Quellcode:
var
i: Integer;
s: String;
begin
with frmFightman do
begin
AssignFile(menufile, FileName);
Reset(menufile);
Readln(menufile, menuitems);
For i := 1 to menuitems do
begin
Readln(menuitems, s); //<-- da wird der fehler angezeigt!!!
mxpos[i] := StrToInt(s);
Readln(menuitems, s);
mypos[i] := StrToInt(s);
Readln(menuitems, s);
mxsize[i]:= StrToInt(s);
Readln(menuitems, s);
mysize[i]:= StrToInt(s);
end;
CloseFile(menufile);
end;
Und nu?
...