[Кодер]

Что-то немогу реализовать задачку:

Есть строка, в которой предложения разделены 3 символами #%# и требуется вытащить эти предложения из строки в строковой массив.

пр. 105#%#Компьютер#%#Требуется помощь
Результат: mas[1]=105 mas[2]=Компьютер mas[3]=Требуется помощь

Если не сложно, помогите)

[san-46]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  S, St : String;
  SL : TStringList;
  I : Integer;
begin
  St := '105#%#Компьютер#%#Требуется помощь'; //оригинальная строка

  S := StringReplace(St, '#%#', '","', [rfReplaceAll]);
  S := '"' + S + '"';
  SL := TStringList.Create;
  SL.CommaText := S;

  for I := 0 to SL.Count-1 do
    mas[I+1] := SL[i];

  SL.Free;
end;

[Кодер]

Спс, помогло)