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
rbbarreto@hotmail.com