Lazarus - функция разбора на основе разделителя - PullRequest
Новая
       27

Lazarus - функция разбора на основе разделителя

0 голосов
/ 08 июня 2011

Я создаю небольшое приложение в Lazarus и мне нужна функция разбора на основе подчеркивания. Например: 

array := Split(string, delimiter);

Итак, string = "this_is_the_first_post" и разделитель - это подчеркивание, в результате чего массив возвращается как: 

array[0] = this
array[1] = is
array[2] = the
array[3] = first
array[4] = post

Кто-нибудь знает, как это сделать? Я пробовал несколько примеров кода, и он всегда выдает ошибку.

Спасибо.

1 Ответ

9 голосов
/ 08 июня 2011

Вы можете использовать следующий код: 

var
  List1: TStringList;    
begin
  List1 := TStringList.Create;    
  try
    List1.Delimiter := '_';
    List1.DelimitedText := 'this_is_the_first_post';

    ShowMessage(List1[0]);
    ShowMessage(List1[1]);
    ShowMessage(List1[2]);
    ShowMessage(List1[3]);
    ShowMessage(List1[4]);
  finally
    List1.Free;
  end;
end;

В этом примере выходные данные будут показаны в виде набора сообщений, но вы получите общее представление.

...