4

Delphi2007を使用しています。

常に01/01/をEditValueとしてTDateEditボックス（DevExpressコンポーネント）に返すFormatDateTime関数を作成する必要があります。

私はすでに試しました...

tcxDateEdit1.EditValue := FormatDateTime('01/01/'+ 'yyyy',now);

と

tcxDateEdit1.EditValue := FormatDateTime('01/01/yyyy',Now);

しかし、それらのどれも機能しませんでした。文字列型のバリアントをdoubleに変換するとエラーが発生します。「タイプ（String）のバリアントをタイプ（Double）に変換できませんでした」

4

1 に答える 1

5

私は推測しているだけですが、あなたのEditValueプロパティはTDateTime（またはTDate）タイプのようです（whileは）をFormatDateTime返しますstring。それが本当なら、あなたは以下を試すことができます：

tcxDateEdit1.EditValue := EncodeDate(YearOf(Now), 1, 1);

参照：YearOf、EncodeDate、FormatDateTimeのドキュメント

于 2011-11-07T16:19:44.833 に答える