حذف اعداد و ارقام از یک رشته

[mmx110]

سلام - چطور میشود کلیه اعداد و ارقام یک رشته را حذف کرد و رشته را بدون عدد در خروجی نشان داد
مثلا :
25 محمد 200 حسینی 45 --> محمد حسینی

[mrm0101]

با سلام
این تابع دو رشته را دریافت کرده و اعداد (کارکترهای 0 الی 9 ) را از رشته حذف نموده و به ازاء حذف هر کارکتر رشته را یه کاراکتر شیفت به چپ می دهد (به ازاء حذف اعداد جای خالی نمی گذارد )




//////////////////////////////////////////////////////////////////////

function clean_digit (var s: String) : string;
var
s2: String;
i : Integer;
begin
s2:='';
for i:=1 to Length(s) do
if not (s[i] in ['0'..'9']) then
s2:=s2+s[i];
Result:=s2;
end;


//////////////////////////////////////////////////////////////////////

[amirsadeghi]

برعکسش رو هم دارید؟
یعنی فقط ارقام بمونند

[mrm0101]

سلام
این تابع فقط اعداد را از رشته اول وارد رشته دوم می کنه . البته به ترتیبی که وارد شده اند . برای حالت های خاص می توانید تابع رو عوض کنید




function clean_char (var s: String) : string;
var
s2: String;
i : Integer;
begin
s2:='';
for i:=1 to Length(s) do
if (s[i] in ['0'..'9']) then
s2:=s2+s[i];
Result:=s2;
end;

[mrm0101]

سلام
منظورم از حالتهای دیگه این بود چون در این تابع اعداد از اول رشته به ترتیب ورود در رشته دوم ثبت می شوند نیاز به درج کارکتر های خاص برای جدا کردن اعداد در رشته اولی باشند مثلا space برای جدا کردن رشته ها از هم و....
شما می توانید با تغییرات خیلی ساده در تابع فوق این شرایط را هم لحاظ کنید .
پیروز باشید