tümü

nesil değiştirme kodu buldum garantili

  1. 51.
    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
    ···
    #106921944 şikayet
   tümünü göster