{ dans la serie comment se retrouver avec une chaine de 15000 octets de longs
sur une seule ligne ... :( ... on eviteras de virer les retours a la ligne }
procedure InsertBr(Strings : TStrings; const Indexs : array of integer);
var i : integer;
begin
if (Length(Indexs) = 0) or (Strings.Count = 0) then
exit;
try
Strings.BeginUpdate;
for i := 0 to High(Indexs) do
Strings[indexs[i]] := Strings[indexs[i]]+'<br />';
finally
Strings.EndUpdate;
end;
end;
procedure InsertBrInAll(Strings : TStrings);
var i : integer;
begin
if Strings.Count = 0 then
exit;
try
Strings.BeginUpdate;
for i := 0 to Strings.Count-1 do
Strings[i] := Strings[i]+'<br />';
finally
String.EndUpdate;
end;
end;