He aquí cómo quito líneas vacías en un Memo, y coloco las líneas pares con las impares. La secuencia original es: Linea vacía, Linea llena, Línea llena... y quiero añadir la tres a la dos. No sé si me explico.
El caso es que me gustaría usar un TStringList en lugar de dos TMemo. Seguro que se puede mejorar. Y es lo que propongo.
Código Delphi
[-]
procedure TForm1.Button1Click(Sender: TObject); Var
I: Integer;
begin
Memo2.Lines.Clear;
if (Memo1.Lines[0]='') then Memo1.Lines.Delete(0); for I:= 0 to Memo1.Lines.Count - 1 do
if (Memo1.Lines[i]='') then
Memo1.Lines.Delete(I) ;
ShowMessage ('Lineas Memo1: ' + IntToStr (Memo1.Lines.Count ) );
for I:= 0 to Memo1.Lines.Count - 1 do
if ( I Mod 2 = 0 ) then
Memo2.Lines.Add( Memo1.Lines[i] + Memo1.Lines[I+1] ) ;