Einzelnen Beitrag anzeigen

Benutzerbild von p80286
p80286

Registriert seit: 28. Apr 2008
Ort: Stolberg (Rhl)
6.659 Beiträge
 
FreePascal / Lazarus
 
#12

AW: Stringzerlegung in Schleife

  Alt 5. Apr 2013, 17:13
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
Programme gehorchen nicht Deinen Absichten sondern Deinen Anweisungen
R.E.D retired error detector
  Mit Zitat antworten Zitat