Форум: "Потрепаться";
Текущий архив: 2002.12.05;
Скачать: [xml.tar.bz2];
ВнизПомогите с исходником, плз.... Найти похожие ветки
← →
Latent Force (2002-11-15 20:03) [0]Всем привет! Люди, если не ломает, пожалуйста намыльте исходный код функции FormatFloat(...) из сырцов Delphi. Я не могу вспомнить в каком модуле она определена. Нужно очень, а взять не у кого... Если не затруднит то в течении часа с момента выхода вопроса.
Спасибо!
----------------
С уважением.
Latent Force.
← →
Ketmar (2002-11-15 20:09) [1]
function FormatFloat(const Format: string; Value: Extended): string;
var
Buffer: array[0..255] of Char;
begin
if Length(Format) > SizeOf(Buffer) - 32 then ConvertError(SFormatTooLong);
SetString(Result, Buffer, FloatToTextFmt(Buffer, Value, fvExtended,
PChar(Format)));
end;
помогло? %-)
Satanas Nobiscum! 15-Nov-XXXVII A.S.
← →
Latent Force (2002-11-15 20:25) [2]Помогло :) , но породило новые вопросы.
А как реализована функция FloatToTextFmt(...)?
← →
Ketmar (2002-11-15 20:40) [3]может, я вам SysUtils на мыло пришлю? так, имхо, проще %-))
Satanas Nobiscum! 15-Nov-XXXVII A.S.
← →
Anatoly Podgoretsky (2002-11-15 20:40) [4]Слущай а у тебя виндоус и справка по Дельфи есть?
← →
TTCustomDelphiMaster (2002-11-15 20:41) [5]Намылил...
← →
Latent Force (2002-11-15 20:45) [6]to -> Anatoly Podgoretsky
да у меня нет вообще Delphi :(
Завтра-послезавта я его, конечно, куплю и поставлю, но ведь это будет завтра :(
to -> Ketmar
Точно SysUtils! Если не трудно, намыльте, плз. Век помнить буду :)
С уважением.
Latent Force
← →
Latent Force (2002-11-15 20:49) [7]Спасибо ребята!
Все получил :)
Как говорится, бедете у нас на Колыме... :)
----------------
С уважением.
Latent Force.
← →
Ketmar (2002-11-15 21:14) [8]значицца, ы не мылю, ибо вы, кажись, уже получили...
Satanas Nobiscum! 15-Nov-XXXVII A.S.
Страницы: 1 вся ветка
Форум: "Потрепаться";
Текущий архив: 2002.12.05;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.008 c