delphi 过滤开头 结尾 全部 空格的函数

本文整理自网络，侵删。

 
function TrimAnsi(const S: AnsiString): Ansistring;
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 TrimLeftAnsi(const S: AnsiString): AnsiString;
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 TrimRightAnsi(const S: Ansistring): AnsiString;
var
  I: Integer;
begin
  I := Length(S);
  while (I > 0) and (S[I] <= ' ') do Dec(I);
  Result := Copy(S, 1, I);
end;
 

相关阅读 >>

Delphi 用api函数抓取屏幕图像

Delphi的format使用总结

正则表达式初学入门

minsperday：一天中有多少分钟

winapi 字符及字符串函数(10): lstrcpy - 复制字符串

Delphi trimright 删除字符串右边的空格

Delphi 加壳exe的方法

Delphi application.title在win7下失效了？

Delphi 删除只读文件

idhttpserver允许跨域访问

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 过滤开头 结尾 全部 空格的函数