Gast
2007-01-22, 21:42:34
Hat jemand eine Ahnung wie ich dieses Algorithmus für Strings umbaue? Bei Wikipedia wird das ganze Anhand von Integer-Werten gemacht. Nur wie soll das denn mit Array of String laufen?
Bisher bin ich soweit gekommen: Das ganze funktioniert halt nur mit Char von einem String. Ziel ist aber das Sortieren eines String Array mit diesem Algo!!! Kein anderer!
procedure sort(var src, dst: string);
var
m : array[char] of integer;
i : integer;
c : char;
begin
fillchar(m, sizeof(m), 0);
for i := 1 to length(src) do
inc(m[src[i]]);
dst := '';
for c := #0 to #255 do
while m[c] > 0 do
begin
dst := dst + c;
dec(m[c]);
end;
end;
Bisher bin ich soweit gekommen: Das ganze funktioniert halt nur mit Char von einem String. Ziel ist aber das Sortieren eines String Array mit diesem Algo!!! Kein anderer!
procedure sort(var src, dst: string);
var
m : array[char] of integer;
i : integer;
c : char;
begin
fillchar(m, sizeof(m), 0);
for i := 1 to length(src) do
inc(m[src[i]]);
dst := '';
for c := #0 to #255 do
while m[c] > 0 do
begin
dst := dst + c;
dec(m[c]);
end;
end;