Hi, es geht auch mit dem netten ASCI Code:
Delphi-Quellcode:
function getbuchstaben(s:string):string;
var z:integer;r:string;
begin
r:='';
for z:= 1 to length(s) do
begin
if ((ord(s[z])>=65) and (ord(s[z])<=90)) or ((ord(s[z])>=97) and (ord(s[z]) <=122)) or (ord(s[z])=46) then
r:=r+s[z]
end;
result:=r;
end;
Habs jetz zwar nicht getestet, aber dieser Code sollte alle Buchtaben und Punkte herausfiltern,
Gruss
PigfaceJoe