ton with est un peu bizarement utilisé là, puis tu libères pas le truc après.
Et faire des appels répétés à Text c'est pas super performant vu qu'il doit à chaque coup recomposer le truc. Enfin soit.
s: string;
Result := False;
s := indyhttp.Get('http://www.toto.com/toto.txt'); if s <> '' then
with TStringList.Create do
try
Text := s;
s := Strings[1]; // s contiendra la 2ème chaîne
Result := True;
finally
Free;
end;
|
je sais pas d'où t'avais sorti ton "lines" et "ça plante" est tout sauf une indication utile, en général on s'attend à ce que tu dises justement ce qu'il se passe
Message édité par antp le 30-09-2003 à 19:10:39
---------------
mes programmes ·· les voitures dans les films ·· apprenez à écrire