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]