Discussion :

[rimacom]

salut tt le monde comment puisse ai je remplir un tableau d'entier à partir d'une tstringlist? j'ai déja essayer mais le message d'erreur suivant m'apparait " list index out of bounds (1) ". merci

[Ben_Le_Cool]

Est-ce possible de poster ton code??
Ca peut nous aider a t'aider

[rimacom]

merci pour votre reponse voici mon tres petit code. (je suis encore tres debutante)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TForm1.Button2Click(Sender: TObject);
var i,cnt: integer;
begin
  try
templist.NameValueSeparator:=';' ;
templist.LoadFromFile('c:\fichier.txt');
cnt:=templist.Count;[/COLOR]
  for i :=1 to cnt do
  begin
 memo1.Text:=templist.Strings[i];
[COLOR=blue]  end;
  finally
  end;
end;

[slimjoe]

merci pour votre reponse voici mon tres petit code. (je suis encore tres debutante)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TForm1.Button2Click(Sender: TObject);
var i,cnt: integer;
begin
  try
templist.NameValueSeparator:=';' ;
templist.LoadFromFile('c:\fichier.txt');
cnt:=templist.Count;[/COLOR]
  for i :=1 to cnt do
  begin
 memo1.Text:=templist.Strings[i];
[COLOR=blue]  end;
  finally
  end;
end;

Salut!

La classe TStringlist est indexée à 0.
Essaye ce code :

Code :

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

1
2
for i := 0 to cnt - 1 do
  memo1.lines.add(templist.Strings[i]);

Bon dev!

-Slimjoe