» Вопросы по Delphi (до версии 2009) - часть 5

volser
Date Controls DBGrid
Date Access DataSource
BDE Table

OOD
В dbf файле выставлен правильный charset?

volser
Спасибо разобрался нужно было настроить драйвер в BDE Administrator на русскую кодировку

Иммется программа написанная на D7. При запуске под ВинХР Сп3 на коре дуо 8500 выдает ошибку Runtime 216 - на старом атлон хп 1700 работала нормально. Есть ли универсальный патчер для решения этой проблемы - исходник и автор не доступны.

FalconGuy
Возможно проблема в том что процессор имеет больше одного ядра. Была в нете какая то программа которая привязывала программу к конкретному ядру. Может она поможет.

С некоторых пор в редакторе Delphi 2009 стал показываться упрощенный хинт.
Например: создаем форму, дважды кликаем по ней и проваливаемся в

Код: procedure TForm1.FormCreate(Sender: TObject);
...

Возник такой вопрос сохраняю в sql файл дамп таблицы у которой одно из поле varbinary(max) с помощью TMSDump от SDAC так вот эти двоичные данные сохраняюся до какого момента хорошо, а в конце уже идут не двоичные коды, а вот дальше пустота (длиная такая) хотя все должно закачиваться. Ну и соотвественно при восстановление ругается и ничег не делает

SIgor33
Возможно в поле встречаются символы которые нельзя сохранить в текстовый файл. Поэтому такие проблемы.

SIgor33
А длина не превышает 8000 байт?

volser
Там нормальный rtf файл. Правда с таблицами. Попробую без них

Всем привет. Объясните как разадресовать указатель, чтобы получить его тип.

На си код такой:

Код: LocalAlloc(LPTR, sizeof(*ppd));

Maks150988
А что делает ваш код? Я бы попробовал написть так: LocalAlloc(LPTR, sizeof(ppd^));

Hi

У меня все формы создаются динамически. Но как побочный эффект , нельзя обратиться к форме по имени Только внутри формы использовать self
Не подскажите как побороть ?



procedure TDM.FormLoaderMDI (const FormName:String;mode:integer=-1;code:integer=-1;modal:integer=0;sql:string='');
var
I:integer;
//F: TCustomForm;
F:TForm;
bExists:boolean;
begin
try
bExists:=false;
for I := 0 to Screen.FormCount - 1 do
if Lowercase('t'+Screen.Forms[i].Name)= Lowercase(FormName) then
begin
bExists:=true;
F:=Screen.Forms[i];
end;

if bExists=false then F := TFormClass(FindClass(FormName)).Create(Application)
else f.BringToFront;

if Mode<>-1 then SetStrProp(F, 'idMode', IntTostr(Mode));
if Code<>-1 then SetStrProp(F, 'idCode', IntTostr(Code));
if SQL<>'' then SetStrProp(F, 'idSQL', SQL);
finally
end;

end;

JohnSilver182
Приведи форму к соответствующему классу и работай уже с ним. Или используй интерфейсы.

Maks150988

Код: HLOCAL LocalAlloc(UINT uFlags, SIZE_T uBytes);

Цитата:

Приведи форму к соответствующему классу

???????????????????????????????????????????????????????

Frodo_Torbins
Ну вобщем я создаю свой контрол (решил заодно переписать код системного прогресс бара на делфи и посмотреть что поулчится, пока мудрил с созданием своего контрола) и эта структурка хранит некоторую инфу о нем для оконной функции. Хм, как-то не додумался поставить домик после переменной. На каком-то сайте в примере кто-то предлагал ставить этот значок перед переменной, ну я и сделал так - компилятор не проглотил (я вообещ в эти дебри не очень-то влезаю, без понятия). Вроде работает, спасибо.
Andrey128
Спасибо заодно.

JohnSilver182

F: TMyForm;
F := TFormClass(FindClass(FormName)).Create(Application) as TMyForm;

Если общего предка нет, то тогда используй интерфейсы.

JohnSilver182
А кто мешает присвоить форме имя? Да хоть русскими буквами.

if bExists=false then
begin
F := TFormClass(FindClass(FormName)).Create(Application);
F.Name := FormName; (+Цифирь если таких форм несколько)
end
else f.BringToFront;

delover ШАМАН !!!

AlexNMelnikov
Гораздо больше 8000 символов. А что это должно как-то влиять.

delover
Присвоил имя и что? Как теперь по имени форме обращаться к форме?

volser
Определить место от куда ты хочеш к ней обращаться получить класс данной формы и можно работать.
Найти небходиму форму можно по имени класса, или имени формы которую ты создал. Только не забываем что будет если есть F.Name := FormName; (+Цифирь если таких форм несколько) - тоесть про Цифрь не забываем если искать по имени формы.

delover минутку . А какая разница как я назову форму ? Я так понимаю что при динамичеком создание форм в принципе нельзя использовать типа :
FormMy.labe1.caption='бла бла бла' и т.д

JohnSilver182
Смотря что ты понимаешь под динамическом создании форм. Я например понимаю это так - что форма физически создана, но приложение (Application) при старте не делает ей Create. То есть в памяти ее нет. В нужный момент я делаю Create Для формы, после этого обращаюсь к ней по чему угодно и к ее контролам тоже. Все зависит от целей и методов. Что хочешь добиться и как.

ShIvADeSt
АГА . Скорее всего ты делаеш просто TMyForm1.Create .
Я хотел что то универсальное сделать.

JohnSilver182

Цитата:

Я хотел что то универсальное сделать.

Тогда создавай окна на АПИ в рантайме. И грузи контролы из ресурсов. Просто ИМХО ты сам себе создаешь проблемы, чтобы потом их мужественно преодолеть. Смысл динамического создания форм - уменьшить объем потребляемой памяти, мой способ этому удовлетворяет. Что хочешь добиться ты кроме гемора мне если честно не понятно.

Может кто знает - есть ли модификация Async Pro работающая на многоядерных процессорах и где ее взять?

JohnSilver182

Цитата:

Я хотел что то универсальное сделать.

Я уже писал. Если хочешь сделать что то универсальное используй интерфейсы (interface).

Цитата:

Я уже писал. Если хочешь сделать что то универсальное используй интерфейсы (interface).

Это сложно наверно ???