Question

Incompatible types: 'Integer' and 'String'

procedure TForm1.Button1Click(Sender: TObject);
var
a : integer;
begin
a := StrToInt(memo1.Text);
case a of
'4:对,错,函数,换行,不是,走了,错,对,delphi' : memo1.Text := '您的回答全部正确！';

'4:对,错,函数,换行,不是,走了,错,对,delphi' : memo1.Text := '您的回答全部正确！';编译时提示错误：Incompatible types: 'Integer' and 'String'
怎样修改？

Answer 1

好像看过您的问题？因为没有看懂，所有没有人回答！你的意思是 根据 a的值，memo1.Text := '您的回答全部正确！’
这里 应该这样写：（源码：）

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Memo1: TMemo;
ListBox1: TListBox;
procedure FormCreate(Sender: TObject);
procedure ListBox1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
ListBox1.Items.Add('4');
ListBox1.Items.Add('对');
ListBox1.Items.Add('错');
ListBox1.Items.Add('函数');
ListBox1.Items.Add('换行');
ListBox1.Items.Add('不是');
ListBox1.Items.Add('走了');
ListBox1.Items.Add('错');
ListBox1.Items.Add('对');
ListBox1.Items.Add('delphi');
end;

procedure TForm1.ListBox1Click(Sender: TObject);
var
a:integer;
begin
a := ListBox1.ItemIndex;
case a of
0:memo1.Text := ListBox1.Items[a]+' 您的回答全部正确！';
1:memo1.Text := ListBox1.Items[a]+' 您的回答全部正确！';
2:memo1.Text := ListBox1.Items[a]+' 您的回答全部正确！';
3:memo1.Text := ListBox1.Items[a]+' 您的回答全部正确！';
4:memo1.Text := ListBox1.Items[a]+' 您的回答全部正确！';
5:memo1.Text := ListBox1.Items[a]+' 您的回答全部正确！';
6:memo1.Text := ListBox1.Items[a]+' 您的回答全部正确！';
7:memo1.Text := ListBox1.Items[a]+' 您的回答全部正确！';
8:memo1.Text := ListBox1.Items[a]+' 您的回答全部正确！';
9:memo1.Text := ListBox1.Items[a]+' 您的回答全部正确！';
end;
end;

end.
-------------------------------------------------
你可以根据具体条件，case a of
-------------------------------------------------