Forum > Russian

А есть ли готовые решения по "кроссплатформенной" проверке путей?

<< < (2/2)

ASerge:

--- Code: Pascal  [+][-]window.onload = function(){var x1 = document.getElementById("main_content_section"); if (x1) { var x = document.getElementsByClassName("geshi");for (var i = 0; i < x.length; i++) { x[i].style.maxHeight='none'; x[i].style.height = Math.min(x[i].clientHeight+15,306)+'px'; x[i].style.resize = "vertical";}};} ---function DirExists(const Where, What: string): Boolean;var  R: TSearchRec;begin  if FindFirst(IncludeTrailingPathDelimiter(Where) + AllFilesMask, faDirectory, R) <> 0 then    Result := False  else    try      repeat        Result := ((R.Attr and faDirectory) <> 0) and SameFileName(R.Name, What)      until Result or (FindNext(R) <> 0);    finally      FindClose(R);    end;end;

shraibikus:

--- Quote from: ASerge on March 21, 2019, 08:14:50 pm ---
--- Code: Pascal  [+][-]window.onload = function(){var x1 = document.getElementById("main_content_section"); if (x1) { var x = document.getElementsByClassName("geshi");for (var i = 0; i < x.length; i++) { x[i].style.maxHeight='none'; x[i].style.height = Math.min(x[i].clientHeight+15,306)+'px'; x[i].style.resize = "vertical";}};} ---function DirExists(const Where, What: string): Boolean;var  R: TSearchRec;begin  if FindFirst(IncludeTrailingPathDelimiter(Where) + AllFilesMask, faDirectory, R) <> 0 then    Result := False  else    try      repeat        Result := ((R.Attr and faDirectory) <> 0) and SameFileName(R.Name, What)      until Result or (FindNext(R) <> 0);    finally      FindClose(R);    end;end;
--- End quote ---
Спасибо :-)

Navigation

[0] Message Index

[*] Previous page

Go to full version