Попробовал MSEgui - интересно, перспективно, но:
- ide падает при запуске на arm девайсе (Access violation). Полез посмотреть код - печалька. Столько "грязного кода", хаков. Вот пример:
- Код: Выделить всё
var
cur1: currency;
begin
{$ifdef FPC}
int64(cur1):= round(asfloat * intexp10(-SQLScale));
{$else}
int64(ar8ty(cur1)):= round(asfloat * intexp10(-SQLScale));
{$endif}
или
- Код: Выделить всё
type
readrecordprocty = procedure(const reader: treader; var data);
procedure readrecordar(const reader: treader; out ar;
const typeinfo: pdynarraytypeinfo; const readproc: readrecordprocty);
begin
... // readproc в отладчике равен readdefdata
readproc(reader,additempo(ar,typeinfo,int1)^);
...
end;
procedure readdefdata(const reader: treader; var data);
begin
// var в отладчике приходит как ni
with sysenvdefty(data) do begin
ord(kind):= reader.readenum(typeinfo(kind));
name:= reader.readunicodestring;
readstringar(reader,anames);
longword(flags):= reader.readset(typeinfo(flags));
initvalue:= reader.readunicodestring;
argument:= reader.readunicodestring;
help:= reader.readunicodestring;
before:= reader.readunicodestring;
after:= reader.readunicodestring;
end;
end;
Комментарии в коде мои.
Даже и не знаю, стоит ли опираться на такую библиотеку...
Он - чел нетерпеливый и практичный , жадный до "пощупать результат", терпения сидеть и ждать когда в ФПЦ что-то нужно ему сделают, не имеет 