Zugriffsverletzung?

[Sir Rufo]

Zitat von Perlsau:

Da hast du auch wieder recht
Man kann das aber umgehen, indem man einfach alle Strings vor dem Setzen des Sorted-Properties mit der entsprechenden Anzahl von '0' ergänzt

Das geht doch aber auch erheblich einfacher (mit TStringList) auch ohne durch die Brust ins Auge und zurück

Delphi-Quellcode:

// Nur mit TStringList

function StringListIntSort( List : TStringList; Index1, Index2 : Integer ) : Integer;
  begin
    Result := StrToInt( List[Index1] ) - StrToInt( List[Index2] );
  end;

function SortIntArrayStr( const AStr : string; const ADelimiter : Char = ',' ) : string;
  var
    LStrings : TStringList;
  begin
    LStrings := TStringList.Create;
    try
      LStrings.Delimiter     := ADelimiter;
      LStrings.DelimitedText := AStr;

      LStrings.CustomSort( StringListIntSort );

      Result := LStrings.DelimitedText;
    finally
      LStrings.Free;
    end;
  end;