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