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
|