替换(100分)

我有一数据库
字段名 Sname Tname
. w_c01_finaline
. w_c02_finaline
. .
我想将tname字段所有记录
由w_c01_finaline 替换为 c01_finaline

Form Tdbeditform
table TcardTable
源程序如下：
procedure TDbeditForm.ToolButton4Click(Sender: TObject);
Var
Cstring:string;
begin
CardTable.First;
while not CardTable.Eof do
Begin
Cstring:=fieldsbyname('Tname');
CardTable.SetRecord(,trim(copy(Cstring,3,13)))
end;
post
end;
但是不行，请问我该怎么做？

while not CardTable.Eof do
Begin
Cstring:=fieldsbyname('Tname');
if cstring='w_c01_finaline' then
begin
CardTable.Edit;
CardTable.Fieldbyname('Tname').asString:= 'c01_finaline' ;
CardTable.Post;
end;
// CardTable.SetRecord(,trim(copy(Cstring,3,13)))
end;

update table_name set Tname=substring(ltrim(Tname),3,len(ltrim(Tname)-2)

把这两句改一下：
Cstring:=fieldsbyname('Tname');
CardTable.SetRecord(,trim(copy(Cstring,3,13)))

Cstring:=CardTable.FieldByName('Tname').AsString;
CardTable.FieldByName('Tname').AsString:=Trim(Copy(Cstring,3,13));
Post; //这时就要POST了。

接受答案了.