VI
Куда добавить часть кода? Нужно чтобы она выполнилась перед закрытием программы.
Size: a a a
2020 February 18
DB
можно попробовать в OnCloseQuery главной формы
VI
Вопрос тупой но всё же.
Как внутри функции объявить переменную?
Как внутри функции объявить переменную?
VI
У меня не получается)). Это не пайтон
МС
Вопрос тупой но всё же.
Как внутри функции объявить переменную?
Как внутри функции объявить переменную?
Эмм
МС
Var s:string;?
RS
Вопрос тупой но всё же.
Как внутри функции объявить переменную?
Как внутри функции объявить переменную?
Объявить? )
function SomeFun(): String;?
var
SomeVar: String
begin
...
end;
VI
можно попробовать в OnCloseQuery главной формы
Получилось, а можно еще как-то при запуске программы часть кода выполнить?
RS
Получилось, а можно еще как-то при запуске программы часть кода выполнить?
По аналогии:
OnCreateVI
Как этот код засунуть в процедуру? А то очень часто нужно его юзать.
EConsumer1.Text:= DataBase[i].Consumer;
EProduct1.Text:= DataBase[i].Product;
EManufacturer1.Text:= DataBase[i].Manufacturer;
if DataBase[i].WarrantyCard = True then
CWarrantyCard1.Checked := True
else
CWarrantyCard1.Checked := False;
EConsumer1.Text:= DataBase[i].Consumer;
EProduct1.Text:= DataBase[i].Product;
EManufacturer1.Text:= DataBase[i].Manufacturer;
if DataBase[i].WarrantyCard = True then
CWarrantyCard1.Checked := True
else
CWarrantyCard1.Checked := False;
AI
@ziv_2006 короче баги в IE11 они готовы фиксить, ниже - сорри, но нет :)
Там все баги в IE11 - я смотрел на IE11, а не на IE7. Сорри, тупанул 😂😂😂😂😂
AI
У них много примеров, которые не работают на IE11.
DB
Как этот код засунуть в процедуру? А то очень часто нужно его юзать.
EConsumer1.Text:= DataBase[i].Consumer;
EProduct1.Text:= DataBase[i].Product;
EManufacturer1.Text:= DataBase[i].Manufacturer;
if DataBase[i].WarrantyCard = True then
CWarrantyCard1.Checked := True
else
CWarrantyCard1.Checked := False;
EConsumer1.Text:= DataBase[i].Consumer;
EProduct1.Text:= DataBase[i].Product;
EManufacturer1.Text:= DataBase[i].Manufacturer;
if DataBase[i].WarrantyCard = True then
CWarrantyCard1.Checked := True
else
CWarrantyCard1.Checked := False;
объявляешь в форме процедуру, туда втыкаешь свой код и вызываешь откуда нужно. сложностей быть не должно
AS
Как этот код засунуть в процедуру? А то очень часто нужно его юзать.
EConsumer1.Text:= DataBase[i].Consumer;
EProduct1.Text:= DataBase[i].Product;
EManufacturer1.Text:= DataBase[i].Manufacturer;
if DataBase[i].WarrantyCard = True then
CWarrantyCard1.Checked := True
else
CWarrantyCard1.Checked := False;
EConsumer1.Text:= DataBase[i].Consumer;
EProduct1.Text:= DataBase[i].Product;
EManufacturer1.Text:= DataBase[i].Manufacturer;
if DataBase[i].WarrantyCard = True then
CWarrantyCard1.Checked := True
else
CWarrantyCard1.Checked := False;
берёшь прям и выносишь в процедуру )))
кстати,
чудесно эквивалентно )
кстати,
if DataBase[i].WarrantyCard = True then
CWarrantyCard1.Checked := True
else
CWarrantyCard1.Checked := False;чудесно эквивалентно )
CWarrantyCard1.Checked := DataBase[i].WarrantyCardVI
объявляешь в форме процедуру, туда втыкаешь свой код и вызываешь откуда нужно. сложностей быть не должно
У меня проблема с тем что когда я этот код юзаю для кнопо то все ок, а когда затащил его в процедуру то ошиби посыпались
VI
undeclared identifier
DB
процедура должна быть объявлена именно в форме, а не просто где-то в коде
AS
undeclared identifier
ты методом тыка "программишь".. это неэффективно.. почитай книжку по синтаксису.. это прям азы
DB
достаточно прочитать буквально 1-1.5 первые главы нормальной книги по делфи, что бы вот эти все вопросы вопросы отпали сами
AZ
ха, забавная надпись в истории изменений у webcore - Support for selecting the Electron version :)))