Tach alle zusammen!
Ich soll für die Schule ein kleines Übungsprogramm schreiben, dass 30 Namen aus einer Memo alphabetisch sortiert. Das Programm startet auch, aber es hängt sich bei der Ausführung der entsprechenden Procedure auf.
Namen : array[0..29] of String;
Delphi-Quellcode:
procedure THF.Sortieren1Click(Sender: TObject);
var i, k: Byte;
Temp: string; // Temporäre Text Datei
begin
FOR i:=0 TO 29 DO
Namen[i]:= Memo.Lines[i];
FOR i:=0 TO 28 DO
BEGIN
k:=0;
Repeat
If Namen[i,k]<> Namen[i+1,k] Then
If Namen[i,k]> Namen[i+1,k]
Then Begin
temp:= Namen[i];
Namen[i]:= Namen[i+1];
Namen[i+1]:= temp;
End;
Until (Namen[i,k]<> Namen[i+1,k]);
inc(k);
END;
FOR i:=0 TO 29 DO
Memo.Lines[i]:= Namen[i];
end;
Ich nehme an dass es an "Namen[i,k]" hängt, ich möchte mit k den Buchstaben des Strings ansprechen!!
Danke für eure Mühen!