Unterprogramm auf Oberfläche(VCL) beziehen

[foerster7892]

Also ich weiß nicht genau was ich falsch mache, aber ich möchte dies ausführen

Delphi-Quellcode:

procedure Spielstein;

If
(stringgrid1.cells[y,2] =IntToStr(1)) or (stringgrid1.Cells[1,2] =IntToStr(2))
then
stringgrid1.cells[y,1]:=IntToStr(Spieler)

ist nur nen kleiner Teil von dem Programm


und um das es funktioniert, soll ich dies tun???

Delphi-Quellcode:

procedure Spielstein(Target: TStringgrid)

If
(stringgrid1.cells[y,2] =IntToStr(1)) or (stringgrid1.Cells[1,2] =IntToStr(2))
then
stringgrid1.cells[y,1]:=IntToStr(Spieler)

das Problem tritt aber weiterhin auf (bin ich einfach nur zu dumm??? )

brauche nochmal eure hilfe

[DeddyH]

Delphi-Quellcode:

procedure Spielstein(const Target: TStringgrid);
begin
  If (Target.cells[y,2] =IntToStr(1)) or (Target.Cells[1,2] =IntToStr(2)) then
    Target.cells[y,1]:=IntToStr(Spieler);

[Uwe Raabe]

Delphi-Quellcode:

procedure Spielstein(Target: TStringgrid)

If
(Target.cells[y,2] =IntToStr(1)) or (Target.Cells[1,2] =IntToStr(2))
then
Target.cells[y,1]:=IntToStr(Spieler)

Wo du nun noch die Werte für "y" und "Spieler" herbekommst, kann ich dir so noch nicht sagen - dafür war der Code-Ausschnitt zu kurz.

Das Ganze funktioniert sowies nur dann, wenn der Aufruf

Spielstein(stringgrid1); an einer Stelle erfolgt, wo sowohl "Spielstein" als auch "stringgrid1" bekannt sind.

[Phoenix]

Zitat von foerster7891:

das Problem tritt aber weiterhin auf (bin ich einfach nur zu dumm??? )

Welches Problem denn? Bekommst Du ne Fehlermeldung? Wenn ja: Welche?

[foerster7892]

ok jetzt läuft das erstmal

Ich kannte das nicht mit dem Target und so aber werds mir jetzt merken

thx dann an alle