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

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

Войти

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

Другие темы раздела
Delphi Поворот рисунка в эксель Здравствуйте! Вставляю рисунок таким образом: Ap.WorkSheets.Shapes.AddPicture('C:\1.png',1,1,10,100,215,25); Как сделать поворот рисунка? У меня в рисунке содержится надпись, унжно чтобы эта надпись шла через весь лист, размеры я подгоню, а вот как поворот сделать( И второй вопрос: В моем примере (строка делфи) за что отвечают цифры 1,1 (остальные за лево, вверх, ширина, высота) https://www.cyberforum.ru/ delphi-beginners/ thread1851222.html	Открыть сохраненное ранее изображение Delphi Помогите дополнить код или как-нибудь его изменить, чтобы после того как картинка сохранится через программу ее можно было снова открыть в той же программе unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, ExtDlgs, jpeg, ExtCtrls; type
Delphi Копирование файлов mp3 с использованием каталогов с русскими именами https://www.cyberforum.ru/ delphi-beginners/ thread1851179.html Доброго времени суток подскажите как скопировать файл когда путь содержит кириллицу . вот мой код что не так и как можно это реалезовать procedure TPleer1.Button7Click(Sender: TObject); var s:string; begin //ïðîâåðêà åñòü ëè òàêîé ðîëèê â áàçå showmessage(pleer1.ListBox1.Items.Text+ '\| '+' \\SERVER\RollikBaza\'+ExtractFileName(pleer1.ListBox1.Items.Text)) ;	Delphi В документе Word с таблицей найти адрес ячейки по определенному слову в ней здравствуйте, помогите с решением задачи, имеется док word с таблицей, нужно найти адрес ячейки по определенному слову в ней https://www.cyberforum.ru/ delphi-beginners/ thread1851176.html
Delphi Задать цикл для значений ComboBox Здравствуйте, подскажите можно ли задать цикл для значений combobox	Delphi Результаты sql-запроса вывести в txt https://www.cyberforum.ru/ delphi-beginners/ thread1851151.html здравствуйте . подскажите как сделать выгрузку из sql по запросу в txt блокнот. пробую вот так сдесь adoquery11 создан на форме настроен. var f:textfile; begin adoquery11.Close; adoquery11.SQL.Text:='select * from Таблица1 where Условие order by nn'; adoquery11.Open;
Delphi Используя функцию, определить количество трехзначных чисел в строке Используя функцию, определить количество трехзначных чисел в строке, содержащей группы цифр, разделенной пробелами. https://www.cyberforum.ru/ delphi-beginners/ thread1851106.html	Выбрать из массива все записи о книгах по информатике и упорядочить полученный список по авторам Delphi Создать массив структур A(n), где n<=20 каждая запись содержит сведения о книгах: автор, название, год издания. Распечатать массив на экране. Используя функцию, выбрать из этого массива все записи о книгах по информатике и упорядочить полученный список по авторам. В главной функции полученный массив вывести на экран.
Delphi Найти четырехзначное число, в четыре раза меньше числа, записанного теми же цифрами в обратном порядке Найти четырехзначное число, в четыре раза меньше числа, записанного теми же цифрами в обратном порядке. Собственно не понимаю как это реализовать, я так понимаю числа, вводимого с клавиатуры по условию нет, или нужно ввести число с клавиатуры и потом уже искать по условию. Нашел математическое решение, но не знаю как это применить. https://www.cyberforum.ru/ delphi-beginners/ thread1851056.html	Delphi Нужно сделать поле ввода номера телефона Подскажите как сделать, что бы в edit перед вводимыми в него данными выводилось '+380'. https://www.cyberforum.ru/ delphi-beginners/ thread1850978.html
Delphi Программа для считывания данных из Word Всем здравствуйте!! Мое задание: 1. Создать программу для считывания текста (ФИО, №) файлов из Ворда. То есть загружаем документ Word в программу, а программа автоматически просматривает информацию из каждого загруженного документа - Фамилию Имя Отчество и Номер(это в самом документе написано), и формирует в таблицу эти данные. А еще хотелось бы, чтобы этот документ тоже сохранялся в этой...	Delphi Написать программу для заполнения ведомости вычисления координат теодолитного хода https://www.cyberforum.ru/ delphi-beginners/ thread1850945.html Доброго времени суток) Не могу разобраться с программой... Суть вроде понятна, нужно ввести кол-во точек для начала, потом горизонтальные проложения, в массив загнать дирекционные углы(еще нужно к ним сделать невязку это вообще не знаю как прикрутить), причем известен первый угол, ну а дальше опять массивы на координаты и их приращения, на румбы нужен оператор выбора я так понимаю. Буду...

Sergio Leone

2509 / 1130 / 582

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

Сообщений: 3,286

22.11.2016, 22:03

Как в edit рандомно генерировать 4-х значное число, которое не будет повторяться? - Delphi - Ответ 9803255

22.11.2016, 22:03. Показов 3677. Ответов 28

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

Ответ

Сообщение от Joy

у меня он и реализован

разве?! там же суть в том, что случайное число выбирается из числа оставшихся значений, а у тебя диапазон случайного числа не меняется:

Сообщение от Joy

Delphi

1	j:=random(1000)+9000;

да диапазон странный - от 9000 до 9999 ?!

я предлагал такой вариант:

Pascal

var
  a:array[1000..9999] of integer;
  N, i,j,t:integer;
begin
  randomize;
  for i:=1000 to 9999 do a[i]:=i;
 
 { перемешать массив }
 N := 9999-1000+1;
 for i:=1 to N-1 do
  begin
   j := Random(N-i+1)+i;
   if j <> i then  {обменяем местами элементы с номером i и j }
   begin
     t := a[i+999];
     a[i+999] := a[j+999];
     a[j+999] := t;
   end;
  end;
 
  {вывести результат на экран}
  for i:=1000 to 9999 do write(a[i]:5);
end.

Вернуться к обсуждению:
Как в edit рандомно генерировать 4-х значное число, которое не будет повторяться? Delphi

Следующий ответ

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

22.11.2016, 22:03

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

Написать программу, которая будет генерировать квадратную матрицу рандомно
Необходимо написать программу которая будет генерировать квадратную матрицур рандомно размерности...

Ошибки в приложении, которое должно генерировать число, а пользователь должен его запомнить и повторить
Приложение переписывала с аналога на Delphi. Скорей всего, некоторых операторов нет в Lazarus и...

Генерировать число, пока не будет удовлетворять условиям
Есть простой код генерации числа (от и до) и проверка его на условия. Как сделать автогенерацию до...

Строковое деление 100-значное число разделить на 50-значное число
Помогите. не могу понять где нужно поправить код. Строковое деление 100 значное число делим на 50...

	22.11.2016, 22:03

IT_Exp Эксперт 87844 / 49110 / 22898 Регистрация: 17.06.2006 Сообщений: 92,604	22.11.2016, 22:03
	Помогаю со студенческими работами здесь Найти вероятность того, что наугад взятое 5-значное число будет делиться на 39 Мы решили эту задачу через программу, но не знаем как решить её на бумаге. Ответ получился 2.5% 0

Наверх