|
|
| Другие темы раздела | |
|
Delphi Текущая запись в DBGrid
https://www.cyberforum.ru/ delphi-beginners/ thread1319485.html Как сделать, чтобы текущая запись в DBGride выделялась определенным цветом? Добавлено через 5 часов 31 минуту Проблема решена. Тема закрыта. |
Добавление картинок на панель в цикле Delphi На форме есть панель. Я хочу в нее в цикле добавить несколько картинок. for a := 1 to Images do begin Image:= TImage.Create(Panel1); //Image.Anchors:=; Image.Left:=0; Image.Top:=Iheight; Image.AutoSize:=True; Image.Picture.LoadFromFile(FilePath+IntToStr(Index)+IntToStr(a)+'.jpg'); Image.Visible := True; |
|
Delphi Создать файл из 50 случайных чисел в заданном диапазоне
https://www.cyberforum.ru/ delphi-beginners/ thread1319393.html помогите с задачей Задание следует перепечатать на форум! |
Delphi Нету Import ActiveX в Borland Delphi xe5
https://www.cyberforum.ru/ delphi-beginners/ thread1319291.html Привет. Как ты понял у меня нету Import ActiveX в delphi и я хочу узнать как мне его поставить или что там надо сделать. Прошу помочь! :-[ |
|
Висит процесс после запуска в XE 5 Delphi В Дэлфи 7 программа закрывается нормально. Этот же проект запущенный из-под RAD ХЕ 5 после закрытия висит в памяти. Приходиться убивать из диспетчера. В чем причина? |
Delphi Вычислить средний объем продукции, выпускаемый одним предприятием Известен объем продукции, выпускаемый пятью предприятиями отрасли. Вычислить средний объем продукции, выпускаемый одним предприятием. https://www.cyberforum.ru/ delphi-beginners/ thread1319202.html |
| Delphi Создать объект файлового отображения с помощью функции CreateFileMapping Создать объект файлового отображения с помощью функции CreateFileMapping и передать в него данные с помощью функции MapViewOfFile. https://www.cyberforum.ru/ delphi-beginners/ thread1319080.html |
Составить программу определения разности Delphi Составить программу определения разности между суммой всех элементов на четных местах и суммой всех элементов на нечетных местах массива Т, состоящего из 10 элементов. Вывести найденное значение разности. |
| Delphi Пусть вводится последовательность из целых чисел, оканчивающихся нулем. Найдите наименьшее из всех положительн Пусть вводится последовательность из целых чисел, оканчивающихся нулем. Найдите наименьшее из всех положительных чисел последовательности https://www.cyberforum.ru/ delphi-beginners/ thread1319034.html | Delphi Решения системы линейных уравнений методом Гаусса Программа рабочая, все нормально. Проблема в том что мне нужно сделать + ко всему этому пошаговое решение, никак не получается, помогите пожалуйста. Нужно чтобы в новой форме при нажатии на клавишу программа делала один шаг в решении и так до корней unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, XPMan, StdCtrls,... https://www.cyberforum.ru/ delphi-beginners/ thread1318996.html |
|
Найти произведение P чисел, кратных 3 от 1 до n Delphi Найти произведение P чисел, кратных 3 от 1 до N. N-любое число |
Delphi Выделить каждое второе слово в тексте курсивом
https://www.cyberforum.ru/ delphi-beginners/ thread1318945.html Как сделать так чтоб " Выделить каждое второе слово в тексте курсивом ." с помощью кнопки ?? |
|
132 / 129 / 31
Регистрация: 12.12.2011
Сообщений: 462
|
|
| 10.12.2014, 16:21 | 0 |
Вести с клавиатуры строку из нескольких слов, разделенных одним пробелом и разобрать ее на слова - Delphi - Ответ 696830510.12.2014, 16:21. Показов 1426. Ответов 6
Метки (Все метки)
Ответ
41 - Обрезаем ненужные символы (пробелы) в начале и конце строки
42 - Переменной _Word присваиваем пустую строку. В нее будем посимвольно заносить слово 44 - пока i (текущий номер символа в строке) <= длинне строки перебираем символы 46,47 - если текущий символ не пробел, то добавляем символ в слово _Word 49 - Если текущий символ пробел (конец слова) или достигнут конец строки (=конец последнего слова), то добавляем слово в Memo, а само слово обнуляем, чтобы искать дальше Сортировка - пузырьком. Идем по всем строкам Memo (66) и сравниваем i и i+1 строки (68), если условие выполняется, то меняем строки местами (70). И так пока нечего будет переставлять. Вернуться к обсуждению: Вести с клавиатуры строку из нескольких слов, разделенных одним пробелом и разобрать ее на слова Delphi
0
|
|
| 10.12.2014, 16:21 | |
|
Готовые ответы и решения:
6
Дан текст, состоящий из слов, разделённых одним пробелом. Удалить из текста слова, в которых есть символ «а».
|
| 10.12.2014, 16:21 | |
Наверх