字符串与指针学习3lefttrim()

在SysUtils中，trimleft()函数是使用copy()函数来实现。
如果采用pointer来实现，可以如下：

function lefttrim(const s:string):string;
var
   p:pchar;
   i,j:Integer;
begin
   p:=PChar(s);
   i:=1;
   while (i<=Length(s)) and (s[i]=' ') do
     begin
       Inc(p);
       Inc(i);
     end;
    result:=p;
end;