在资料里遇见13*42*23的时候,如何去掉*拆成13 42 23这样？

Question

在资料里遇见13*42*23的时候,如何去掉*拆成13 42 23这样？分数不够可以再加！！！

Answer 1

有一个字符串替换函数
AnsiReplaceStr('13*42*23','*',' ');

Answer 2

我是要在数据库中找出来显示成长宽高12，42，23这样不更改数据库原来的资料看看字符替换行不，SQL行吗？

Answer 3

仅仅是 长，宽，高 的话  就用POS（）吧 取*的位置 就可以了

Answer 4

StringReplace('13*42*23','*',' ');

Answer 5

procedure TForm1.Button1Click(Sender: TObject);
var
  str,temp: string;
begin
  str := Edit1.Text;
  while pos('*',str) > 0 do
  begin
    temp := copy(str,1,pos('*',str)-1);
    str := temp + copy(str,pos('*',str)+1,length(str)-pos('*',str));
  end;
  edit2.Text := str;
end;

Answer 6

procedure TForm1.Button1Click(Sender: TObject);
var
  str,temp: string;
begin
  str := Edit1.Text;
  while pos('*',str) > 0 do
  begin
    temp := copy(str,1,pos('*',str)-1);
    str := temp +' '+ copy(str,pos('*',str)+1,length(str)-pos('*',str));--这样就是空格
  end;
  edit2.Text := str;
end;

Answer 7

如果我要分开三个edit显示呢？

Answer 8

如果我要分开三个edit显示呢？//楼主 你这问题本来就不难 现在又多了个问题  如果你肯花费几分钟看看POS函数 COPY函数的话 就好了 这个问题 更简单！