Hallo,
hab probleme beim auslesen einer datei.
folgender code:
Delphi-Quellcode:
While not EOF(f1) do begin
Readln(f1,s);
k := Length(s);
Match_ID.Text := IntToStr(j);
Matchdate.Text := Copy(s,1,8);
i := Pos(' ', s);
q := Pos(':', s);
Home_Team.Text := Copy(s,i+1,(q-1)-i);
i := Pos(':', s);
Out_Team.Text := Copy(s,i+2,(k-3)-(i+2));
Home_Goals.Text := Copy(s,k-3,1);
Out_Goals.Text := Copy(s,k-1,1);
DBNavigator1.BtnClick(nbInsert);
j := j+1;
end;
Problem: Die erste Zeile wird übersprungen.
Hinweis: Die Daten sollen an eine Datenbank übergeben werden...
hier noch ein kleiner auszug aus der datei
10.08.07 VfB Stuttgart : FC Schalke 04 2:2
11.08.07 FC Bayern München : F.C. Hansa Rostock 3:0
11.08.07 VfL Bochum 1848 : Werder Bremen 2:2
eintrag in die edit-felder 1.datensatz: 11.08.07 FC Bayern München : F.C. Hansa Rostock 3:0
Vielen Dank im voraus