FIREBIRD et DELPHI

Ce code fonctionne bien :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  try
    screen.Cursor := CrHourGlass;
    with IboQuery1.SQL do
    begin
      Clear;
      Add('CREATE TABLE TEMPO ');
      Add('(UN NUMERIC(15,2), ');
      Add('DEUX NUMERIC(15,2), ');
      Add('TROIS NUMERIC(15,2))');
      IboQuery1.ExecSQL;
      Clear;
      Add('INSERT INTO TEMPO (UN, DEUX, TROIS)  VALUES(1000,2000,3000)  ');
      IboQuery1.ExecSQL;
    end;
  finally
    Screen.Cursor := CrDefault;
  end;
end;

Mais peut-on le simplifier ?

Cantador