Форматирование валюты в соответствии с региональными установкамиDelphi , Синтаксис , ПреобразованияФорматирование валюты в соответствии с региональными установками
Оформил: DeeCo { Um eine Zahl (im Beispiel 1850.5) zu einem korrekten Wahrungsformat ($ 1, 850.50; vom System definiert) zu machen, sollten Sie folgende Funktion verwenden: The GetCurrencyFormat function formats a currency value for display. By default, the function formats the currency according to the specified locale's settings. To make a number (1850.5) to the correct Currency Format ($ 1850.50), use this function: } function GetCurrency(number: PChar): string; var tmpStr: string; begin SetLength(tmpStr, 255); GetCurrencyFormat(LOCALE_SYSTEM_DEFAULT, 0, number, nil, PChar(tmpStr), Length(tmpStr)); Result := tmpStr; end; // Beispiel: Example: procedure TForm1.Button1Click(Sender: TObject); begin Application.MessageBox(PChar(GetCurrency(PChar(Edit1.Text))), '', MB_OK); end; Статья Форматирование валюты в соответствии с региональными установками раздела Синтаксис Преобразования может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: Преобразования ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |