درخواست کامپوننتی برای جدا کردن سه رقم اعداد

[hasandrw]

با سلام :
کامپوننتی برای جدا کردن سه رقم سه رقم اعداد در DBGrid نیاز دارم یعنی بتونه 2000 رو به صورت 2,000 نمایش بده.
اگه کمکی از دست شما ساخته است کمکم کنین
ممنونم.

[سعید صابری]

نیاز به کامپوننت ندارید.72857

[hasandrw]

متشکرم از راهنمایی تون
ولی برای نمایش دادن داخل Edit با چکار کنم؟

[یوسف زالی]

سلام.
این روش در دلفی 7 پشتیبانی نمی شه.
اما روش کلی برای تبدیل یک عدد به یک رشته عددی با جداکننده:


function IntToStrWithDelimiter(Value: Comp; Delimiter: char) : string;
var
st : string;
NegFlag : boolean;
index : longint;
len : longint;
begin
NegFlag := false;
if Value < 0 then
begin
NegFlag := true;
Value := -value;
end;
St := FloatToStr(Value);
Len := Length(st);
index := Len - 3;
while index > 0 do
begin
Insert(Delimiter, st, index+1);
index := index - 3;
end;
if NegFlag then
st := '('+ Trim(st) + ')';
Result := st;
end;



هنگام استفاده:

Edit1.Text := IntToStrWithDelimiter(12345678, ',');

[سعید صابری]

متشکرم از راهنمایی تون
ولی برای نمایش دادن داخل Edit با چکار کنم؟

یکی از راهها اینه که از کمپوننت استفاده کنی. که یکی از معروفترین اونها TMS هستش. و یک کامپوننت دیگه یک از دوستان(فکر کنم جناب gbg) زحمتش کشیده این کارو انجام میدهتوی همین سایت جستجو کن میتونی به صورت رایگان استفاده کنی. یا میتونی از کد نویسی که دوستمون ذکر کرده استفاده کنی

[hasandrw]

من کاوپوننت جناب gbg رو دانلود کردم ولی وقتی می خوام عملیات محاسباتی رو انجام بدم جواب نمی ده!
مثلا اگه بخوام حاصل جمع دو GBgNumberEdit رو در یک GBgNumberEdit بریزم.
اگه میشه راهنمایی امم کنین.