stringreplace
label1.Caption := stringreplace('2008-09-02','-','/',[rfReplaceAll]);
function StringReplace(const S, OldPattern, NewPattern: string; Flags: TReplaceFlags): string;
S:源字符串;
OldPattern:要被替换的字符串;
NewPattern:替换的字符串;
Flags:有两种参数:1. rfReplaceAll,将出现的所有要被替换的字符串都替换掉; 2.rfIgnoreCase,只替换掉第一次出现的要被替换的字符串。这个参数要加上中括号才行。