5 Dicas de Delphi

Dicas de Programação Delphi

5 Dicas de Delphi Neste post mostraremos 5 dicas de desenvolvimento na linguagem de programação Delphi. Verificando se uma data esta em um final de semana Esta função testa se a data informada como parâmetro está em um fim de semana (Sábado ou Domingo). Em caso de positivo retorna True. Se não retorna False

Verificando atributo

Continuar lendo »

Informações do Ambiente

Informações do Ambiente Como obter informações do ambiente via Programação Delphi 1a. Parte: A função. function API_GetEnvironmentVariables : String; var pEnvStrings : pointer; i : integer; begin pEnvStrings := GetEnvironmentStrings; try i := 1; repeat while string(pEnvStrings)[i] <> #0 do begin result:=result+string(pEnvStrings)[i]; inc(i); end; result:=result+#255; inc(i) until string(pEnvStrings)[i]=#0; finally result:=result+#255; FreeEnvironmentStrings(pEnvStrings); end; end; 2a. Parte:

Continuar lendo »

Remove um diretório

Remove um diretório procedure Deltree( cPath: string ); var search: TSearchRec; nFiles: integer; begin nFiles:=FindFirst( cPath + ‘*.*’, faAnyFile, search ); while nFiles=0 do begin if Search.Attr = faDirectory then begin if (Search.Name<>’.’) and (Search.Name<>’..’) then begin Deltree( cPath + ‘\’ + Search.Name ); RMDir( cPath + ‘\’ + Search.Name ); end; end else begin

Continuar lendo »

Escreve na diagonal

Procedure que escreve na diagonal em Delphi Procedure Diagonal(FName: String;Fsize, Pos, Land:Integer; Fcor:TColor;Texto: String); var lf : TLogFont; tf : TFont; begin with Form1.Canvas do begin Brush.Style := bsClear; Font.Name := FName; Font.Size := Fsize; Font.Color := Fcor; tf := TFont.Create; tf.Assign(Font); GetObject(tf.Handle, sizeof(lf), @lf); lf.lfEscapement := Pos; lf.lfOrientation := Land; lf.lfQuality := 1; tf.Handle

Continuar lendo »