mdev12
چهارشنبه 19 اسفند 1394, 11:42 صبح
با سلام
وقتی توی ادیت عدد ساده نوشته شد در یه ادیت یا لیبل دیگه اون رو با ویرگول نشون بدهد چون کامپوننت اون رو پیدا نکردم من با xe8 کار می کنم
ضمنا من کل فرم هام رو با ادیت معمولی به دیتابیس وصل کردم
راهنمایی کنید ممنون
function AddComma(snum : string) : string;
var
l, I : integer;
s : string;
begin
I := 1;
l := length(snum);
while I <= l do
begin
s := snum[l – I + 1] + s;
if (I mod 3 = 0) and (I <> l) then
s := ‘,’ + s;
I := I + 1;
end;
result := s;
end;
کد ویرگول از سایت برنامه نویس هست
وقتی توی ادیت عدد ساده نوشته شد در یه ادیت یا لیبل دیگه اون رو با ویرگول نشون بدهد چون کامپوننت اون رو پیدا نکردم من با xe8 کار می کنم
ضمنا من کل فرم هام رو با ادیت معمولی به دیتابیس وصل کردم
راهنمایی کنید ممنون
function AddComma(snum : string) : string;
var
l, I : integer;
s : string;
begin
I := 1;
l := length(snum);
while I <= l do
begin
s := snum[l – I + 1] + s;
if (I mod 3 = 0) and (I <> l) then
s := ‘,’ + s;
I := I + 1;
end;
result := s;
end;
کد ویرگول از سایت برنامه نویس هست