Stringzerlegung in Schleife

[Furtbichler]

Zitat von p80286:

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

Jupp, aber dann lieber (Geschmackssache) so:

Delphi-Quellcode:

  
for i:=1 to length(s) do
  if s[i]='.' then 
    break
  else 
    s3:=s3+s[i];

Oder so:

Delphi-Quellcode:

i := pos('.',s);
if i<1 then 
  i := length(s)+1;
s3 := Copy(s,1,i-1);