Найдено 6 результатов

Alexus
19.07.2010 12:07:14
Форум: Потрепаться
Тема: Жарко
Ответы: 63
Просмотры: 85326

Re: Жарко

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

Добавлено спустя 2 минуты 5 секунд:
Alexus
Винница
Alexus
24.06.2010 13:08:59
Форум: Общее
Тема: Lazarus и тип TINYINT(1) в MySQL
Ответы: 4
Просмотры: 12759

Re: Lazarus и тип TINYINT(1) в MySQL

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


Не знал, что так можно, попробую, спасибо!!!
Alexus
23.06.2010 13:54:34
Форум: Общее
Тема: Lazarus и тип TINYINT(1) в MySQL
Ответы: 4
Просмотры: 12759

Re: Lazarus и тип TINYINT(1) в MySQL

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

Вроде бы оно и так, но я присваиваю полю базы данных булевское значение (свойство checked - возвращает не 0 или 1 тип integer, а true или false типа boolean)
можно и обойти это, но ...
Alexus
22.06.2010 16:25:43
Форум: Общее
Тема: Lazarus и тип TINYINT(1) в MySQL
Ответы: 4
Просмотры: 12759

Lazarus и тип TINYINT(1) в MySQL

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) (которое по ...
Alexus
07.06.2010 09:49:45
Форум: Обучение Free Pascal
Тема: Преобразование формата даты
Ответы: 5
Просмотры: 10434

Re: Преобразование формата даты

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

function DateFlip(St: string): string;
begin
DateFlip := Copy(St, 7, 4) + '-' + Copy(St, 4, 2) + '-' + Copy(St, 1, 2);
end;
Alexus
25.12.2009 15:20:28
Форум: Базы данных
Тема: Подключиться к mysql
Ответы: 8
Просмотры: 19909

Re: Подключиться к mysql

Попробуй:
Название_формы.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;
Название_формы ...