Ausgabe der Makierung im StringGrid

[Real_Thunder]

Hallo, erstmal , vorne Weg bitte nicht schlagen, denn ich denke meine Frage ist sowas von leicht.

Wie ist der Syntax um eine Makierte Zeile in einem StringGrid auszugeben

Irgendwie bin ich zu doof dafür..

und im Internet irgendwie nichts gefunden...

Ich weiß, das ist nun sowas von eine Grundlage....

Schande auf mein Haupt....

[nat]

mit StringGrid1.Row kriegst du den index der markierten reihe
(analog dazu mit StringGrid1.Col die markierte spalte).
über StringGrid1.Cells[col,row] kannst du dir den wert jedes
feldes ausgeben lassen.

als kleinen tipp fürs nächste mal:
markiere ma so ein stringgrid und drücke F1
in der hilfe sind eigentlich alle eigenschaft/methoden/ereignisse
super erklärt (meist sagen die namen schon alles aus).

[marabu]

Guten Morgen,

hier eine kleine Lernhilfe - der Lerneffekt tritt natürlich nur ein, wenn du den Code anhand der Delphi Online-Hilfe nachzuvollziehen versuchst:

Delphi-Quellcode:

procedure SelectRow(sg: TStringGrid; index: Integer);
begin
  with sg do
    if goRowSelect in Options
      then Row := index
      else Selection := TGridRect(Rect(FixedCols, index, Pred(ColCount), index));
end;

procedure TDemoForm.ButtonClick(Sender: TObject);
begin
  SelectRow(StringGrid, 2);
end;

Freundliche Grüße vom marabu

[Real_Thunder]

Ok Danke für die Lösung.
Zu meiner Verteididung, es War knapp 4 Uhr, und mein Gehirn war schon im Bett.

An sich kann ich mit StringGrids Schon umgehen.
Bin Bloß nicht auf das Row gekommen.

Zu Marabu:
Ich gehe mal Ganz stark davon aus das Dieses Bespiel eine Zeile makiert. (Nun habe ih iweder geschlafen.

[marabu]

Zitat von Real_Thunder:

Ich gehe mal Ganz stark davon aus das Dieses Bespiel eine Zeile makiert. (Nun habe ih iweder geschlafen.

Du schummelst - hast gar nicht in die Online-Hilfe geschaut und einfach den Funktionsnamen übersetzt.

marabu

[Real_Thunder]

Ne, ich habe mir den Quelltext angesehen, und so ein völliger Volldepp bin ich a auch nicht

Delphi-Quellcode:

procedure SelectRow(sg: TStringGrid; index: Integer);   // procedurstart
begin 
  with sg do 
    if goRowSelect in Options  // wenn in den Optionen goRowSelect = true ist (ganze Zeile makieren)

      then Row := index        // Der Makierte Row ist der Zeilenindex
      else Selection := TGridRect(Rect(FixedCols, index, Pred(ColCount), index));  
      // sonst Makiere alle spalten in der Zeile
end; 

procedure TDemoForm.ButtonClick(Sender: TObject);  // Prozedurufruf über Button
begin 
  SelectRow(StringGrid, 2); 
end;

Ich hoffe nu Glaubst mir