https://winsoftsk-services.appspot.com/highlight
Contoh :
1 | function Are2FilesEqual ( const File1 , File2 : TFileName ) : Boolean ; |
2 | var |
3 | ms1 , ms2 : TMemoryStream ; |
4 | begin |
5 | Result := False ; |
6 | ms1 := TMemoryStream . Create ; |
7 | try |
8 | ms1 . LoadFromFile ( File1 ) ; |
9 | ms2 := TMemoryStream . Create ; |
10 | try |
11 | ms2 . LoadFromFile ( File2 ) ; |
12 | if ms1 . Size = ms2 . Size then |
13 | Result := CompareMem ( ms1 . Memory , ms2 . memory , ms1 . Size ) ; |
14 | finally |
15 | ms2 . Free ; |
16 | end ; |
17 | finally |
18 | ms1 . Free ; |
19 | end |
20 | end ; |
Tinggalkan Balasan