Hallo und einen schönen Sonntagnachmittag,
habe mal ewtas an Deinem Code geändert und auch Kommentare hinterlassen
Delphi-Quellcode:
If checkbox1.Checked then
begin
label4.Visible:=false;
nr:=random (filesize(datei)-1);
seek(datei,nr);
read(datei,vok);
while not vok.pruefen do // hier vielleicht noch etwas einbauen, das nach x Versuchen die Schleife abgebrochen wird
begin
nr:=random (filesize(datei)-1);
seek(datei,nr);
read(datei,vok);
end;
edit1.text := vok.englisch;
label4.Caption:= vok.deutsch;
shape1.brush.Color:=clwhite;
vok.pruefen:=false;
end
Delphi-Quellcode:
if checkbox2.Checked then
begin
a:=strtoint(edit3.text);
for i:=nr to filesize(datei)-1 do
begin
nr:=i;
seek(datei,nr);
read(datei,vok);
if vok.lektion = a then
begin
edit1.text:=vok.englisch;
label4.caption:=vok.deutsch;
shape1.brush.Color:=clwhite;
end
else
// etwas tun wenn die Lektion nicht a ist
end
end
Grüße
Klaus