Dicas - Procedimentos e Funções Pré-Definidas para Delphi Win32 - 7 dicas úteis

Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Para efetuar o download você precisa estar logado. Clique aqui para efetuar o login
Confirmar voto
0
 (0)  (0)

Veja nessa dica, um conjunto de dicas sobre procedimentos e funções pré-definidas para Delphi Win32.

Procedimentos e Funções Pré-Definidas

 

Veja um conjunto de dicas sobre procedimentos e funções pré-definidas para Delphi Win32.  Nesta primeira parte veremos 7 dicas uteis:

 

procedure ChDir(S: string);

Troca o diretório corrente para o diretório especificado em S.

begin

{$I-}

{ Change to directory specified in Edit1 }

ChDir(Edit1.Text);

if IOResult <> 0 then

  MessageDlg('Cannot find directory', mtWarning, [mbOk], 0);

end;

 

function Chr(X: Byte): Char;

Retorna o caracter com o código ASCII X

begin

  Canvas.TextOut(10, 10, Chr(65)); { The letter 'A'}

end;

 

function Concat(s1 [, s2,..., sn]: string): string;

Concatena as strings

var

  S: string;

begin

  S := Concat('ABC', 'DEF'); { 'ABCDE' }

end;

 

function Copy(S: string; Index, Count: Integer): string;

Retorna uma substring de S, começando a partir de Index e tendo Count caracters

var

  S: string;

begin

  S := 'ABCDEF';

  S := Copy(S, 2, 3);&#9;{ 'BCD' }

end;

 

function CreateDir(const Dir: string): Boolean;

Cria um novo diretório e retorna o sucesso da operação

 

function Date: TDateTime;

Retorna a Data atual

procedure TForm1.Button1Click(Sender: TObject);

begin

  Label1.Caption := 'Today is ' + DateToStr(Date);

end;

 

function DateToStr(Date: TDateTime): string;

Converte Data para String

procedure TForm1.Button1Click(Sender: TObject);

begin

  Label1.Caption := DateToStr(Date);

end;

 
Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Receba nossas novidades
Ficou com alguma dúvida?