Código de barras

Colega,

Postei aqui para ficar mais fácil de ser localizados por outros colegas, quando necessário.

FórumWeb ->Delphi ->Downloads

Se precisar de ajuda, é só avisar.

Procure por Delphi-Boleto, lá você encontra o componente ideal para você...

Lá consta um componente que imprime boleto de todos os bancos estou muito satisfeito com ele

Ou melhor mande-me um email para que eu te mande os arquivos dos componentes, ~são pequenos Zipados...



Se ajudei, valeu....

O Módulo 11 tem a série de variações, geralmente os valores do peso são de (9..2) ou (2..9) ou (2..n)
Neste exemplo vai de (9..2)

function Modulo11Boleto(sNumero: ShortString): Char;
var soma, fator, i: Integer;
begin
soma:=0;
fator:=9;
for i:=Length(sNumero) downto 1 do begin
soma:=soma + chInt(sNumero[i]) * fator;
Dec(fator);
if fator=1 then fator:=9;
end;
soma:=(Soma mod 11);
if soma >= 10 then
Result:=´0´
else
Result:=intCh(soma);
end;

function IntCh(Int: ShortInt): Char;
begin
Result := Chr ( int + Ord ( ´0´ ) );
end;

function ChInt(ch: Char): ShortInt;
begin
Result := Ord ( ch ) - Ord ( ´0´ );
end;


Visite o site [url]www.veloso.kit.net[/url]
possui componentes para criação e validação de dígitos.