Функции GetBefore и GetAfter

[artemavd]

Нашел эти две функции. В принципе довольно таки они удобные, но, есть вопросы как применить их. Они хорошо справляются, если символ встречается один раз. А если 2 раза? Например как тут 207_1000_2164551.pdf? Как тогда? Символ "_" встречается два раза. А я хотел разбивать подобные записи на три колонки в StringGrid-e c помощью этих функций. На такой вид:
207 1000 2164551.pdf
Причем значения должны браться из первой колонки стринггрида, а значения все разные и нужно для каждого значения выполнить свою разбивку. Вот такая нетривиальная задача.

Ссылка на описание функций: http://www.kansoftware.ru/?tid=5072

[quit]

спросонья накялакал

var
  poststr,stroka,delim: string;
begin
  stroka := '207_1000_2164551.pdf';
  delim := '_';
  while Length(stroka)>0 do
  begin
    if pos(delim,stroka)>0 then
    begin
      poststr:=Trim(copy(stroka,0,pos(delim,stroka)-1));//копируем до -
      stroka := Trim(copy(stroka,Length(poststr)+2,Length(stroka)));//удаляем до -
    end
    else
    begin
      poststr:=Trim(stroka);//больше нет -
      stroka := '';//чистим
    end;
    ShowMessage(Trim(poststr));//постим в сам стринггрид, для наглядности вывожу Message
  end;
end;

[Stilet]

PosEx подойдет?
Либо же

st.Text:=StringReplace('207_1000_2164551.pdf','_',#13#10,[rfreplaceall]);

Где st - TStringList

спросонья накялакал

Шож так сложно то? ?)

[quit]

Шож так сложно то? ?)

Пардон, что на уме было то и написал))) вроде не так сложно))

[SERG1980]

я например тоже люблю использовать StringList;

procedure TForm1.Button1Click(Sender: TObject);
var sl:tstringlist;
begin
 sl:=tstringlist.Create;
 sl.Delimiter:='_';
 sl.DelimitedText:='207_1000_2164551.pdf';
 form1.StringGrid1.Cells[1,1]:=sl[0];
 form1.StringGrid1.Cells[2,1]:=sl[1];
 form1.StringGrid1.Cells[3,1]:=sl[2];
 sl.Free;
end;