Discussion :

[scholes]

Bonjour
J'aimerai savoir si c'est possible d'ajouter une librairie qui contient la function "AnsiStartsStr" qui n'est pas prédéfinie à Delphi 5

Merciii

[ShaiLeTroll]

le code suivant doit faire la même chose

Code :

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

Pos(ASubText, AText) = 1

sinon, je te propose ma propre fonction

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
{* -----------------------------------------------------------------------------
la fonction StringBeginsWith, indique si la chaine S commence par la chaine Substr
@param Substr sous chaine
@param S chaine à parser
@param CaseSensitive Sensible ou non à la casse, True par défaut, ne gère pas les accents
@return True si S comme par Substr
------------------------------------------------------------------------------ }
function StringBeginsWith(const Substr: string; const S: string; CaseSensitive: Boolean = True): Boolean;
var
  LenSub, LenS: Integer;
begin
  Result := False;
  LenSub := Length(Substr);
  LenS := Length(S);
 
  if (LenS = 0) or (LenSub = 0) or (LenSub > LenS) then
    Exit;
 
  if CaseSensitive then
    Result := CompareMem(@Substr[1], @S[1], LenSub)
  else
    Result := SameText(Substr, Copy(S, 1, LenSub));
end;

[scholes]

Merci pour ta reponse.
J'ai créer un code qui fait la meme chose, mais j'ai voulu juste ajouter cette fonction à delphi 5