Was sagt der Fehler aus??? Keine Ahnung wwo das Problem liegt...
Hier der Code

zusammenfalten · markieren

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?

autsch! menuitems is doch gar net die Textfile.... ahhh das tut weh!