本文详细介绍了如何将日期时间输入到TDateTimePicker组件中，通过使用PChar和相关方法来获取和设置文本长度、内存块、文本缓冲区以及日期时间值。代码示例清晰地展示了实现过程。
以下代码放在change事件中可以实现
var
Buffer: PChar;
Size: Byte;
begin
Size := TDateTimePicker(Sender).GetTextLen;
inc(Size);
GetMem(Buffer, Size);
TDateTimePicker(Sender).GetTextBuf(Buffer,Size);
TDateTimePicker(Sender).DateTime := StrToDateTime(StrPas(Buffer));
FreeMem(Buffer, Size);
var
Buffer: PChar;
Size: Byte;
begin
Size := TDateTimePicker(Sender).GetTextLen;
inc(Size);
GetMem(Buffer, Size);
TDateTimePicker(Sender).GetTextBuf(Buffer,Size);
TDateTimePicker(Sender).DateTime := StrToDateTime(StrPas(Buffer));
FreeMem(Buffer, Size);
end;
扫一扫
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
