jUli@ - Fr 30.08.02 15:17
Titel: E/A Fehler

---

an der stelle:

vokabeldat ist deklariert!
{
var
FrmAusgabe: TFrmAusgabe;
person:tVokabel;
dateiOffen, dateiGeschlossen:boolean;
VokabelDat: String;
}

procedure TFrmAusgabe.btnShowClick(Sender: TObject);
var zeile,spalte:integer;
begin
zeile:=1;
spalte:=0;
dateiOffen:= dateiOeffnen(VokabelDat);
while not Eof(VokabelDat) do
begin
Vokabel:=datensatzLesen;
if sgVokabeln.RowCount<(zeile + 2)
then sgVokabeln.rowCount:= sgVokabeln.rowCount+1;
with person do
begin
sgVokabeln.Cells[spalte,zeile]:=IntToStr(vokNr);
sgVokabeln.Cells[spalte+1,zeile]:=Englisch;
sgVokabeln.Cells[spalte+2,zeile]:=Deutsch1;
sgVokabeln.Cells[spalte+3,zeile]:=Deutsch2;
end;//with
Inc(Zeile);
end;//while
dateiGeschlossen:=dateiSchliessen;
end;



Wäre schön wenn ihr mir helfen könntet!

LG Julia :D

Klabautermann - Fr 30.08.02 16:26

---

Gerne,
wenn du auch sagst was dein Problem ist?

b.brecht - Sa 31.08.02 14:12

---

ähm, vokabeldat ist vom typ string -
kann man von einem string einen EOF erfragen?

Klabautermann - Sa 31.08.02 16:43

---

b.brecht hat folgendes geschrieben:

ähm, vokabeldat ist vom typ string - kann man von einem string einen EOF erfragen?

Stimmt, das geht natürlich nicht. Das EOF der Dateivariable (bzw. der Datei) müsste überprüft werden (FILE OF WasWeissIch).
Wie die hier heißt ist leider nicht angegeben.

Gruß
Klabautermann