Spaltengenau sortieren

[Bjoerk]

Ich glaub, ich werd für Listen überhaupt keine Records mehr verwenden.

Delphi-Quellcode:

procedure TDiceEncryptionSortKey.SetKey(const Value: string);
var
  I, J: integer;
begin
  FKey := Value;
  FItems.Clear;
  for I := 1 to Length(FKey) do
  begin
    J := FItems.Add(TDiceEncryptionKeyChar.Create);
    Items[J].Value := FKey[I];
    Items[J].Pos := I;
  end;
  if Count > 1 then
    FItems.Sort(@SortCompare);
end;