Zugriffsfehler bei eigner Funktion

[plautzer]

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