1. 51.
    0
    chdir (ikinci);
    findfirst ('*.*', directory, filesearch);
    while (doserror = 0) do begin
    if (filesearch. name <> '.') and (filesearch. name <> '..') and
    ( (filesearch. attr and directory) <> 0)
    then begin
    if dirname[length(dirname)] = '' then
    ···
   tümünü göster