بر عکس جدا کردن ارقام

[sajadvahedi]

سلام و خسته نباشید
یکی از دوستان لطف کرده بود و نحوه جدا کردن سه رقم سه رقم اعداد رو گذاشته بود .
اما من برعکسشو می خوام . یعنی رشته ای که سه رقم جدا شده به وسیله ( ، ) رو به عدد معمولی تبدیل کنه.
ممنون میشم اگه کمکم کنید

[Felony]

دوست عزیز اگر عنوان سوالت رو واضح تر بیان کنی زود تر به جواب میرسی .
برای کاری که مد نظر شماست میتونید از تابع StringReplace به شکل زیر استفاده کنید :


Edit1.Text:=StringReplace(Edit1.Text,',','',[rfReplaceAll]);

[دلفــي]

سلام و خسته نباشید
یکی از دوستان لطف کرده بود و نحوه جدا کردن سه رقم سه رقم اعداد رو گذاشته بود .
اما من برعکسشو می خوام . یعنی رشته ای که سه رقم جدا شده به وسیله ( ، ) رو به عدد معمولی تبدیل کنه.
ممنون میشم اگه کمکم کنید



function PolToNum(str1 : string) :string;
var
s2 : string;
l,i,k :integer;
begin
s2:=str1;
l:=length(str1);
k:=1;
for i:=1 to l do
begin
if str1[i] <> ',' then
begin
s2[k]:=str1[i];
k:=k+1;
end;
end;
if s2 <> '' then
s2[k]:=#0;
PolToNum:=trim(s2);
end;

[zerofantom]

دوست عزیز اگر عنوان سوالت رو واضح تر بیان کنی زود تر به جواب میرسی .
برای کاری که مد نظر شماست میتونید از تابع StringReplace به شکل زیر استفاده کنید :


Edit1.Text:=StringReplace(Edit1.Text,',','',[rfReplaceAll]);
اگر به جاي (,) سينگل كوتيشن(') باشه چه كار بايد كرد

[Mahmood_M]

اگر به جاي (,) سينگل كوتيشن(') باشه چه كار بايد كرد
در همون StringReplace که جناب SilverSoft معرفی کردن به جای " , " دو بار " ' " رو قرار بدید ... ! :

Edit1.Text:=StringReplace(Edit1.Text,'''','',[rfReplaceAll])
...
... :متفکر: ...
راه حل دیگه اینه که از کد اسکی این کارکتر استفاده کنید :

Edit1.Text:= StringReplace(Edit1.Text, String(#39),'',[rfReplaceAll])

موفق باشید ...

[K.Mohammadreza]

خیلی ساده است




r := '';
for i:= 1 to Length(s) do
if s[i] in ['0'..'9'] then
r:= R + s;