Varios Procedimentos em Delphi

[DragonBoss 8]

Fala Galeraa... Fazia tempo que nao vinha postar algo bom... mas entao, eu tava fuçando meu computador, e acabei achando isso, são varios procedimentos e funçoes pro delphi, alguns simples, mas otimos e uteis, outros sao mais complexos, mas com o exemplo fica facil entender....Aconselho a todos (iniciantes e experientes) pois sao funçoes uteis em diversos programas.

Entao, como são muitos, vou fazer um Indice :

 

-AnsiLowerCase

-AnsiUpperCase

-Break

-CloseFile

-Continue

-Eof

-Exit

-FileOpen

-GotoXY

-Int

-KeyPressed

-Now

-Sqr

-Str

-Val

-If ... Then ... Else

-Case....of

-Repeat ... until

-While...do

-For...do

-Goto / Label:

-RunError

 

Inicio :

 

AnsiLowerCase à Converte todos os caracteres de uma string para minúsculo;

 

Sintaxe:

AnsiLowerCase(const S: string): string;

 

Exemplo:

Procedure Tform1.Button1Click(Sender: TObject);

Var

X:String;

Begin

X:=Label1.caption;

Label1.caption:=AnsiLowerCase(X); { Label1 ficará tudo em letras minúsculas }

End;

 

 

AnsiUpperCase à Converte todos os caracteres de uma string para maiúsculo;

 

Sintaxe:

AnsiUpperCase(const S: string): string;

 

Exemplo:

Procedure Tform1.Button1Click(Sender: TObject);

Var

X:String;

Begin

X:=Label1.caption;

Label1.caption:=AnsiUpperCase(X); { Label1 ficará tudo em letras maiúsculas }

End;

 

 

Break à Interrompe totalmente o loop das condições for, while, ou repeat;

 

Sintaxe:

Break;

 

Exemplo:

Procedure Tform1.Button1Click(Sender: TObject);

var

S: String;

begin

While true Do

begin

S := Edit1.text;

If S = ' ' Then Break; { Interrompe o loop }

Label1.Caption := S;

end;

end;

 

CloseFile à Fecha um arquivo aberto;

 

Sintaxe:

CloseFile(var F);

 

Exemplo:

Procedure Tform1.Button1Click(Sender: TObject);

var

F: TextFile;

begin

if OpenDialog1.Execute then

begin

AssignFile(F, OpenDialog1.FileName);

Reset(F);

Edit1.Text := Str(FileSize(F));

CloseFile(F); { Fecha o arquivo }

end;

end;

 

 

Continue à Continua na próxima condição for, while, ou repeat;

 

Sintaxe:

Continue;

 

Exemplo:

Procedure Tform1.Button1Click(Sender: TObject);

var

S: String;

begin

While true Do

begin

S := Edit1.text;

If S = ' ' Then Continue; { Voltará para o próximo loop }

Label1.Caption := S;

end;

end;

 

Eof à Retorna um valor lógico se fim de arquivo;

 

Sintaxe:

Eof(var F): Boolean;

 

Exemplo:

Procedure Tform1.Button1Click(Sender: TObject);

var

F1, F2: TextFile;

Ch: Char;

begin

if OpenDialog1.Execute then begin

AssignFile(F1, OpenDialog1.Filename);

Reset(F1);

if SaveDialog1.Execute then begin

AssignFile(F2, OpenDialog1.Filename);

Rewrite(F2);

While not Eof(F1) Do { Executa enquanto não for fim do arquivo F1 }

begin

Read(F1, Ch);

Write(F2, Ch);

end;

CloseFile(F2);

end;

CloseFile(F1);

end;

end;

 

Exit à Sai imediatamente de um bloco corrente;

 

Sintaxe:

Exit;

 

Exemplo:

Procedure Tform1.Button1Click(Sender: TObject);

begin

repeat

if KeyPressed then Exit; { Se alguma tecla pressionada sairá do bloco repeat }

Memo1.Lines := ‘Xx’;

until False;

end;

 

 

FileOpen à Abre um arquivo específico;

 

Sintaxe:

FileOpen(const FileName: string; Mode: Word): Integer;

 

Exemplo:

Procedure Tform1.Button1Click(Sender: TObject);

begin

MyFileHandle := FileOpen(EXISTS.TXT); { Abre o arquivo EXISTS.TXT }

end;

 

 

GotoXY à Move o cursor para as coordenadas dadas dentro da tela;

 

Sintaxe:

GotoXY(X, Y: Byte);

 

Exemplo:

Procedure Tform1.Button1Click(Sender: TObject);

begin

GotoXY(10,25); { Posiciona o ponteiro do mouse no pixel 10 , 25 }

end;

 

 

Int à Retorna a parte inteira de um argumento;

 

Sintaxe:

Int(X: Real): Real;

 

Exemplo:

Procedure Tform1.Button1Click(Sender: TObject);

var

R: Real;

begin

R := Int(123. 456); { Mostra “123.0” }

R := Int(-123.456); { Mostra “-123.0” }

end;

 

 

KeyPressed à Determina se uma tecla foi pressionada no teclado;

 

Sintaxe:

KeyPressed: Boolean;

 

Exemplo:

Procedure Tform1.Button1Click(Sender: TObject);

var

A,B:integer;

begin

B:=1;

repeat

A:=A+B;

Label1.Caption := str(A);

until KeyPressed; { Repetirá até alguma tecla ser pressionada }

end;

 

 

Now à Retorna a data e hora corrente;

 

Sintaxe: { Formato da data e hora }

Now: TDateTime;

 

Exemplo:

Procedure TForm1.Button1Click(Sender: TObject);

begin

Label1.Caption := 'A data e hora é ' + DateTimeToStr(Now); { Mostra a hora e data }

end;

 

Sqr à Retorna um número ao quadrado;

 

Sintaxe:

Sqr(X: Real): (Real);

 

Exemplo:

Procedure Tform1.Button1Click(Sender: TObject);

var

S, Temp: String;

begin

Str(Sqr(5.0):2:1, Temp); { Retorna 25.0 }

S := '5 ao quadrado é ' + Temp;

MessageDlg(S, mtInformation, [mbOk], 0);

end;

 

 

Str à Converte um valor numérico para uma string;

 

Sintaxe:

Str(X [: Width [: Decimals ]]; var S);

 

Exemplo:

Procedure Tform1.Button1Click(Sender: TObject);

var

X, Temp: String;

A: Integer;

begin

A:=A+1

Str(A:2:1, Temp); { Transforma A em string de tamanho dois e uma casa decimal }

X := 'O número é ' + Temp;

MessageDlg(X, mtInformação, [mbOk], 0);

end;

 

Val à Converte um valor string para sua representação numérica;

 

Sintaxe:

Val(S; var V; var Code: Integer);

 

Exemplo:

Procedure Tform1.Button1Click(Sender: TObject);

var

I, Code: Integer;

begin

Val(Edit1.Text, I, Code); { Converte o conteúdo de Edit1 para um valor }

end;

 

 

If ... Then ... Else

à If, then, e else especifica a condicional sobre a qual uma declaração será executado.

 

Sintaxe:

If <Expressão1> then <expressão2> else <expressão3>;

 

Exemplo:

Procedure Tform1.Button1Click(Sender: TObject);

var

idade:integer;

begin

idade := Edit1.text;

If (idade < 1) or (idade > 120) then

Label2.caption := ‘Você não está dizendo a verdade.’ {Executa se idade<1 ou idade>120}

Else

Label2.caption := ‘Ok!’; { Executa se idade não for < 1 ou > 120 }

end;

 

 

Case ... of à O procedimento Case é usado para ramificar um código dependendo do resultado ou valor encontrado neste código.

 

Sintaxe:

Case <expressão> of

<valores>

else

<valor>

 

Exemplo:

Procedure Tform1.Button1Click(Sender: TObject);

var

tecla:char;

begin

tecla := Edit1.text;

Case tecla of

‘A’..’Z’, ‘a’..’z’:Label2.caption:=‘Você digitou uma letra’;{Executa se digitado uma letra}

‘0’..’9’:Label2.caption:=‘Você digitou um número’ { Executa se digitado um número }

else

Label2.caption:=‘Você digitou um caracter especial’; { Executa se digitado outra tecla }

end;

 

 

Repeat ... until à Os procedimentos entre Repeat e until é executado na seqüência enquanto uma condição seja satisfeita.

 

Sintaxe:

Repeat

<procedimentos>

until <expressão>;

 

Exemplo:

Procedure Tform1.Button1.Click(Sender: TObject);

var

a, b : integer;

begin

b := 1;

Repeat

a := a + b;

Label3.caption := str (a) + str(b);

until a = 1000; { Se a <> de 1000 , senão }

end;

 

 

While .. Do à A declaração While controla a execução repetida de uma declaração simples ou composta.

 

Sintaxe:

While <expressão> do <procedimento>

 

Exemplo:

Procedure Tform1.Button1Click(Sender: TObject);

var

a, b : integer;

begin

b := 1;

While a < 1001 Do { Enquanto a for < que 1001 executa o bloco, senão }

begin

a := a + b;

Label3.caption := str (a) + str(b);

end;

end;

 

 

For .. Do à O loop For .. Do é uma declaração que será executada até que a variável de controle seja satisfeita.

 

Sintaxe:

For <variável de controle> := <valor inicial> To ou Downto <valor final> Do <procedimentos>

 

Exemplo:

Procedure Tform1.Button1Click(Sender: TObject);

var

cont, x : integer;

begin

For cont := 1 To 100 Do { Repete o bloco 100 vezes }

begin

x := x + cont;

Label4.caption := str(x);

end;

end;

 

 

Goto / Label: à A instrução Goto permite que você salte de onde está no momento para um linha rotulada específica. Um rótulo é definido usando-se a palavra label.

 

Sintaxe:

Goto <rótulo>;

Label <rótulo>;

 

Exemplo:

Procedure Tform1.Button1Click(Sender: TObject);

var

resp : char;

a, b : integer

begin

b := 1;

Label inicio: { A linha é rotulada como inicio }

a := a +b;

Label2.caption := str(a);

Label3.caption := ‘Deseja somar mais um’;

Edit1.visible := True;

resp := Edit1.text;

If (resp = ‘S’ or ‘s’ or ‘Y’ or ‘y’) then Goto inicio; { Volta para o rótulo }

end;

 

 

RunError à Este comando emite um número de erro que você introduz como motivo de falha de programa.

 

Sintaxe:

RunError [ ( Errorcode: Byte ) ];

 

Exemplo:

Procedure Tform1.Form1Load(Sender: TObject);

var

I : Char;

Cont : Integer;

begin

repeat

I := Edit1.text;

If I := ‘Q’ then RunError (230); { Emite ao usuário o erro 230 }

until FALSE;

end;

 

Créditos desconhecidos ( nao sei quem que criou os exemplos, eu apenas fiz e editei o topico )

 

É isso ae galera, espero que tenham gostado e que seja util...

 

flw, até mais.

[matheusguerra 3]

boa, bem explicado(pelo menos pra mim)

parece ate que vc vai concorer com o tuto do mes´kkkkk

 

quem sabe, pelo menos o basico do pascal intende o que os codigos dizen

 

boa, bem explicado(pelo menos pra mim)

parece ate que vc vai concorer com o tuto do mes´kkkkk

 

quem sabe, pelo menos o basico do pascal intende o que os codigos dizen