Mavzu: Dasturlash tillari faniga kirish. Ob’ektga yo‘naltirilgan dasturlash tillari

') 

else 

SubItems.Add('

file

'); 

end; 

Result := True; 

end; 

until (FindNext(SearchRec) <> 0); 

finally 

FindClose(SearchRec); 

end; 

ListView1.Items.EndUpdate; 

end; 

 

Бу  процедура  ўзгарувчилар  эълон  қилиш  бўлимида  локал  процедура  - 

function AttrStr(Attr:integer): string;. яратилгандир. 

Процедура танасида ListView1 икки усули чақирилган: 

ListView1.Items.BeginUpdate; 

ListView1.Items.Clear; 

Биринчи  усул  BeginUpdate  рўйхат  элементлари  ўзгариши  бошланганлиги 

ҳақида  хабар  беради.  То  EndUpdate  чақирилмагунча  ўзгаришлар  экранда  акс 

этмайди. 

Жорий рўйхат ListView1.Items.Clear усули билан тозаланади. 

Шундан сўнг файл излаш цикли бошланади: 

FindFirst – излашни бошлайди 

Биринчи параметр излаш маскаси, масалан 'C:\*.*'. еки 'C:\Fold\*.exe'. 

Иккинчи параметр  – файллар атрибутлари. 

 faAnyFile – ихтиёрий файллар. 

faReadOnly - атрибути ReadOnly бўлган файллар. 

faHidden – беркитилган файллар. 

faSysFile – система файллари. 

faArchive - архив файллари. 

faDirectory – директорияларни излаш. 

Охирги параметр излаш натижаси ҳақида маълумот қайтарувчи, яъни файл 

номи, ҳажми, яратилиш вақти ва ҳоказо. 

Излаш  функцияси  нуқта  ёки  икки  нуқта  қайтариши  мумкин.  Бундай 

натижа кўрилмайди: