TWebBrowser if then Problem

[himitsu]

Zitat von klaus9:

Danke aber irgendwie fehlt mir noch was im code.

Ja, die Delphi/Code-Tags

Zitat von klaus9:

ich muß glaub ich noch die function VarIsNull einbinden, wie geht das ?

F1 drücken, nachsehn was in der OH steht und die genannte Unit (Variants) einbinden


Wieso glaubst du nur und weißt es nicht?
Delphi gibt dir doch hoffentlich eine entsprechende Fehlermeldung? (welche wir nicht kennen)

[klaus9]

hmm bekomme ich irgendwie nicht so hin..

[jaenicke]

Zitat von klaus9:

hmm bekomme ich irgendwie nicht so hin..

Da du vergessen hast zu schreiben was genau du jetzt zuletzt versucht hast und was für eine Fehlermeldung kommt, wird dir da auch niemand helfen können.

[klaus9]

Habe jetzt folgenden Code

procedure TForm1.Button65Click(Sender: TObject);
begin

if not VarIsNull(WebBrowser1.OleObject.document.forms.ite m(0).elements.item('Operation'))
then
WebBrowser1.OleObject.document.forms.item(0).eleme nts.item('bemerkung').value:='erledigt'; // soll er diese funktion ausführen.
end;
end;

[Fehler] Unit1versuch.pas(1288): Undefinierter Bezeichner: 'VarIsNull'

ich weiß nur nicht genau was ich als bezeichner einfügen soll.

function VarIsNull hatte ich im Netz gelesen, wenn ich es davor packe startet es leider auch nicht richtig

[jaenicke]

Hat himi doch schon geschrieben...

Zitat von himitsu:

und die genannte Unit (Variants) einbinden

Hast du die Unit denn nun in die uses geschrieben? (Also da ganz oben in deiner Unit.)

[klaus9]

Hi,

was muß ich da denn reinschreiben, bin nicht mehr so ganz fit in delphi.

[jaenicke]

Variants? Wobei das eigentlich ab Delphi 6 oder so auch schon standardmäßig in der uses steht.

[p80286]

@Klaus9
uses Variants, weitere_Units;
@jaenike
in D7: (in einer Forms-Unit)

Delphi-Quellcode:

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

gruß
K-H

[klaus9]

Hi also ich habe das Problem jetzt glaub ich an einer anderen stelle, die variants habe ich drin im delphi.

Jetzt schreibt mir Delphi als fehler bei folgendem Code

procedure TForm1.Button65Click(Sender: TObject);
begin

if not VarIsNull(WebBrowser1.OleObject.document.forms.ite m(0).elements.item('Operation'))
then
WebBrowser1.OleObject.document.forms.item(0).eleme nts.item('bemerkung').value:='erledigt';
end;
end;

Dann das
[Warnung] Variants.pas(1012): Unsicherer Typ 'VPointer: Pointer'
[Warnung] Variants.pas(1014): Unsicherer Typ 'VPointer: Pointer'
[Fataler Fehler] Variants.pas(1024): Das Programm oder die Unit 'Variants' ruft sich selbst wieder auf

[klaus9]

Bei mir sind folgende Uses

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
OleCtrls, SHDocVw, StdCtrls, mshtml, ExtCtrls, Buttons, ActnList,
Variants;