Buchstaben sortieren mit Bubble-Sort

[Binärbaum]

Noch ein Tip: man könnte statt die Buchstaben in Integer-Werte umzuwandeln doch gleich die einzelnen Zeichen nehmen. Damit wird das Programm viel kürzer (und schneller):

Delphi-Quellcode:

procedure vertauschen(var a, b: Char);//a,b müssen var-Parameter sein
var h: Char;
begin
h:= a;
a:= b;
b:= h;
end;

procedure TForm1.Button1Click(Sender: TObject);
var word1, word2 : string;
    anzahl,j,k,w:integer;
begin
word1:=edit1.text;
word2:=edit1.text;
anzahl:=length(word1);

for j:=anzahl downto 1 do
        begin
        for k:=1 to j do
                begin
                if (word2[k-1]>word2[k]) then vertausche(word2[k-1], word2[k]);
                end; // end of for(k)-schleife
        end; // end of for(j)-schleife

edit2.text:=word2;
end;

(Ist wie immer ungetestet, aber sollte funktionieren.)

MfG
Binärbaum