Delphi Programming Forum
C++Builder  |  Delphi  |  FireMonkey  |  C/C++  |  Free Pascal  |  Firebird
볼랜드포럼 BorlandForum
 경고! 게시물 작성자의 사전 허락없는 메일주소 추출행위 절대 금지
델파이 포럼
Q & A
FAQ
팁&트릭
강좌/문서
자료실
컴포넌트/라이브러리
FreePascal/Lazarus
볼랜드포럼 홈
헤드라인 뉴스
IT 뉴스
공지사항
자유게시판
해피 브레이크
공동 프로젝트
구인/구직
회원 장터
건의사항
운영진 게시판
회원 메뉴
북마크
델마당
볼랜드포럼 광고 모집

델파이 Q&A
Delphi Programming Q&A
[14892] 답변 감사합니다.
철갑 [drsin2] 2453 읽음    2013-12-07 16:40
굉장히 유용하게 사용했습니다.

하지만 반복적으로 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;

이런 식으로 처리하였습니다.

모두 도와주셔서 감사합니다.

+ -

관련 글 리스트
14888 델파이6에서 특수문자를 제거할수 있을까요 철갑 2231 2013/12/05
14891     Re:델파이6에서 특수문자를 제거할수 있을까요 박지훈.임프 4217 2013/12/07
14892         답변 감사합니다. 철갑 2453 2013/12/07
14890     Re:델파이6에서 특수문자를 제거할수 있을까요 류종택 6893 2013/12/06
14889     Re:델파이6에서 특수문자를 제거할수 있을까요 civilian 3253 2013/12/05
Google
Copyright © 1999-2015, borlandforum.com. All right reserved.