Einzelnen Beitrag anzeigen

padavan

Registriert seit: 12. Jan 2005
271 Beiträge
 
Delphi 7 Enterprise
 
#12

Re: Mein Programm gibt erzeugtes xls - File nicht frei

  Alt 19. Okt 2005, 06:12
Guten Morgen Leute,
dank euch klappt´s nun einwandfrei...

Delphi-Quellcode:
var
  CXlsBof : array[0..5] of Word = ($809, 8, 00, $10, 1, 0);
  CXlsEof : array[0..1] of Word = ($0A, 00);
  CXlsLabel : array[0..5] of Word = ($204, 0, 0, 0, 0, 0);
  CXlsNumber : array[0..4] of Word = ($203, 14, 0, 0, 0);
  CXlsRk : array[0..4] of Word = ($27E, 10, 0, 0, 0);
...
CXlsRk[2] := Row;
und

Delphi-Quellcode:
destructor TXLSExport.Destroy;
begin
  fs.WriteBuffer(CXlsEof, SizeOf(CXlsEof));
  fs.Free;
  inherited Destroy;
end;
So wird die erzeugte Datei freigegeben und die Unit wird beim Übersetzen nicht mehr angemeckert...
(warum sie aber sie aber nur bei D7 und nicht bei D2005 bemängelt wurde versteh ich trotzdem nicht..)
  Mit Zitat antworten Zitat