Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Helene Rolles
0 / 0 / 2
Регистрация: 27.06.2011
Сообщений: 10
#1

Строки - Delphi

27.06.2011, 11:24. Просмотров 320. Ответов 2
Метки нет (Все метки)

Привет всем.Требуется ваша помощь).
Задание:Предложение состоит из слов, разделенных одним или несколькими пробелами. Написать программу, печатающую все слова, оканчивающиеся на заданный символ.

Писала на Паскале,всё работало прекрасно.переписала для делфи-выводит только последнее слово,которое на символ заканчивается.Например,"мама мыла раму"-паскаль выводит "мама мыла", а делфи-только "мыла".
http://www.cyberforum.ru/delphi-beginners/thread877686.html
Помогите пожалуйста).

Код:
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
  Var s,k,b:string;
   i,l,l2,n,nn:longint;
 
begin
  s:=edit1.Text;
  l:=length(s);
for i:=1 to l do if (s[i]=' ')and(s[i+1]=' ')then
  begin
  delete(s,i,1);
  l:=l-1;
end;
  if s[l]<>' ' then begin inc(l);
  s[l]:=' ';
  end;
  for i:=1 to l do if s[i]=' ' then
  begin
  k:=edit2.Text;
  l2:=length(b);
  if b[l2]=k then
  Label1.Caption:=b  else inc(n);
  b:=' ';
  inc(nn);
  end
  else b:=b+s[i];
  if n=nn then Label1.Caption:='Таких слов не обнаружено';
 
end;
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.06.2011, 11:24
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Строки (Delphi):

Записать в файл те строки, перед которыми идут строки, начинающиеся с буквы A
При разработке программы не использовать функции и процедуры, которые расширяют...

Дано 2 строки, определить, можно ли из символов первой строки, сформулировать 2 строку
1) Дано 2 строки, определить можно ли из символов первой строки, сформулировать...

Перенос строки в Memo1 при достижении определённой длины строки
Здравствуйте. помогите. забуксовал. как правильно перенести строку в Memo1...

Даны строки S, S1 и S2. Заменить в строке S последнее вхождение строки S1 на строку S2
Здравствуйте. Помогите написать программу в форме. Даны строки S, S1 и S2....

Обработка строки. Как вырезать из имеющейся строки определенные символы
Имеется строка {текст} Как получить текст без {}?

2
Puporev
Модератор
54129 / 41762 / 28874
Регистрация: 18.05.2008
Сообщений: 98,289
27.06.2011, 11:49 #2
Вы выводите только одно последнее слово, нужно так.
Delphi
1
2
if b[l2]=k then
  Label1.Caption:=Label1.Caption+' '+b
1
Helene Rolles
0 / 0 / 2
Регистрация: 27.06.2011
Сообщений: 10
27.06.2011, 11:55  [ТС] #3
Теперь работает!Спасибо!)
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
27.06.2011, 11:55
Привет! Вот еще темы с решениями:

Прочитать 3 строки, объединить 1 со 2, 2 с 3, 1 с 3. Вывести все три новые строки
Прочитать 3 строки, объединить 1 со 2, 2 с 3, 1 с 3. Вывести все три новые...

Даны строки S, S0 и S2. Заменить в строке S все вхождения строки S0 на строку S2
Условие Даны строки S, S0 и S2. Заменить в строке S все вхождения строки S0 на...

Искать строки с первого файла во втором, если не найдено — записать строки в 3 файл
у меня есть 3 файла первый второй надо в третий записать только то чего...

Упорядочить строки сетки по возрастанию дат, а строки с одинаковыми датами - по убыванию оценок
Помогите пожалуйста сделать, уже сил нету никаких:( Сделать надо в delphi с...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru