如何过滤从SQL获取的内容

Question

edit1.Text:=query1.fieldbyname('Re').AsString;
re列中的内容可能是：
销售---qs进生西医内科诊所
销售---志田诊所-坑上
销售---(xy)#燕红西医妇科诊所
销售---ss四和中医内科诊所2
销售---adf秀霞西医妇科诊所
销售---QQQ爱云西医内科诊所-a
.....其中任意的一条；
现在需要将edit1.Text得到内容只显示为“销售---”后面除去符号的汉字内容，如“爱云西医内科诊所”这个要怎么写？请大师指教！

Answer 1

先POS判断---是否存在，再COPY截取前面的串就OK了好好编程，保护钓鱼岛，钓鱼岛是中国的，编程是世界的

Answer 2

function GetStringCN(Source:string):string;
var
  i:integer;
begin
  delete(Source,1,7); {固定的格式:销售---}
  i:=Length(Source);
  while i>0 do
  begin
    if ByteType(Source,i) <> mbTrailByte then
    begin
      delete(Source,i,1);
      dec(i);
    end else
      dec(i,2);
  end;  Result:=Source;
end;Edit1.Text:=GetStringCN('query1.fieldbyname('Re').AsString');

Answer 3

哦，调用错了; Edit1.Text:=GetStringCN(query1.fieldbyname('Re').AsString);