Noções Básicas em Object Pascal

Ola Galerinha, hoje 07/03/09 praticamente as 10:41, estou postando um pequeno texto com exemplos de noções básicas de pascal. Espero que poça dar uma ajuda a vocês.
Grande Abraço.

Váriaveis:

shortint - 8bits -128 a 127
integer - 16bits -32768 a 32767
longint - 32bits -2147483648 a 2147483647
byte - 8bits 0 a 255
word - 16bits 0 a 65535
comp - 64bits -2e63+1 a 2e63-1

real - 6bytes
single - 4bytes
double - 8bytes
extended - 10bytes

bool - true or false
char - ocupa 1byte por caracter




Operadores:

* (multiplicação - inteiro e real)
/ (divisão - real)
div (divisão inteira - inteiro)
mod (resto da divisão inteira - inteiro)
+ (adição - inteiro e real)
- (subtraçao - inteiro e real)





Atribuição:

Atribuição é feita por := exemplo:

a := 10;





Expreções Lógicas:

Igaual a ( = )
Diferente de ( <> )
Maior que ( > )
Menor que ( < )
Maior Igual ( >= )
Menor Igual ( <= )

Not - Inverte valor lógico
And - Somente se dois valores logicos forem verdadeiros
OR - Se um dos valores logicos forem verdadeiros

Ex:

(A>0) And (B>3)
(A>0) OR (B>3)




Estruturas de Controle:

if (a>b) then
begin
showMessage('isto e verdadeiro');
end {sempre antes do else nao vai ;}
else
begin
showMessage('isto e falso');
end;




Astruturas de Repetição:

for
while
repeat



exemplo de for:

for i:1 to 10 do
begin
{lista de comandos}
end;



exemplo while:

while i<10 do
begin

i := i+1;

end;



exemplo repeat:

repeat
begin

i := i+1;

end;
until i<10;




Arrays:

vetor:array[1..10] of integer
matriz:array[1..10,1..10] of integer





Strings:

nome:string[255];



Funções de strings:

length() - retorna o numero de caracteres da string
concat() - retorna o resultado das concatenações


Procedures:

str() - converte valor numerico em string
val() - converte string em valor numerico




Processos:

PROCEDURE ();

begin

end;




Funções:

FUNCTION ():;

begin

end;

chamando a função:

:= ();




switch case:

CASE OF
:;
:;
:;
:;
END;

ex:

CASE escolha OF
'V':showMassage('vermelho');
'A':showMassage('Amarelo');
'L':showMassage('Laranja');
END;



RECORDS (Structs em c++):

VAR cliente:RECORD
numCliente:integer;
tipoCliente:char;
saldoCliente:real;
END;

Hello World em Delphi

Hello World

* 1° Inicie o Delphi.
* 2° No formulário que apareceu na tela, coloque um botão(Tbutton).

Nota: para colocar um botão, basta clicar sobre ele na paleta Standard e depois clicar no formulário, caso queira requintar seu aplicativo, altere suas propriedades.

* 3° Clique duas vezes sobre o botão que apareceu.
* 4° Deverá aparecer o seguinte código na sua tela:

procedure TForm1.Button1Click(Sender: TObject);
begin
end;

* 5° Verifique que estamos programando o evento onclick do botão, ou seja o que programarmos irá acontecer quando o usuário clicar no botão.
* 6° Vamos utilizar a procedure ShowMessage() da unit Dialogs, ela é responsável por mostrar uma mensagem na tela.
* 7° Entre o begin e o end do evento digite:

ShowMessage('Hello World');

* 8° O código final deverá ficar assim:

procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage('Hello World');
end;

* 9° Clique no botão verde da barra de ferramentas (uma seta para a direta) ou tecle F9.
* 10° pronto, seu primeiro programa em Delphi esta rodando.


Tratamento de String

1 - Crie um Botão, de um duplo click nele:

procedure TForm1.Button1Click(Sender: TObject);
var
texto:string; // variavel tipo string
begin
texto := 'Hello World'; // valor da variavel

ShowMessage(texto); // mostra toda variavel
ShowMessage(Copy(texto, 1, Length(Texto) - 1)); //retira ultima letra da string
ShowMessage(Copy(texto, Length(Texto) , 1)); // imprime primeira letra da string
ShowMessage(Copy(texto, 4, 5)); // imprime da 4 a 5 letra da string
end;

end.