[kriogenoz]

Народ, помогите мне пожалуйста,
делал так, на комбобоксе выбирал название столбца, далее при нажатии на кнопку происходит вот что:
EDataBaseError Query1: 'Field 'Racer' not found. Это при то, что отсеевание я ставлю на совсем другой столбец, в чём причина!!!

мой код:

Код:

procedure TForm3.Button1Click(Sender: TObject);
var
  i: integer;
begin
  Query1.Close;
  Query1.SQL.Clear;
  Query1.SQL.Add('Select ' + ComboBox1.Text +' from "C:\Documents and Settings\1\Рабочий стол\Учёба\informatic\0.8\kurs\Formula1.db"' + 'Order by '+ ComboBox2.Text );
  Query1.Open;
  try
    if ComboBox1.Text <> '*' then
      begin
    Query1.FieldByName('Team').DisplayLabel:= 'Команда';
    Query1.FieldByName('Racer').DisplayLabel:= 'Гонщик';
    Query1.FieldByName('Wins').DisplayLabel:= 'Победы';
    Query1.FieldByName('Nations').DisplayLabel:= 'Национальность';
    Query1.FieldByName('Cup').DisplayLabel:= 'Кубки конструкторов';
    Query1.FieldByName('Pol').DisplayLabel:= 'Поул-позишн';
    Query1.FieldByName('Car').DisplayLabel:= 'Машина';
    Query1.FieldByName('Chum').DisplayLabel:= 'Чемпионств';
   end
  else
   begin
    for i:=0 to ComboBox1.Items.Count-1 do
     if ComboBox2.Text = ComboBox1.Items.Strings[i]
     then Query1.FieldByName(ComboBox2.Text).DisplayLabel:= ListBox1.Items.Strings[i-1];
   end;
 except
 end;
 ComboBox1.Items.Clear;
 ComboBox1.Items.Add('*');
 for i:=0 to Query1.FieldCount-1 do
    ComboBox1.Items.Add(Query1.Fields.Fields[i].FieldName);
    ComboBox2.Items.Clear;
 for i:=0 to Query1.FieldCount-1 do
    ComboBox2.Items.Add(Query1.Fields.Fields[i].FieldName);

 ComboBox1.Enabled:=true;
 ComboBox2.Enabled:=true;
 CheckBox2.Enabled:=true;
 Button2.Enabled:=true;
 Button3.Enabled:=true;
 Button4.Enabled:=true;
 Button5.Enabled:=true;
 Button6.Enabled:=true;
 Button7.Enabled:=true;
 Button10.Enabled:=true;
end;

procedure TForm3.ComboBox1Change(Sender: TObject);
begin
  if ComboBox1.Text <> '*' then
      begin
        ComboBox2.Enabled:=false;
        ComboBox2.Text:= ComboBox1.Text;
      end
  else ComboBox2.Enabled:=true;
end;

procedure TForm3.ComboBox1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key=#13 then
    begin
      Key:=#0;
      Button1.Click;
    end;
end;

procedure TForm3.ComboBox2KeyPress(Sender: TObject; var Key: Char);
begin
  if Key=#13 then
    begin
      Key:=#0;
      Button1.Click;
    end;
end;

Admin: Пользуемся тегами!