Excel Automation

[Chemiker]

Hallo,

if VarIsEmpty(MSExcel) = false then nicht auf TRUE oder FALSE prüfen, dass kann zu Probleme führen.
besser:
if not (VarIsEmpty(MSExcel) then
DisplayAlerts wird auf TRUE oder FALSE gestellt, mit SaveChanges hat das nichts zu tun.

Excel schließen ohne nachfragen:

Delphi-Quellcode:

excel.ActiveWorkBook.Saved:= TRUE; 
excel.Workbooks.Close;
excel.Quit;
excel:= Unassigned;

Bis bald Chemiker

[Bernhard Geyer]

Zitat von Chemiker:

Hallo,

if VarIsEmpty(MSExcel) = false then nicht auf TRUE oder FALSE prüfen, dass kann zu Probleme führen.

Kannst du ein beispiel liefern wie man dieses Problem in Delphi herstellen kann.
In C/C++ ist klar. Da wird ja in jeder Bibliothek mindestens 10* TRUE und FALSE neu wenn du pech hast mit FALSE=0; TRUE=1 neu definiert.

Zitat von Chemiker:

Excel schließen ohne nachfragen:

Delphi-Quellcode:

excel.ActiveWorkBook.Saved:= TRUE; 
excel.Workbooks.Close;
excel.Quit;
excel:= Unassigned;

Bis bald Chemiker

wenn man mit Variants arbeitet kann man ein Exceldatei mittels
FWorkBook.Close(SaveChanges:=False); schließen und die Rückfrage vermeiden.

[p80286]

Hallo Bernhard,

mach doch mal

Delphi-Quellcode:

if boolean(4) then showmessage('4 ist true');
if boolean(4)=true then showmessage(inttostr(integer(true)) ist gleich 4');

Gruß
K-H

[Chemiker]

Hallo,

Zitat:

Kannst du ein beispiel liefern wie man dieses Problem in Delphi herstellen kann.
In C/C++ ist klar. Da wird ja in jeder Bibliothek mindestens 10* TRUE und FALSE neu wenn du pech hast mit FALSE=0; TRUE=1 neu definiert.

http://www.delphi-treff.de/tutorials...faengerfehler/

Bis bald Chemiker

[Bernhard Geyer]

Zitat von p80286:

Hallo Bernhard,

mach doch mal

Delphi-Quellcode:

if boolean(4) then showmessage('4 ist true');
if boolean(4)=true then showmessage(inttostr(integer(true)) ist gleich 4');

Gruß
K-H

Autsch. An diese harten Casts auf ungültige Enumwerte hatte ich gar nicht mehr gedacht.
Aber wer macht auch solche fehleranfälligen Konstrukte.