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;

Continuar lendo »

Obtendo o próximo dia útil caso a data informada caia em um fim de semana

Obtendo o próximo dia útil caso a data informada caia em um fim de semana Function ProximoDiaUtil (dData : TDateTime) : TDateTime; begin if DayOfWeek(dData) = 7 then dData := dData + 2 else if DayOfWeek(dData) = 1 then dData := dData + 1; ProximoDiaUtil := dData; end;

Continuar lendo »

Criando um efeito degradê de cores

Criando um efeito degradê de cores Esta dica mostra como criar um efeito degradê em um Canvas qualquer. Neste caso, estamos utilizando um componente TPaintBox e o evento OnPaint. Dependendo da utilização deste recurso, esta rotina pode ser adaptada para funcionar em um outro componente. procedure TForm1.PaintBox1Paint(Sender: TObject); const clStart: TColor = clRed; clEnd: TColor

Continuar lendo »

Obtendo o nome do usuário e a empresa do Windows

Obtendo o nome do usuário e a empresa do Windows Para Obter o nome do usuário e a empresa em que Windows esta registrado, siga os procedimentos abaixo: 1-Insira Registry em Uses: Uses Registry; 2-Insira no Form, 2 Edit’s e um Botão. Programe o evento click do botão com o seguinte código abaixo: Procedure TForm1.Button1Click(Sender:

Continuar lendo »
Pages:«123456789...23»