如何获取edit控件中字符串的第一个字母

Question

在edit控件中的字符串是以一个字母开头其他都是数字的格式，并且开头字母只有两种，N和W,我想判断在edit控件中的字符串到底是以N开头还是以W开头，该如何实现。

Answer 1

if copy(edit1.text,1,1)='N' then
else
if copy(edit1.text,1,1)='W' then
...這麼easy的問題？

Answer 2

  showmessage(Edit1.Text[1]);

Answer 3

//写一个函数
function reNW: Integer;
var
  StartChar: string;
begin
  result := -1;
  StartChar := copy(edit.text,1,1);
  if(SameText(StartChar, N))
    result := 0
  else if(SameText(StartChar, W))
    result := 1;
end;

Answer 4

if  Edit1.Text[1]='N' then
  begin
    //do something
  end

Answer 5

sorry，少了两个引号：N->'N', W->'W'