delphi

Páginas: 2 (492 palavras) Publicado: 10 de agosto de 2013
Tipo
Tamanho
(Bytes)
Valores
(versão Delphi4)
ShortInt
1
{-128, ..., -1, 0, 1, ..., 127}
LongInt
4
{-2147483648, ..., -1, 0, 1, ..., 2147483647}
SmallInt
2
{-32768, ..., -1, 0, 1, ...,32767}
Integer
4
{-2147483648, ..., -1, 0, 1, ..., 2147483647}
Byte
1
{0, 1, 2, ..., 255}
Cardinal
4
{0, 1, 2, ..., 4294967295}
Word
2
{0, 1, 2, ..., 65535}
Longword
4
{0, 1, 2, ...,4294967295}
Int64
8
{-263, ...,263-1}
Single
4
{flutuantes com 7 dígitos significativos e Emáx=38}
Real
6
{flutuantes com 15 dígitos significativos e Emáx=38}
Double
8
{flutuantes com 15dígitos significativos e Emáx=308}
Extended
10
{flutuantes com 19 dígitos significativos e Emáx=4932}
Char
1
{caracteres ANSI}
String
1 / carac. + 1
{seqüências de caracteres terminadas em nulo}Boolean
1
{False, True}


EXEMPLO DE FUNCAO POS

const
texto = 'aline marcondes dos santos' ;
var
t:integer;
begin
t := pos('tos',texto);
Label1.Caption := inttostr(t);
end;

EXEMPLODE FUNCAO STRINGREPLACE

const
texto = '133,25';
texto2 = '133,25';
var
t,t2:string;
begin
t := StringReplace(texto,',','.',[rfReplaceAll]);
Label1.Caption := t;
end;

EXEMPLO FUNCAOCOPY

Copia pedaços da string

const
texto = '133,25';
var
resultado:string;
begin
Label1.Caption := copy(texto,1,3)+ '.' +copy(texto,5,2);
end;

EXERCICIOS UTEIS

Coloca uma palavra aocontrario

const
texto = 'aline';
var
c,Tam:Integer;
Aux,result:String;
begin
Tam:=Length(texto);
Aux:='';
for c := Tam downto 1 do
Aux:=Aux+Texto[c];
Label1.Caption :=Aux;
end;Colocar Hora e Data no sistema

begin
Label1.Caption := TimeToStr(Now);
Label2.Caption := DateToStr(Now);
end;

Usando potenciação

Obs : antes declarar math no campo users

varn:double;
begin
n := power(2,3);
Edit1.Text := floattostr(n);
end;

Colocar um item (listBox) dentro de um label
 
label4.caption = listBox1.SelectedItem.ToString();

Para adicionar uma...
Ler documento completo

Por favor, assinar para o acesso.

Estes textos também podem ser interessantes

  • delphi
  • Delphi
  • Delphi
  • Delphi
  • Delphi
  • Delphi
  • Delphi
  • Delphi

Seja um membro do Trabalhos Feitos

CADASTRE-SE AGORA!