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
und wollte fragen wer von Euch mir da weiterhelfen könnte
Lieben Dank im Vorraus
Harlicon