[델초보 -.ㅡ;의 TIP] 델파이 '문자열 조작 함수'

[델초보 -.ㅡ;]

** VB Left$(), Right$(), LTrim$() ...

function LTrim(const Str: String): String;
var
len: Byte;
i: Integer;
begin
len := Length(Str);
i := 1;
while (i <= len) and (Str[i] = #$20) do
Inc(i);
LTrim := Copy(Str,i,len)
end;

function RTrim(Str: String): String;
var
len: Byte;
begin
len := Length(Str);
while (Str[len] = #$20) do
Dec(len);
RTrim := Str
end;

function Trim(Str: String): String;
begin
Trim := LTrim(RTrim(Str))
end;

function RightStr(const Str: String; Size: Word): String;
var
len: Byte;
begin
len := Length(Str);
if Size > len then
Size := len;
RightStr := Copy(Str,len-Size+1,Size)
end;

function LeftStr(const Str: String; Size: Word): String;
begin
LeftStr := Copy(Str,1,Size)
end;

function MidStr(Const Str: String; Size: Word): String;
var
len: Byte;
begin
len := Length(Str);
if Size > len then
Size := len;
MidStr := Copy(Str,((len - Size) div 2)+1,Size)
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
{
LTrim() - 문자열 왼쪽의 모든 공백을 제거
RTrim() - 문자열 오른쪽의 모든 공백을 제거
Trim() - LTrim & RTrim
RightStr() - 문자열의 오른쪽에서 부분문자열
LeftStr() - 문자열의 왼쪽에서 부분문자열
MidStr() - 문자열의 중간에서 부분문자열
}

이런것들은 타 언어들과 비슷하죠 &&;