چطور در يك فيلد تمام كاركترهاي غيرعددي را حذف كنم؟

[ali_abbasi22145]

سلام
من مي خواهم در يك فيلد تمام كاركترهاي غيرعددي را حذف كنم.
مثال: علي1235احمدي بشود به 12345و علي1235 بشود به 12345و 1235احمدي بشود به 12345و@#$%ْللليليلdd g r456rr بشود به 456

[majid2230]

سلام
من متوجه نشدم می خواید با گرفتن a124b مقدار 124 رو برگردونه یا 1234 رو ؟

[ali_abbasi22145]

سلام
من متوجه نشدم می خواید با گرفتن a124b مقدار 124 رو برگردونه یا 1234 رو ؟

سلام
من مي خواهم با گرفتن a124b مقدار 124 رو برگردونه
يعني تمام حروف را حذف كند كه در اينجا شامل a,b است.
يك مثال ديگر: "%$^%علي450محمد@#$" مقدار "450" رو برگردونه

[حسین خانی]

با سلام :لبخندساده:


var
a,b:string;
x,i:integer;

begin
b:=Edit1.Text;
a:='';
for i:=1 to length(b) do
if (b[i]>='0') and (b[i]<='9') then a:=a+b[i];
x:=strtoint(a);
Label1.Caption:=inttostr(x);
end; موفق باشید ...