StringGrid und Button Funktion

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

[DeddyH]

Ein Index von -1 heißt, dass der gesuchte Wert nicht gefunden wurde. Wieso änderst Du die Abfrage auf -2, was soll das bringen?

[Alterauge]

hier das Grid

[Alterauge]

sollte ein versuch sein!
habe es wieder auf -1 geändert.

[DeddyH]

Und in der letzten Zeile soll unter "Funktion" eine 1 stehen?

[Alterauge]

Richtig!

Wenn da eine 1 steht,

then
begin
FormMain.AdvGlowButton9.Caption:='test';
end;

[DeddyH]

Dann zeig doch mal, wie Du die 1 da reinschreibst. Irgendwas läuft doch da falsch.

[Alterauge]

Die 1 steht da drin! Ich sehe sie ja, wenn ich das Grid öffne!

Als Beispiel:

Delphi-Quellcode:

FormEinsatz.InsertLine(Sender);
FormReporting.Report.Rows[1][5] := 'test';

das geht, dann steht da 'test'

[DeddyH]

Ich glaube zwar spontan nicht, dass es einen großen Unterschied macht, aber versuch es mal über die Cells.
FormReporting.Report.Cells[1, 5] := 'test';

Delphi-Quellcode:

if FormReporting.Report.Cells[1, 5] = 'test' then
  ShowMessage('Na also, geht doch');

[Alterauge]

Delphi-Quellcode:

procedure TFormEinsatz.InsertLine(Sender: TObject);
begin
  FormReporting.Report.InsertChildRow(0);
  FormReporting.Report.Rows[1][0] := '<p align="center">' +
   IntToStr(FormReporting.Report.RowCount-1) + '</p>';
  FormReporting.Report.Rows[1][2] := '' + DateToStr(Date) + '';
  FormReporting.Report.Rows[1][3] := '' + TimeToStr(Now) + '';
end;