AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Dateien vegleichen belegt zu viel speicher!

Ein Thema von ATwardz · begonnen am 3. Okt 2003 · letzter Beitrag vom 3. Okt 2003
 
ATwardz

Registriert seit: 12. Mai 2003
205 Beiträge
 
Delphi 7 Professional
 
#1

Dateien vegleichen belegt zu viel speicher!

  Alt 3. Okt 2003, 18:44
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
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 11:23 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz