在字符串中处理Tab键的问题(20分)

  • 主题发起人 主题发起人 闪闪2002
  • 开始时间 开始时间

闪闪2002

Unregistered / Unconfirmed
GUEST, unregistred user!
在一字符串中,003560 003560 1000 0.00000000 0.00000000 0.000 0.000 0085928856 成套公司
中间有空格和Tab键,请问怎么去掉Tab键或者怎么用空格代替Tab键?
 
var
tmpstr : string;
begin
tmpstr := edit1.text;
while Pos(#9, tmpstr) > 0 do
tmpstr[Pos(#9, tmpstr)] := #32;//这是转换为空格,如果要去掉的话要另外换写法。
edit2.text := tmpstr;
 
str:=StringReplace(str,#9,#32,[rfReplaceAll]);
 
谢谢大家问题已解决
 
后退
顶部