Dicas - Procedimentos e Funções Pré-Definidas

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 mais uma série de dicas sobre procedimentos e funções pré-definidas para delphi win32.

 

function DayOfWeek(Date: TDateTime): Integer;

Retorna o dia da semana especificado entre 1 e 7, onde domigo é um e Sábado é 7

procedure TForm1.Button1Click(Sender: TObject);

var

ADate: TDateTime;

begin

ADate := StrToDate(Edit1.Text);

Label1.Caption := Day + IntToStr(DayOfWeek(ADate)) + of the week;

end;

 

 

procedure DecodeDate(Date: TDateTime; var Year, Month, Day: Word);

Quebra os valores especificados no parâmetro Date em Year, Month e Day.

procedure TForm1.Button1Click(Sender: TObject);

var

Present: TDateTime;

Year, Month, Day, Hour, Min, Sec, MSec: Word;

begin

Present:= Now;

DecodeDate(Present, Year, Month, Day);

Label1.Caption := Today is Day + IntToStr(Day) + of Month

+ IntToStr(Month) + of Year + IntToStr(Year);

DecodeTime(Present, Hour, Min, Sec, MSec);

Label2.Caption := The time is Minute + IntToStr(Min) + of Hour

+ IntToStr(Hour);

end;

 

 

procedure DecodeTime(Time: TDateTime; var Hour, Min, Sec, MSec: Word);

Quebra os valores especificados em Time nos par6ametros Hour, Min, Sec e MSec.

procedure TForm1.Button1Click(Sender: TObject);

var

Present: TDateTime;

Year, Month, Day, Hour, Min, Sec, MSec: Word;

begin

Present:= Now;

DecodeDate(Present, Year, Month, Day);

Label1.Caption := Today is Day + IntToStr(Day) + of Month

+ IntToStr(Month) + of Year + IntToStr(Year);

DecodeTime(Present, Hour, Min, Sec, MSec);

Label2.Caption := The time is Minute + IntToStr(Min) + of Hour

+ IntToStr(Hour);

end;

 

 

procedure Delete(var S: string; Index, Count:Integer);

Remove a substring de Count caracters da string S partir da posição Index

var

s: string;

begin

s := Honest Abe Lincoln;

Delete(s,8,4);

Canvas.TextOut(10, 10, s);	{ Honest Lincoln }

end;

 

 

function DeleteFile(const FileName: string): Boolean;

Apaga o arquivo FileName do disco. Se o arquivo não puder ser apagado a função retorna False.

DeleteFile(DELETE.ME);

 

 

function DirectoryExists(Name: string): Boolean;

Verifica se Name diretorio existe

 

 

function DiskFree(Drive: Byte): Integer;

Retorna o número de bytes livre no driver especificado em Drive.

Onde : 0 = Corrente, 1 = A, 2 = B,...

DiskFree retorna –1 se o driver for inválido

var

S: string;

begin

S := IntToStr(DiskFree(0) div 1024) + Kbytes free.;

Canvas.TextOut(10, 10, S);

end;

 

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