Problem mit string funktion Pos

[4PhenomX]

Hallo DP,

Eigentlich ist es mir schon fast etwas peinlich so etwas zu fragen, aber ich habe ein problem mit der string funktion Pos.
Ich möchte die Position einer Zeichenkette in einer längeren Zeichenkette ermitteln.

Die Anweisung sieht so aus:

nPos := Pos('f',WebBrowser1.LocationURL); // <-- Funktioniert ohne Probleme

Wenn ich allerdings mehr als ein Zeichen ermitteln möchte, giebt mir mein compiler eine Fehlermeldung aus.

nPos := Pos('fail',WebBrowser1.LocationURL); // <-- Compiler Fehlermeldung

Fehlermeldung sieht so aus:
[dcc32 Fehler] Main_F.pas(157): E2251 Doppeldeutiger überladener Aufruf von 'Pos'

Ich benutze Delphi 10.1 Berlin.
Bin da etwas ratlos....

Viele Grüße

[hoika]

Hallo,

1. Benutze eine lokale Variable statt der direkten Übergabe, dann sollte das klappen.

2. PS: ich würde AnsiPos nehmen.

Ursache:
Pos ist mehrfach überladen, dein 'fail' kann ein AnsiString sein, Unicode usw.

[4PhenomX]

Danke.
Mit AnsiPos klappt es.

PS: Mit einer lokalen variable vom typ string klappt es auch nicht.

[hoika]

Hallo,
dann nimm am besten gleich AnsiUpperPos.

[himitsu]

Per Namespace die gewünschte Funktion explizit aufrufen (wenn sich beide Versionen in unterschiedlichen Units befinden würden)
nPos := System.SysUtils.Pos('fail', WebBrowser1.LocationURL);

oder ein expliziter Cast, um genau die gewünschte Version anzusprechen.
nPos := Pos(string('fail'), WebBrowser1.LocationURL);

Wie ist LocationURL definiert?
Wenn das ein AnsiString ist, dann den Cast auch als AnsiString,
bzw. die AnsiString-Version der Funktion verwenden.

PS: Auch wenn das AnsiUpperPos heißt, so kann die Funktion auch Unicode sein.
Embarcadero war bei der Namenswahl ein bissl unglücklich vorgegangen, als sie Unicode einführten.

[Uwe Raabe]

Zitat von himitsu:

PS: Auch wenn das AnsiUpperPos heißt, so kann die Funktion auch Unicode sein.
Embarcadero war bei der Namenswahl ein bissl unglücklich vorgegangen, als sie Unicode einführten.

Erstens heißt das AnsiPos und zweitens hieß das schon in Delphi 7 so.

[himitsu]

Da war aber auch alles noch ANSI.

[Uwe Raabe]

Zitat von himitsu:

Da war aber auch alles noch ANSI.

Richtig! Und bei der Umstellung hätte man das dann in UnicodePos umbenennen sollen?

Die Umstellung war schon ziemlich genial eingefädelt. Wenn man nicht vorher schon unsauber programmiert hatte, funktionierte das in den meisten Fällen ohne weiteres Eingreifen. Aber wir kommen hier so langsam Off-Topic