Hi,
ich benutze folgenden Code um zwei Dateien zu vergleichen!
Delphi-Quellcode:
Function Tform1.AreFilesEqual( Const file1, file2: String ): Boolean;
Var
m1, m2: TMemoryStream;
Begin
Result := False;
m1 := TMemoryStream.Create;
try
m1.LoadFromFile( file1 );
m2:= TMemoryStream.Create;
try
m2.LoadFromFile( file2 );
If m1.size = m2.size Then
Result := CompareMem( m1.Memory, m2.memory, m1.size );
finally
m2.free;
end;
finally
m1.free;
end
End;
Mittels Listbox und While-Schleife vergleiche ich so Mehrere Dateien!
Mein Problem ist das das Programm zu viel Speicher einnimmt!
Meine Frage wie kann ich nur die belgeten bytes wieder freigeben bevor die Procedure noch läuft?
Vielen Dank für Hilfe im Vorraus!
@wardz
T-2 Tage
