IT博客-射手的博客-随笔分类-Delhi 自带方法和属性

Trim 函数_分析

Archer — Sun, 12 Apr 2009 05:09:00 GMT

Trim 去除字符串左右2边的空格
Delphi syntax:

function Trim(const S: string): string; overload;

function Trim(const S: WideString): WideString; overload;

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); //判断第一个字符是否是空格或则小于空格的不可见字符.利用ANSI或UNICode 对比.如果是则I+1 跳过这个字符
  if I > L then Result := '' else
  begin
    while S[L] <= ' ' do Dec(L); //判断最后一个字符是否是不可见字符. 直到不为空格后执行下面的语句.
    Result := Copy(S, I, L - I + 1); //这里是从I开始(包括I字符),拷贝(L-I+1)个元素.

{为什么这里是(L-I+1)呢! 因为比如I为5,L为10,10-5= 这里是拷贝5个字符(这里的目的是让第5字符开始拷贝到第10个字符).但实际上第5个字符到第10个字符有6个字符,这里只拷贝了5个.所以要加1}

end;
end;

Archer 2009-04-12 13:09 发表评论

FileExists 与 Not 的应用

Archer — Wed, 08 Apr 2009 03:54:00 GMT

begin
if not FileExists('C:\1.text') then
begin
ShowMessage('1');
end;
end;

FileExists 方法:
描述指定的文件是否存在.如果存在者返回 True 如果不存在者返回False;
Not 逻辑取反操作.
在上面的例子当中C盘下是没有这个文件的.所以返回为False,(在If Then后的语句是不会被执行的)
在用Not 逻辑取反关键字后. 则使返回的False 取反操作变为了True 使判断执行他其中的语句.

上面的判断表达式的意思是如果这个文件不存在则执行下面的语句.

Archer 2009-04-08 11:54 发表评论

使用StrLCopy时注意到的数组问题!

Archer — Fri, 27 Mar 2009 04:09:00 GMT

function StrLCopy(Dest: PChar; const Source: PChar; MaxLen: Cardinal): PChar;
功能返回将指针字符串Source指定长度MaxLen复制到指针字符串Dest中;
uses SysUtils;
const MAX_BUFFER = 10;
procedure TForm1.Button1Click(Sender TObject);
var
Buffer: array [0..MAX_BUFFER] of char; //这里数组必须要从0下标开始,不然会报错.
begin
StrLCopy(Buffer, PChar(Edit1.Text), MAX_BUFFER);
Application.MessageBox(Buffer, 'StrLCopy example', [smbOK], smsInformation, smbOK, smbCancel);
end;

Archer 2009-03-27 12:09 发表评论