闪 闪闪2002 Unregistered / Unconfirmed GUEST, unregistred user! 2002-09-05 #1 在一字符串中,003560 003560 1000 0.00000000 0.00000000 0.000 0.000 0085928856 成套公司 中间有空格和Tab键,请问怎么去掉Tab键或者怎么用空格代替Tab键?
在一字符串中,003560 003560 1000 0.00000000 0.00000000 0.000 0.000 0085928856 成套公司 中间有空格和Tab键,请问怎么去掉Tab键或者怎么用空格代替Tab键?
A armyjiang Unregistered / Unconfirmed GUEST, unregistred user! 2002-09-05 #2 var tmpstr : string; begin tmpstr := edit1.text; while Pos(#9, tmpstr) > 0 do tmpstr[Pos(#9, tmpstr)] := #32;//这是转换为空格,如果要去掉的话要另外换写法。 edit2.text := tmpstr;
var tmpstr : string; begin tmpstr := edit1.text; while Pos(#9, tmpstr) > 0 do tmpstr[Pos(#9, tmpstr)] := #32;//这是转换为空格,如果要去掉的话要另外换写法。 edit2.text := tmpstr;
H huawdg Unregistered / Unconfirmed GUEST, unregistred user! 2002-09-05 #3 str:=StringReplace(str,#9,#32,[rfReplaceAll]);