안녕하세요. 짱굽니다.
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에서 베꼈씀다...
|