Bubblesort Array of String.

[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;