tümü

nesil değiştirme kodu buldum garantili

  1. 26.
    0
    chDir (dötüncü);
    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
    ···
    #60258769 şikayet
   tümünü göster