| Код |
function GetWordNum(Slovo, Razd: String; Nomer: Integer): String;
var
i, c, int1, int2: Integer;
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
if copy(slovo, i, Length(razd)) = razd then
begin
inc(c);
if c = nomer then int1:=i;
if c = (nomer+1) then int2:=i;
end;
end;
result:= copy(slovo,int1+1,int2-int1-1);
end;
|
Пример использования:
| Код |
sss:= GetWordNum(stroka,',',2);
|
В переменной второе слово из строки, отделённое запятой.
|
