String von ; Trennen (über TStringList)

[Christian18]

Hallo,

ich habe noch mal ne frage zu diesem thema. ich hab hier mal versucht einen string zu zerlegen.

BSP.:

Delphi-Quellcode:

procedure TForm1.trennen(s : String);
  var i : Integer;          // Schleifenvariable
      z : Integer;          // Array Zugriffsvariable
      a : Array of String;  // zerlegte String
begin
  // Array setzen
  SetLength(a, 3);

  // String von ; trennen
  z:=0;
  for i:=0 to Length(s) - 1 do
    begin
      if s[i]=';' then begin
        Inc(z);
      end else begin
        a[z]:=a[z] + s[i];
      end;
    end;

  // Zerlegten String ausgeben
  ShowMessage(a[0]);
end;

procedure TForm1.Button1Click(Sender: TObject);
  var s : String;
begin
  // Parameter setzen
  s:='Mustermann;Karl;Musterweg 1a';

  trennen(s);
end;

Leider funktioniert das nicht. hat jemand von euche eine ahnung von euch??? Warum nicht??? Sollte doch eigentlich funktionieren oder nicht?

[Edit]Achso, zu dem was nicht funktioniert. Er gibt einen leeren String aus.[/Edit]