thx helmi und auch allen anderen danke
Delphi-Quellcode:
procedure Kontrolle(const Target: TStringgrid);
var a, b, r, richtig :integer;
gefunden :boolean;
begin
y:=-1;
begin
For r := 1 to 6 do
begin
For a := 1 to 4 do
begin
richtig:=0;
For b := 1 to 4 do
begin
y:=a+b;
gefunden:=Target.cells[r,y]=IntToStr(Spieler);
if
gefunden=true
then
richtig:=richtig+1
end;
if
richtig=4
then
break;
end;
if
richtig=4
then
break;
end;
if
richtig=4
then
break;
end;
if
richtig=4
then
showmessage('Spieler' +IntToStr(Spieler) +'hat gewonnen!');
end;
das scheint jetzt erstmal zu funzen aber jetzt bekomme ich immer ne Fehlermeldung
"Zugriffsverletzung bei Addresse 07FF0652 in Modul 'dcc90.dll'. Lesen von Adresse 00000000." (8mal 0)
was heißt das jetzt?????