我提取一文档的内容存入sql20000数据库，发现文档中有许多的标点符号。如 ' ‘"“’等等。我想去删除字符串中除数字、汉字和英文字符 ，以外的所有标点符号。我想做一个通用涵数，请教程式如何实现。在线等待！！！！！！！

Hi:    剛剛試了一下，程式碼如下，其中 Edit1 中，放入欲刪除之字元。 Memo1中為原始資料，Memo2中為結果，Memo3為被去除之字元。    

 
procedure TForm1.Button2Click(Sender: TObject);
VAR
    L,P : Integer;
    S1 : Array[0..1000] OF Char;
    S2,S3 : String;
begin
    Memo2.Lines.Clear;
    Memo3.Lines.Clear;
    FOR L := 0 TO Memo1.Lines.Count - 1 DO
        BEGIN
            StrPCopy(S1,Memo1.Lines.Strings[L]);
            S2 := '';
            S3 := '';
            P := 0;
            WHILE  P <= Length(Memo1.Lines.Strings[L]) - 1 DO
                BEGIN
                    IF ORD(S1[P]) > 127 THEN
                        BEGIN
                            IF Pos(Copy(Memo1.Lines.Strings[L],P   1,2),Edit1.Text) = 0 THEN
                                BEGIN
                                    S2 := S2   Copy(S1,P   1,2);
                                END
                            ELSE
                                S3 := S3    Copy(S1,P   1,2);
                            INC(P);
                        END
                    ELSE
                        BEGIN
                            IF Pos(Copy(Memo1.Lines.Strings[L],P 1,1),Edit1.Text) = 0 THEN
                                BEGIN
                                    S2 := S2   Copy(S1,P   1,1);
                                END
                            ELSE
                                S3 := S3   Copy(S1,P   1,1);
                        END;
                    INC(P);
                END;
            Memo2.Lines.Add(S2);
            memo3.Lines.Add(S3)
        END;
end;

試試看 ---------------------- 新手上路，請多多指教 ----------------------

------
Fishman