Teile deinen Code auf, dann wird der übersichtlicher, leichter zum Umsetzen und kommt eigentlich ohne Dokumentation aus.
Delphi-Quellcode:
type
TDynIntArray = array of integer;
function StrToIntArray( const AStr : string; const ADelimiter : Char ) : TDynIntArray;
begin
end;
procedure SortIntArray( var AArray : TDynIntArray );
begin
end;
function IntArrayToStr( const AArray : TDynIntArray; const ADelimiter : Char ) : string;
begin
end;
function SortIntArrayStr( const AStr : string ) : string;
var
LIntArray : TDynIntArray;
begin
LIntArray := StrToIntArray( AValue, ',' );
SortIntArray( LIntArray );
Result := IntArrayToStr( LIntArray, ',' );
end;
Kaum macht man's richtig - schon funktioniert's
Zertifikat: Sir Rufo (Fingerprint: ea 0a 4c 14 0d b6 3a a4 c1 c5 b9
dc 90 9d f0 e9 de 13 da 60)