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 »

Como se movimentar e manipular tabelas no Delphi

Dicas de Programação Delphi

Como se movimentar e manipular tabelas no Delphi Nesta Dica do Web Mundi.com, veremos como se movimentar e manipular tabelas no Delphi. Para manipular banco de dados via código (movimentar o ponteiro e fazer inserção, edição e exclusão de dados), use um dos seguintes comandos abaixo: Dataset.First; // Move para o primeiro registro da tabela ou query

Continuar lendo »

Trocando cor de uma linha no DBGrid por uma condição

Para trocar a fonte e a cor de um DBGrid, utilize a rotina  abaixo no evento OnDrawDataCell do DBGrid: if Tabela.FieldByName (‘Vendas’).Value >= 20000 then begin DbGrid1.Canvas.Font.Color := clRed; DbGrid1.Canvas.Font.Style := [fsBold]; end; DbGrid1.DefaultDrawDataCell(Rect, Field, State); No caso da rotina acima, somente os registros com vendas maior que R$ 20.000,00 ficarão com cor vermelha e

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