function VarType

[JoachimQ]

Betreff: function VarType(const V: Variant): TVarType;

http://docs.embarcadero.com/products...s_VarType.html

Guten Tag,

ich möchte die Funktion VarType der Unit System nutzen.
Leider zeigt mir Delphi 10.3 Community Edition folgende Fehlermeldung:

[dcc32 Fehler] WBFuncs.pas(169): E2003 Undeklarierter Bezeichner: 'VarType'

Was muss verändert werden, damit ich die Funktion trotzdem nutzen kann?

[hoika]

Hallo,
wenn WBFuncs deine Unit ist, zeig doch mal etwas Code.

Viell. fehlt nur das
uses
Variants

?

[JoachimQ]

Zitat:

Zitat von hoika (Beitrag 1465886)

Hallo,
wenn WBFuncs deine Unit ist, zeig doch mal etwas Code.

Viell. fehlt nur das
uses
Variants

?

Danke für den Hinweis, jetzt gibt es ein paar Fehlermeldungen weniger.
Ich habe noch eine andere Frage zu folgendem Problem:

Ich habe folgenden Quellcode:

Code:

procedure WB_ShowPrintDialog(WB: TWebbrowser);
var
  OleCommandTarget: IOleCommandTarget;
  Command: TOleCmd;
  Success: HResult;
begin
  if WB_DocumentAssigned(WB) then
  begin
    WB.Document.QueryInterface(IOleCommandTarget, OleCommandTarget);
    Command.cmdID := OLECMDID_PRINT;
    if OleCommandTarget.QueryStatus(nil, 1, @Command, nil) <> S_OK then
    begin
      // ShowMessage('Nothing to print');
      Exit;
    end;
    if (Command.cmdf and OLECMDF_ENABLED) <> 0 then
    begin
      Success := OleCommandTarget.Exec(nil, OLECMDID_PRINT, OLECMDEXECOPT_PROMPTUSER, EmptyParam, EmptyParam);
      case Success of
        S_OK: ;
        OLECMDERR_E_CANCELED: ShowMessage('Canceled by User');
      else ShowMessage('Error While Printing');
      end;
    end
    else
   // ShowMessage('Printing not possible');
  end;
end;

Jetzt erscheint folgende Fehlermeldung:

Code:

[dcc32 Fehler] WBFuncs.pas(492): E2033 Die Typen der tatsächlichen und formalen Var-Parameter müssen übereinstimmen

[jaenicke]

Welches ist denn Zeile 492? Ich würde mal vom Anschauen her vermuten die mit OleCommandTarget.Exec? Ist da der letzte Parameter nicht ein var-Parameter? Dann kannst du da nicht das Ergebnis einer Funktion (EmptyParam) übergeben, sondern musst wirklich eine Variable vom korrekten Typ übergeben.