[Konsolenanwendung] Text vor dem Punkt kopieren

[WIng2005]

Probier mal:

text:=copy(text_ges,1,pos('.',text_ges)-1);