Discussion :

[annemarie]

Bonjour,

y aurait il quelqu'un qui aurait déjà développé l'équivalent du posEX sur des chaines WideString. La fonction Ansipos marche pour les widestring, mais il n'existe pas (enfin je me trompe peut être) l'équivalent ansiposEx ?

Je cherche un truc un peu optimisé car la fonction sera très solicitée et comme toute fille qui se respecte les algorithmes de dingue c'est pour les mecs ....

enfin voilà, si une âme charitable a ça dans les cartons ...

merci

[ShaiLeTroll]

Ben, tu copie-colle la fonction des sources Delphi, et tu modifie tout les string par WideString, ce n'est pas ce qu'il à de plus rapide (via un PWideChar, cela irait nettement plus vite au niveau du [...]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
function PosEx(const SubStr, S: WideString; Offset: Cardinal = 1): Integer;
var
  I,X: Integer;
  Len, LenSubStr: Integer;
begin
  if Offset = 1 then
    Result := AnsiPos(SubStr, S)
  else
  begin
    I := Offset;
    LenSubStr := Length(SubStr);
    Len := Length(S) - LenSubStr + 1;
    while I <= Len do
    begin
      if S[I] = SubStr[1] then
      begin
        X := 1;
        while (X < LenSubStr) and (S[I + X] = SubStr[X + 1]) do
          Inc(X);
        if (X = LenSubStr) then
        begin
          Result := I;
          exit;
        end;
      end;
      Inc(I);
    end;
    Result := 0;
  end;
end;

[annemarie]

effectivement, merci beaucoup