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
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
le code suivant doit faire la même chosesinon, je te propose ma propre fonction
Code : Sélectionner tout - Visualiser dans une fenêtre à part Pos(ASubText, AText) = 1
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;
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
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager