RightStr

Question

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

Cirec · Answer

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="" />

cs_dunith · Answer

Salut


ok! Cirec

merci pour ton aide

cs_dunith · Answer

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

Caribensila · Answer

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...

delphinovice · Answer

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;

RightStr

5 réponses

Votre réponse

sur les mêmes thèmes