Hab mal noch ne Frage heute:
Ich bekomme hier ne ganze Reihe an Fehlermeldungen rein
[Fehler] Unit3.pas(49): E2029 Ausdruck erwartet, aber 'BEGIN' gefunden
[Warnung] Unit3.pas(50): W1019 FOR-Schleifenvariable muss eine einfache lokale Variable sein
[Fehler] Unit3.pas(57): E2029 ':=' erwartet, aber '=' gefunden
[Fehler] Unit3.pas(62): E2029 'END' erwartet, aber 'THEN' gefunden
[Warnung] Unit3.pas(170): W1019 FOR-Schleifenvariable muss eine einfache lokale Variable sein
[Warnung] Unit3.pas(172): W1019 FOR-Schleifenvariable muss eine einfache lokale Variable sein
[Fataler Fehler] VierGewinnt.dpr(5): F2063 Verwendete
Unit 'Unit3.pas' kann nicht compiliert werden
sehe aber nciht was ich falsch gemacht habe:
Delphi-Quellcode:
procedure Kontrolle(const Target: TStringgrid);
var a, b :integer;
begin
y:=-1;
if
begin //<-- das unterstreicht er rot
For x := 1 to 6 do
begin
For a := 1 to 4 do
begin
For b := 1 to 4 do
begin
y:=a+b;
Target.cells[x,y]=IntToStr(Spieler);
end;
end;
end;
end
then //<-- und das
showmessage('Spieler' +IntToStr(Spieler) +'hat gewonnen!'));
end;
könnte bitte nochmal wer sein Wissen mit mir teilen???