[Ilshat]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67

unit Unit1;   interface   uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, DBCtrls, DB, DBTables, Grids, DBGrids, StdCtrls;   type   TForm1 = class(TForm)     Button1: TButton;     Query2: TQuery;     ComboBox1: TComboBox;     DataSource1: TDataSource;     Query1: TQuery;     Label1: TLabel;     DBGrid1: TDBGrid;     DBGrid2: TDBGrid;     procedure Button1Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end;   var   Form1: TForm1;   implementation   {$R *.dfm}   procedure TForm1.Button1Click(Sender: TObject); var str:string; begin query2. SQL. Clear; query2. SQL. Add('Select*from paradox7Table.db'); query2. Open; query2.first; ComboBox1.Clear; While not Query2. Eof do begin str:=Query2.fieldBYname('DepName').AsString; ComboBox1.Items.Add(str); query2.Next; end; ComboBox1.Items.Add(''); ComboBox1.ItemIndex:=ComboBox1.Items.Count-1; Query1.Close; Query1.SQL.Clear; Query1.SQL.Add('Select*from Person'); Query1.Open; end;  begin Query1.Close; Query1.SQL.Clear; Query1.SQL.Add ('Select*from Person'); if ComboBox1.ItemIndex<combobox1.Items.Count-1 then; begin Query1.SQL.Add('where DepId=:pDepID'); Query2.Locate('DepName',combobox1.Text,[]); CurId:=Query2.FieldByName('DepID').AsInteger; Query1.Params[0].AsInteger:=CurID; end; Query1.Open; end; end.

[Страдалецъ]

Код:

1	if ComboBox1.ItemIndex<combobox1.Items.Count-1 then;

По логике ; в конце быть не должно.

[Ilshat]

он у меня находит ошибку в этой части-Query1.Close;


end;
begin
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add ('Select*from Person');
if ComboBox1.ItemIndex<combobox1.Items.Count-1 then
begin

[Страдалецъ]

Код:

1 2 3 4 5

ComboBox1.ItemIndex:=ComboBox1.Items.Count-1; Query1.Close; Query1.SQL.Clear; Query1.SQL.Add('Select*from Person'); Query1.Open;

вот далее два оператора не в тему.

Код:

1 2	end;  begin

Код:

1 2 3 4

Query1.Close; Query1.SQL.Clear; Query1.SQL.Add ('Select*from Person'); if ComboBox1.ItemIndex<combobox1.Items.Count-1 then;