procedure TForm1.Button1Click(Sender: TObject);
var
 str:string;
begin
  str :=Uppercase(Edit1.text);
  case str[1] of //因為第一個Byte都不同,所以進行比較
    '0':  ShowMessage('无');
    'Y':  ShowMessage('是');
    'N':  ShowMessage('否');
    else  ShowMessage('?');
  end;
end;

引言: Hi!a_mi 您好: 請參考下面的方法,看看是否對您有幫助.

procedure TForm1.Button1Click(Sender: TObject);
var
 str:string;
begin
  str :=Uppercase(Edit1.text);
  case str[1] of //因為第一個Byte都不同,所以進行比較
    '0':  ShowMessage('无');
    'Y':  ShowMessage('是');
    'N':  ShowMessage('否');
    else  ShowMessage('?');
  end;
end;

唔..還是好多行哦 我是想說有沒簡單的方法去判斷..看來是沒啦 謝謝啦

引言:唔..還是好多行哦 我是想說有沒簡單的方法去判斷..看來是沒啦 謝謝啦< face="Verdana, Arial, Helvetica"> Using case is simple... for one liner: Copy('無是否',Pos(Uppercase(Str[1]),(Pos('N','0YN')-1)*2 1,2)); Remember to check the length of Str