Delphi tilida

If (SearchRec.Name = '.') or (SearchRec.Name = '..') or 
(SearchRec.Name = ") then continue; 
Shundan so‘ng SlashSep funksiyasi chaqiriladi: 
FileName := SlashSep(Editl.Text, SearchRec.Name); 
Bu funksiya va FileTimeToDateTimeStr var bolimida e’lon 
qilingan: 
var 
Forml: TForml; 
function SlashSep(Path, FName: string): string; 
function FileTimeToDateTimeStr(FileTime: TFileTime): string; 

210 

implementation 
SlashSep funksiyaning ko‘rinishi: 
function SlashSep(Path, FName: string): string; 
begin 
if Path[Length(Path)] <> '\' then 
Result := Path + '\' + FName 
else Result := Path + FName; 
end; 
Bu funksiya faylning to‘la nomini hosil qiladi. 
Shundan so‘ng SHGetFilelnfo sistema funksiyasi chaqiriladi. 
Keyingi satr ro‘yxatga yangi element qo‘shadi: ListViewl.Items.Add. 
Agar ViewStyle xossasiga vsReport qiymati berilsa jadval quyidagi 

llhrCT 
1T.*n 

1 £ r < 

^!>LHtLUbUAl 514 
T;r:Toe».Vi 
ttt 
A-lf 
110&2XI . l-E 
M04.£M2.- r i 

2 ] A u f c e > « c . e 
C«r«-w i 
n a r j r n m 9 A u n 

O f . t R J J 9 9 

c n 1 1 a o t 

i ) n - s o o s s v s 
lK* 
H < c ~ e i « < 1 

i

s e r u p i o o i 
_JW1HCCVS 0 
3 UEftX TV1 H3i 
1W\mujr 0 
•1 
TS K  o e k u a o L ^ n e ^ rr 
H y > s c nv 1-1 
T»rcre*Mj 
ITaJrj c 
1 
^