ANTICHAT — форум по информационной безопасности, OSINT и технологиям

function ExtrStrN(s,d:string;n:word):string;
var i,j,o,r:word; t:string;
begin
result:='';
if pos(d,s)=0 then exit;
if pos(d,s)=1 then s:=copy(s,length(d),length(s));
t:=s;r:=1;
for i:=1 to n do begin
o:=pos(d,t);
if o=0 then exit;
result:='';
for j:=r to o-1 do result:=result+t[j];
r:=o+length(d);
for j:=o to r-1 do t[j]:=char(1);
end;
end;

s1:=ExtrStrN('parameter1:::parameter2:::parameter3:::parameter4:::',':::',1);

parameter1:::parameter2:::parameter3  :::parameter4:::

type
 MYLIST=record
  count:integer;
  data:array of string;
 end;

procedure Explode(gde:string;kak:string;var list:MYLIST);
var
 p:integer;
 n:integer;
begin
 n:=0;
 repeat
   p:=pos(kak,gde);
   if p>0 then
    begin
      inc(n);
      setlength(list.data,n);
      list.data[n-1]:=copy(gde,1,p-1);
      delete(gde,1,p+length(kak)-1);
    end;
  until p=0;
 list.count:=n;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
 mas:MYLIST;
begin
 Explode('::::::parameter1:::parameter2:::parameter3:::parameter4:::',':::',mas);
 showmessage(mas.data[3]);
end;