댓글 : 4 개
한국 델파이 동호회 델마당
구름천사
(정구현) 		 
특수문자를 공백대신 넣었다 치한하시면 될듯한데...
예전에 저도 공백을 확인하려고 $표시나 %를 대신넣고 
사용할때 치환 했었습니다... 
2017-12-13 오후 4:42:18
김시준
(김시준) 		 
procedure TForm4.Button1Click(Sender: TObject);
var
    List: TStringList;
    s: string;
    i: Integer;
begin
    s := '';
    List := TStringList.Create;
    List.Delimiter := ' ';
    List.DelimitedText := '만천a길 67-교동 779-a6';

    for i := 0 to List.Count - 1 do
        s := s + Format('(%s) ', [List.Strings[i]]);

    List.Free;
    ShowMessage(s);
end; 
2017-12-13 오후 4:52:05
초보에요33
(김현수) 		 
답변감사합니다.. 적용해보려 했는데 안되서 copy와 pos로 시도중입니다. 
2017-12-14 오후 6:03:33
regina
(황원희) 		 

s := Trim('만천a길 67-교동 779-a6');
s := ReplaceStr(s, '  ', ' ');
s := ReplaceStr(s, ' ', ') (');
s := '(' + s + ')'; 
2017-12-20 오후 2:46:11