Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by marabu,
8. Aug 2006
Hier die prosaische Fassung:
function CreateScoreList(sg: TStringGrid; iGroup, iValue: Integer): TStrings;
// sg.Columns wird summiert und nach sg.Columns gruppiert
// Zugriff auf die Summen-Werte: iScore := StrToInt(Result.Values)
var
sPlayer: String;
index, iScore, iRow: Integer;
begin
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by marabu,
5. Aug 2006
Abgesehen von einem Tippfehler in meinem Code in Beitrag #4, welchen ich jetzt korrigiert habe, verlief mein Test fehlerfrei. Bist du sicher, dass du die richtigen Parameter übergibst? Nur ein Beispiel: die dritte Spalte im Grid hat den Index 2, FixedCols werden nicht berücksichtigt.
marabu
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by marabu,
5. Aug 2006
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:
var
s: TStrings;
iRow: Integer;
begin
s := CreateScoreList(StringGrid, 0, 1);
// ValueListEditor
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by marabu,
5. Aug 2006
Hallo.
Der folgende Code soll die Werte in einer Spalte eines StringGrids summieren und nach dem Wert einer anderen Spalte gruppieren. Das Ergebnis ist eine Liste mit Eintrögen der Form "Spieler1=1000".
function CreateScoreList(sg: TStringGrid; iGroup, iValue: Integer): TStrings;
var
sPlayer: String;
index, iScore, iRow: Integer;
begin