字符串中取中文串？我写的代码帮我看一下？

Question

你的错误可能是name还没有分配资源//SetLength()
//当然你也不知道具体要分配多少长度！
name := name + content; //为什么不用？另外不要用Name、Content等容易系统冲突的命名。
最好养成加前缀的习惯如：sName、sContent//vName、vContent//参考如下代码
var
  I: Integer;
  vName, vContent: string;
begin
  vName := '';
  for I := 1 to Lenght(WideString(vContent)) do
    if Length(WideString(vContent)[I]) = 2 then
      vName := vName + WideString(vContent)[I];
end;

Answer 1

我已解决不过方法比较苯,其中TrimAllChar()为去除
字符串中所有第2个参数的字符
name:=content;
for i:=1 to length(content) do
  begin
   if content[i]<=#127 then
    begin
    name:=TrimAllCHar(name,content[i]);
    end;
   end;