怎么把取到的字符的竖线去掉。

Question

这是取值的代码：
       with TStringList.Create do try
           Text := form1.IdHTTP4.Ge('http://www.xxx.com');
           if Count > 5 then
              begin
                 form1.edit6.Text:= Copy(Strings[Count - 10], 7, 5);
              end;
       finally
         Free;
       end;
网站上的原码是这样格式（取了部分）
85.11|85.29|---|       我取的是85.29位置的值，，问题是：
如果小数位数是两位的话，没问题，
但，哪果小数位是一位，的话，，就会把后面的‘|’这个竖线也取下来了，有什么办法，在小数位为1位时，取不到那条线，，或者在小数位是1位时，把取下来的‘|’，用0替换掉也行，试着做了做，可是没成功。要怎么做呢？

Answer 1

var
  I: Integer;
  Strs: TStrings;
begin
  Strs := TStringList.Create;
  ExtractString(['|'], [], PChar(Text){这里替换你的内容}, Strs);
  for I := 0 to Strs.Count - 1 do
  begin
    ShowMessage(Strs[I]);
  end;
end;随手写的,自己调试看看:)