Discussion :

[abdelghani_k]

Bonjour,

comment traduire cette boucle car j'ai reçu un message d'erreur du compilateur delphi "Opérateur non applicable à ce type d'opérande" :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
var
  liste : TStringList;
  s : string;
begin
 
    for s in liste do
 
...
end;

Merci.

[GoustiFruit]

Code :

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

1
2
3
4
5
6
7
8
9
10
var
  liste: TStringList;
  s: String;
  i: Integer;
begin
  for i := 0 to High(liste) do begin
    s := liste[i];
    ...
  end;
end;

[abdelghani_k]

toujours erreur "Type imcompatibles" au niveau de :

Code :

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

1
2
 
for i := 0 to High(liste) do begin

[tourlourou]

Code :

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

for i:=0 to Liste.Count-1

[GoustiFruit]

Bien sûr l'objet "liste" a été créé et peuplé avant ?

Code :

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

liste := TStringList.Create;

[ShaiLeTroll]

Question N°1 : Utilises-tu Delphi 2006 au minimum ?

tu peux écrire cela (il me semble)

Code :

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

1
2
3
4
5
6
7
8
var
  liste : Array[1..3] of string = ('Delphi', 'C++', 'Java');
  s : string;
begin
    for s in liste do
     ShowMessage(s);
...
end;

La TStringList implémente l'interface IEnumerator, comme le souligne GoustiFruit, ta liste est correctement instanciée ?

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
var
  liste : TStrings;
  s : string;
begin
  liste := TStringList.Create();
  try
    liste.Add('Delphi');
    liste.Add('C++');
    liste.Add('Java');
 
     for s in liste do
       ShowMessage(s);
 
  finally
     liste.Free();
  end;
...
end;