Delphi для начинающих

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
Delphi Как укоротить отображение пути к файлу Здравствуйте. Как укоротить строку пути к файлу, оставив названия первых двух папок, последнюю папку и имя файла. С уважением Al_Sha https://www.cyberforum.ru/ delphi-beginners/ thread184556.html	Delphi Вывести ссылки из определенного div (TWebBrowser) нахожу нужный мне div в html коде, но не могу врубиться как получить все ссылки которые содержатся в этом div?
Delphi решение, внедрение его в среду делфи https://www.cyberforum.ru/ delphi-beginners/ thread184471.html Здравствуйте! Вновь нужна ваша помощь с контрольными задачами =( В мастерской по ремонту телефонов один мастер за день ремонтирует x телефонов, а второй мастер – y телефонов. Если первый мастер работает 2 дня, а второй 3 дня, то вместе они отремонтируют 56 телефонов. Если же первый мастер будет работать 3 дня, а второй 5 дней, то первый отремонтирует на 30 телефонов меньше, чем второй. Найти...	Delphi Несложная форма. https://www.cyberforum.ru/ delphi-beginners/ thread184459.html Всем привет. Помогите пожалуйста разобраться. Поставлена такая задача: Написать программу, которая пересчитывает скорость ветра из "метров в секунду" в "километров в час". Программа должна быть спроектирована таким образом, чтобы пользователь мог ввести в поле Скорость только целое положительное число. Вычисление должно выполняться как в результате щелчка на кнопке Пересчет, так и при нажатии...
Date and Time Delphi Здравствуйте, уважаемые форумчане. Помогите пожалуйста: мне нужно, что бы при достижении даты смены времён года форма менялась на соответствующий цвет, например при достижении 31.12.2010 - она стала бирюзовой, при 01.09.2011 оранжевой и т.д. и что бы это было по кругу. Большое спасибо. Код программы: unit DateF; interface uses SysUtils, Windows, Messages, Classes, Graphics,...	Delphi Цифры после запятой Люди подскажите пожалуйста как убрать цифры после запятой, 461545,50391. Вот код моего приложения begin a:=(11.5/50000)+(512/4)+171500; {Tоб} c:=(17-1)a; {Тож} d:=11.5+230+128+25500+a; {Tобслж} e:=(c+d); {Tp1} Edit2.text:=floattostr (e); end; https://www.cyberforum.ru/ delphi-beginners/ thread184412.html
Delphi Переставить в обратном порядке элементы массива, расположенные между его минимальным и максимальными элементами https://www.cyberforum.ru/ delphi-beginners/ thread184397.html Дан массив размера 10. Переставить в обратном порядке элементы массива, расположенные между его минимальным и максимальными элементами.	Преобразовать массив, вставив после каждого положительного элемента нулевой элемент Delphi Дан массив размера N. Преобразовать его, вставив после каждого положительного элемента нулевой элемент.
Delphi найти номера двух ближайших по значению элементов из массива дан массив размера N. найти номера двух ближайших по значению элементов из этого массива. https://www.cyberforum.ru/ delphi-beginners/ thread184394.html	Delphi Allign двух Memo на форме Итак, суть такова. На форме находятся два мемо и сплиттер между ними. Они заполняют все пространство формы. Как настроить их свойства Allign, чтобы при развертке приложения на весь экран всё выглядело корректно, и чтобы сплиттер также работал нормально, а не оставлял пустого места между мемо при сдвиге? Спасибо. https://www.cyberforum.ru/ delphi-beginners/ thread184384.html
Delphi Процедуры и функции Дэлфи Помогите пожалуйста с кодом программы: Даны действительные числа х1, у1, х2, у2, ..., . Найти периметр н-угольника, вершины которого имееют соответственно координаты (х1,у1), (х2,у2),...., . (Определить подпрограмму вычисления расстояния между двумя точками, заданными своими координатами). (формула расстояния между 2 точками: sqrt((x1-x2)^2+(y1-y2)^2)	Delphi Клик мышью Собственно написал программу (на форме по паре Label, Edit, Button и RadioButton) которая через определённое время делает клик в то место где установлен курсор использовав: SetCursorPos(X, Y); mouse_event(MOUSEEVENTF_LEFTDOWN,X,Y,0,0); mouse_event(MOUSEEVENTF_LEFTUP,X,Y,0,0); Однако когда захотел на форму поставить картинку в место фона, у Label сделал прозрачный фон и вывел на... https://www.cyberforum.ru/ delphi-beginners/ thread184352.html

Bazhal

23 / 23 / 3

Регистрация: 27.07.2010

Сообщений: 71

01.11.2010, 00:35

Как подставить в счетчике нули перед цифрой - Delphi - Ответ 1074394

01.11.2010, 00:35. Показов 4069. Ответов 2

Метки (Все метки)

Сообщение было отмечено Finogenov как решение

Решение

Delphi

var
  sBuf   : AnsiString;
  iCount : Integer;
begin
  iCount := StrToInt( Edit2.Text );
  for  i := 1 to iCount do
  begin
    sBuf := IntToStr( i );
    while ( Length( sBuf ) < 3 ) do sBuf := '0' + sBuf;
    Memo1.Lines.Add( sBuf );
  end;
end;

Вернуться к обсуждению:
Как подставить в счетчике нули перед цифрой Delphi

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

01.11.2010, 00:35

Готовые ответы и решения:

Строка: вставить перед цифрой букву, стоящую за цифрой
Задана строка из латинских букв и цфир. Вставить перел цифрой букау, стоящую за цифрой

Названия папок. Как добавить нули перед цифрами?
echo off set /p input= Vvedite kolichestvo papok : for /l %%i in (1,1,%input%) do md "%cd%/%%i"...

Перевод десятичного числа в двоичное. Как удалить нули перед первой еденицей?
Вот прога преобразующая десятичное число в двоичное: #include <iostream> int main() int...

Пробел перед цифрой
есть файл с массивом ,я хочу поставить пробел перед всеми цифрами и передать на функцию explode()....

	01.11.2010, 00:35

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

01.11.2010, 00:35

Помогаю со студенческими работами здесь

вставка буквы перед цифрой
добрый день!ни как не могу найти ответ на вопрос.вот часть кода i1 = 1 ..... Rs2!iKEY = i1 ...

Подставить цифру перед цифровыми значениями в таблице
В таблице много номеров сотовых телефонов в формате 9ХХХХХХХХХ, а нужно ,чтобы было в формате...

Заменить пробел перед цифрой на двоеточие
А не подскажите, как заменить последовательность пробел+цифра на двоеточие+эту цифру? Например...

Перед первой найденной цифрой записать слово first
Дано натуральное число n и строка символов s1 .. sn . Вывести данные символы на печать, а также...

Наверх