1. Accueil
  2. Forum Codes-Sources
  3. Delphi / Pascal

RightStr

Signaler
Messages postés
100
Date d'inscription
samedi 5 janvier 2008
Statut
Membre
Dernière intervention
11 avril 2008
 -
Messages postés
6
Date d'inscription
samedi 12 avril 2008
Statut
Membre
Dernière intervention
15 mars 2010
 -
Bonjour


j'ai une procédure son implémentation est comme suit:
procedure TGestCAB.CodeRecu(Sender: TObject; returnPacket : string);

 var

  Code : String;

  numLecteur : integer;

begin

  numLecteur := -1;

    if LeftStr(returnPacket, 2)='/*' then // message avertissement, on ignore

      exit;

    // on récupère le n° de lecteur (les 4 premiers chars)

    numLecteur := StrToInt(LeftStr(returnPacket,4));

    // on récupère le code

    code := MidStr(returnPacket, 5, Length(returnPacket)-4);

    DoOnChRecu(numLecteur, Code);

end;

et j'ai une erreur

 Identificateur non déclaré : 'LeftStr' et MidStr

 ses fonctions sont dans l'aide de delphi, donc elles sont visible?

quelq'un peut me dire pourquoi?

je suis débutante en delphi

merci
A voir également:

5 réponses

Réponse 1 / 5
Messages postés
3825
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
1 février 2021
 39
Salut,

dans l'aide il y a également Unit ou Unité StrUtils

Il faut donc déclarer StrUtils dans la clause Uses de ton code pour pouvoir utiliser ces fonctions

 
@+
Cirec

<hr siz="" />
Réponse 2 / 5
Messages postés
100
Date d'inscription
samedi 5 janvier 2008
Statut
Membre
Dernière intervention
11 avril 2008
Salut


ok! Cirec

merci pour ton aide
Réponse 3 / 5
Messages postés
100
Date d'inscription
samedi 5 janvier 2008
Statut
Membre
Dernière intervention
11 avril 2008
bonjour


j'ai une autre question dans la ligne de code:
numLecteur := -1;
    if LeftStr(returnPacket, 2)='/*' then exit;


a quoi correspond le caractère en rouge '/*'?
j'ai cherché sur internet  dans les caractères spéciaux en delphi mais je n'ai pas trouvé!
Merci
Réponse 4 / 5
Messages postés
2527
Date d'inscription
jeudi 15 janvier 2004
Statut
Membre
Dernière intervention
16 octobre 2019
 16
Bonjour,

Ce ne sont pas des caractères spéciaux de Delphi. C'est simplement la chaîne { /* }
Regarde "Chaînes de caractères" dans l'aide Delphi :



'BORLAND'        { BORLAND }
'Vous l''aurez'    { Vous l'aurez }
''''                    { ' }
''                     { chaîne nulle }
' '                    { un espace }  
...etc...
Réponse 5 / 5
Messages postés
6
Date d'inscription
samedi 12 avril 2008
Statut
Membre
Dernière intervention
15 mars 2010
Langage : Delphi 5
Date ajout : 17/12/2007
Posté par 25786 japee[Liste]
DateMAJ : 17/02/2008

Uses SysUtils, Math;

Il faut declarer ses fonction  dans le clause des uses











function
MidStr(const S, SLeft, SRight: string): string;
var
  PosLeft, PosRight, PosMid: Integer;
  STmp: string;
begin
  Result : = '';
  PosLeft := Pos(SLeft, S);
  if PosLeft = 0then Exit;
  PosMid := PosLeft + Length(SLeft);
  STmp := Copy(S, PosMid, Length(S));
  PosRight := Pos(SRight, STmp);
  if PosRight = 0then Exit;
  Result := Copy(STmp, 1 , PosRight - 1);
end;
function RightStr
(Const Str: String; Size: Word): String;
begin
if Size > Length(Str) then Size : = Length(Str);
RightStr := Copy(Str, Length(Str)-Size+1, Size)
end;

function MidStr
(Const Str: String; From, Size: Word): String;
begin
MidStr := Copy(Str, From, Size)
end;

function LeftStr
(Const Str: String; Size: Word): String;
begin
LeftStr := Copy(Str, 1, Size)
end;
end;
Répondre Posez votre question