وبلاگ شخصی حامد شیرزاد
وبلاگ شخصی حامد شیرزاد
صفحات وبلاگ
نویسنده: حامد شیرزاد - ۱۳٩٠/٧/۱٠
 
function AddThousandSeparator(S: string; Chr: Char): string;
var
 I: Integer;
begin
 Result := S;
 I := Length(S) - 2;
 while I > 1 do
 begin
 Insert(Chr, Result, I);
 I := I - 3;
 end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
 Edit1.Text := AddThousandSeparator(Edit1.Text, '''');
 label1.Caption := FormatFloat(edit1.text,0);
end;
نویسندگان وبلاگ:
مطالب اخیر:
کدهای اضافی کاربر :