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

[解决办法]

Delphi(Pascal) code

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('Remark').AsString');