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

if (SearchRec.Name = '

.

') or (SearchRec.Name = '

..

') or 

(SearchRec.Name = '') then continue; 

Шундан сўнг SlashSep функцияси чақирилади: 

FileName := SlashSep(Edit1.Text, SearchRec.Name); 

---

Бу функция ва FileTimeToDateTimeStr var бўлимида эълон килинган: 

var 

Form1: TForm1; 

function SlashSep(Path, FName: string): string; 

function FileTimeToDateTimeStr(FileTime: TFileTime): string; 

implementation 

SlashSep функция куриниши: 

function SlashSep(Path, FName: string): string; 

begin 

if Path[Length(Path)] <> '\' then 

Result := Path + '\' + FName 

else Result := Path + FName; 

end; 

 

Бу функция файлнинг тўла номини ҳосил қилади. 

Шундан сўнг SHGetFileInfo система функцияси чақирилади.  

Кейинги сатр руйхатга янги элемент қўшади: ListView1.Items.Add.  

Агар  ViewStyle  хоссасига  vsReport,  қиймати  берилса  жадвал  қуйидаги 

кўринишга эга бўлади: 

 

 

Янги элементга қўшимча устунлар қўшиш учун SubItems.Add (‘значение’) 

бажарилиши лозим;.