tableau et tstringlist

Version imprimable

27/04/2006, 21h01
rimacom

tableau et tstringlist

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 :oops:
27/04/2006, 21h25
Ben_Le_Cool

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

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

Code:

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;

Citation:
Envoyé par rimacom
merci pour votre reponse voici mon tres petit code. (je suis encore tres debutante)
Code:

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:

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

-Slimjoe