Stringgrid - Problem

[Spicker]

Hallo,
Ich lerne gerade in meinem ersten Jahr Delphi, und habe problem bei einem Stringgrid.
Ich hab die Werte Acol und Arow bei einer onSelectCell Methode, aber ich weiß nicht, wie ich die Zelle "anpreche"

Bsp:

Delphi-Quellcode:

If an[1] = true
  then sg_Musik[Wie spreche ich die zelle an?].text = "super";

blödes Bsp, aber nur um das Problem zu verdeutlichen.

Ich hoffe auf eine weiterhelfende Antworte

MfG Spicker

[Flare]

Hi Spicker!

Versuche es mal damit

Delphi-Quellcode:

If an[1] = true 
  then sg_Musik.Cells[Col, Row] = "super";

Der originale Befehle dafür heißt:

Delphi-Quellcode:

Cells[ACol: Integer; ARow: Integer]: string;

Hoffe du kannst damit was anfangen :lol:


Flare

[marabu]

Herzlich willkommen in der Delphi-PRAXiS, Spicker.

Das wichtige hat Flare ja schon geschrieben. Hier noch ein paar kleine Anmerkungen.

Delphi-Quellcode:

if an[1] then 
  with sg_Musik do
    Cells[Col, Row] := 'super';

Zeichenketten-Literale bitte in einfachen Hochkommata, Zuweisungs- und Gleichheits-Operator nicht verwechseln und Col und Row sind Eigenschaften vom StringGrid. Das Ergebnis eines booleschen Ausdrucks (bei dir an[1]) muss übrigens nicht noch mit einem Literal verglichen werden.

Freundliche Grüße vom marabu

[Flare]

Zitat:

und Col und Row sind Eigenschaften vom StringGrid

Das meinte ich eigentlich nicht mit meinen Col und Row! Ich meinte damit eigentlich die Zelle, die er ansprechen möchte, es ist nur zufällig genau das :-D
Is ja eigentlich auch egal


Flare

[Spicker]

Hey danke =)

hat mir sehr geholfen

Spicker

[Spicker]

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

[Flare]

Ich würde sagen der Fehler liegt in diesem Code-Schnipselchen:

Delphi-Quellcode:

If sg_lampen.cells[i,k] = clblue

Du versuchst ein Feld auf eine Konstante zu überprüfen, welche beim Kompilieren mit einer Integer-Zahlenwert ersetzt wird. Man kann allerdings nicht einen Integer mit einem String vergleichen (Cells gibt einen String zurück, habe ich ja oben geschrieben). Außerdem glaube ich solltest du noch einmal das überprüfen, ich meine du möchtest doch überprüfen ob die Celle blau ist und nicht ob der Inhalt "blau" heißt, oder?


Mfg, Flare

[Spicker]

Danke, ich hab mir es andern überlegt, und habe das problem umgangen, indem ich das Array geprüft habe, nicht die Zellen.

Delphi-Quellcode:

If aLampen[i,k] = true
       then inc(j);

MfG