CopyFile(OpenDialog.FileName, dir + '\aaa\data.txt', True);
czego sie nie da tego skompilować? dir to string w którym jest 'c:\test'
chce żeby 1 parametr był pobrany z opendialoga
CopyFile(OpenDialog.FileName, dir + '\aaa\data.txt', True);
czego sie nie da tego skompilować? dir to string w którym jest 'c:\test'
chce żeby 1 parametr był pobrany z opendialoga
z helpa:
procedure TForm1.CopyFileClick(Sender: TObject);
var
Source, Destination:TStream;
begin
Source := TFileStream.Create(edFrom.Text, fmOpenRead or fmShareDenyWrite);
try
Destination := TFileStream.Create(edTo.Text, fmOpenCreate or fmShareDenyRead);
try
Destination.CopyFrom(Source,Source.Size);
finally
Destination.Free;
end;
finally
Source.Free
end;
reszta w FAQ
masz tam nawet jak pokazac to na ProgressBarze
Użyj PChar(string), przecież argumety w CopyFile muszą być typu PChar.
Lofix : nie kapuje nic co do mnie rozmawiasz
berl : Dzięki, tylko jak sie skompiluje to na dole w oknie gdzie wyskakują błędy w delphi pokazuje mi sie :
unfase PChar