Foros Club Delphi - Lines memo en una sola linea con un punto al final

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)

- - Lines memo en una sola linea con un punto al final (https://www.clubdelphi.com/foros/showthread.php?t=90245)

Delphi01

02-05-2016 03:46:40

Lines memo en una sola linea con un punto al final

Hola tengo este código :

Código:

procedure TForm1.Button1Click(Sender: TObject);

var d,i : integer;

begin

d:=memo1.lines.count;



for i:=1 to d-1 do



   memo1.lines[0]:=memo1.lines[0]+' ,'+memo1.lines[i];



for i:=1 to d do

   memo1.lines.Delete(1);

end;

eso funciona muy bien pero quiero añadir un punto '.' al final de la linea ...solo eso
Muchas gracias.

Delphi01

02-05-2016 03:56:24

Ya... encontré la solución...qP:-)

bastaba añadir

Código Delphi [-]memo1.lines[0] := memo1.lines[0]+'.';

La franja horaria es GMT +2. Ahora son las 21:43:37.