Delphi-PRAXiS - Einzelnen Beitrag anzeigen

**WIng2005**

Habe es so gelöst:

Delphi-Quellcode:

			x:=length(bt);

while x>0 do

begin 

  if bt[x] in ['0'..'9',' '] then delete(bt,x,1)

  else dec(x);

end;

dachte nur, dass Delphi da evtl. schon ne fertige Funktion hat..

MFG
Steffen

WIng2005 Registriert seit: 20. Mär 2006 Ort: Thüringen 388 Beiträge Delphi XE Starter	#11 Re: Zahlen im Edit "filtern" 2. Okt 2007, 12:10 Habe es so gelöst: markieren Delphi-Quellcode: x:=length(bt); while x>0 do begin if bt[x] in ['0'..'9',' '] then delete(bt,x,1) else dec(x); end; dachte nur, dass Delphi da evtl. schon ne fertige Funktion hat.. MFG Steffen
	Zitat