Excel-Datei in Dienst + Thread erzeugen und speichern

[Sir Rufo]

Dein Resourcenschutzblock und Exceptionblock sind falsch. So ist das richtig:

Delphi-Quellcode:

function TResultT.TestExcelfile(intCustID: integer; strResultFile: string): boolean;
var
  strFile    : string;
  strPath    : string;
  strFileName: string;
  XLSFile    : TXLS;
begin
  Result := True;

  strFileName := 'D:\Ausgabe\test.xls';
  try
    XLSFile           := CreateXLS(PAnsiChar(strFileName),xlsfmcreate);
    try
      XLSFile.Creator   := PAnsiChar('Test99');
      XLSFile.Font.Name := (PAnsiChar('Segoe UI'));
      XLSFile.WorkSheetAdd(PAnsiChar('Stichprobenergebnis'));

       // Kopfdaten
      XLSFile.Write(0,1,1, PAnsiChar('Test'));
      XLSFile.Write(0,1,3, PAnsiChar('Kunde'));

      XLSFile.Write(0,2,3, PAnsiChar(GetCustNameByID(intCustID, conData)));

      XLSFile.Write(0,1,4, PAnsiChar('Stichprobe vom:'));

      XLSFile.Write(0,1,5, PAnsiChar('Prüfer/in:'));

      XLSFile.Write(0,1,6, PAnsiChar('Vereinbartes Qualitätsniveau:'));

      XLSFile.WriteFile;
    finally
      XLSFile.Free;
    end;
  except
    on E:Exception do
      begin
        WriteLog('Fehler bei Erzeugen Excel-Tabelle, Meldung: ' + E.Message, 1);
        Result := False;
      end;
  end;
end;