ayuda con TStringList

[n03l]

saludos, queria ver si me pueden ayudar con un TStringList

estoy trabajando con un TStringList el cual tengo la nesecidad de insertar palabras en la misma linea pero al final

con un memo lo hago asi

Código Delphi [-]
Memo.SelText

pero no se como se hace con un TStringList

saludos y gracias de antemano...

[Casimiro Notevi]

Por favor, recuerda poner títulos descriptivos a tus preguntas, gracias

[ecfisa]

Hola n03l.

estoy trabajando con un TStringList el cual tengo la nesecidad de insertar palabras en la misma linea pero al final

Código Delphi [-]
procedure AgregarAlFinal(stLst: TStrings; Linea: Integer; Cad: string);
begin
   if Linea in [0..stLst.Count-1] then
    stLst[linea]:= stLst[linea] + Cad;
end;

Ejemplo:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  TS: TStrings;
  i: Integer;
begin
  TS:= TStringList.Create;
  try
    for i:= 1 to 10 do TS.Add(IntToStr(i)+') '); // cargar unos valores...
    AgregarAlFinal(TS, 8, ' LINEA AGREGADA');  // Agregar al final de una línea determinada
    ListBox1.Items:= TS; // Mostrar en ListBox
  finally
    TS.Free;
  end;
end;

Saludos.

[n03l]

Gracias me sirvio de mucho...