Probleme mit "pos" - Liefert keine Rückgabe

[nytaiceman]

Hallo zusammen,

Ich bin etwas verwirrt bezüglich von der function POS:
Also:

Delphi-Quellcode:

 var
  p : Integer;
 begin
  p := pos('test/test', '/');
  ShowMessage(IntToStr(p));
 end;

--> Das ist bei mir immer 0

Wenn ich aber:

Delphi-Quellcode:

 begin
  If pos('test/test', '/') > 0 then ShowMessage('gefunden');
 end;

--> Dann wird mir dies erfolgreich quittiert.

Ich stehe da auf dem Schlauch, warum wird mir der Wert der Position nicht in die p Variable geschrieben?

Danke bereits.

[Matze]

function Pos(const substr: UnicodeString; const str: UnicodeString): Integer; overload; => 1. Parameter = SubString, 2. Parameter = Hauptstring

Edit: Dein 2. Code kann aber nicht wahr werden, d.h. die MessageBox darf nicht angezeigt werden.

[hoika]

Hallo,

da passt was nicht

Pos(substr, str);

Beim 1. Bsp hast hast du die Parameter vertauscht.


Warum es beim 2. geht, weiss ich nicht.
Das ist bestimmt nicht dein Original-Code.


Heiko

[nytaiceman]

Hallo Matze,

Da hatte ich doch tatsächlich riesige Tomaten auf den Augen!

Danke vielmals für Deine Ausführungen!

Delphi-Quellcode:

var
  p : Integer;
begin
  p := pos('/', 'test/test');
  ShowMessage(IntToStr(p));
end;

--> Jetzt ist die Ausgabe korrekt.

Wünsche einen tollen Tag noch.

[himitsu]

Zitat:

Probleme mit "pos" - Liefert keine Rückgabe

Nur noch Pro forma: Pos liefert eine Rückgabe
und zwar "0", für "nicht gefunden".