Adicionando à hora atual, um número determinado de horas

Adicionando à hora atual, um número determinado de horas Utilize a função abaixo: function AdicionaHora(TimeAdd: Integer) : String; Var Horas,Min,SomaHoras,SomaMin : Integer; S, S1 : String; begin Horas := Strtoint(Copy(TimetoStr(Time),1,2))+ TimeAdd; Min := Strtoint(Copy(TimetoStr(Time),4,2))+ TimeAdd ; SomaHoras := SomaHoras+Horas; SomaMin := SomaMin + Min; If SomaMin > 59 Then begin if SomaMin mod 60 =

Continuar lendo »

Traduzindo a mensagem : Delete Record

Quando clicamos sobre o botão de deleção no DBNavigator  (o do sinal de menos) surge uma box com a mensagem  “Delete Record?” com botões Ok e Cancel. Para fazer aparecer a mensagem em português deverá selecionar o componente Table e mudar a propriedade ConfirmDelete para False e no evento da tabela BeforeDelete colocar o seguinte: procedure TForm1.Table1BeforeDelete(DataSet:TDataSet); begin

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