Cópia de arquivos no Delphi

Cópia de arquivos no Delphi. Para copiar arquivos no delphi utilize: CopyFile (ArquivoDeOrigem, ArquivoDeDestino); Copie o arquivo FMXUtils.Pas que está em um dos subdiretórios do Delphi (use Localizar para encontrá-lo) para o diretório do seu programa ou para o diretório onde você coloca seus componentes. Não se esqueça de colocá-lo na cláusula Uses da sua

Continuar lendo »

Função para adquirir Data e Hora de um arquivo

Função para adquirir Data e Hora de um arquivo function GetFileDate(Arquivo: String): String; var FHandle: integer; begin FHandle := FileOpen(Arquivo, 0); try Result := DateTimeToStr(FileDateToDateTime(FileGetDate(FHandle))); finally FileClose(FHandle); end; end;

Continuar lendo »

Limitando a região de movimentação do mouse

Limitando a região de movimentação do mouse Insira na seção uses a seguinte clausula: Windows Coloque um botão no form e altera o evento OnClick dele conforme abaixo: procedure TForm1.Button1Click(Sender: TObject); var R: TRect; begin { Pega o retângulo da área cliente do form } R := GetClientRect; { Converte as coordenadas do form em

Continuar lendo »

Função para impressão de linhas em um relatório

Função para impressão de linhas em um relatório procedure TPrintx_Form1.Say(Nlin,Ncol: Integer;Var LinhaAtual: Integer; Var Arquivo: Text;Texto: Variant); var X: Integer; begin Write(Arquivo,#13); If Nlin<>LinhaAtual then begin for X :=LinhaAtual to (Nlin-1) do begin WriteLn(Arquivo,”); LinhaAtual:=LinhaAtual+1; end; end; If Ncol>0 then begin For X:=0 to Ncol do begin Write(Arquivo,’ ‘); end; end; If LinhaAtual >=63 then

Continuar lendo »
Pages:«1...6789101112...22»