Einzelnen Beitrag anzeigen

shmia

Registriert seit: 2. Mär 2004
5.508 Beiträge
 
Delphi 5 Professional
 
#2

Re: [Freeware] ACE Component!

  Alt 5. Feb 2009, 17:11
Die Komponente reserviert gleich mal 64kB Speicher, obwohl dieser noch gar nicht benötigt wird:
Delphi-Quellcode:
TACE = class(TComponent)
private
  AceDllInstance: THandle;
  ...
  FileList: array[0..32767] of AnsiChar;
  CommentBuf: array[0..32767] of AnsiChar;
Man könnte die Variable z.B. in einen AnsiString wandeln und kurz bevor man den Speicherplatz braucht:
Delphi-Quellcode:
SetLength(FileList, 32768); // Speicherplatz beschaffen
List.Files.FileList := PChar(FileList);
Andreas
  Mit Zitat antworten Zitat