Problem mit der Sortierung von Buchstaben in einem Wort

[Harlicon]

Hi, also mein Chef hat mir (als ziemlich blutigem Anfänger gestern die Aufgabe gestellt ein Proggi zu schreiben, was mit den Buchstaben eines eingegeben Worts verschiedenste Sachen macht.
So, nach einigem hin und her hat auch alles funktioniert.
Alles bis auf die Buchstabensortierung nach ASCII....

Delphi-Quellcode:

procedure TForm1.Sort;
var
  Text : String;
  P, Lang, C : Integer;
  Char1 : Char;
  Stop: Boolean;
begin
  Text := Edit1.Text;
  Lang := Length(Text);
  repeat
  Stop := True;
    for P := 1 to (Lang-1) do begin
      C := CompareStr(IntToStr(ord(Text[P])), IntToStr(ord(Text[P+1])));
      if C > 0 then begin
         Char1 := Text[P];
         Text[P] := Text[P+1];
         Text[P+1] := Char1;
         Stop := False;
      end;
    end
  until Stop;
  LASort.Caption := Text;
end;

Ich verzweifel da grade ziemlich dran :wall: und wollte fragen wer von Euch mir da weiterhelfen könnte :?

Lieben Dank im Vorraus

Harlicon

[RavenIV]

Zwei Lösungsansätze:
1) allgemein bekannte Sortieralgorythmem (Bubblesort, Quicksort, Heapsort) einbauen.
2) eine Stringlist verwenden, da gibt es die Methode Sort().

Für weitere Hilfe konsultiere die OnlineHilfe von Delphi.

[kolbaschedder]

Zitat:

Delphi-Quellcode:

      C := CompareStr(IntToStr(ord(Text[P])), IntToStr(ord(Text[P+1])));
      if C > 0 then begin

Ersetze mal obigen Teil durch

Delphi-Quellcode:

      if ansiLowercase(Text[P]) >AnsiLowercase(Text[P+1]) then begin

Wenn du Casesensitiv arbeiten willst lass dass "AnsiLowercase" weg.

MfG

Thorsten

[Harlicon]

Danke euch beiden für dir schnelle Hilfe :-D
@RavenIV Habe keinen Sortieralgorythmus eingebaut weil ich mir da selber was basteln wollte :wink:

@kolbaschedder funktioniert einwandfrei, wenn man das AnsiLowerCase weglässt *hut zieh* vielen Dank! :mrgreen:

[RavenIV]

Zitat:

Zitat von Harlicon

Danke euch beiden für dir schnelle Hilfe :-D
@RavenIV Habe keinen Sortieralgorythmus eingebaut weil ich mir da selber was basteln wollte :wink:

Warum wollen die Leute immer was selberbasteln, wenn es schon fertige Sachen gibt?
Vor allem sind die fertigen Sachen zuverlässig und laufen.

[Harlicon]

Verkappter Pioniergeist, mit verstecktem Lerneffekt. :wink: