TStringrid Zellen summieren

[marabu]

Am einfachsten mit der Komponente TValueListEditor, aber ich weiß nicht ob die bei D6 dazu gehört. Wenn nicht geht auch ein StringGrid oder eine ListBox oder ein Memo:

Delphi-Quellcode:

var
  s: TStrings;
  iRow: Integer;
begin
  s := CreateScoreList(StringGrid, 0, 1);

  // ValueListEditor
  ValueListEditor.Strings.Assign(s);

  // StringGrid
  with ScoreStringGrid do
  begin
    FixedRows := 1;  // am Besten
    FixedCols := 1;  // schon vorher
    ColCount := 2;   // im OI einstellen

    RowCount := s.Count + FixedRows;
    for i := 0 to to Pred(s.Count) do
    begin
      Cells[0, i + FixedRows] := s.Names[i];
      Cells[1, i + FixedRows] := s.ValueFromIndex[i];
    end;
  end;

  s.Free;
end;

marabu