Agar Code Delphi terformat di HTML   Leave a comment

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;

Posted 21 April 2012 by Tulus Budi in Motor

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

%d blogger menyukai ini: