Discussion :

[Dereck07]

bonjour,

J'ai fait un petit programme trés basique utilisant un Tstrings:

Code :

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

1
2
3
4
5
6
7
8
procedure TForm1.Button1Click(Sender: TObject);
var
st:Tstrings;
begin
st:=Tstrings.create();
st.Add('rd');
end;

Delphi me jete à la ligne "st.Add('rd');" avec l'erreur suivante:

Le projet1.exe a provoqué une classe d’exception EAbstractError avec le message ‘Erreur abstraite. …

Quelqu'un voit il ce qu'il cloche ?

[Cl@udius]

Salut

La classe TStrings est une classe abstraite, donc il ne faut pas instancier cette classe mais sa classe enfant TStringList.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.Button1Click(Sender: TObject);
var
  st: TStringList;
begin
  st := TStringList.Create;
  try
    st.Add('rd');
    // ...
  finally
    st.Free;
  end;
end;

@+ Claudius

[Dereck07]

Enfaite ce que je veux faire c'est avoir une fonction qui me retourne un Tstrings pour l'affecter à une ListBox.item qui est de type Tstrings.

Si je comprend bien il faut que je déclare st comme TStringList et qu'aprés je fasse:

ListBox1.item:=st;

C'est quoi une classe abstraite?

[Archimède]

C'est quoi une classe abstraite?

Une classe abstraite ne peut pas donner naissance à des objets.
Elle n'a comme rôle que de factoriser des méthodes communes aux sous-classes.
ça permet d'offrir une certaine liberté dans le polymorphisme (voir POO)
L’idée est de fournir un cadre général et de laisser le développeur réaliser les classes concrètes s’il le souhaite...

[Archimède]

c'est

Code :

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

listbox.items.add(s:string)

[Dereck07]

Merci Cl@udius,

Ca marche nickel

Code :

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

1
2
3
4
5
6
7
8
9
 
procedure TForm1.Button1Click(Sender: TObject);
var
st: TStringList;
begin
st := TStringList.Create;
st.Add('rd');
Listbox1.Items:=st;
end;

Et merci Archimède pour ton explication sur les class abstraite