Agar Code Delphi terformat di HTML

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;

Iklan