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

Continue reading »

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

Continue reading »

Efetua a leitura um valor string no registro

function ReadRegString(sPath: HKey; sOpenKey,sNomeValue, sValue: string): string; // requer a Registry na clausula uses da unit var Reg: TRegistry; begin Reg := TRegistry.Create; try Reg.RootKey := sPath; if Reg.KeyExists(sOpenKey) then begin Reg.OpenKey(sOpenKey, false); if Reg.ValueExists(sNomeValue) then try result := Reg.ReadString(sNomeValue) except result := ‘Invalido’ end else result := ‘invalido’ end else result := ‘invalido’ finally

Continue reading »

Remove acentos de uma string

Função que remove acentos de uma string em Delphi function RemoveAcentos(Str:String): String; Const ComAcento = ‘àâêôûãõáéíóúçüÀÂÊÔÛÃÕÁÉÍÓÚÇÜ’; SemAcento = ‘aaeouaoaeioucuAAEOUAOAEIOUCU’; Var x : Integer; Begin For x := 1 to Length(Str) do Begin if Pos(Str[x],ComAcento)<>0 Then begin Str[x] := SemAcento[Pos(Str[x],ComAcento)]; end; end; Result := Str; end;

Continue reading »
Pages:1234567...23»