FreePascal.ru

Через день проливные дожди, влажность, температура +30 - +37 чувствуешь себя как в бане, но ничего привыкаем.
Кондиционеры не включаем принципиально, чтоб не привыкать к прохладе

Добавлено спустя 2 минуты 5 секунд:
Alexus
Винница

Brainenjii писал(а):А нельзя просто Integer(dahBud_rbtn.Checked); ?

Не знал, что так можно, попробую, спасибо!!!

Если там обычный флаг, то можно получать значение поля AsInteger и использовать сравнение с единицей/нулём.

Вроде бы оно и так, но я присваиваю полю базы данных булевское значение (свойство checked - возвращает не 0 или 1 тип integer, а true или false типа boolean)
можно и обойти это, но ...

Lazarus не хочет пoнимать тип TINYINT(1) в MySQL:
в строке:
dba_frm.SQLQuery1.FieldByName('obl_dah_bud').AsBoolean := dahBud_rbtn.Checked;

выдает ошибку-

"invalid type conversion to Boolean in field obl_dah_bud"

где obl_dah_bud - поле в таблице MySQL 5.04 типа TINYINT(1) (которое по ...

Именно для такого случая:

function DateFlip(St: string): string;
begin
DateFlip := Copy(St, 7, 4) + '-' + Copy(St, 4, 2) + '-' + Copy(St, 1, 2);
end;

Попробуй:
Название_формы.SQLQuery1.Close;
Название_формы.SQLQuery1.SQL.Clear;
Название_формы.SQLQuery1. SQL.Add('SET character_set_client=`utf8`,character_set_connection=`cp1251`,character_set_results=`utf8`;');
Название_формы.SQLQuery1.ExecSQL;
Название_формы.SQLQuery1.SQL.Clear;
Название_формы ...