string nach bestimmtem Wort durchsuchen

[Meistermg]

Hallo,
ich habe folgendes Problem:
Ich habe mit

Delphi-Quellcode:

function GetActiveBrowsersURL(Service: string): string;
var
  ClDDE: TDDEClientConv;
  zwi: PAnsiChar;
begin
  ClDDE := TDDEClientConv.Create(nil);
  with ClDDE do
  begin
    SetLink(Service, 'WWW_GetWindowInfo');
    zwi := RequestData('0xFFFFFFFF');
    CloseLink;
  end;
  Result := StrPas(zwi);
  StrDispose(zwi);
  ClDDE.Free;
end;

Die aktuell geöffnete URL ausgelesen und mit

Delphi-Quellcode:

edit1.text := GetActiveBrowsersURL('Iexplore');
edit1.text := GetActiveBrowsersURL('Firefox');

in ein Edit feld eingefügt.

Nun würde ich gerne den Edit1.Text nach einem bestimmten Wort durchsuchen.
Hab mal gegooglet und in der Forensuche gesucht.
Da kamen aber nur so sachen wie man die Position herausfinden kann.
Wäre dankbar für eure Hilfe

Gruß
Max

[wine]

Wenn die Position eines Wortes in einem Satz ungleich Null ist, ist das Wort irgendwo im Satz enthalten

Da hast Du schon das Richtige gefunden.

if pos('https',edit1.text) <> 0 then ...GEFUNDEN

[Sir Rufo]

Zitat von Meistermg:

Sprache: Weiß ich nich

Delphi Win32

Es gibt aber auch noch die Funktionen MatchText oder MatchStr

[Meistermg]

ok und kann man das jetzt auch noch mit einer while Schleife verknüpfen
Mein Ziel ist es nämlich zu stoppen wie lange die seite aufgerufen ist
das heißt in der Schleife müsste die Stoppuhr stecken. Das is kein Problem.
Aber

Delphi-Quellcode:

While if pos('https',edit1.text) <> 0 then ...GEFUNDEN do
begin
...
end;

dürfte ja eigentlich nich funktionieren oder?

[Sir Rufo]

Wenn schon dann so
while Pos( 'https://', GetActiveBrowsersURL('Iexplore') ) = 1 do aber
durch dieses Polling knallst du natürlich deinen Rechner zu (CPU-Last geht auf 100%)

Besser ist es dafür einen Event zu nutzen
Schaust du mal da vorbei: http://www.delphipraxis.net/internal...ct.php?t=97775

Der Event wird immer dann ausgelöst, wenn sich der Eintrag in der Adresszeile ändert, und nur dann muss ja auch was gemacht werden.