|
|
| Другие темы раздела | |
|
Delphi Тест-опросник
https://www.cyberforum.ru/ delphi-beginners/ thread1665641.html Собираюсь создать тест-опросник для проекта. Несколько вопросов и по три варианта ответа на каждый. Для каждого вопроса по форме. При выборе варианта ответа к этой переменной добавляется еденица, например: procedure TForm1.Button2Click(Sender: TObject); begin primer:=primer+1; if tequila=1 then form1.Visible:=false; form2.Show; Далее следует форма кнопка, которая делает вывод и открывает... |
Delphi Битовая структура данных . Битовая структура данных 1. Разработать процедуру вывода на экран битовой структуры оперативной памяти: procedure bitForm(var data; bitCount:longword); data - анализируемый блок оперативной памяти bitCount - количество анализируемых битов Биты должны выводиться группами по 8 штук через пробел, от старшего бита к младшему. Если общее количество битов не кратно 8, то количество бит в... |
|
Delphi Шахматная вставка строки
https://www.cyberforum.ru/ delphi-beginners/ thread1665609.html Низкоуровневое управление строками 1. Разработать процедуру для "шахматной" вставки одной строки типа ShortString в другую строку типа ShortString. Запрещается внутри процедуры использовать функции обработки строк, все манипуляции со строками проводить как с наборами (массивами) символов. 2. procedure ChessInsertSS(const firstStr:shortString; var secondStr:shortString); 3. firstStr:... |
Delphi Движение объекта
https://www.cyberforum.ru/ delphi-beginners/ thread1665567.html Пожалуйста, помогите:)Как сделать так, чтобы сначала кораблик не двигался потом когда нажимаешь на Button1(GO) начинал двигаться? |
|
Delphi Как поменять цвет кнопки и шрифт? Как поменять цвет кнопки и шрифт? (Button1) |
Delphi Код уходит в бесконечный цикл
https://www.cyberforum.ru/ delphi-beginners/ thread1665543.html Добрый вечер, коллеги. Пытаюсь написать довольно простой генератор рандомного лабиринта, но код где-то уходит в бесконечность. Алгоритм генерации вот в чем: делим наш лабиринт на клетки, окруженные стенами, и, начиная с входа в лабиринт, рандомно выбираем соседнюю не посещенную клетку и стираем стену, через которую проходим. Когда рядом не посещенных клеток нет, во всем лабиринте находим... |
| Delphi Парсер тхт и конвертация Добрый вечер! Подскажите, пожалуйста, как реализовать такую модель: Есть файл *.тхт, банковская выписка в формате 1С. Этот файл нужно считать построчно начиная "Секция документ" и заканчивая "КонецДокумента", занося в таблицу(а еще лучше сразу экспортом в excel), в определенные колонки. пока не кончится файл. https://www.cyberforum.ru/ delphi-beginners/ thread1665532.html |
Delphi Да или нет Вроде бы все сделала правильно, но программа мне выводит ошибку. Пишет, что точка после последнего End не нужна, а потом ее требует опять. Не подскажите, где я ошиблась? program laba; {$APPTYPE CONSOLE} uses Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls, ExtCtrls; |
| Delphi Задача с матрицей Помогите решить пожалуйста! В матрице размера 4x4 найти сумму элементов над главной диагональю. https://www.cyberforum.ru/ delphi-beginners/ thread1665438.html |
Delphi Плеер Delphi
https://www.cyberforum.ru/ delphi-beginners/ thread1665409.html Делаю аудиоплеер на библиотеке bass.dll Делал по уроку http://basicsprog.ucoz.ru/publ/6-1-0-17 В общем у меня все получилось ,но я захотел сделать функцию по настройки размера плеера(он у меня вышел слишком здоровый) и решил сделать 3 разных плеера с разными размерами. Так как самый большой был уже готов , создал еще 2 формы и начал делать еще 2 плеера. Но проблема возникает когда... |
|
Web-сервер апликации для Денвера (MySQL) Delphi Здравствуйте! Решил попробовать написать программу для веб-сервера на Денвере. Нужно будет иметь возможность без дополнительных надстроек (на Денвере) получать клиенту через браузер доступ к MySQL-БД. Еще куки и передача данных методом POST понадобится... Подскажите, пожалуйста, какой тип приложения для этого нужно создать? Какие элементы управления использовать? Что почитать на этот счёт? |
Delphi Изучаю обработку исключительных ситуаций Начал с простого но тут же и застрял:(. Обработка деления на нуль. procedure TFPriem.FormShow(Sender: TObject); var x, y, s: Double; begin ShowMessage(FloatToStr(s)); LogConfigure('logs\log.txt'); try https://www.cyberforum.ru/ delphi-beginners/ thread1665324.html |
|
841 / 736 / 342
Регистрация: 22.09.2012
Сообщений: 5,034
|
|
| 19.02.2016, 01:36 | 0 |
Даны два слова. Для каждой буквы первого слова определить, входит ли она во второе слово - Delphi - Ответ 877483719.02.2016, 01:36. Показов 1660. Ответов 2
Метки (Все метки)
Ответ
Askhat009,
Тебе нужно взять первую букву и запустить цикл. Гонять ее в цикле столько раз сколько букв во втором слове одновременно сравнивая значение этого символа. Выводить куда нить результат. Затем переключится на вторую букву и делать тоже самое. Вернее тебе тогда двойной цикл уже нужен. Вернуться к обсуждению: Даны два слова. Для каждой буквы первого слова определить, входит ли она во второе слово Delphi
1
|
|
|
|
| 19.02.2016, 01:36 | |
|
Готовые ответы и решения:
2
Даны два слова. Для каждой буквы первого слова определить, входит ли она во второе слово Даны два слова. Для каждой буквы первого слова определить, входит ли она во второе слово. |
| 19.02.2016, 01:36 | |
|
Помогаю со студенческими работами здесь
0
Даны 2 слова. Для каждой буквы первого слова определить, входит ли она во второе слово Для каждой буквы первого слова определить, входит ли она во второе слово
Для каждой буквы первого слова определить, входит ли она во второе слово |