VPF::Проблемма с POS - Форум программистов

Poseidon

Дата 14.5.2013, 15:02 (ссылка)

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

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

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

А что на счет регулярок? Что-нибудь типо

Код


(.*?);

Добавлено через 12 минут и 1 секунду
Вот накидал тут на скору руку

Код


uses RegExpr;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Memo1.Text:= 'слово;второе слово;третье слово;четвертое слово;';
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  RegExpr: TRegExpr;
  verbs: array of array of string;
  i,j: Integer;
begin
  RegExpr:= TRegExpr.Create;
  try
    RegExpr.Expression:= '(.*?);';
    SetLength(verbs, Memo1.Lines.Count, 4);

    for i:= 0 to Memo1.Lines.Count-1 do
      if RegExpr.Exec(Memo1.Lines[i]) then
        for j:= 0 to 3 do
          begin
            verbs[i,j]:= RegExpr.Match[1];
            RegExpr.ExecNext
          end;
  finally
    RegExpr.Free;
  end;
end;

Добавлено через 14 минут и 5 секунд
Есть конечно узкие места, вроди тех, если входная строка не будет удовлетворять шаблону, но уже не стал обрабатывать подобные нюансы.

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

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

morpheyushka

Дата 22.5.2013, 14:42 (ссылка)

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

Загрузка ...

Зеленый человек

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

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

а такой вариант?

Код


procedure TForm1.Button1Click(Sender: TObject);
var
  str : String;
  SL: TStringList;
  i: Integer;
begin
  str := 'слово;второе слово;третье слово;четвертое слово;';
  SL := TStringList.Create;
  try
    SL.Text := StringReplace(str, ';', #13#10, [rfReplaceAll]);

    for i := 0 to SL.Count - 1 do
      ShowMessage(SL[i]);
  finally
    SL.Free;
  end;
end;

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

Спасибо делается вот так!!!

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