Question

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

Answer 1

如果你只是单纯的判断一个英文字符的话可以用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;

Answer 2

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;

Answer 3

混排用
var s: WideString;