Entwickler-Ecke
Delphi Language (Object-Pascal) / CLX - Nach dem Alpaphet sortiern
Bogomir - Mi 17.12.03 22:53
Titel: Nach dem Alpaphet sortiern
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
Delete - Mi 17.12.03 23:49
Du kannst Strings mit "<" und ">" vergleichen.
StefanH - 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,
Delete - Do 18.12.03 22:13
Probieren geht über ... dauernd fragen ... ;)
StefanH - 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????
wielage - 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.
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; |
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!