Bom pessoal nesta Quick Tip irei mostrar à vocês alguns tipos de conversões, pois na programação muitas vezes nos deparamos com situações em que necessitamos fazer a conversão de dados para que possamos dá continuidade ao nosso projeto. Para isso que existem as functions nativas do Delphi. Existem vários tipos de functions de conversões e neste artigo irei demonstrar como podemos utilizadas.
Vamos começar com as que são mais utilizadas no nosso dia – dia que são as conversões de inteiro para string, String para Inteiro, Data para String, String para Data e muitos outros.
IntToStr -> Faz a conversão de inteiro para String. Abaixo um exemplo prático e simples:
procedure TForm1.Button1Click(Sender: TObject);
var
Inteiro :
Integer;
begin
Inteiro :=
1;
Edit1.Text
:= IntToStr(Inteiro);
end;
StrToInt -> Faz a conversão de String para Inteiro. Abaixo um exemplo prático e simples:
procedure TForm1.Button1Click(Sender: TObject);
var
Inteiro :
Integer;
Numeros : String;
begin
Numeros :=
123456789;
Inteiro :=
StrToInt(Numeros);
Edit1.Text
:= IntToStr(Inteiro);
end;
StrToDate -> Faz a conversão de String para o formato Date. Abaixo um exemplo prático e simples:
procedure TForm1.Button1Click(Sender: TObject);
var
MinhaData
: TDateTime;
begin
MinhaData
:= StrToDate(24/03/10);
Edit1.Text
:= (24/03/10 =
+DateTimeToStr(MinhaData));
end;
DateToStr -> Faz a conversão do formato tipo Date para String. Abaixo um exemplo prático e simples:
procedure TForm1.Button1Click(Sender: TObject);
var
MinhaData
: TDateTime;
begin
MinhaData
:= StrToDate(24/03/2010);
Edit1.Text:=
('Minha Data =' +DateToStr(MinhaData));
end;
Round -> É responsável por arredondar um número. Abaixo um exemplo prático e simples:
procedure TForm1.Button1Click(Sender: TObject);
Begin
Edit1.Text:= (Round(52.895) = +IntToStr(Round(52.895)));
end;
Truc -> É responsável por retirar apenas a parte inteira de um valor real. Abaixo um exemplo prático e simples:
procedure TForm1.Button1Click(Sender: TObject);
Begin
Edit1.Text:= (Trunc(52.895) = +IntToStr(Trunc(52.895)));
End;
Frac -> É responsável por retirar apenas a parte fracionária de um valor real. Abaixo um exemplo prático e simples:
procedure TForm1.Button1Click(Sender: TObject);
Begin
Edit1.Text:= ( Frac(12.75) = +FloatToStr(Frac(12.75)));
end;
É isso aí pessoal nos nossos próximos artigos irei mostrar outros tipos de conversão! Espero que tenham gostado...
Thiago
Contato: Thiagodarley@hotmail.com