Те, кто программирует на Delphi или Lazarus наверняка знают о функции FloatToStr, которая преобразует вещественное число в строку. В большинстве случаев её можно использовать, однако иногда требуется не просто вывод числа на экран, а вывод числа в определённом формате. И, поскольку делать это приходится довольно часто, то для таких случаев почти в любом языке программирования имеются особые функции. В Паскале (Делфи/Лазарус) такие функции тоже есть. И одна из них - это FloatToStrF, которая преобразует число в строку, используя заданный формат...

1. Запускаем Delphi и выводим на форму Form1 из вкладки Standart - текстовое поле Edit (2шт), кнопку Button(1шт), компонент Label (1шт) 2. Для Edit1 и Edit2 свойство Text ставим 0 3. Для Label1 свойство Caption ставим 0 4. Для Button1 свойство Caption пишем Сложить. 5. Получиться должно как на рис.1 6. Кликаем два раза по Button1 и пишем код для сложения: Label1...

Добрый день уважаемые читатели! Задача. Имеется файл .xls, в котором несколько столбцов с названиями: дата, наименование рецепта, название компонента, с названием компонентов столбцов несколько. В столбце с наименованием рецепта беспорядочно записаны строки, в которых непосредственно содержатся наименования рецептов. Рецептов около десяти штук. Некоторые строки пустые. В соседних столбцах с названием компонентов, в ячейках, содержатся значения их массы. Один рецепт делается в несколько подходов, поэтому имеется столбец с названием "Цикл"...

Добрый день! Думаю, что помогу тем, кто решит создать проект с использованием оборудования данного производителя. Процедуру настройки терминала для работы в режиме команд не буду здесь описывать. Для отправки команды в терминал: var b:array[0..1] of Byte; begin ComPort1.Open; b[0]:= $0A; ComPort1.Write(b[0],1); Sleep(150); Для принятия данных с терминала: procedure TForm1.ComPort1RxChar(Sender: TObject; Count: Integer); var e,e1,e2,e3,e4,e5,e6, e7, e8, e9, e10, e11, e12, e13, e14, e15, e16, e17, e18, e19 :string; d: array[0...