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

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

Войти

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

Другие темы раздела
Delphi Создание программы "Картотека бактериологической лаборатории" https://www.cyberforum.ru/ delphi-beginners/ thread1391591.html Нужно написать программу для бак лаборатории есть экзешник похожий нужно создать такую же если можно с иходниками!!!!!	Ошибка list index out of bounds поморгите найти Delphi Тз создание кроссворд. Использование текстовых файлов.(Stringlist - не моя прихоть" прошу воздержаться от комментариев") ошибка list index out of bounds вылетает при попытке записать результат (время ) в файл. (все данные храняться в нескольких текстовых файлах) unit1 DataTiP:string; savesScore:TStringList;
Delphi Как использовать таймер? https://www.cyberforum.ru/ delphi-beginners/ thread1391565.html помогите в программе сделать таймер. очень нужно сегодня.	Delphi Шифрование комбинированным методом (подстановка - перестановка) https://www.cyberforum.ru/ delphi-beginners/ thread1391503.html При подстановке использовать тарабарскую грамоту, согласные заполняются в алфавитной последовательности. Перестановка усложненная с заполнением по столбцам, с строке 12 символов, шифрограмма разбивается на группы по 4 символа.
Delphi Шифр замены по ГОСТ 28147-89 Размер таблицы 8х4, ключ задается пользователем, шифрограмма разбивается на группы с заданным количеством символов. Помогите пожалуйста реализовать, на бумаге могу, а в Delphi не получается	Delphi Edit и Stringgrid в Delphi 7 https://www.cyberforum.ru/ delphi-beginners/ thread1391453.html Всем привет, не могу разобраться с задачей. Помогите пожалуйста, задача такова: Задается stringgrid1 6х6, edit1, и button1. Необходимо текст записанный в Edit1 записать в таблицу по диагоналям снизу вверх с правого нижнего угла, а оставшиеся пустые ячейки заполнить по алфавиту. Весь мозг уже вымотал никак не получается. Заранее спасибо!
Delphi Передача типа Record в процедуру в качестве параметра процедуры Вот такой код не работает: TGraph = Record Graf_Flag : boolean; Priyom_Flag : boolean; Rec_Flag : Boolean; end; Sin, Cos : TGraph; https://www.cyberforum.ru/ delphi-beginners/ thread1391450.html	Переведите код из Паскаля в Дельфи Delphi Помогите перевести код паскаля в делфи через stringgrid: var kol,bx,by:array of integer; n,m,ax,ay,i,j,r,minr,minb:integer; begin read(n); for i:=1 to n do read(bx,by); read(m); for i:=1 to m do begin
Delphi Поиск словоформ и вывод их в Memo Написать в Delphi программу, где в поле Memo1 вводится словарь, в поле Memo2 текст,нужно реализовать поиск словоформ и вывод их в Memo3, помогите пожалуйста, я уже все перепробовала, но никак не выходит... https://www.cyberforum.ru/ delphi-beginners/ thread1391404.html	Delphi Поток Есть поток и работает так: if boolpotok = True then begin // делать код в потоке end; Есть кнопка стоп на которой код: boolpotok := False; https://www.cyberforum.ru/ delphi-beginners/ thread1391386.html
Вновь про COM- порт Delphi доброго времени вопрос такой: есть устройство передающее через сом порт пакеты, принимается обрабатывается нормально все, но вот как быть с горячим отключением устройства? причем если отлавливать отключение/подключение юсб устройства, сом порт работает и данные принимаются. а вот ...идут данные->горячее отключение-> программа поняла это -> закрытие программы-> тут начинаются ошибки. Плиз...	Delphi Удаление элемента из дерева https://www.cyberforum.ru/ delphi-beginners/ thread1391311.html Есть процедура удаления поддерева из дерева, не могу никак изменить, чтобы удаляла элемент, помогите, пожалуйста) procedure delltr(inf:integer;var base:uktr); //Процедура удаления поддерева var q:uktr; begin if base=nil then showmessage('Элемент не найден') else if inf<base^.data then

Fakeoke

522 / 398 / 213

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

Сообщений: 2,207

11.03.2015, 12:49

Цикл не работает - Delphi - Ответ 7325935

11.03.2015, 12:49. Показов 2445. Ответов 37

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

Ответ

Delphi

for i:=1 to SpinEdit1.Value do
begin
  // тут что-то делается столько раз, сколько указано в SpinEdit1
end;
 
либо
 
i:=0;
while (i<SpinEdit1.Value) do
begin
//тут что-то делается SpinEdit1.Value раз
i:=i+1;
end;

чтобы 3 раза обновило запрос (страницу) и спарсило 150 значений?

делаете первый запрос
парсите циклом 50 значений
делаете второй запрос
парсите еще 50 значений циклом..
итд итп

Вернуться к обсуждению:
Цикл не работает Delphi

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

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

Programming

Эксперт

94731 / 64177 / 26122

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

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

11.03.2015, 12:49

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

Цикл: как работает цикл в цикле
Не могу понять как работает цикл в цикле например: repeat begin lalalala if что-то1<>100 then...

Цикл не работает
В процедуре есть цикл, при выполнении этой процедуры, значения переменной цикла выходит за заданные...

Не работает цикл
Что не так с этим циклом? Надо что бы введенный в эдит номер маршрута отображался в мемо с...

Не работает цикл
Добрый день. Подскажите пожалуйста что я не так делаю. Вот код var p1, p2,o: Integer; ...

	11.03.2015, 12:49

IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

11.03.2015, 12:49

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

Неправильно работает цикл
Эта программка должна брать по символу/числу из Edit1 отнимать 200 *200-66(B)=134*и затем...

Неправильно работает цикл FOR ?!
В представленном ниже коде цикл FOR - НЕ останавливается при достижении значения - 1, тем самым...

Не работает цикл в потоке
Вот писал программу,в ней цикл,достаточно длинный поэтому форма зависала,если просто процедуру в...

Почему это не работает (цикл while) ?
Вот кусок кода. Это часть конструкции Case of. При выборе одного из условий Комбобокса должно...

Наверх