StringGrid und Button Funktion

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

[Alterauge]

Delphi-Quellcode:

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

Antwort kommt: 'Zeile enthält "1" in Spalte -1' aber der Wert 1 war nicht vorhanden??????