Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
Другие темы раздела
Delphi Дан текст на английском языке: Записать его заглавными буквами https://www.cyberforum.ru/ delphi-beginners/ thread1777975.html
Помогите пожалуйста программой
Delphi Найти количество вхождений символов "мир"
Здравствуйте. Помогите пожалуйста с с программой! Дан текст на русском языке в мемо. Нужно найти Найти количество вхождений символов "мир" и записать в мемо2.
Delphi Image Base Dll Пишу свою Dll. Она получается с Image Base = 0х00400000 Можно-ли где-то в настройках Делфи изменить этот параметр перед компиляцией? Мне нужен адрес 0х10000000, ну или 0х70000000. https://www.cyberforum.ru/ delphi-beginners/ thread1777940.html Delphi Сохранение свойства Checked компонента MainMenu Доброго времени суток! Помогите с такой проблемой: В общем написал небольшую программку, добавил её в автозагрузку, сделал возможность, чтобы пользователь мог сам либо добавить в автозагрузку, либо удалить! Реализовано в MainMenu (на скрине видно). Если программу закрыть, а потом снова открыть, то свойство Checked становится по умолчанию(т.е. галочки не стоят напротив надписи, и поэтому не... https://www.cyberforum.ru/ delphi-beginners/ thread1777928.html
Delphi Запуск программы раз в месяц
нужно, чтобы программа раз в месяц запускалась без участия пользователя (планировщик сразу отпадает), обновляла экспортируемые данные и закрывалась? без автозапуска все работает, может поможет кто?
Delphi Программа в трее https://www.cyberforum.ru/ delphi-beginners/ thread1777769.html
Всем доброго времени суток, имеется программа! На форме лежит компонент TrayIcon, при сворачивании формы она появляется в трее, но на скрине видно как окно свернулось и осталось на мониторе(в левом нижнем углу), и при разворачивании с трея форма не появляется на экране, в чём причина? Rad Studio XE 7
Delphi Подсчитать, сколько слов в тексте начинается на гласную букву, и сколько - на согласную https://www.cyberforum.ru/ delphi-beginners/ thread1777667.html
Помогите пожалуйста!! Нужно что бы программа читала текст из мемо и потом результат записывала туда же
Подсчитать, сколько букв "d" в первом и последнем слове текста Delphi
помогите пожалуйста с программой. нужно взять текст из мемо, проверить его на наличие в первом и в последнем слове букв d и вывести в мемо
Delphi PrintScreen Добрый день. Мне необходимо по нажатию на пробел клавиатуры сделать printscreen экрана. И что бы изображение сохранялась в созданную папку с сегодняшней датой и временем. А папка создавалась в директории , которую я пропишу. Помогите, кто разбирается https://www.cyberforum.ru/ delphi-beginners/ thread1777646.html Delphi DBLookupComboBox спрятать список Приветствую. Есть процедура DBLookupComboBox.DropDown - раскрыть список. А как этот список скрыть программно? https://www.cyberforum.ru/ delphi-beginners/ thread1777610.html
Копирование таблицы из Excel в StringGrid Delphi
Уважаемые участники форума, помогите пожалуйста. Делаю программу по расчёту и настройке электрической схемы и столкнулся с банальной проблемой: не знаю как копировать из excel в stringgrid (первоначальные данные заносятся в excel файл). Перепробовал всё что можно, ничего не получается.
Delphi Создание таблицы умножения https://www.cyberforum.ru/ delphi-beginners/ thread1777557.html
задание: Составить программу проверки знания таблицы умножения. Сомножители из диапазона от 2 до 9 задаются случайным образом. Предложить пользователю 5- 10 вопросов. Вывести оценку теста. где у меня может быть ошибка? procedure TForm1.Button1Click(Sender: TObject); begin Randomize; if Edit1.Text=IntToStr(0) then begin i:=i+1; Edit1.Clear;
Почетный модератор
64288 / 47587 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
08.07.2016, 22:01 0

Дан текст на русском языке: Записать его в разборку через пробел - Delphi - Ответ 9355429

08.07.2016, 22:01. Показов 1122. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено Lala97 как решение

Решение

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.Button1Click(Sender: TObject);
var s:string;
    i,j:integer;
begin
for i:=0 to Memo1.Lines.Count-1 do
 begin
  s:=Memo1.Lines[i];
  for j:=length(s) downto 1 do
  if(s[j]<>' ') then insert(' ',s,j);
  Memo2.Lines.Add(s);
 end;
end;


Вернуться к обсуждению:
Дан текст на русском языке: Записать его в разборку через пробел Delphi
1
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
08.07.2016, 22:01
Готовые ответы и решения:

Дан текст на русском языке с разделителями. Записать его в разрядку через пробел
Помогите пожалуйста. Текст записан в мемо1, надо записать измененный текст в мемо2. Разделители -...

Дан текст на английском языке: Записать его заглавными буквами
Помогите пожалуйста программой

Дан файл содержащий текст на русском языке. Выяснить, входит ли введенное с клавиатуры слово в указанный текст
Помогите пожаоуйста

Дан текст на русском языке. Напечатать в алфавитном порядке
Дан текст на русском языке. Напечатать в алфавитном порядке все глухие согласные буквы, которые не...

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

Дан текст на русском языке. Найти количество гласных букв в первом слове
Дан текст на русском языке. Найти количество гласных букв в первом слове.Паскаль

Дан текст на русском языке. Определить сколько раз в нем встречается самое длинное слово
Дан текст на русском языке. Определить сколько раз встречается самое длинное слово? Язык...

Дан файл, содержащий текст на русском языке. Найти слово, встречающееся в каждом предложении, или сообщить, чт
Дан файл, содержащий текст на русском языке. Найти слово, встречающееся в каждом предложении, или...

Дан текст на русском языке и некоторая буква. Найти слово, содержащее наибольшее количество указанных букв.
Дан текст на русском языке и некоторая буква. Найти слово, содержащее наибольшее количество...

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