FreePascal.ru

Да так работает. но это плохо... и странно
ibexpert показывает все как положено без костылей....
а тут придется кастом расширять в двое каждую константу.
Кстати если из запроса сделать view и вызывать его (без cast) то наблюдаем туже самую картину...

Здравствуйте.
Имеется следующая интересная проблемка.
итак Lazarus 2.0.12 r64642, база данных Firebird 2.5. База данных создана в UTF-8
Используются только стандартыне компоненты т.е. TIBConnect и TSQLQuery, CharSet у коннекта UTF-8
Все русские символы получаемые из полей таблиц в гриде и по ...

Имеется база FB (1.5.3) в 1 диалекте (диалект менять нельзя)
Lazarus 0.9.26.2 (18980)

При соединении c базой с указанием WIN1251 и collate XW_CYRL (в которой и есть база) не отображаются русские буквы
При попытки указать UTF8 при выполнении запроса выкидывет сообщение :
Arithmetic overwlof or ...

Спасибо за помощь.... Вот только вопрос. А почему раньше не не нужно было так делать ?

Пришет:
E:\lazarus\ide\lazarus.pp(114,1) Fatal: There were 1 errors compiling module, stopping
E:\lazarus\ide\lazarus.pp(114,1) Error: Error while linking
E:\lazarus\fpc\2.2.0\bin\i386-win32\windres.exe: no resources
Compiling resource lazarus.rc

Сборка от 03.10.2007 сборка от 28.09.2007 вела ...

Юра писал(а):Попробуй воспроизвести проблему на маленьком куске кода и засылай баг репорт если воспроизведется с этим кодом.

Проблемма воспроизводится на 100% . Может кото еще проверить у себя. Вдруг просто сборка FPC с глюком ?

Не помогло бли не передает значение и все.....
причем не передает именно в этом куске

Имеется некий класс определенный следующим образом

TSheme=class(TObject)
FCountShemeItem:integer;
FKeyShemeX:array of TKeySheme;
FCommandText:TStringList;
procedure SetComandSt(value:tStringList);
public
constructor Create;
destructor Destroy;override ...

Вот зараза.
это то да. но вот форматный вывод поля в гриде в таком случае как сделать...... Сори... можно просто попривычке как Delphi сделать пытался

Lazarus v 0.9.23 beta SVN: 11366 с FPC 2.1.5. FIBL 050823
В Режиме EditFields у компонента TFIBDataSet создаетм поля как символьные так и числовые. добавление и компиляция проходит успешно
но стоит закрыть и открыть Лазаря от пишет следующее:

TJITNonFormComponents:TDM
Class "TFIBStringField ...

А стандартный TDataModule чем не устраивает ?

to Кузнецов Евгений
Конечно мало Но вопрост то не в том как в приведенном примере , тестовом с выкинутыми обратотками, я работаю с транзакциями, а почему UBI не хочет работать с Embed FB 2
по поводу кода.... вот что было в оригинале :
try
lqwf.ExecSQL;
except
on e:exception do begin ...

при работающем соеденеи с (полным серверем FB )
и c:\project\base\cin.fdb и localhost:c:\project\base\cin.fdb проходят нормально.
В строке конекта там все правильно еще KDV в свое время бил за это (на ibase.ru) просто интересно почему такое странное поведение UIB (по сравнению с теми же FIB+)

Конект локальный.
c:\project\base\cin.fdb

Lazarus 0.9.22 SVN:10809
UIB 2.1 декабрьский.
FB 2.0.1.12810

Выполнение следующего кода вызывает ошибку
lqwf.Transaction.StartTransaction;
while not BarPX.EOF do begin
lqwf.SQL.Clear;
lqwf.sql.add('insert into bar(barcode,articul)');
lqwf&#46 ...