请问各位高手，如何在字符串中删除制定的字符，在线等待。

Question

我现在要将一些字符串中制定的字符删除，比如将16584641-54，中的“-”删掉，请问我该怎么做，在线等待。

Answer 1

var
  s: string;
begin
   s := '16584641-54';
   Delete(s,pos('-',s),1);
   showmessage(s);
end;

Answer 2

delete 函数 从字符串中删除子串

Answer 3

function select(str1:string):string;
var
str2:string;
k:integer;
begin
k:=1;
while k<length(str1) do
begin
  if str1[k]<>'-' then
     str2=str2+str1[k];
end; 
result;str2;
end;这个函数应该可以完成你所要的结果!

Answer 4

用stringreplace！！
强烈推荐！

Answer 5

上面的代码不是太完善,修改一下function select(str1,delstr:string):string;// str1 源字符串,delstr要删除的字符串;
var
str2:string;
k:integer;
begin
k:=1;
while k<length(str1) do
begin
  if str1[k]<>delstr then
     str2=str2+str1[k];
end; 
result;str2;
end;