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