cs_dunith
Messages postés100Date d'inscriptionsamedi 5 janvier 2008StatutMembreDernière intervention11 avril 2008
-
31 mars 2008 à 17:03
delphinovice
Messages postés6Date d'inscriptionsamedi 12 avril 2008StatutMembreDernière intervention15 mars 2010
-
13 avril 2008 à 00:38
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)