Delphi的DateToStr StrToDate格式灵活用法

 

procedure TForm1.Button1Click(Sender: TObject);

 var ADate: String; ADate2: TDate; AFormat, AFormat2: TFormatSettings;

 begin

    AFormat.ShortDateFormat := 'ee/mm/dd';

    AFormat.DateSeparator := '/';

    ADate := '94/05/15';

    ADate2 := StrToDate( ADate, AFormat );

    AFormat2.ShortDateFormat := 'yyyy/mm/dd';

    AFormat2.DateSeparator := '/';

    ShowMessage( DateToStr( StrToDate( ADate, AFormat ), AFormat2 ) );

 end;

 其中,最重要的就是TFormatSettings这个类. 可以设置AFormat.shortDateFormat:='yyyymmdd' DateToStr(ADate,Aformat)得到字符串就是类似20080409的字符了. 如果是'yymmdd'则为080409的字符

 

 

 

*****************************************

 

Delphi7.0如何调试程序？

按那个绿色三角形按钮就行了，如果你的代码有问题，它会在代码编辑器下方给出提示，代码编辑框中的光标会停留在有问题代码的下一条代码上。修改有问题的代码后，再按绿色按钮，如果能出现你想要的程序界面，就成了，反之，再修改代码。直到你想要效果出来为止，这就是DELPHI程序的一般调试。

 

补充，点击程序界面最左边的状态，设置断点。其他听楼上的。