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);