kleines IO Problem

[Klaus01]

Eingerückt schaut es so aus:

Delphi-Quellcode:

procedure TFormular1.ToolButton_openClick(Sender: TObject);
var
  i,j,q,h,k, daycounter : Integer;
  Spieltag, Spieltag1 : String;
begin
  Assignfile(f1,'C...\Saison1.txt');
  Reset(f1);
  j:=1;
  TBL_Match.Insert;
  Spieltag := ('Spieltag');
  daycounter := 0;
  while not EOF(f1) do   
    begin
      readln(f1, Zeilen_String);
      k:=length(Zeilen_String);
      if k = 0 then  
      else 
        begin
          if ((k >0)  and  (k < 20)) then 
            daycounter := daycounter+1 
          else 
            begin
              DBE_MatchID.Text := IntToStr(j);
              j:=j+1;
              DBE_Date.Text := Copy(Zeilen_String,1,8);
              i := Pos(' ', Zeilen_String);
              q := Pos (':', Zeilen_String);
              DB_HTeam.Text :=Copy(Zeilen_String, i+1, (q-1)-i);
              i := Pos (':', Zeilen_String);
              DBE_ATeam.Text := Copy(Zeilen_String, i+2, (k-3)-(i+2));
              DBE_HTeamGoals.Text := Copy(Zeilen_String, k-2, 1);
              DBE_ATeamGoals.Text := Copy(Zeilen_String, k, 1);
              TBL_Match.Insert;
            end;
        end;
    end;  // while end
  Navi_Match.BtnClick(nbRefresh);
  Navi_Match.BtnClick(nbFirst);
  Closefile(f1);

end;

Grüße
Klaus