字符串操作问题，如何把"12/31/2002"转换成"20021231"??(100分)

字符串操作问题，如何把"12/31/2002"转换成"20021231" ???

formatdatetime('yyyyMMdd',strtodate('12/31/2002'));

--------------
http://www.delphibbs.com/delphibbs/dispq.asp?lid=1144133

用ANSISTRING的方法也能改啊，先自己查查资料不行吗

你看这样行不行:
Var
Str1,Str2:String;
Begin
Str1:='12/31/2002';
Str2:=Copy(Str1,7,4)+Copy(Str1,1,2)+Copy(Str1,4,2);
End;
Str2的值不就为"20021231"吗?

procedure TForm1.Button1Click(Sender: TObject);
var s, y, m, d: string;
t: Integer;
begin
// 笨方法 (可以省了看Help的时间)
s := '12/31/2002';

t := pos('/', s);
m := copy(s, 1, t-1);
s := copy(s, t+1, length(s)); // '31/2002'

t := pos('/', s);
d := copy(s, 1, t-1);
s := copy(s, t+1, Length(s)); // '2002'

y := s;

Button1.Caption := y + m + d;

// 通用转换方法(另一种需要)
caption := FormatDateTime('YYYYMMDD',now());
end;
以上代码经测试通过, 现供大家参考!!!

多人接受答案了。