Converte um número decimal em binário

Converte um número decimal em binário function DecToBinStr(n: integer): string; var S: string; i: integer; Negative: boolean; begin if n < 0 then begin Negative := true; end; n := Abs(n); for i := 1 to SizeOf(n) * 8 do begin if n < 0 then begin S := S + ‘1’; end else begin

Continuar lendo »

Quantos fins de semana já se passaram no corrente ano

Quantos fins de semana já se passaram no corrente ano   function WeekNum(const TDT:TDateTime) : Word; var Y,M,D:Word; dtTmp:TDateTime; begin DecodeDate(TDT,Y,M,D); dtTmp := EnCodeDate(Y,1,1); Result := (Trunc(TDT-dtTmp)+(DayOfWeek(dtTmp)-1)) DIV 7; if Result = 0 then begin Result := 51 end else begin Result := Result-1; end; End;

Continuar lendo »

Enviando arquivos para a lixeira

Enviando arquivos para a Lixeira Para excluir um arquivo, enviando-o para a Lixeira (ao invés de excluí-lo definitivamente), use a rotina abaixo: uses ShellAPI; {insira na cláusula uses de sua unit} function MandaParaALixeira (Arquivo : String) : Boolean; var FOS : TSHFileOpStruct; begin FillChar(FOS, sizeof(FOS), 0); with FOS do begin wFunc := FO_DELETE; pFrom := PChar

Continuar lendo »

Movendo um Form sem barra de título

Movendo um Form sem barra de título Forms que não possuem barra de título (as que têm a propriedade BorderStyle setada em bsNone) podem ser movidas, através da rotina abaixo, que permite que se clique no form para poder mover a janela). Primeiramente, vá na seção public da classe que define o form, e digite a linha abaixo:

Continuar lendo »
Pages:«1234567...22»