Fórum Como utilizar código de barras aleatório no Delphi XE7? #622276

16/05/2024

Criei um projeto no delphi XE7 que utiliza código de barras. A intenção é o seguinte, ao fazer um cadastro, crio um código de barras aleatório e mostro em uma TImage. Consegui fazer até a parte do código aleatório mas não estou conseguindo fazer a imagem aparecer corretamente.
E como há mais pessoas nesse projeto, baixar um componente não é viável. Alguém sabe como resolver?
Meu código está abaixo:

procedure TForm4.GerarClick(Sender: TObject);
 begin
      GerarCodigo(LabeledEdit1.Text, Image1.Canvas);
 end;
 
procedure TForm4.GerarCodigo(Codigo: String; Canvas : TCanvas);
var s : string;
i : Integer;
begin
 // Gerar o valor para desenhar o código de barras
// Caracter de início
s := '790';
    for i := 4 to 13  do
         s := s + IntToStr(Random(10));
LabeledEdit1.Text := s;
end;

Maria Elisa

Curtir tópico

+ 0

Responder

Posts

16/05/2024

Arthur Heinrich

Existem vários tipos de códigos de barras. Para cada tipo, a codificação varia.

Dê uma olhada em https://codigosdebarrasbrasil.com.br/tipos-de-codigos-de-barras/

Responder

Gostei + 0