delphi_63102
جمعه 27 خرداد 1384, 20:51 عصر
با سلام
من میخوام یک فایل رو بصورت خط به خط بخونم و در یک فایل دیگر کپی نمایم
سورس برنامه :
procedure TForm1.Button1Click(Sender: TObject);
var
F1, F2: TextFile;
Ch: String;
begin
AssignFile(F1, 'g:\test\dbank.mdb');
Reset(F1);
AssignFile(F2, 'g:\test\dbank1.mdb');
Rewrite(F2);
while not Eof(F1) do
begin
Readln(F1, Ch);
Writeln(F2, Ch);
end;
CloseFile(F2);
CloseFile(F1);
end;
اما نمیدونم چرا فایل رو کامل نمیخونه و فایل جدید درست تشکیل نمیشه
ممنون میشم اگر راهنمایی نمائید.
من میخوام یک فایل رو بصورت خط به خط بخونم و در یک فایل دیگر کپی نمایم
سورس برنامه :
procedure TForm1.Button1Click(Sender: TObject);
var
F1, F2: TextFile;
Ch: String;
begin
AssignFile(F1, 'g:\test\dbank.mdb');
Reset(F1);
AssignFile(F2, 'g:\test\dbank1.mdb');
Rewrite(F2);
while not Eof(F1) do
begin
Readln(F1, Ch);
Writeln(F2, Ch);
end;
CloseFile(F2);
CloseFile(F1);
end;
اما نمیدونم چرا فایل رو کامل نمیخونه و فایل جدید درست تشکیل نمیشه
ممنون میشم اگر راهنمایی نمائید.