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"

Reply via email to