SUMAR FICHEROS (COPIAR UNO AL FINAL DE OTRO EXISTENTE) - .: .: Saiyine :. :.

Sumar ficheros (copiar uno al final de otro existente)

Por Saiyine Enviar correo el 0000-00-00 00:00:00 - Secciones:  DELPHI  - Enlace permanente: 500

program Copia;
\{\$APPTYPE CONSOLE}
uses
SysUtils;

procedure FileCopy(const FromFile, ToFile: string);
var
FromF, ToF: file;
NumRead, NumWritten: integer;
Buf: array[1..2048] of Char;
begin
        AssignFile(FromF, FromFile);
        Reset(FromF, 1);		{ Record size = 1 }
        AssignFile(ToF, ToFile);	{ Open output file }
        Rewrite(ToF, 1);		{ Record size = 1 }
        repeat
                BlockRead(FromF, Buf, SizeOf(Buf), NumRead);
                BlockWrite(ToF, Buf, NumRead, NumWritten);
        until (NumRead = 0) or (NumWritten < NumRead);
        CloseFile(FromF);
        CloseFile(ToF);
end;

procedure FileCopyAdd(const FromFile, ToFile: string);
var
FromF, ToF: file;
NumRead, NumWritten: integer;
Buf: array[1..2048] of Char;
begin
        AssignFile(FromF, FromFile);
        Reset(FromF, 1);		{ Record size = 1 }
        AssignFile(ToF, ToFile);	{ Open output file }
        If fileexists(Tofile)
        then
        Begin
                Reset(ToF, 1);
                seek(ToF,filesize(ToF));
        end
        else Rewrite(ToF,1);
        repeat
                BlockRead(FromF, Buf, SizeOf(Buf), NumRead);
                BlockWrite(ToF, Buf, NumRead, NumWritten);
        until (NumRead = 0) or (NumWritten < NumRead);
        CloseFile(FromF);
        CloseFile(ToF);
end;

begin
        FileCopy('prueba1.dat','final.dat');
        FileCopyAdd('prueba2.dat','final.dat');
end.

El programa es para consola, simplemente es de ejemplo, para que veais como va.

Otras entradas de la web que podrian interesarte:

o o o o 


Tu nombre (Nick):

Tu correo (Email):
  Necesario para tu gravatar!

Tu página (URL):

Escribe aqui tu comentario:

       :noworry: :roll: :huh: :push: :OO 8) 8O :( :) :? :D :P :o :x :| ;) ^^ xD



Vista previa activada.

 Vista previa (6/6/6, 6:66)


Fondos de pantalla

. . .

Recomendamos


. . .

Secciones

  •  Principal
  •  Delphi
  •  Java
  •  PHP
  •  Ideas
  •  Trucos de windows
  •  Trucos de linux
  •  Scripts en perl
  •  Programas en C#
  •  Fondos de pantalla
  •  Letras de canciones

    • . . .

    Tags de la web

    Linux (117) - Delphi (56) - Tuiterbuc (48) - Imagenes (45) - English (42) - Java (31) - Videos (28) - Lyrics (27) - Windows (25) - Chorradas (19) - Futbol (18) - Programas (17) - Publicidad (17) - Javascript (16) - Programacion (14) - Perl (14) - Ideas (14) - Php (11) - Cine (11) - Slashdot (10) - Trucos (8) - Minipost (8) - Frases (7) - Csharp (7) - Utilerias (7) - Google (6) - Fotos (6) - Photoshop (6)

    . . .

    Descargas

  • ApagaPC
    apagapc241.exe  (4339)
  • LimpiaDocus
    LimpiaDocus001.exe  (3627)
  • RCM
    rcm001.zip  (3062)
  • Popmail
    popmail-0.4-psmn.tar.gz  (3132)
  • Manual de Delphi en PDF
    delphi_pdf.zip  (3764)
  • Evangelio del Perl
    Evangelio_del_perl.pdf  (3786)
  • Excel Simpsons
    Excel Simpsons  (3789)

    • . . .

    ltimos comentarios

  • 751 - Saiyine: Practicamente no, es exactamente lo mismo. La interpretación no la hace...
  • 751 - Anonimo: La cosa de esto es que ya te da las...
  • 574 - Anonimo: quiero sexo :OO
  • 707 - melani: hola comoestasa :rolleye:
  • 707 - melani: hola comoestasa :rolleye:
  • 371 - Anonimo: ^^

    • . . .

    Articulos

  •  Algoritmo de Huffman Adaptativo
  •  Mldonkey como servicio en windows

    • . . .

    Utilerias

  • Conversor entre euros y dolares
  • Haciendo gráficas para webs facilmente

    . . .

    • Proyectos Online

  • Saiyine Store
  • Kunowalls!!!
  • Fondos de pantalla
  • Picaday: imagenes sexys o chocantes.
  • Scarlett: fotos de Scarlett Johansson
  • WhatsmyIP: obtener tu IP pública
  • Uma Thurman: galeria de Uma Thurman
  • FunPics: imagenes graciosas

    • . . .

    Blogs

  • Por lo que más querais, no entreis a estos: Tapanez, Yhandros, Onez.

  • Otros en español: El Mundo Today, La libreta de Van Gaal, Chavalina, Kirai, Mundo Geek, Microsiervos.

  • Mis lecturas en guiri: Michael Yon, Coding Horror, YCombinator news, MySQL Performance, Slashdot.

    . . .

    • Utilidades

  •  Coral  (1583), cacheando webs
  •  Spam.la  (1899), correo de usar y tirar
  •  Mailinator  (1802), correo de usar y tirar
  •  Bug me not  (1580), absurdos registros di NO
  •  Trashmail  (1629), correo de usar y tirar

    . . .

    • Mis wikis

  • Gravastar, VirtualDub, Samuel Eilenberg

    Se suspenden las traducciones de la wikipedia hasta que no se aclaren las condiciones de su adquisición práctica por parte de google.

    . . .

    • Busquedas


    Varios ejemplos de lo que buscaban visitantes recientes:

  • f [google]
  • t [google]
  • 50 libras en pesos [google]
  • comprar euros con dolares [google]
  • animaciones porno para msn [google]
  • buscador en delphi [google]
  • iftop para fedora tar.gz [google]
  • IMAGENES XXX DE JOHANSSON SCARLETT [google]
  • dni [google]
  • dolares en euros [google]
  • no puedo sacar la proteccion contr [google]
  • hacer un programa en java que use imagenes [google]
  • convertir un numero decimal a binario en base 2 [google]
  • insertar product key de windows xp [google]
  • ejemplo de hilos en java [google]

    • . . .

    Página web ©2001-2011 Saiyine descargada en s, con 5908076 visitas en total, hoy (de un total de 0 previstas).

    . . .