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

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