굉장히 유용하게 사용했습니다.
하지만 반복적으로 result를 호출하게 될 경우 이전에 사용한 리턴값들이 점점 쌓이는 문제가 일어나서
function RemoveSpecialChar(sSrc: string): string;
var
I: integer;
rt_string:string
begin
rt_string:='';
for I:=1 to Length(sSrc) do begin
if (sSrc[I] in ['A'..'Z', 'a'..'z', '0'..'9']) or (ByteType(sSrc, I)<>mbSingleByte) then
rt_string := rt_string + sSrc[I];
end;
result:=rt_string;
end;
이런 식으로 처리하였습니다.
모두 도와주셔서 감사합니다.
|