Delphi中判断一个字符的位置在字符串开头或者末尾

Posted 2023-04-08

如果你只是单纯的判断一个英文字符的话可以用1楼的s[Length(s)]这样的方法来判断，如果你要判断的字符串是有中文的，这样就补可以了，因为英文字符只占一个字符串长度，但是中文需要占两个字符串的长度，要判断中文字符串的话可以这样
var
x,y:string;
begin
x:=copy(edit1.text,0,1); //edit1.text是需要判断的字符串，把字符串第一个字赋值给X
y:=copy(edit1.text,[Length(edit1.text)-1,2); //把字符串最后一个字赋值给Y
if edit2.text=x then showmessage('在开头') //edit2.text假设为要判断的字符
else if edit2.text=y then showmessage('在结尾');
end; 参考技术A procedure TForm1.btn1Click(Sender: TObject);
var s: string;
begin
s := 'abcdefghijkilkjasldnbG';
if s[1]='a' then
ShowMessage('a 在开始位置');
if s[Length(s)]='G' then
ShowMessage('G 在最后一位');
end; 参考技术B 混排用
var s: WideString;

Delphi判断字符串中是否包含汉字，并返回汉字位置

1，函数代码：

{

  判断字符串是否包含汉字
  // judgeStr：要判断的字符串
  //posInt：第一个汉字位置
}
function TForm2.IsHaveChinese(judgeStr: string; var posInt: integer): boolean;
var
  p: PWideChar; // 要判断的字符
  count: integer; // 包含汉字位置
  isHave: boolean; // 是否包含汉字返回值
begin

  isHave := false; // 是否包含汉字返回值默认为false
  count := 1; // 包含汉字位置默认为1

  p := PWideChar(judgeStr); // 把要判断字符串转换

  // 循环判断每个字符
  while p^ <> #0 do
  begin
    case p^ of
      #$4E00 .. #$9FA5:
        begin
          isHave := true; // 设置是否包含汉字返回值为true
          posInt := count; // 设置包含汉字位置
          break; // 退出循环
        end;

    end;

    Inc(p);
    Inc(count); // 包含汉字位置递增
  end;

  result := isHave;
end;

2，例子：

procedure TForm2.Button3Click(Sender: TObject);
var
  testStr1, testStr2: string;
  posInt: integer;
begin
  testStr1 := ‘12345‘;
  testStr2 := ‘123汉字45‘;

  if self.IsHaveChinese(testStr1, posInt) = true then
  begin
    ShowMessage(testStr1 + ‘ 包含汉字 ：‘ + inttostr(posInt));
  end
  else
  begin
    ShowMessage(testStr1 + ‘ 不包含汉字‘);
  end;

  if self.IsHaveChinese(testStr2, posInt) = true then
  begin
    ShowMessage(testStr2 + ‘ 包含汉字 ：‘ + inttostr(posInt));
  end
  else
  begin
    ShowMessage(testStr2 + ‘ 不包含汉字‘);
  end;
end;

参考：http://www.cnblogs.com/del/archive/2009/04/14/1435722.html