VPF::[Delphi] Cтроки - Форум программистов

nitrak

Дата 28.2.2007, 16:23 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 18
Регистрация: 25.12.2006

Репутация: нет
Всего: нет

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

Weman

Дата 28.2.2007, 21:30 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 133
Регистрация: 29.11.2005
Где: Санкт-Петрбург

Репутация: нет
Всего: нет

Цитата

а слова, начинающиеся с согласных букв, записать заглавными буквами

куда записать? smile

в новую строку?

--------------------

nitrak

Дата 1.3.2007, 20:00 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 18
Регистрация: 25.12.2006

Репутация: нет
Всего: нет

ну да

Alexeis

Дата 2.3.2007, 13:07 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 23
Всего: 459

Код


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    btn1: TButton;
    edt1: TEdit;
    edt2: TEdit;
    procedure btn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  Edt1.Text := 'В лесу родилась елочка , в лесу она росла :)';
end;

procedure TForm1.btn1Click(Sender: TObject);
var
  L1 : TStringList;
  gl, sgl : Set of char;
  i : integer;
  tstr : AnsiString;
begin
  edt2.Text := '';
  L1 := TStringList.Create;
  L1.Delimiter := ' ';
  L1.DelimitedText := edt1.Text;
  gl := ['а','е','ё','и','о','у','ы','э','ю','я',
         'А','Е','Ё','И','О','У','Ы','Э','Ю','Я'];
  sgl := ['б','в','г','д','ж','з','й','к','л','м','н','п',
         'р','с','т','ф','х','ц','ч','ш','щ'];
  i := L1.Count - 1;
  while (i >= 0)
  do
    Begin
      if L1[i] = ''
      then
        Begin
          Dec(i);
          Continue
        end
      else if L1[i][1] in gl
      then
        Begin
          L1.Delete(i);
        end
      else if L1[i][1] in sgl
      then
        Begin
          L1[i]   := AnsiUppercase(L1[i]);
          edt2.Text := L1[i] + ' ' + edt2.Text;
        end
      else
        edt2.Text := L1[i] + ' ' + edt2.Text;
      Dec(i);
    end;
   edt2.Text := Copy(edt2.Text, 1, length(edt2.Text) - 1);
   L1.Free;
end;
end.

Это сообщение отредактировал(а) Alexeis - 2.3.2007, 13:08

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »