一个简单的问题（字符串处理），在线等

Question

//本意是提出一个字符串的第一个字符，如果为'A'，返回true,否则为false
function check(strEvent:string):boolean ;
var
  s:string;
  s1:PChar;
begin
   s1:='A';
   s:=copy('strEvent',0,1);
   //if pchar(s)='A' then
   if strcomp(s1,Pchar(s))=0 then
      Result:=true
   else
      Result:=false;
end;
但是check('A1')=false。
百思不得其解，求教各位大虾

Answer 1

function check(strEvent:string):boolean ;
var
  s:string;
begin
   s:=copy(strEvent,0,1);
   if UpperCase(s)='A' then
      Result:=true
   else
      Result:=false;
end;

Answer 2

to gobiz
这样不行。。：-）

Answer 3

function check(strEvent:string):boolean ;
var
  s:string;
  s1:PChar;
begin
   s1:='A';
   s:=copy(strEvent,0,1);
   //if pchar(s)='A' then
   if strcomp(s1,Pchar(s))=0 then
      Result:=true
   else
      Result:=false;
end;

Answer 4

回复人： wind5110(叶之落) ( ) 信誉：100  2004-12-08 08:57:00  得分: 0  
 
 
   to gobiz
这样不行。。：-）
  
 
===================================================================================你可以去试试！没有不可以的！你的错误在于
s:=copy('strEvent',0,1);
那么永远都是得到的'strEvent'的第一个字符s

Answer 5

我听你说我的方法不对，我刚刚测试了一下，绝对是可以的！unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.DFM}function check(strEvent:string):boolean ;
var
  s:string;
begin
   s:=copy(strEvent,0,1);
   if UpperCase(s)='A' then
      Result:=true
   else
      Result:=false;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
  if Check(Edit1.Text) then
    ShowMessage('YES')
  else
    ShowMessage('No');
end;end.