Stringzerlegung in Schleife

[p80286]

Zitat von frankistreich:

Delphi-Quellcode:

  
while s[i]<>'.' do
  begin
    s3:=s3+s[i];
    inc(i);

bei diesen zeilen bleibt er hängen und macht dort endlos weiter

Und was steht in s ? wenn da als Datum '' oder '20120103' oder '03-03-88' steht, ist es klar das es rummst.

egal welcher Inhalt vorhanden ist, so wäre es besser:
]

Delphi-Quellcode:

  
while (i<=length(s)) and (s[i]<>'.') do
  begin
    s3:=s3+s[i];
    inc(i);

Gruß
K-H