大家好 我是个新手 有个我认为对高手来说是个简单的问题 望帮忙

Question

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    ListBox1: TListBox;
    //事件响应函数部分
    procedure FormCreate(Sender:TObject);
    procedure Edit1Exit(Sender:TObject);
    procedure Button1Click(Sender:TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender:TObject);    //程序初始化
begin
    Form1.Edit1.Text:=";
    Form1.ListBox1.Clear();
    //清空Edit1和LishBox1
    Form1.Button1.Enabled:=false;
    //开始时“查询”按钮不可用
end;procedure TForm1.Edit1Exit(Sender:TObject);
begin
//输入合法的检查
     if(Form1.Edit1.Text=") then
     //如果没有在Edit1输入学号
     begin
     ShowMessage('请输入学号');
     Form1.Edit1.SetFocus();
     //将输入的焦点设置在Edit1
     Form1.Button1.Enabled:=false;
     //"查询“按钮无效
     exit;
     //跳出本过程
end;
    if(StrTOInt(Form1.Edit1.Text)<0) then
    //如果学号小于0
    begin
       ShowMessage('输入的学号不能为负');
       Form1.Edit1.SetFocus();
       Form1.Button1.Enabled:=false;
       //查询按钮无效
       exit;
    end;
    Form1.Button1.Enabled:=true;
    //如果输入的学号是合法的，“查询”按钮有效
end;procedure TForm1.Button1Click(Sender:TObject);  //响应开始查询按钮
var
   xuehao:Integer;
begin
   xuehao:=StrToInt(Form1.Edit1.Text);
   Form1.ListBox1.Clear();
   case xuehao of
        950255:
        begin
           Form1.ListBox1.Items.Add('姓名：刘志');
           Form1.ListBox1.Items.Add('年龄：19');
           Form1.ListBox1.Items.Add('性别：男');
           Form1.ListBox1.Items.Add('院系：信息学院电子系');
           Form1.ListBox1.Items.Add('备注：辽宁人，性格豪爽');
           exit;
           //跳出循环
        end;
   end;
end;
end.我运行的时候有三个错误
[Error] Unit1.pas(34): Illegal character in input file: '"' ($22)
[Error] Unit1.pas(44): Illegal character in input file: '"' ($22)
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'
应该如何解决呢？

Answer 1

procedure TForm1.FormCreate(Sender:TObject);    //程序初始化
begin
    Form1.Edit1.Text:=";//把双引号改为两个单引号
procedure TForm1.Edit1Exit(Sender:TObject);
begin
//输入合法的检查
     if(Form1.Edit1.Text=") then  ;//把双引号改为两个单引号

Answer 2

改成这样：procedure TForm1.FormCreate(Sender:TObject);    //程序初始化
begin
    Form1.Edit1.Text:='';                       //把双引号改为两个单引号procedure TForm1.Edit1Exit(Sender:TObject);
begin
                                                 //输入合法的检查
     if(trim(Form1.Edit1.Text='')) then  ;             //把双引号改为两个单引号

Answer 3

unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;type
  TForm1 = class(TForm)
    Label1: TLabel;
    Edit1: TEdit;
    Button1: TButton;
    ListBox1: TListBox;
    //事件响应函数部分
    procedure FormCreate(Sender:TObject);
    procedure Edit1Exit(Sender:TObject);
    procedure Button1Click(Sender:TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender:TObject);    //程序初始化
begin
    Form1.Edit1.Text:='';    //出错位置一说明：将双引号改为两个单引号
    Form1.ListBox1.Clear();
    //清空Edit1和LishBox1
    Form1.Button1.Enabled:=false;
    //开始时“查询”按钮不可用
end;procedure TForm1.Edit1Exit(Sender:TObject);
begin
//输入合法的检查
     if(Form1.Edit1.Text='') then  //出错位置二说明：将双引号改为两个单引号
     //如果没有在Edit1输入学号
     begin
     ShowMessage('请输入学号');
     Form1.Edit1.SetFocus();
     //将输入的焦点设置在Edit1
     Form1.Button1.Enabled:=false;
     //"查询“按钮无效
     exit;
     //跳出本过程
end;
    if(StrTOInt(Form1.Edit1.Text)<0) then
    //如果学号小于0
    begin
       ShowMessage('输入的学号不能为负');
       Form1.Edit1.SetFocus();
       Form1.Button1.Enabled:=false;
       //查询按钮无效
       exit;
    end;
    Form1.Button1.Enabled:=true;
    //如果输入的学号是合法的，“查询”按钮有效
end;procedure TForm1.Button1Click(Sender:TObject);  //响应开始查询按钮
var
   xuehao:Integer;
begin
   xuehao:=StrToInt(Form1.Edit1.Text);
   Form1.ListBox1.Clear();
   case xuehao of
        950255:
        begin
           Form1.ListBox1.Items.Add('姓名：刘志');
           Form1.ListBox1.Items.Add('年龄：19');
           Form1.ListBox1.Items.Add('性别：男');
           Form1.ListBox1.Items.Add('院系：信息学院电子系');
           Form1.ListBox1.Items.Add('备注：辽宁人，性格豪爽');
           exit;
           //跳出循环
        end;
   end;
end;
end.

Answer 4

你的代码是从其它地方直接copy下来的吗..?      如果是,选择代码行...删除代码行前后多余的空格...
 
  试试看...