Entwickler-Ecke

Algorithmen, Optimierung und Assembler - String - Array Alphabetisch sortieren


ruhrpott-desire - So 24.02.08 14:16
Titel: String - Array Alphabetisch sortieren
Hallo, ich möchte ein Array welches Wörter enthält Alphabetisch sortieren...

Mein Ansatz sieht so aus:


Delphi-Quelltext 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
 
procedure TForm1.sort;
var pos, kleinstepos, actualpos:integer;

procedure tausche;
var a:string;
begin
{ Tauschen der Zahlen im Array }
a:=Wortliste[kleinstepos].Wort;
Wortliste[kleinstepos].Wort:=Wortliste[actualpos].Wort;
Wortliste[actualpos].Wort:=a;
end;

begin
{ Hauptteil -Sort- }
pos:=1;
actualpos:=1;
while actualpos<>(AnzahlWoerter-1) do
      begin

          kleinstepos:=actualpos;

          while pos<AnzahlWoerter do
          begin
             if Wortliste[kleinstepos].Wort>Wortliste[pos].Wort then
              begin
              kleinstepos:=pos;
              end;
          pos:=pos+1;
          end;

       tausche;
         actualpos:=actualpos+1;
      end;

end;


Ich komm aber irgendwie nicht weiter... der Anfang wird immer vertauscht und der Rest bleibt gleich..

Würde mich über Hilfe freuen ;)

Gruß
ruhrpott-desire

EDIT: Anzahl Wörter enthält die Zahl der Wörter im Arry, also wie lang es ist.


MSCH - So 24.02.08 17:26
Warum so kompliziert?
Kipp das ganze in eine TStringList. Die sortiert sich quasi von Alleine.
Cheers
Msch


ruhrpott-desire - So 24.02.08 20:02
Mh, eig. würd ichs lieber so machen, aber wie würde das mit der String list gehen? Aus der Hilfe werde ich nciht schlau...

Ich habs hinbekommen, war n kleiner aber feiner Fehler :P

Pos behielet den Anzahl Wörter - Wert.


GTA-Place - So 24.02.08 21:52

Delphi-Quelltext 
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
 
var
  StringList: TStringList;
begin
  StringList := TStringList.Create;

  // Entweder...
  StringList.Add('Kiwi');
  StringList.Add('Apfel');
  StringList.Add('Birne');
  // ... oder ...
  StringList.LoadFromFile('C:\Obst.txt');

  StringList.Sort;
  ShowMessage(StringList.Text); // Resultat: "Apfel Birne Kiwi"

  StringList.Free;
end;


ruhrpott-desire - So 24.02.08 23:18
Ah, gut zu wissen, aber dann habe ich die Ausgabe ja nicht mehr im Array, dann war meine prozedur ja doch nciht völlig sinnlos ;)

Gruß
Tobi


Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 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!