Delphi-PRAXiS - PosEx Bug?

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Programmieren allgemein (https://www.delphipraxis.net/40-programmieren-allgemein/)

- - PosEx Bug? (https://www.delphipraxis.net/157507-posex-bug.html)

Hi,

ich hab ein Problem und zwar, scan ich einen Quelltext nach Links mit Pos.

Quelltext abschnitt:

Code:

			<HTML><HEAD><TITLE>SV Büro Homepage</TITLE>

<META NAME="AUTHOR" CONTENT="Ihr Name">

.

.

.

<AREA SHAPE=RECT COORDS=" 0, 0, 109, 120" HREF="hul.htm">

so, ich benutze hierzu

Delphi-Quellcode:

			      Pos2:= 0;   <-- Start des Quelltextes

      if PosEx('href=', Source, Pos2 + 1) <> 0 then begin    <-- Sobald er ein Href findet 

        Pos1:= PosEx('href="', Source, Pos2 + 1); <-- Gefunden

        Pos2:= PosEx('"', Source, Pos1 + 8); <-- Gefunden

        Copy(bla)

Das Problmem an der Sache ist das Pos1 immer auf 0 rutsch Egal wo der eigentlich Href steht.
Denn ich weiß das 100% kein Href am Anfang des Quelltext zufinden ist sondern erst bei Position 1xxx, jedoch zeigt im Debugger Pos1 immer auf Position 0.

Wie kann das sein?
Selbst wenn ich

Delphi-Quellcode:

Pos1:= PosEx('href="', Source, 200);

Testweise probiere, springt er auf 0 zurück

Ein Rückgabewert von 0 heißt nicht "Textanfang", sondern "nicht gefunden". Du musst irgendetwas falsch machen.

[edit] Aus der Hilfe geht es nicht hervor, aber vermutlich ist PosEx genau wie Pos case-sensitive. Das solltest Du überprüfen. [/edit]

Stimmt, case-sensitive würde das Problem erklären, danke ich werde es gleich mal abändern.

Nach Abänderung funktioniert alles bestens... das ich nicht selbe rmal drauf gekommen bin :/

Danke euch

Delphi-Quellcode:

PosEx

ist genauso wie

Delphi-Quellcode:

Pos

, nur daß es da einen zusätzlichen Startparameter gibt. (Das steht aber auch in der OH drin)

Abgesehn davon sind alle Stringfunktionen erstmal CaseSensitive sind, es sei denn es wurde was anderes gesagt.

PS:
AnsiSameStr = CaseSensitive
AnsiSameText = nicht CaseSensitive