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 新建文件夹函数

Delphi tstringlist indexof find 查找字符串

Delphi scrollbox1滚动框鼠标滚轮

Delphi10及以上版本安装activex控件

Delphi dpr文件误删怎么办

Delphi如何获得当前操作系统语言环境

Delphi 调用打印软件代码

Delphi 播放声音 建议采用 异步方式，比较流畅

Delphi xe6、xe5、xe7在android创建快捷方式

Delphi findwindow的一些用法

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

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