Nach dem Alpaphet sortiern

Bogomir · Hält's aus hier Beiträge: 1

Alse ich müsste ca.1000 Wöter nach dem Alpaphet sortieren hab aber keinen wirklichen plan wie :lol:

.
Bitte hiermitt um Hilfe :!:

Danke schon im vorraus

Ehemaliges Mitglied Erhaltene Danke: 1

Du kannst Strings mit "<" und ">" vergleichen.

StefanH · Verfasst: Do 18.12.03 21:05

geht es nicht auch, wenn du das ganze in eine StringList packst und dann
TStringList.Sort; aufrufst, oder "platzt" die dann??

Stefan, user defined image

_________________
"Als es noch keine Computer gab, war das Programmieren noch relativ einfach."(Edsger W. Dijkstra)
"Ich bin nicht von Sinnen, sondern ich rede wahre und vernünftige Worte." (Paulus)

Ehemaliges Mitglied Erhaltene Danke: 1

Probieren geht über ... dauernd fragen ...

StefanH · Verfasst: Fr 19.12.03 13:33

MathiasSimmack hat folgendes geschrieben:

Probieren geht über ... dauernd fragen ...

meinst du mich???? woher soll ich denn 1000 wörter nehmen????

_________________
"Als es noch keine Computer gab, war das Programmieren noch relativ einfach."(Edsger W. Dijkstra)
"Ich bin nicht von Sinnen, sondern ich rede wahre und vernünftige Worte." (Paulus)

wielage · Verfasst: Fr 19.12.03 16:44 Titel: Lösung: Insertion Sort

Bei 1.000 Einträgen kommt man noch ganz gut mit einem einfachen Sortieralgorithmus aus (z.B. Insertion Sort):

Vorausgesetzt ist, dass sich die 1.000 Wörter in einem array [1..1000] of string befinden.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

var
  I, K : integer;
  V    : string;
begin
  for K := 1 to 1000 do
    begin
    I := K;
    V := Woerter [I];

    while (I > 1) and (Woerter [I-1] > V) do
      begin
      Woerter [I] := Woerter [I - 1];
      dec(I);
      end;
    Woerter [I] := V;
  end;
end;

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme