Let the Memo do all the work with Memo1.Lines.SavetoFile('path and
filename'). ps each line of a Memo is an item so if you wanted to do the
same manually you would loop through all of them (from 0 to Lines.count -
1).
-----Original Message-----
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]
Sent: 30 May 2001 15:37
To: Multiple recipients of list delphi
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"
