Quick Tips : Funções e Tipos de Conversões no Delphi

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