Einzelnen Beitrag anzeigen

Christian18

Registriert seit: 9. Dez 2003
Ort: Hamburg
1.279 Beiträge
 
#8

Re: String von ; Trennen (über TStringList)

  Alt 13. Mai 2005, 09:29
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]
  Mit Zitat antworten Zitat