Verschiedene Zeilen im Grid auslesen und wiedergeben

[marabu]

Hallo rhodan,

du hast nicht gesagt, wohin die gruppierte Liste soll - oder? Ich schreibe sie in ein Memo, aber du kannst dir den Code sicher anpassen.

Delphi-Quellcode:

procedure TDemoForm.GroupButtonClick(Sender: TObject);
var
  iRow: integer;
  sPrev, sCurr: string;
begin
  Memo.Lines.Clear;
  for iRow := 1 to MAX_ROWS do
  begin
    sCurr := StringGrid.Cells[CI_ACCT, iRow];
    if sCurr <> sPrev then
    begin
      if iRow > 1 then
        Memo.Lines.Add('');
      Memo.Lines.Add(sCurr);
      Memo.Lines.Add(StringOfChar('-', 10));
      sPrev := sCurr;
    end;
    Memo.Lines.Add(StringGrid.Cells[CI_NAME, iRow]);
  end;
end;

Grüße vom marabu