code_17871.txt
------------ Дoбавленo в 10.32:
nesco, посьба - выкладывать коды в свернутом виде (или ХХХХ.txt или ХХХХ.sha)
А ведь обещал !
------------ Дoбавленo в 11.36:
Пока по компактности кода я на первом месте (от скромности я не умру
)
function PosEx(const SubStr, S: string; Offset: Cardinal = 1): Integer;
var str:string;
begin
If Offset=0 then Offset := 1; // защита от ......
Result := Pos(SubStr,CopyEnd(S,Offset));
If Result>0 then Result := Result + Offset - 1;
end;
)
Поиск
Друзья
Администрация