资料上抄的代码，有错！

Question

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  if ComboBox1.Text:='' then
    ComboBox1.Text:=ComboBox1.Items.String[1];
end;
怎么改？

Answer 1

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  if ComboBox1.Text  ='' then
    ComboBox1.Text:=ComboBox1.Items.String[1];
end;

Answer 2

if ComboBox1.Text='' then

Answer 3

注意是 if Combobox1.Text = '' then 不是 if Combobox1.Text := '' then

Answer 4

不行，错误信息是：[Error] Unit1.pas(28): Type of expression must be BOOLEAN
[Error] Unit1.pas(29): Identifier expected but 'STRING' found
[Fatal Error] Project2.dpr(5): Could not compile used unit 'Unit1.pas'

Answer 5

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
  if (ComboBox1.Text = '') then
    ComboBox1.Text:=ComboBox1.Items.String[0];
end;

Answer 6

[Error] Unit1.pas(28): Type of expression must be BOOLEAN
就是说if判断语句不是个boolean，按大家说的改应该没错阿[Error] Unit1.pas(29): Identifier expected but 'STRING' found
ComboBox1.Text:=ComboBox1.Items.String[1];改成
ComboBox1.Text:=ComboBox1.Items.Strings[1];//注意加了s[Fatal Error] Project2.dpr(5): Could not compile used unit 'Unit1.pas'
解决了上述两个错误就可以了
这段代码有什么用哈~~

Answer 7

if (ComboBox1.Text = '') then
    ComboBox1.Text:=ComboBox1.Items[0];