Search options

Что тут не так? Что то не то с типом переменных? 

Выдает ошибку : " Could not convert variant of type (UnicodeString) into type (Double) "

procedure CopyAddToJornal_OnShow (Sender: string; Action: string);

begin

  CopyAddToJornal.DateTimePicker1.date := sqlexecute('select DateIN from GenJornal where id =' +inttostr(GeneralJornal.tablegrid1.dbitemid));

  CopyAddToJornal.ComboBox1.text := sqlexecute('select Name from Kontragent where id =' +inttostr(GeneralJornal.tablegrid1.dbitemid));
 
  CopyAddToJornal.Edit1.setfocus;

end;

Спасибо. Это всё я читал.
Но какую именно команду надо написать , чтоб было нажатие кнопки на форме?
( вместо ShowMessage )

procedure Form1_OnKeyPress (Sender: string; var Key: Char);

begin
     if Key = #13 then
     begin
          ??????????? // Нажатие кнопки Button1 на форме Form1
     end;
end;

begin
     Form1.KeyPreview := True;
end.

Спасибо!  SQLite Studio - помогло. Удобно и быстро. Я не програмист, базу делаю конструктором. Со скриптами не знаком.