Ver Mensaje Individual
  #1  
Antiguo 11-08-2007
gabyzava gabyzava is offline
Miembro
 
Registrado: oct 2006
Posts: 34
Reputación: 0
gabyzava Va por buen camino
concatenar archivos rtf

Necesito unir el contenido de 2 archivos rtf

Encontre este codigo pero solo copia el primer archivo

saben porque?

F1:=TFileStream.Create('2.RTF',fmOpenRead+fmShareDenyNone);
F2:=TFileStream.Create('21.RTF',fmOpenRead+fmShareDenyNone);
F3:=TFileStream.Create('c.RTF',fmCreate);

F3.CopyFrom(F1,(F1.Size));
F3.CopyFrom(F2,F2.Size);

f1.Free;
f2.Free;
f3.Free;

Les agradezco mucho, me urge
Responder Con Cita