高分相送……求一函数（去"/"字符串）

Question

如题，比如输入:a/b/csd/
返回结果:abcsd
非常感谢

Answer 1

var
  StrList: TStringList;
  i:integer;
begin
  StrList := TStringList.Create;
  try
    StrList.Delimiter:='/';
    StrList.DelimitedText:='a/b/csd/';
    for i:=0 to StrList.Count-1 do
    begin
      StrList.Strings[i];
    end;  finally
    FreeAndNil(StrList);
  end;

Answer 2

对 StringReplace ！ 针对单一字符的过滤

Answer 3

花：s:=StringReplace('a/b/csd/','/','') 的参数好像不好呀？

Answer 4

StringReplace('a/b/csd/','/','',[rfReplaceAll])

Answer 5

zzh26(瞌睡) ：你的方法我试了后结果怎么变成了空值？

Answer 6

用showmessage(StrList.Strings[i]);就能一个个显示了

Answer 7

function TForm1.strtostr(str: string): string;
var
i:integer;
str1:string;
begin
  str1:='';
  for i:=1 to length(str) do
  begin
    if str[i]<>'\' then
    str1:=str1+str[i];
  end;
  result:=str1;
end;

Answer 8

zzh26(瞌睡) 的没有问题
var
  StrList: TStringList;
  i:integer;
begin
  StrList := TStringList.Create;
  try
    StrList.Delimiter:='/';
    StrList.DelimitedText:='a/b/csd/';
    for i:=0 to StrList.Count-1 do
    begin
      StrList.Strings[i];
    end;
    edit1.text:=strlist.text;//在这里测试一下
  finally
    FreeAndNil(StrList);
  end;

Answer 9

function delchar(source:string;c:char):string;
var i:integer;
begin
  result:='';
  for i:=0 to length(source) do
    if s[i]<>c then result:=result+s[i];  
end;

Answer 10

function delchar(source:string;c:char):string;
  var i:integer;
  begin
    result:='';
    for i:=1 to length(source) do
      if source[i]<>c then result:=result+source[i];
  end;