StringGrid und Button Funktion

[Alterauge]

OK !

Der Quelltext sieht sauber aus!
Bin die ganze Zeit am überlegen, was hier faul ist.
Oder was meinst Du ?

[DeddyH]

Ich weiß doch nicht, wo der gesuchte Text nun genau in Deinem Grid steht. Spalte 6 der letzten Zeile? So habe ich es zumindest herausgelesen.

[Alterauge]

Richtig! So lese ich es auch!
Aber es passiert nix?

[DeddyH]

Vorschlag:

Delphi-Quellcode:

var
  ColIndex: integer;
begin
  ColIndex := StringGrid1.Rows[StringGrid1.RowCount - 1].IndexOf('1');
  if ColIndex > -1 then
    ShowMessage('Zeile enthält "1" in Spalte ' + IntToStr(ColIndex));

Kommt da nix, stimmt die Zeile wohl nicht.

[Alterauge]

da kommt auch nix?

Delphi-Quellcode:

 var i: integer;
begin
 i := FormReporting.Report.TopRow-1;
   if FormReporting.Report.Rows[i][5]= '1' then  // lese die letzte Zeile (also die aktuelle zeile) oder nicht?
  begin
   FormMain.AdvGlowButton9.Caption:='test';
  end;
   end;

[DeddyH]

Meinst Du wirklich TopRow?

[Alterauge]

oder
FormReporting.Report.RowCount-1;

[DeddyH]

Hast Du meinen Code aus #14 mal ausprobiert?

[Alterauge]

habe ich! nix passiert!

[DeddyH]

Dann hast Du wohl nicht die richtige Zeile angesprochen. Hast Du mal einen Screenshot von dem Grid?