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);	{ '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;
