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