جدا کننده ارقام

[kheyri]

چطوری میشه هنگام ورود اعداد در EDITBOX بصورت اتوماتیک 3 رقم 3 رقم جدا بشه. البته با maskedit این کارو کردم ولی میخوام با EDITBOX این کار انجام بشه.
ممنونم

[mzjahromi]

توی on change بنویس Setnum(Sender) این تابع هم اینه



Procedure TMB.SetNum(Sender:TObject);
var
i,L:Integer;
begin
i:=TEdit(Sender).SelStart;
L:=Length(TEdit(Sender).Text);
TEdit(Sender).Text:=IntToStr1(StrToInt1(TEdit(Send er).Text));
TEdit(Sender).SelLength:=0;
TEdit(Sender).SelStart:=i-(l-Length(TEdit(Sender).Text));
if TEdit(Sender).Text='0' Then
TEdit(Sender).SelectAll;
End;


توابع InttToStr1,StrToInt1 هم توابعی هستند که اعداد را جدا می کنند و به حالت اول بر میگردونن. البته شاید راههای ساده تر هم وجود داشته باشه

[m-khorsandi]

Function TForm1.Fnc_ReturnNum(Prm_Str: String): String;
begin
while Pos(',', Prm_Str) > 0 do
Delete(Prm_Str, Pos(',', Prm_Str), 1);

Result := Prm_Str;
end;

procedure TForm1.Edit1Change(Sender: TObject);
var
iPos: Integer;
begin
if Length(Edit1.Text) <> 0 then
begin
iPos := Edit1.SelStart;
Edit1.Text := FormatFloat('#,', StrToInt(Fnc_ReturnNum(Edit1.Text)));
Edit1.SelStart := iPos + 1;
end;
end;



کنترلهای دیگه ای هم مانند ورود اعداد نیاز دارید.

[kheyri]

خیلی ممنون.... عالی بود
جناب خرسندی از راهنمائیتون خیلی ممنون . از آقای جهرمی هم بخاطر لطفشون ممنونم.

[davoodmz]

آقای جهرمی
باسلام
لطفاً اگر ممکن است بیشتر توضیح بدهید.
باتشکر

[mzjahromi]

کد که توضیح نمی خواد عینا استفاده کنید. میمونه StrToInt1(TEdit(Sender).Text) که اونهم میتونید خودتون با استفاده از روشهائی که آقای خرشندی گفتن پیاده سازی اش کنید

[davoodmz]

آقای جهرمی
با سلام
من در فرم یک ادیت باکس گذاشتم و در ONCHANGE کد شما را به این صورت نوشتم


procedure TForm1.Edit1Change(Sender: TObject);
var
i,L:Integer;
begin
i:=EDIT1.SelStart;
L:=Length(EDIT1.Text);
EDIT1.Text:=IntToStr(StrToInt(EDIT1.Text));
EDIT1.SelLength:=0;
EDIT1.SelStart:=i-(l-Length(EDIT1.Text));
if EDIT1.Text='0' Then
EDIT1.SelectAll;
End;
ولی جواب نگرفتم
لطفاً راهنمایی کنید

[davoodmz]

آقای جهرمی
با سلام
من در فرم یک ادیت باکس گذاشتم و در ONCHANGE کد شما را به این صورت نوشتم


procedure TForm1.Edit1Change(Sender: TObject);
var
i,L:Integer;
begin
i:=EDIT1.SelStart;
L:=Length(EDIT1.Text);
EDIT1.Text:=IntToStr(StrToInt(EDIT1.Text));
EDIT1.SelLength:=0;
EDIT1.SelStart:=i-(l-Length(EDIT1.Text));
if EDIT1.Text='0' Then
EDIT1.SelectAll;
End;
ولی جواب نگرفتم
لطفاً راهنمایی کنید

[mzjahromi]

اگر به کدی که من نوشتم دقت کنید از StrToInt و StrToInt استفاده نکردم.
توابعی که من استفاده کردم StrToInt1 و IntToStr1 هستند که خودت باید اونها رو تعریف کنی

[davoodmz]

با سلام
این توابع را کجا بنویسم
با تشکر
اگر ممکن است بیشتر توضیح بدهید

[mzjahromi]

تو فرمت دیگه.
دو تا تابع هست که باید چزء توابع فرمت (یا یه فرم دیگه) بنویسی

[kheyri]

جناب جهرمی با سلام
اگه ممکنه کد Strtoint1 رو توی این تاپیک بگذارید.
ممنون

[mzjahromi]

این کد همونی هست که آقای خرسندی تحت عنوان Fnc_ReturnNum نوشتند


Function TForm1.StrToInt1(Prm_Str: String): String;
begin
while Pos(',', Prm_Str) > 0 do
Delete(Prm_Str, Pos(',', Prm_Str), 1);
if ParamStr='' Then
ParamStr='0'
StrToInt1 := Prm_Str;
end;

[zman123456]

سلام
می دونم خیلی وقت از این تاپیک گذشته ولی برای پربارتر کردن فروم و داشتن روشهای متفاوت این کد رو می گذارم.


procedure TForm1.Edit1Exit(Sender: TObject);
var
counter: integer;
str: string;
begin
counter:=1;
while counter <= Length(Edit1.Text) do
begin
if (((counter - 1) mod 3) = 0) and ((counter - 1) <> 0)then
begin
str:=str+',';
str:=str+copy(Edit1.Text,counter,1);
end
else
str:=str+copy(Edit1.Text,counter,1);
counter := counter + 1;
end;
Edit1.Text:=str;
end;