VPF::Алгоритм поиска года в строке!?

Keeper89

Дата 12.9.2009, 18:13 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

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

Переделал вот так:

Код


procedure GetAllYears(const str: String; var yList: TStringList);
const
  YEAR_LENGTH = 4;
var
  i: Integer;
  yearStr: String;
  myYear: Integer;
begin
  yList.Clear;
  for i := 0 to Length(str) - YEAR_LENGTH do
  begin
    yearStr := Copy(str, i, YEAR_LENGTH);
    if (yearStr[1] in ['1', '2']) and
       (yearStr[2] in ['0', '9']) and
       (yearStr[3] in ['0'..'9']) and
       (yearStr[4] in ['0'..'9']) then
      yList.Add(yearStr)
  end;
end;

procedure TForm2.Button1Click(Sender: TObject);
var
  l: TStringList;
begin
  l := TStringList.Create;
  GetAllYears(memo1.Text, l);
  Listbox1.items.assign(l);
end;

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

Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image

Romikgy

Дата 12.9.2009, 18:24 (ссылка)

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

Загрузка ...

Любитель-программер

Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

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

Код


procedure GetAllYears(const str: String;  yList: TStrings);
const
  YEAR_LENGTH = 4;
var
  i: Integer;
  yearStr: String;
  myYear: Integer;
begin
  yList.Clear;
  for i := 1 to Length(str) - YEAR_LENGTH+1 do
  begin
    yearStr := Copy(str, i, YEAR_LENGTH);
    if
       (StrToIntDef(Copy(yearStr, 1, 2),0) in [19, 20]) then
      yList.Add(yearStr)
  end;
end;

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

Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности.

Alexeis

Дата 12.9.2009, 19:30 (ссылка)

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

Загрузка ...

Амеба

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

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

Цитата(Nicholas @ 12.9.2009, 15:07

)

Первый раз такое вижу! smile Как это выглядит в коде?

Цитата(Romikgy @ 12.9.2009, 13:33

)

regexp те в помощь ,

Нагугли компонентик такой. Ему присваиваешь регулярку
'[^1234567890] {1}(19|20)[1234567890]{2}[^1234567890] {1}'
и текст, запускаешь exec и он тебе ищет.

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

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

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

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

Nicholas

Дата 13.9.2009, 08:16 (ссылка)

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

Загрузка ...

Опытный

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

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

Цитата(Romikgy @ 12.9.2009, 18:24)

Код


procedure GetAllYears(const str: String;  yList: TStrings);
const
  YEAR_LENGTH = 4;
var
  i: Integer;
  yearStr: String;
  myYear: Integer;
begin
  yList.Clear;
  for i := 1 to Length(str) - YEAR_LENGTH+1 do
  begin
    yearStr := Copy(str, i, YEAR_LENGTH);
    if
       (StrToIntDef(Copy(yearStr, 1, 2),0) in [19, 20]) then
      yList.Add(yearStr)
  end;
end;

Оптимально! smile

Akella

Дата 13.9.2009, 09:08 (ссылка)

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

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

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

Цитата(Alexeis @ 12.9.2009, 19:30

)

Нагугли компонентик такой.

http://forum.vingrad.ru/index.php?showtopi...t&p=1863448

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