gdlrinfo |
30-10-2015 17:24:33 |
Unir 2 RTF que tienen una imagen y un pequeño encabezado
Estimados nuevamente por aquí con otra duda necesito unir 2 RTF que tienen una imagen y un pequeño encabezado la cuestión es que utilizo esto :
Código Delphi [-]
Var
sAr1,sAr2 : TStringList;
begin
sAr1 := TStringList.Create;
sAr2 := TStringList.Create;
sAr1.LoadFromFile('C:\RTF\1.rtf');
sAr2.LoadFromFile('C:\RTF\2.rtf');
sAr1.AddStrings(sAr2);
sAr1.SaveToFile('C:\RTF\Nuevo.rtf');
sAr1.Free;
sAr2.Free;
end;
pero solo me deja el primero el segundo no lo agrega tienen alguna idea ?
desde ya muchas gracias !!!
|