ActiveDelphi

[lucas_spohr]

Olá!

Estou desenvolvendo um sistema de consulta de preços de um supermercado. Tenho dentro da pasta do meu aplicativo, uma pasta com o nome Produtos, onde estarão salvas as imagens dos produtos. Cada nome, terá o nome do código de barras de cada produto.

Por exemplo:
Código de Barras: 0000000000109
Imagem Produto: 109.jpg
Produto: Coração o KG
Preço: R$ 5,00

Bom. Neste exemplo, criei uma function que, para cada código de barras, terá a imagem com o nome. Só que, o cliente não irá salvar a imagem, com o nome com todos esses "zeros", e sim, salvar como 109.jpg. Para isso, criei uma função. só que esta função, está removendo o 0 do 109 também.

Pergunto:
Como implementar a função, fazendo com que ela remova somente os "zeros" iniciais?

function RetornaNomeFoto(ACodBarra: string): string;
var
I : Integer;
S : string;
begin
for I := 1 to Length(ACodBarra) do
if not (ACodBarra[I] = '0') then
S := S + ACodBarra[I];
Result := S;
end;

Desde já, agradeço.
Muito obrigado!

[joemil]

tente assim:

[lucas_spohr]

Joemil!!!

Muuuuito obrigado! Deu certo!!

valeu!!

[DonOctavioDelFlores]

ou

function RetornaNomeFoto(ACodBarra: string): string;
begin
Result := IntToStr(StrToInt(ACodBarra));
end;
_________________
“The problem with the world is that everyone is a few drinks behind.” Humphrey Bogart