Hallo
Ich habe festgestellt das ich nach until das not vergessen habe, so kann ich überwachen ob dieser
Datensatzt schon einmal eingelesen wurde oder nicht. Jetzt funktioniert eigentlich alles. Ich habe den code noch so abgeändert das wen in der Tabele 2 gleichviel Datensetzt vorhanden sind das das Program automatisch geschlossen wird, das ganze habe ich mit einem Goto befehl gemacht.
Ich habe jetzt nur noch ein grosses problem festgestehlt. Die Random funktion funktioniert irgendwie nicht richtig, wenn ich das Programm ein paarmal durchlaufenlase kommen jedes Mal die gleichen Datensätze in der gleichen Reihenfolge wider, was kann das Problem sein?
Code:
....
var a,b,ID:integer;
label sprungpunkt;
begin
a:=(table1.Recordcount);
b:=(table2.Recordcount);
if a=b then goto sprungpunkt;
repeat
ID:=random(a);
until not table2 Findkey([ID]);
...//wie gehabt
Sprungpunkt:
if a=b then close;
Warum funktioniert hier die Randome funktion nicht richtig?
Gruess Schmodi