 Posté le: 28 11 2002 18:39 Sujet du message: Bloc par Bloc (fonctionnel) |
|
|
| Code: |
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Copie: TButton;
CopieFichier: TButton;
procedure CopieClick(Sender: TObject);
procedure CopieFichierClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.CopieClick(Sender: TObject);
var s,c:FILE OF CHAR;
ch:CHAR;
NomSource,NomCible:STRING;
begin
NomSource:='c:\netlog.txt';
NomCible:='c:\Cible.txt';
AssignFile(S,NomSource);
AssignFile(C,NomCible);
RESET(S);
REWRITE(C);
REPEAT
Read(S,Ch);
Write(C,Ch);
UNTIL EOF(S);
CloseFile(S);
CloseFile(C);
ShowMessage('Le fichier '+NomSource+' à été copié caractère par caractère');
end;
procedure TForm1.CopieFichierClick(Sender: TObject);
var S,C:File;
Buf:Array[1..1000] of char;
Lus,Ecrits:integer;
nomsource,nomcible:string[20];
begin
NomSource:='c:\netlog.txt';
NomCible:='C:\cible.txt';
AssignFile(S,nomsource);
Assignfile(c,Nomcible);
Reset(s,1);
Rewrite(c,1);
repeat
BlockRead(s,buf,sizeof(buf),lus);
Blockwrite(c,buf,lus,ecrits);
until (lus=0) or (ecrits<>lus);
end;
end.
|
|
|
Vinchenzo
Invité
|
S'enregistrer
Rechercher
FAQ
Connexion
