Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 14.02.2013, 01:33   #1
Anton94.by
Форумчанин
 
Регистрация: 16.10.2011
Сообщений: 115
Восклицание Разработать приложение обработки строк в delphi 7

Программа в Delphi7.
Тема: «Разработка приложения обработки строк. Использование компонент Memo, ListBox, ComboBox»

ПОСТАНОВКА ЗАДАЧИ
Разработать приложение обработки строк. Использовать компоненты Memo, ListBox, ComboBox, Организовать ввод строки в компоненту Memo, а вывод результатов в ListBox. Условия задач выводить в компоненте StaticText. Организовать переключение задач с помощью RadioButton и RadioGroup (группы радиокнопок). Выбор задач осуществить с помощью ComboBox. Использовать кнопки BitBtn для выхода, записи и чтения исходной строковой информации.
Само задание:
1) В заданном тексте найти пару слов, из которых одно является обращением другого.
2) Список фамилий, разделенных запятыми, задан в произвольном порядке. Упорядочить его по алфавиту.
Anton94.by вне форума Ответить с цитированием
Старый 14.02.2013, 01:34   #2
Anton94.by
Форумчанин
 
Регистрация: 16.10.2011
Сообщений: 115
По умолчанию

Код:
uses
 StrUtils;

procedure TForm1.Button1Click(Sender: TObject);
var
 I, J: Integer;
 List: TStringList;
begin
 List := TStringList.Create;
 List.Delimiter := ' '; // пробел в качестве разделителя
 List.DelimitedText := Memo1.Text;
 for I := 0 to List.Count - 1 do
 begin
   for J := I + 1 to List.Count - 1 do
   begin
     if List.Strings[I] = ReverseString(List.Strings[J]) then
       ListBox1.Items.Add(List.Strings[I] + ' ' + List.Strings[J]);
   end;
 end;
 List.Free;
end;
Anton94.by вне форума Ответить с цитированием
Старый 14.02.2013, 01:37   #3
Anton94.by
Форумчанин
 
Регистрация: 16.10.2011
Сообщений: 115
По умолчанию

Где можно скачать саму программу Delphi 7, можно ссылку.
Anton94.by вне форума Ответить с цитированием
Старый 14.02.2013, 01:38   #4
Anton94.by
Форумчанин
 
Регистрация: 16.10.2011
Сообщений: 115
По умолчанию

Если можете, то помогите сделать это задание в самой программе Delphi 7. Спасибо.
Anton94.by вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Разработать технологию цепи цифровой обработки сигналов (платно) yafor Фриланс 0 07.01.2012 15:08
Разработать список для обработки сведений о жителях города + обеспечить его корректировку Ergo Proxy Помощь студентам 7 18.03.2011 13:57
Разработать программу для обработки растровых изображений, хранящихся в файлах формата BMP (BitMaP). yeskin Фриланс 5 19.12.2010 15:06
Задача:в вижуал с++ Разработать приложение-сервер и приложение (смотри дальше сообщение) Мила777 Фриланс 2 21.10.2009 11:05
Разработать в среде Borland Delphi приложение для расчета стоимости покупок. patron Помощь студентам 3 30.03.2008 15:12