23.05.2011, 01:14
|
Новичок
|
|
Регистрация: 17.09.2009
Сообщения: 85
Репутация: 9
|
|
Код:
var S : string;
begin
...
S := Edit2.Text;
if Edit1.Text = '0' then
S := Edit3.Text;
Query3.SQL.Clear;
Query3.SQL.Add ('insert into itog '+
'(danger, name_c, Den, Vpemya, frst, dva, tri, etr, Pyat) values' +
'('+QuotedStr(S)+', '+...
|