Вопрос № 74440: Здравствуйте. Какой командой можно получать значения в определенном шаблоне, т.е число у которого, например, 4 знака после запятой.
Я пользуюсь: FloatToStrF(x,ffGeneral,6,4); Но он почему-то не всегда даёт правильный результат. Может быть есть др...Вопрос № 74484: Здравствуйте !
Скажите а как можно совершить звонок через модем на определенный номер телефона ?
Хоть подскажите где почитать и разузнать про ЭТО поподробнее ....
С Уважением !!!
info@kotoff.info...Вопрос № 74536: Вопрос по Делфи, как в ShellTreeView сделать так чтоб пользоваватель не мог переименовывать ни какие элементы отображаемые в этом контроле...
Вопрос № 74.440
Здравствуйте. Какой командой можно получать значения в определенном шаблоне, т.е число у которого, например, 4 знака после запятой.
Я пользуюсь: FloatToStrF(x,ffGeneral,6,4); Но он почему-то не всегда даёт правильный результат. Может быть есть другие способы?
Отвечает: sir henry
Здравствуйте, Иванов Михаил Викторович!
Это потому что тип Float сам по себе неточный. Специально для окончательно обезумевших от типа Float бухгалтеров, у которых к концу года из-за этого типа накапливались немерянные убытки :) , придумали тип Currency который имеет как раз 4 знака после запятой, но строится на основе 64-битного целого. Поэтому всегда точно, как в аптеке. :)
Ответ отправил: sir henry (статус: Академик) Россия, Красноярск ---- Ответ отправлен: 06.02.2007, 17:37
Отвечает: Gh0stik
Здравствуйте, Иванов Михаил Викторович!
Рекомендую Вам пользоваться функцией Format(). function Format(const Format: string; const Args: array of const) : string;
Первым параметром функции выступает форматирующая строка. Это обычная текстовая строка, но в ней на нужных местах стоят специальные символы, которые определяют, какие и как туда будут подставлены параметры.
Второй параметр функции Format называется списком аргументов. Он и содержит "вставляемые" в форматирующую строку параметры. Обратите внимание, что этот открытый массив имеет тип array of const, и в нем может передаваться переменное число разнотипных параметров.
--------- Господь Бог - это всего лишь сверхмощный генератор случайных чисел, в соответствии с которыми сочетаются события на Земле. Генератор случайных чисел - и только.
Ответ отправил: Gh0stik (статус: Профессионал) Украина, Славянск Организация: Славянский государственный педагогический университет (Кафедра алгебры) ICQ: 289363162 ---- Ответ отправлен: 06.02.2007, 17:52
Отвечает: Базанов Иван Александрович
Здравствуйте, Иванов Михаил Викторович!
Есть еще Format - практически аналог сишного sprintf()
Первый параметр - строка форматирования, потом массив значений, которые нужно преобразовать в строку
--------- Программист ошибается дважды: первый раз при рождении, второй при выборе профессии
Отвечает: Химяк Виктор Васильевич
Здравствуйте, Иванов Михаил Викторович!
Пример:
FormatFloat('0.00',Fields[0].AsFloat).//Fields[0].AsFloat - это у меня поле из набора данных.
Вместо '0.00' поставте '0.0000'.
Ответ отправил: Химяк Виктор Васильевич (статус: 3-ий класс)
Ответ отправлен: 06.02.2007, 21:59
Вопрос № 74.484
Здравствуйте !
Скажите а как можно совершить звонок через модем на определенный номер телефона ?
Хоть подскажите где почитать и разузнать про ЭТО поподробнее ....
Отвечает: Jadd
Здравствуйте, Василь КотоФФ!
1. На русфаке поиском воспользоваться
2. Читать в MSDN про TAPI
3. Идти на www.codeproject.com за исходниками разного рода.
Успехов.
--------- Если в сердце дверь закрыта, нужно в печень постучаться
Ответ отправил: Jadd (статус: Профессионал) Адрес: Санкт-Петербург WWW:http://www.sport-diary.ru ---- Ответ отправлен: 06.02.2007, 22:02
Вопрос № 74.536
Вопрос по Делфи, как в ShellTreeView сделать так чтоб пользоваватель не мог переименовывать ни какие элементы отображаемые в этом контроле
Отправлен: 07.02.2007, 10:04
Вопрос задал: Jakoni (статус: Посетитель)
Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)
Отвечает: Gladiator
Здравствуйте, Jakoni!
Например, по правой клавише делать следующее:
procedure TForm1.FolderListMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var P: TPoint;
S: string;
begin
P:=ClientToScreen(Point(X,Y));
S:='';
if Button = mbRight then begin
with FolderList do begin
Select(FolderList.GetNodeAt(X,Y));
if Selected.Level>1 then begin
if Folders[Selected.AbsoluteIndex].IsFolder then S:='*.*';
SelectedPath:=Folders[Selected.AbsoluteIndex].PathName+S;
Popup1.Popup(P.X,P.Y);
end;
end;//with FolderList
end;
end;
Ответ отправил: Gladiator (статус: 8-ой класс)
Ответ отправлен: 07.02.2007, 13:27 Оценка за ответ: 3 Комментарий оценки: немного не то, я уже отключил всплытие контекстного меню а вот по двойному щелчку, с паузой можно переименовать файл как отключить вот это
Отвечает: Coupler
Здравствуйте, Jakoni!
Напишите это в событии OnEditing:
allowedit:=false;
Т.е.событие OnEditing будет представлено в виде:
procedure TForm1.ShellTreeView1Editing(Sender: TObject; Node: TTreeNode;
var AllowEdit: Boolean);
begin
allowedit:=false;
end;
Ответ отправил: Coupler (статус: Студент)
Ответ отправлен: 07.02.2007, 14:51 Оценка за ответ: 5 Комментарий оценки: отлично помогло спасибо огромное
