| Код |
function getwordnum(slovo,razd,nomer: string): string;
var i,c,int1,int2:integer;
res,ss:string;
begin
result:=slovo;
if (length(trim(slovo))=0) or (length(trim(razd))<>1)then exit;
slovo:=trim(razd)+trim(slovo)+trim(razd);
c:=0;
int1:=0;
int2:=0;
for i:=1 to length(slovo) do
begin
ss:=copy(slovo,i,1);
if ss=razd then
begin
inc(c);
if c=strtoint(nomer) then int1:=i;
if c=strtoint(nomer)+1 then int2:=i;
end;
end;
result:=copy(slovo,int1+1,int2-int1-1);
end;
...
var
var1,var2:string;
begin
var1:=getwordnum('uin1;pass1',':','1'));
var2:=getwordnum('uin1;pass1',':','2'));
end;
|
|
)