Quick Tips : Zeros à esquerda - Parte I

Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Para efetuar o download você precisa estar logado. Clique aqui para efetuar o login
Confirmar voto
0
 (1)  (2)

COLOCANDO ZERO À ESQUERDA. PARA AQUELES QUE TENHA DIFICULDADE PARA ENCONTRAR NA NET.

Tecnologias utilizadas: borland delphi 7
Palavras chaves: borland delphi 7

  Oi galera, velho através da Devmedia post uma dica legal, está dica server para aquelas galera que esta começando a  desenvolver?
   vamos criar nosso primeiro exemplo no delphi.
   
1º veja a imagem abaixo.   

                                                   
Após criarmos o formulário vamos colocar um bitbtn, um label, e um edit agora vamos dar nomes aos objetos.
 
   bitbtn - btnZeros
   label - lblZeros
   edit  - edtzeros
 
2º Depois de colocar nomes ao objetos, terá que ficar igual a figura que se encotrar abaixo.





                                                                                


3º - já criado o formulário, vamos criar a função que ira realizar isto, pra nós.



 após criando a função, Pressione a tecla "Ctrl+shitf+c" para gerar os escopo da função, para realizamos a   implementação do código.
segue o código abaixo:

function TfrmZeroEsquera.ZeroEsquerda(const I: integer;
  const Casas: byte): string;
var
  Ch: Char;
begin
  Result := IntToStr(I);
  if Length(Result) > Casas then
  begin
    Ch := '*';
    Result := '';
  end
  else
    Ch := '0';
  while Length(Result) < Casas do
    Result := Ch + Result;
end;

Agora de um duplo click no botão que ser encontrar no formuário, é veja na figura como ficou:

 
Agora vamos roda nossa aplicação, e digitar qualquer número no edtZeros, em seguida click no botão zeros, que nossa função ira fazer isto pra nós.




 
Um abraço

Ricardo Araújo

rbbarreto@hotmail.com


 
Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Receba nossas novidades
Ficou com alguma dúvida?