TWebBrowser if then Problem

[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

[klaus9]

ich glaub ich habe es, es lag im selben verzeichnis eine variants.pas

habe jetzt alles im grünen Bereich, nur er schreibt mir in das erledigt feld erledigt rein, obwohl es operation nicht text gibt.

Oder kann man irgendwie anders delphi sagen, er soll im HTML Quelltext nach bestimmten Wert suchen und wenn dieser gefunden wird, soll er in das Feld bemerkung "erledigt" schreiben ?

Geht das irgendwie ?

Gruß