 Posté le: 28 11 2002 18:27 Sujet du message: Bloc par bloc (non fonctionnel) |
|
|
| Code: |
procedure TForm1.CopierClick(Sender: TObject);
var s,c:FILE OF CHAR;
ch:CHAR;
NomSource,NomCible:STRING;
begin
NomSource:='c:\Source.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.CopierFichierClick(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:\copie.txt';
AssignFile(S,nomsource);
Assignfile(c,Nomcible);
Reset(s,1);
Rewrite(c,1)
repeat
BlockRead(s,buf,sizeof(buf),lus);
blocwrite(c,buf,lus,ecrits);
until (lus=0) or (ecrits<>lus);
end;
|
|
|
Vinchenzo
Invité
|
S'enregistrer
Rechercher
FAQ
Connexion
