Hi,
an der globalen deklaraition hats auch net gelegen.
Mein code:
Delphi-Quellcode:
function TForm1.posproof(label_zahl,reihe:integer):boolean;
begin
if label_zahl > 1 then
begin
zahl:=1;
while zahl < label_zahl do
begin
if reihe= a[zahl] then
begin
result:=true;
exit;
end
else zahl:=zahl+1;
end;
result:=false;
end
else result:=false;
end;
Genau gesagt sind es zwei fehlermeldung: einmal "accessviolation" und zum anderen "Setpointer ungültig".
Plautzer