Forum: Object-Pascal / Delphi-Language
Prism
by Martin W,
17. Apr 2006
So... für alle gibt es hier noch mal die Lösung meines Problemes:
function Tserver_mainform_form.CopyFile(AFileFrom: string; AFileTo: string): boolean;
var
mem : TMemoryStream;
begin
try
if FileExists(AFileFrom) then
begin
mem := TMemoryStream.Create;
Forum: Object-Pascal / Delphi-Language
Prism
by Martin W,
16. Apr 2006
Hi;
function Tserver_mainform_form.CopyFile(AFileFrom: string; AFileTo: string): boolean;
var
mem : TMemoryStream;
begin
try
if FileExists(AFileFrom) then
begin
mem := TMemoryStream.Create;