Поиск по строке

[kettanaito]

function TSnippet.RetrieveIndex(Expression:String):string;
var
  i,j: integer;
  s:String;
begin
// t_caret = 'some word';
s:=Expression;
  i:=1;
  j:=PosEx(AnsiUpperCase(t_caret),AnsiUpperCase(s),1);
  while j>0 do begin
    i:=j+Length(AnsiUpperCase(t_caret));
    j:=PosEx(AnsiUpperCase(t_caret),AnsiUpperCase(s),i);
  end;
  Result:=s;
end;

В примере массива как такового нету, а самостоятельно я добавляю его не верно.

[Аватар]

type TMyArrayIndexs = array of Integer;

function ParseText(Key,Text: String; var Indexs: TMyArrayIndexs): Integer;
var xKey,xText: String;
    i,j: Integer;
begin
  xKey:=AnsiUpperCase(Key);
  xText:=AnsiUpperCase(Text);
  Result:=0;
  i:=1;
  j:=PosEx(xKey,xText,1);
  while j>0 do begin
    Inc(Result);
    SetLength(Indexs,Result);
    Indexs[Result-1]:=j;
    i:=j+Length(xKey);
    j:=PosEx(xKey,xText,i);
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var xIndexs: TMyArrayIndexs;
    i,xCount: Integer;
begin
  xCount:=ParseText('Франция','Франция - прекрасная страна. Именно Франция бла-бла-бла',xIndexs);
  Label1.Caption:='';
  for i:=0 to xCount-1 do Label1.Caption:=Label1.Caption+IntToStr(xIndexs[i])+' ';
end;