alsoo,
Delphi-Quellcode:
procedure TForm19.ClientDataSet1MyFieldGetText(Sender: TField; var Text: string; DisplayText: Boolean);
begin
Text := FormatDateTime('hh:mm', Sender.AsDateTime);
end;
procedure TForm19.ClientDataSet1MyFieldSetText(Sender: TField; const Text: string);
begin
Sender.AsDateTime := DateOf(Sender.AsDateTime) + StrToTime(Text);
end;
im Dataset verursacht mir unerklärliche Dinge
Die Uhrzeit steht zu Beginn im Caption der Form und das Feld im Grid ist leer