In 2 Stringgrids Reihen vergleichen

[capo]

Habe eine Email an TMS geschickt, folgendes kam zurück:

You would have to slightly modify the code in this
particular case:

Delphi-Quellcode:

begin
  AppendRow(sgResult, Rows[i]);
  sgRegult.Objects[0,sgResult.RowCount - 1] := Pointer(i); 
end;

Habe ich gemacht aber irgendwie erhalte ich die gleiche Fehlermeldung:

Delphi-Quellcode:

procedure CopyRowsContaining(sg, sgResult: TStringGrid; search: string);
var
  i: Integer;
begin
  ClearGrid(sgResult);
  with sg do
    for i := FixedRows to Pred(RowCount) do
      if AnsiContainsText(Rows[i].Text, search) then begin
    //   AppendRow(sgResult, Rows[i]).Objects[0] := Pointer(i);
        AppendRow(sgResult, Rows[i]);
        sgResult.Objects[0, sgResult.RowCount - 1] := Pointer(i);
      end;
end;

[marabu]

Überzeugt bin ich nicht von diesem Lösungsvorschlag - um so weniger, als er deinen Fehler nicht beseitigt. Du hattest als Fehlerumgebung Code gezeigt, der außerhalb deines eigenen Programmcodes liegt - vielleicht in einer TMS Unit? Kannst du die Zeile in deinem eigenen Code identifizieren, in welcher der Fehler auftritt?

[capo]

ich kann folgende Zeile ausmachen, danach gibts den Fehler.
sgResult.Objects[0, sgResult.RowCount - 1] := Pointer(i);

[capo]

Hallo kannst du nochmal gucken?
gruss capo

[marabu]

Hallo,

wenn der Fehler an dieser Stelle produziert wird, dann befürchte ich das Schlimmste. Warum hat der Support-Mitarbeiter von TMS die Adressierung von Objects[] von ein- auf zweidimensional umgestellt? Der Code müsste bei Kompatibilität doch identische Ergebnisse bringen. Entweder gibt es da Kompatibilitätsprobleme (was ich nicht glauben möchte) oder er hat aus Ratlosigkeit so gehandelt um seinen score nicht zu verderben.

Verschaffe dir über einen Clean-Room-Test selbst Klarheit. Lege dazu ein Testprojekt mit einem AdvancedStringGrid (oder was du da verwendest) an und exerziere dort das Hinzufügen eines Pointers an Objects[], mal ein-, mal zweidimensional - in Abwesenheit deines sonstigen Codes. Wenn das im Testprojekt funktioniert, dann liegt der Fehler an diesem sonstigen Code.

Freundliche Grüße

[capo]

Danke für deinen Tip, ich vergesse sowas immer wieder.