1. Pascal / Говнокод #19861

    −48

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    function CanonicPath(const PathName:string):string; forward;
begin
	SetLength(Result,Length(PathName));
	if PathCanonicalize(PChar(Result), PChar(PathName)) then
	SetLength(Result, PChar(StrLen(Result)))
	else
	Result:=PathName;
end;

var
	i:integer;
	path:string;
begin
 {...}
	for i:=1 to 200 do
	Path:=PathCanonicalize(Path);
{...}

    "а вот и таран!.. Святые отцы-каноники посылают нам его!"

    Запостил: fajes_rown, 22 Апреля 2016

    Комментарии (6) RSS

    Добавить комментарий