mh, den "Blödsinn" hab ich nicht gesehen
Macht nichts, denn was da stand, war nicht richtig.
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
Der Code von Uwe funktioniert perfekt und müßte meiner Meinung nach genau das abdecken, was Du willst.
Programmieren ist die Kunst aus Nullen und Einsen etwas sinnvollen zu gestalten.
Der bessere Künstler ist allerdings der Anwender, denn dieser findet Fehler, welche sich der Programmierer nicht vorstellen konnte.