Comandos Delphi - Parte 1

Relação de comandos Delphi:

·      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;