From: "Berend" <r.boonstra@pink.nl>
Subject: Re: Copy
Date: 13 Apr 1999 00:00:00 GMT
Message-ID: <7f077g$3o3$1@zonnetje.NL.net>
References: <01be81f5$653204a0$03a3143e@lars-ola>
X-Priority: 3
X-MimeOLE: Produced By Microsoft MimeOLE V5.00.2014.211
X-Complaints-To: abuse@nl.uu.net
X-Trace: zonnetje.NL.net 924033072 3843 212.136.245.27 (13 Apr 1999 19:51:12 GMT)
Organization: UUNET-NL (http://www.nl.uu.net)
X-MSMail-Priority: Normal
NNTP-Posting-Date: 13 Apr 1999 19:51:12 GMT
Newsgroups: alt.comp.borland-delphi

Here's a procedure that copies every file you want. Not that diffucult,
isn't it?


procedure CopyFile (Source, Target : string);
var
   s1, s2 : TFileStream;

begin
   s1 := TFileStream.Create (Source, fmOpenRead);
   s2 := TFileStream.Create (Target, fmOpenWrite or fmCreate);
   s2.CopyFrom (s1, s1.Size);
   s2.Free;
   s1.Free;
end;


LG <laogr@hotmail.com> wrote in message
news:01be81f5$653204a0$03a3143e@lars-ola...
> Can anybody tell med how to make a menu with copy-function. What do you
> write exactly to copy a string? A picture? I have just begun to learn
about
> Deplhi 3.0 and I just now donīt have books enough! Please write to:
>
> lars-ola@grnaberg.pp.se.
>
> P:S: You must write everything, because I donīt understand so much yet.
> I know how to get the menu, but after that??