StringGrid und Button Funktion

[Alterauge]

Delphi-Quellcode:

procedure TFormMain.AdvGlowButton9Click(Sender: TObject);
 var i: integer;
begin
 i := FormReporting.Report.RowCount-1;
   if FormReporting.Report.Rows[i][5]= '2' then begin
   FormMain.AdvGlowButton9.Caption:='test';
  end;
end;

Habe es so versucht! Geht nicht ???
Was ist falsch hier?

[Alterauge]

Hat da einer eine Idee?

Was ich hier falsch mache?

[Alterauge]

Delphi-Quellcode:

procedure TFormMain.Timer1Timer(Sender: TObject);
 var i: integer;
begin
 i := FormReporting.Report.TopRow-1;
   if FormReporting.Report.Rows[i][5]= '1' then
  begin
   FormMain.AdvGlowButton9.Caption:='test';
  end;
   end;

So geht es auch nicht? Verstehe ich nicht???

[DeddyH]

Könntest Du bitte das Pushen unterlassen? Und bist Du sicher, dass Deine verwendeten Indizes auch richtig sind?

[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?