Ich habe nun ein neues Problem, wo ich absolut ratlos bin...
Delphi-Quellcode:
procedure Tf_lampenspiel.sg_LampenDrawCell(Sender: TObject; ACol,
ARow: Integer; Rect: TRect; State: TGridDrawState);
var i, k, j: integer;
begin
j := 0;
Setlength (aLampen,se_groesse.value,se_groesse.value);
if aLampen[Acol,Arow] then
sg_lampen.canvas.brush.color := clblue
else
sg_lampen.canvas.brush.color := clwhite;
sg_lampen.canvas.fillrect(rect);
for i := 0 to (se_groesse.value-1) do
for k := 0 to (se_groesse.value-1) do
begin //Hab ich gewonnen?
If sg_lampen.cells[i,k] = clblue
[B]then inc(j);[/B]
end;
If j = se_groesse.value * 2
then showmessage('Herzlichen Glückwunsch, sie haben Gewonnen! Sie haben ' + IntToStr(zuege) + ' Züge gebraucht. Das Feld wird zurückgesetzt.')
end;
An der Fett markierten Stelle bekomme ich folgende Fehlermeldung:
Zitat:
Inkompatible Typen: 'String' und 'Integer'
Ich habe alles Probiert, aber ich kriege den fehler nicht behoben
MfG