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
[845] [답변] DUKJUSA/델파이 1.0에서 Trim 함수 이용방법???
cmart2 [ ] 3906 읽음    1998-01-21 01:24
안녕하세요. 짱굽니다.

Trim( S : String ); 함수는 앞뒤 공백을 없애주는 함수군요...음...

그럼 직접 만들어 보는 것도 괜찮을거 같네요...

델파이 2.0이나 3.0에 있는 트림함수의 정의를 적어 드릴테니까..한번 해보세요..

function Trim(const S: string): string;
var
  I, L: Integer;
begin
  L := Length(S);
  I := 1;
  while (I <= L) and (S[I] <= ' ') do Inc(I);
  if I > L then Result := '' else
  begin
    while S[L] <= ' ' do Dec(L);
    Result := Copy(S, I, L - I + 1);
  end;
end;

function TrimLeft(const S: string): string;
var
  I, L: Integer;
begin
  L := Length(S);
  I := 1;
  while (I <= L) and (S[I] <= ' ') do Inc(I);
  Result := Copy(S, I, Maxint);
end;

function TrimRight(const S: string): string;
var
  I: Integer;
begin
  I := Length(S);
  while (I > 0) and (S[I] <= ' ') do Dec(I);
  Result := Copy(S, 1, I);
end;

이상 입니다. 그대로 해줘두 될거 같씀다...

좋은 코딩 하세요..

참 ! 소스는 sysutils.pas에서 베꼈씀다...


+ -

관련 글 리스트
845 [답변] DUKJUSA/델파이 1.0에서 Trim 함수 이용방법??? cmart2 3906 1998/01/21
Google
Copyright © 1999-2015, borlandforum.com. All right reserved.