Глючит TComboBox в Delphi7.0

[SSM]

у меня такая же версия, все работает. попробуй удалить .dcu и перекомпилируй проект. иногда помогает.

[pinhead]

Не знаю, у меня Build 4.453 Всё работает!
А в чём проблема, ставь вместо пустых строк пробел (ведь это символ) .

[Plague]

У меня тоже Borland Delphi 7.0 Build 4.453.
Дома на одном компьютере работает нормально,
а на другом есть этот глюк.
Правда разные маздаи стоят на них...

Причем если создаешь приложение CLX
все работает нормально и там и там...

[And1]

Удалось мне выявить место, где происходит глюк. Это происходит при любой попытке чтения пустой строки из свойства Items[index] комбобокса. Последняя просьба - кто-нибудь, у кого такого глюка нет в версии Delphi7.0 build 4.453, опубликуйте здесь код метода чтения из свойства Items[index] комбобокса из вашего Delphi. Он находится в модуле "StdCtrls". Вот код из моей версии Delphi:

function TCustomComboBoxStrings.Get(Index: Integer): string;
var
Len: Integer;
begin
Len := SendMessage(ComboBox.Handle, CB_GETLBTEXTLEN, Index, 0);
if Len <> CB_ERR then
begin
SetLength(Result, Len);
SendMessage(ComboBox.Handle, CB_GETLBTEXT, Index, Longint(PChar(Result)));
end
else
SetLength(Result, 0);
end;

Насколько я понимаю, ошибка происходит потому, что константа CB_ERR равна "-1", и соответсвенно для чтения путой строки (т.е. с длиной, равной нулю), тоже выполняется SendMessage сообщения CB_GETLBTEXT, а это сообщение записывает в переменную Result строку с признаком конца строки в конце (т.е. с байтом $0). Таким образом, если читается пустая строка, в Result записывается только байт $0, но перед этим-то длина Result устанавливается в 0, так что получается что байт $0 записывается в адрес 00000000. ПО идее, для устранения ошибки нужно чтобы было "if ((Len <> CB_ERR) and (Len <> 0)) then" вместо "if Len <> CB_ERR then". ПОчему я прошу опубликовать код из безглючной версии Delphi? - да чтобы просто убедиться, что такая существует и что дело на 100% в этом - тогда мне только останется озабоиться поиском таковой версии Delphi.

Можно ли, кстати, как-то внести исправления в Delphi самому?

[SuperVisor]

И еще раз:

Сообщение от Plague

У меня тоже Borland Delphi 7.0 Build 4.453.
Дома на одном компьютере работает нормально,
а на другом есть этот глюк.
Правда разные маздаи стоят на них...

Причем если создаешь приложение CLX
все работает нормально и там и там...

У меня тоже Borland Delphi 7.0 Enterprise Build 4.453 и все работет!!!! Вот выдержка из StdCtrls:

function TCustomComboBoxStrings.Get(Index: Integer): string;
var
  Len: Integer;
begin
  Len := SendMessage(ComboBox.Handle, CB_GETLBTEXTLEN, Index, 0);
  if Len <> CB_ERR then
  begin
    SetLength(Result, Len);
    SendMessage(ComboBox.Handle, CB_GETLBTEXT, Index, Longint(PChar(Result)));
  end
  else
    SetLength(Result, 0);
end;

Отсюда вывод: Либо сносим свою винду, либо переделываем свою прогу под CLX...

[Plague]

XPManifest кидаешь на форму
или оформление делаешь стиль Windows
глюк изчезает.
только еще не понял в чем проблема.

[And1]

Отвечаю SuperVisor

Похоже тема про этот глюк никогда не закончится. Предложение снести свою винду на мой взгляд не имеет смысла, потому что я ставил Delphi7 c двух разных дисков на два разных компа, и результат был один и тот же. Я делаю прогу не для себя, так что она должна устойчиво работать на любом компе, а не только конкретно на моём. Насчёт CLX - я не силён в терминологоии, хотелось бы знать, что имеется в виду.

Вообще, есть ли на этом форуме сильно профессиональные программисты, которые однозначно могли бы сказать, должен ли следующий код:

SendMessage(ComboBox.Handle, CB_GETLBTEXT, Index, Longint(PChar(Result)));

однозначно приводить к ошибке при чтении пустой строки в строку Result нулевой длинны, если учесть что при этом в Result записывается байт $0, или это не является ошибкой (у меня исключение генерируется именно при исполнении этой строки, и на мой взгляд это не может не быть ошибкой, ведь под строку Result не выделяется память, но байт $0 в PChar(Result) всё равно записывается).

Отвечаю Plague

Я поэксперементировал с XPManimest, и оказалось, что для устранения глюка достаточно взять не сам этот компонент, а всего одну строку из его модуля: "{$R WindowsXP.res}". Однако это не устраняет сам глюк, а просто вообще перестаёт выскакивать окно с сообщением о генерации исключения в ответ на отсылку сообщения "CB_GETLBTEXT", даже если в качестве LParam подсовывать совершенно левые адреса - я например попробовал задать такое "(Longint(PChar(Result))+100000 0), и ничего, тишина, никаких исключений. Это вобщем-то было бы приемлемо, но строка "{$R WindowsXP.res}" к сожалению приводит к возникновению проблем в моей проге совсем в другом месте, где их раньше небыло вовсе, так что мне это к сожалению не подходит. (Кстати, что значит "разные маздаи"? - я не знаком с программёрским слэнгом).

Отвечаю pinhead

Предложение заменять пустую строку на пробел в моём случае неприемлемо - слишком многое придётся изменять. Более подробно объяснять не буду, а то итак пишу слишком много, народ наверное напрягает всё это читать. Да и вообще, мне конечно хотелось бы разобраться в причинах этой проблемы и устранить её радикально, а не обходиться полумерами - так по-моему правильней и надёжнее.

Люди, на сайте Borland вроде есть обновление Delphi7 до версии 7.1, но для осуществления обновления нужно вводить какой-то код, так что облом. Никто не знает, продаётся ли Delphi7.1 или нет, т.е. стоит ли пытаться его искать в продаже?

[mihali4]

Чтой-то я не нашел у борланда на сайте (его собственным поиском, причем) никакого Delphi 7.1.
Был еще в 2004 году апдейт 7.1 к семерке, но на него страшно ругались люди...