TWebBrowser if then Problem

[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;

[jaenicke]

Du darfst deine Unit natürlich nicht selbst Variants nennen...

[klaus9]

Wie meinst du das ?

unit Unit1versuch;

interface

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

so heißt Sie Unit1versuch