Bubblesort Array of String.

[Sir Rufo]

Zitat von Uwe Raabe:

Zitat von Sir Rufo:

Also quasi so:

Größe des Arrays festlegen
Jeden String aus der Stringlist in das Array kopieren
Array sortieren

Oder man hat eine aktuelle Delphi-Version und verwendet TStrings.ToStringArray. Nach dem Sortieren bekommt man das Array per TStrings.AddStrings dann auch wieder in die StringList (Clear nicht vergessen).

Wenn es um die Methoden von TStrings gehen würde, hätte ich das anders geschrieben:

TStrings.Sort

Aber es geht wohl um eine Übung, wie man arrays befüllt und sortiert (nach alter Väter Sitte)

EDIT:

@Uwe und jetzt hast du auch noch Verwirrung gestiftet

[Blueser]

der bubblealgorithmus ist ja kein problem.

ich muss nur dieses verdammte tstringlist als array festgelegt bekommen

[Uwe Raabe]

Zitat von Sir Rufo:

@Uwe und jetzt hast du auch noch Verwirrung gestiftet

Nee, nä? Sei froh, daß ich keinen Class-Helper empfohlen habe

[Blueser]

hier mein beitrag im anderem forum:

scheint so ein ungeschriebenes gesetz zu sein...

http://forum.delphi-treff.de/showthr...Integer-setzen!

[DeddyH]

Ohne Fehlerprüfungen:

Delphi-Quellcode:

(* Falls noch nicht verfügbar:
  type
    TStringArray = array of string *)

procedure TStringsToArray(Source: TStrings; Dest: TStringArray);
var
  i: integer;
begin
  SetLength(Dest, Source.Count);
  for i := 0 to Source.Count - 1 do
    Dest[i] := Source[i];
end;

[Blueser]

hi und danke für die antwort!

ich werd mich da jetzt mal ransetzen und versuchen nach dem heutigen tage, an dem ich 2 klausuren geschrieben habe - es zu raffen

vielen dank nochmal!

sorry für mein chinesischen satzbau

[Sir Rufo]

Zitat von Uwe Raabe:

Zitat von Sir Rufo:

@Uwe und jetzt hast du auch noch Verwirrung gestiftet

Nee, nä? Sei froh, daß ich keinen Class-Helper empfohlen habe

[Uwe Raabe]

Fast:

procedure TStringsToArray(Source: TStrings; var Dest: TStringArray);

[DeddyH]

Japp, das vergess ich regelmäßig bei dynamischen Arrays als Parameter

[PhilmacFLy]

Noch besser

procedure TStringsToArray(const Source: TStrings; var Dest: TStringArray); Dass man ja nix am Source verändern kann