Discussion :

[Cambon]

Problème :

Delphi 7 :

Une Form avec un ComboBox

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
 
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls;
 
type
  TForm1 = class(TForm)
    Cb_Test: TComboBox;
    StatusBar: TStatusBar;
    Button1: TButton;
    procedure Cb_TestChange(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Cb_TestChange(Sender: TObject);
begin
     StatusBar.SimpleText:= Cb_Test.Text;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
     with Cb_Test.Items do
     begin
          Clear;
          Add('');
          Add('A');
          Add('B');
          Add('C');
          Add('D');
     end;
end;
 
end.

Aprés compilation ce code tout simple fonctionne sans problème sur une machine XP (heureusement)

Mais si on place le programme sur une machine Windows 2000 et que l'on sélectionne l'élément vide du combobox un message d'erreur apparait :
Violation d'accés à l'adresse xxxxxx dans le module 'ntdll.dll'.

Quelqu'un a t'il déja rencontré ce problème ?

Merci !

[dd16]

Si tu utilise delphi7, je me souviens d'un probleme sur les combobox lorsqu'elles sont vides.

Ca provoque une erreur ntdll.

Pour le corriger, borland a fournit un patch à placer avec le projet principal
18872_tcombobox_patch_for_delphi_7_qc_2246_.zip

[rbh]

Salut
Sans télécharger quoi que ce soit je me rappelle que c'est juste une condition de test dans control.pas ou une unité de ce style.
Après pas mal de recherche, j'avais trouvé ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
The problem was introduced in StdCtrls.pas in line 2325.
 
The line reads:
 
  if Len <> CB_ERR then
 
The problem is caused because an empty string returns 0 which is passed on to the next SendMessage call.
 
Replacing line 2325 as follows corrects the issue:
 
  if Len > 0 then

[Cambon]

Merci beaucoup cela marche !