Pos(...

[Mathias]

Beim FPC 3.1, wurde bei Pos ein dritter Parameter eingeführt, man kann das Offset angeben, wo er mit suchen anfangen soll.

Folgendes spuckt 5 aus.

Code: Alles auswählen

  Caption := pos('a', 'abababababababababab', 5).ToString;

[sstvmaster]

das ist schon richtig so Pos liefert ja Int zurück, also die Position des ersten vorkommens.

bei

Code: Alles auswählen

var
  s1: String;
  s2: String;
begin
  s1 := 'abababababababababababcabababababababababab';
  s2 := 'abababababababababab';
  Label1.Caption:=Pos('abc',s1,5).ToString;
  Label2.Caption:=Pos('a',s2,6).ToString;

ist s1 = 21, s2 = 7
Passt.

Der Offset legt halt nur den Start fest ab wo gesucht werden soll.

[Mathias]

Dies war keine Frage, sondern nur als Info gedacht?

[sstvmaster]

, dann hab ich nichts gesagt.

[Warf]

Dafür gabs bislang ja die Funktion PosEx aus den StrUtils. Finde ich gut das es jetzt in Pos direkt mit drin ist

[Mathias]

Da bin ich gerade über eine Stolperfalle gestolpert:

Code: Alles auswählen

  s :=  'abababababababababababcabababababababababab';
  ofs := 1;
  ...
  ofs := Pos('ab', s, ofs);
  ...

Ich hatte zuerst ofs := 0; , da wurde bei Pos immer 0 zurück gegeben, obwohl der Suchstring mehrmals vorhanden war.
Wichtig, man muss immer mit 1 beginnen.

[m.fuchs]

bart_simpson_string_index.png (225.96 KiB) 2601 mal betrachtet

[sstvmaster]

@ m.fuchs +1