Код | 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);
|
В переменной второе слово из строки, отделённое запятой.
|