كامپوننت edit براي دلفي 2009

[raeisi_15494]

دوستان سلام
من نياز به يك كامپوننت edit دارم كه ورودي عدد بگيره واعداد را به صورت سه تايي
با , ازهم جدا كنه

[Felony]

1. دوست عزیز این قسمت برای مطرح کردن مسائل عمومی دلفی و پاسکال هست نه جای مطرح کردن درخواست کامپوننت .

2. نیازی به کامپوننت نداره با 2 رویه ی زیر قابل انجام هست :


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


function Set3Digit(StrSource: String): String;
var
i, j: Integer;
begin
Result := '';
j := 0;
for i := Length(StrSource) downto 1 do begin
Result := StrSource[i] + Result;
Inc(j);
if((j mod 3) = 0)and(i <> 1)then
Result := ',' + Result;
end;
end;

نحوه ی استفاده : کد زیر رو در رویداد OnChange شئ Edit مورد نظرتون بنویسید :


Edit1.OnChange := nil;
Edit1.Text := Set3Digit(GetNumber(Edit1.Text));
Edit1.SelStart := Length(Edit1.Text);
Edit1.OnChange := Edit1Change;