Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
Delphi Если в тексте нет слов-палиндромов, то вывести слова текста в соответствии с убыванием длины помогите решить задачу))))так и не могу понять как такие решаются)))или идейки подкиньте))делфи Дана строка, содержащая русский текст. Если в тексте нет слов-палиндромов длиной более 1-й буквы, то вывести слова текста в соответствии с убыванием длины, в противном случае продублировать в словах текста гласные буквы и вывести полученные слова в алфавитном порядке. https://www.cyberforum.ru/ delphi-beginners/ thread1002680.html Движение объекта Delphi
Здравстуйте, помогите организовать скатывание шарика с трамплина. Высота и длина горки,а также угол трамплина меняются.
Delphi Кодировка https://www.cyberforum.ru/ delphi-beginners/ thread1002513.html
Кодировка. chr( -16537+16612 ) + chr( 131300/1300 ) + chr( 15022-14921 ) + chr( 15022-14903 ) Как получить так? chr(75) + chr(101) + chr(101) + chr(119) Или слово которое - Keew.
Delphi Эксперименты с настройками Хочу опробовать тонкие настройки делфи но боюсь повредить настройкам по умолчанию. Есть идея вторично установить мою версию делфей по другому каталогу. 1) Не повредит ли это действие уже настоенной версии? 2) Если каким то образом получилось что повредил- есть ли такая кнопка котроя сбросит все настройки по умолчанию? https://www.cyberforum.ru/ delphi-beginners/ thread1002496.html
Delphi Можно ли как-нибудь укоротить этот код:
Мне нужно что бы размер шрифта в fontdialog был равен введенному числу в combobox так,что бы не надо было писать много вот это: case combobox2.text of 1:fontdialog1.Font.Size:=1; 2:fontdialog1.Font.Size:=2; 3:fontdialog1.Font.Size:=3; .................................... может быть case combobox2.text of
Delphi Даны натуральное N и элементы квадратной вещественной матрицы А пятого порядка Даны натуральное N и элементы квадратной вещественной матрицы А пятого порядка. Вычислить N-ю степень каждого элемента этой матрицы по схеме (аij1=аij, аij2=аij*аij, аij3= аij2*аij и т.д., где i,j=1,2,...,5). https://www.cyberforum.ru/ delphi-beginners/ thread1002476.html
Delphi Файлы Не получается работа с файлами! Имеется 2 текстовых файла - new.txt и result.txt в корне программы. Помогите преобразовать код, так, что при нажатии кнопки button текст считывался c текстового new.txt, который расположен в корне программы, а затем вызвать функцию шифратор s:=shifrator(txt,m,k); и записать шифр в файл result.txt. unit Unit1; interface uses https://www.cyberforum.ru/ delphi-beginners/ thread1002474.html Обработка текста в компоненте Memo. Delphi Delphi
Добрый день. Изучать делфи я начал совсем недавно, и пока мало что получается. Я не могу решить пару задач, вот они 1.Дан текст в компоненте Memo. Опередить в каких позициях в нем начинается каждое новое предложение (сначала найти позиции точек) (не использовать pos, delete, copy…) 2.Исходный текст набран с ошибками . Вывести исходный текст, заменив в нем строчные буквы, следующие за...
Delphi Ошибка access violation at address 00BD574F https://www.cyberforum.ru/ delphi-beginners/ thread1002463.html
Данная процедура выполняет заполнение массива F значениями яркостей пикселей изображения Image1. Далее хочу с помощью данного массива скопировать то же самое изображение в Image2 такой командой: Image.Canvas.Pixels:=F, но на слове Pixels выводится сообщение "access violation at address 00BD574F in module 'dcc70.dll'. Что это такое? Замена библиотеки 'dcc70.dll' не помогла. Добавлено через 1...
Delphi Трейнер по поиску сигнатуры помогите сделать трейнер по поиску сигнатуры , у меня сдесь сделан по адрессу unit Unit3; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, StdCtrls, ExtCtrls, TLhelp32, sButton, sSkinManager; https://www.cyberforum.ru/ delphi-beginners/ thread1002456.html
Проверить, не превышает ли число в Edit заданное значение Delphi
как поставить условие если edit1.text>99 то showmessage ('жирно не будет?'); begin if Edit1.Text>99 then begin ShowMessage ('Жирна не будет?'); end; end. Добавлено через 6 минут
Delphi ListBox: снять выделение с элемента при повторном нажатии на него https://www.cyberforum.ru/ delphi-beginners/ thread1002401.html
Подскажите как можно снять выделение с ListBox, если я нажимаю на этот же индекс?
191 / 50 / 10
Регистрация: 27.09.2013
Сообщений: 516
Записей в блоге: 4
09.11.2013, 19:14 0

Позиция нужного слова в Memo - Delphi - Ответ 5310056

09.11.2013, 19:14. Показов 2215. Ответов 11
Метки (Все метки)

Ответ

slim8

Delphi
1
2
3
4
5
6
7
8
var i:integer;
begin
for i:=0 to memo1.lines.count-1 do begin
 if pos(uppercase('Что ищем'),uppercase(memo1.lines[i]))>0 then begin
 // здесь код, который выполнится, если найдено совпадение
 end;
end;
end;
примерно так, если ничего не напутал

Вернуться к обсуждению:
Позиция нужного слова в Memo Delphi
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
09.11.2013, 19:14
Готовые ответы и решения:

Позиция формы на уровне каретки memo
Здравствуйте! Подскажите пожалуйста, а как сделать позицию формы на уровне каретки memo1, что...

Нахождение нужного слова в Memo
Есть следующий код: procedure TFWordFinder.Button2Click(Sender: TObject); var PositionInText:...

Поиск нужного слова в словаре, в котором слова расположены в лексикографическом порядке
Напишите задачу поиска нужного слова в словаре, в котором слова расположены в лексикографическом...

Символьные строки. Разбивание на слова и нахождение нужного слова
Помогите написать прогу. Не могу разобраться, какие команды применить. Так же нужно использовать...

11
09.11.2013, 19:14
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
09.11.2013, 19:14
Помогаю со студенческими работами здесь

Как из memo вывести в listbox все слова, которые начинаются на ту же букву, что и последнее слово из memo?
и при этом сохранить порядок слов которые были в memo

Позиция последнего символа из слова в тексте
Задача: Вставить текст после одного слова. Думаю для этого нужно использовать функцию insert,...

Поиск нужного слова в мемо
Нужно решить такую проблему как поиск слова в мемо. Пробовал перевести код с делфи procedure...

поиск нужного слова в строке
как можно найти каждое третье слово в строке, чтоб записать их в edit? Var s:string; begin...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru