CODEDLT

Commentaire de f0xi le 22/07/2006 00:37:54 administrateur CS

function TfrmMaitre.getCode( digit : char ) :Tcode ;
var
  index : integer;
const
  CharCase : string = '1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ-. *$/+%';
begin
  index := pos(UpCase(Digit),CharCase);
  if index <> 0 then
     result := TabCode[index]
  else
     raise ERangeError.Create('"'+Digit+'" N''est pas un caractère valide');
end;


tu peu utiliser le type Single qui est bien mieux que le type réel :

TdimCode = record
  Longueur, Hauteur, // longueur Hauteur de l'étiquette (width, height)
  margeL, // marge gauche et droite (MarginLR)
  margeH, // Espace pour le texte (TextSpacing)
  LongueurCode, HauteurCode : single; // longeur,hauteur du code barre (CodeWidth,CodeHeight)
end;


procedure TfrmMaitre.strDepartKeyPress(Sender: TObject; var Key: Char);
begin
  key := upcase(key);
  if not(key in ['A'..'Z', '0'..'9', '-',' ','.','*','$','/','+','%',#8]) then
     key := #0;
end;

ou encore, pour eviter un set trop long

procedure TfrmMaitre.strDepartKeyPress(Sender: TObject; var Key: Char);
const
  CharCase : string = '1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ-. *$/+%';
begin
  key := upcase(key);
  if pos(Key,CharCase) = 0 then
     key := #0;
end;


ta procedure incValeur est trop lourde aussi, y'a moyen de faire plus simple.

procedure incValeur(var strvaleur : string);
var
  c, index : integer;
  digit    : char;
  retenu   : boolean;
const
  CharCase : string = '1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ-. *$/+%';
begin
  retenu := true;
  for c := 7 downto 2 do
      if retenu then begin
         digit  := strvaleur[c];
         retenu := false;
         index  := pos(digit,charcase);
         if index = 0 then
            raise ERangeError.Create('"'+digit+'" N''est pas un caractère valide');
         case index of
           1..8   : digit := charcase[index+1];
           9..15  : if rgIncrementation.ItemIndex = 0 then
                       digit := '0'
                    else
                       digit := charcase[index+1];
           16..35 : if rgIncrementation.ItemIndex <= 1 then
                       digit := '0'
                    else
                       digit := charcase[index+1];
           36     : digit := '0';
           else
             retenu := true;
         end;
         if not retenu then
            retenu := (digit = '0');
         strvaleur[c] := digit;
      end;
end;


la constante CharCase peut etre declarée globalement pour eviter de la recopier a chaque fois.


sinon, ça a l'air pas mal, code bien ecrit et commenté.

Commentaire de amiga68 le 25/07/2006 08:14:20

Euh... Ca plante à la compilation (Delphi 7 personal)

Ligne 406 : dessin.TextRect(recTexte ,strtemp);
[Erreur] UfrmMaitre.pas(406): Types incompatibles : 'Integer' et 'String'

Dans l'aide ==> Syntaxe Delphi :
procedure TextRect(Rect: TRect; X, Y: Integer; const Text: string);

Correction : procedure dessin.TextRect(recTexte ,0,0, strtemp); et ça marche !

Commentaire de calhoun le 16/08/2006 14:06:54

Je cherche un moyen d'imprimer des codes barre avec le texte en dessous et le motif du code barre de la forme suivante http://193.189.147.16/cmitlse/IMG/jpg/code_barre.jpg.

Il s'agit d'imprimer des codes barre pour un ROBOT de sauvegarde ESL9595.

Merci de votre aide.