How about 

Memo.Lines.SaveToFile('data.txt')

Mark
----- Original Message ----- 
From: <[EMAIL PROTECTED]>
To: "Multiple recipients of list delphi" <[EMAIL PROTECTED]>
Sent: Wednesday, May 30, 2001 3:36 PM
Subject: [DUG]: help please


i am need of help with my project, i am trying to save the lines in my
memo1 box to a text file  can some one please help me out here.


procedure TForm1.BitBtn1Click(Sender: TObject);
var
   sav:textfile;
   dat:string;

begin
 dat:='data.txt';
 assignfile(sav,dat);
 rewrite(sav);
 writeln(dat,memo1.lines.txt);
 close(dat);
end;

...From
   Kristy and Brendon
---------------------------------------------------------------------------
    New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
                  Website: http://www.delphi.org.nz
To UnSub, send email to: [EMAIL PROTECTED] 
with body of "unsubscribe delphi"


---------------------------------------------------------------------------
    New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
                  Website: http://www.delphi.org.nz
To UnSub, send email to: [EMAIL PROTECTED] 
with body of "unsubscribe delphi"

Reply via email to