Ik heb nou dus een beetje met delphi (5) zitten klooien, maar nu wou ik dus een procedure maken dat een bestand kopieert... en had ik dus het volgende in gedachte :
in turbopascal werkt een soortgelijke procedure wel goed, maar in delphi niet... als ik dan et doelbestand inlees zijn er maar een aantal bytes gekopieert en niet het hele bestand.
ik wil perse een procedure die het byte voor byte kopieert zodat het muteren van bepaalde bytes dan makkelijker is (of heb ik dit mis??)
doe ik in bovenstaande procedure iets fout??
b.v.d. Dave
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
| procedure TForm1.docopy(Sender: TObject);
var sourcefile,destfile : textfile;
buffer : char;
begin
assignfile(sourcefile,edit1.text); // in edit1 staat het bronbestand
assignfile(destfile ,edit2.text); // in edit2 staat het doelbestand
reset(sourcefile); // bronbestand openen
rewrite(destfile); // doelbestand aanmaken
while NOT Eof(sourcefile) do // totdat ie aan het eind van het bronbestand is (dit kan toch zo?)
begin
Read(sourcefile,buffer); // 1 byte uitlezen uit de bronbestand
Write(destfile,buffer); // 1 byte schrijven in het doelbestand
end;
closefile(sourcefile); // bronbestand sluiten
closefile(destfile); // doelbestand sluiten
showmessage('Done with copy'); // berichtje geven dat ie klaar is
end; |
in turbopascal werkt een soortgelijke procedure wel goed, maar in delphi niet... als ik dan et doelbestand inlees zijn er maar een aantal bytes gekopieert en niet het hele bestand.
ik wil perse een procedure die het byte voor byte kopieert zodat het muteren van bepaalde bytes dan makkelijker is (of heb ik dit mis??)
doe ik in bovenstaande procedure iets fout??
b.v.d. Dave
/u/13464/Delphi.png?f=community)
