Hilfe, ich bin immo total am verzweifeln, jetzt funktioniert irgendwie garnix mehr.
Also ersteinmal zu den Random-Zahlen, also ich hab jetzt noch zusätzlich in meinen Record eine variable pruefen vom typen boolean da reingepackt. Aber irgendwie funktioniert das nicht, mien quelltext sieht da so aus:
Delphi-Quellcode:
If checkbox1.Checked
then
begin
label4.Visible:=false;
nr:=random (filesize(datei)-1);
seek(datei,nr);
read(datei,vok);
while vok.pruefen=true do
begin
edit1.text := vok.englisch;
label4.Caption:= vok.deutsch;
shape1.brush.Color:=clwhite;
vok.pruefen:=false;
end
end
Anfangs ist ja eine boolsche Variable auf true gesetzt, wenn nicht, wie kann ich das denn dann machn, dass alle anfangs auf true gesetzt werden, und ich dannach jede einzelne die schon aufgegriffen wurde auf false gesetzt wird. Wär nett wenn mir jdm das im quelltext zeigen könnte.
Und hier ist der Quelltext um die Lektionen aufzugreifen:
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
end
end
Irgendwie krieg ich das nicht hin, dass der dann dort nur die Lektion, die man im editfeld eingibt, ausgibt.