S suninrain Unregistered / Unconfirmed GUEST, unregistred user! 2004-05-24 #2 datetostr(now); 然后找到第一个不是数字的字符
K kouchun Unregistered / Unconfirmed GUEST, unregistred user! 2004-05-24 #3 s:=datatostr(now) for i:=1 to length(s) do begin if not (s in ['0'..'9']) then memo1.add(s); end; memo1中顯示出了時間的分格符了
s:=datatostr(now) for i:=1 to length(s) do begin if not (s in ['0'..'9']) then memo1.add(s); end; memo1中顯示出了時間的分格符了
Q QuickSilver Unregistered / Unconfirmed GUEST, unregistred user! 2004-05-24 #4 uses commctrl .... procedure TForm1.Button1Click(Sender: TObject); begin edit1.Text:=GetLocaleStr(GetThreadLocale, LOCALE_SDATE, '') end;
uses commctrl .... procedure TForm1.Button1Click(Sender: TObject); begin edit1.Text:=GetLocaleStr(GetThreadLocale, LOCALE_SDATE, '') end;
S Siva Unregistered / Unconfirmed GUEST, unregistred user! 2004-05-24 #5 Delphi提供了一整套用于设置日期、时间、货币、数字等格式的系统变量，其中： DecimalSeparator: Char; 小数点 DateSeparator: Char; 日期分隔符号 procedure TForm1.Button1Click(Sender: TObject); begin DateSeparator := '-'; ShortDateFormat := 'm/d/yyyy'; Label1.Caption := DateToStr(Date); end;
Delphi提供了一整套用于设置日期、时间、货币、数字等格式的系统变量，其中： DecimalSeparator: Char; 小数点 DateSeparator: Char; 日期分隔符号 procedure TForm1.Button1Click(Sender: TObject); begin DateSeparator := '-'; ShortDateFormat := 'm/d/yyyy'; Label1.Caption := DateToStr(Date); end;
S saellen Unregistered / Unconfirmed GUEST, unregistred user! 2004-05-24 #6 showmessage(DateSeparator);
M manana Unregistered / Unconfirmed GUEST, unregistred user! 2004-05-24 #7 DateSeparator日期分隔符 TimeSeparator时间分隔符 在编程的时候直接用DateSeparator:='-';就可以了。 象楼上说的就可以搞定
V vine Unregistered / Unconfirmed GUEST, unregistred user! 2004-05-24 #8 对，DateSeparator 是声明在SysUtils单元的变量，并通过 DateSeparator := GetLocaleChar(DefaultLCID, LOCALE_SDATE, '/');
对，DateSeparator 是声明在SysUtils单元的变量，并通过 DateSeparator := GetLocaleChar(DefaultLCID, LOCALE_SDATE, '/');
D dlwzp Unregistered / Unconfirmed GUEST, unregistred user! 2004-05-25 #9 谢谢大家, manana说的比较简洁，并且不用判断日期分隔符
