Howdy, Stranger!

It looks like you're new here. If you want to get involved, click one of these buttons!

Categories

reading whole file into Memo field

Hi,

Many thanks for your helpful responses thus far. My next question is, how do I read a whole text file into a memo field?

At present, my code is:

if FileExists('entries/1.jnl') then
begin
// Display the file contents
AssignFile(myFile, 'entries/1.jnl');
//open the file for reading
Reset(myFile);
while not Eof(myFile) do
begin
ReadLn(myFile, text);
MemoRecent.Text := text;
end;
// Close the file for the last time
CloseFile(myFile);
end
else
begin
MemoRecent.Text := '1.jnl does not appear to exist';
end;

But this obviously merely sets the memo to show the last section of the file (i.e. after the final newline). In PHP, which I am more familiar with, you can append things to strings.

i.e. $string="some text";
$string.=" some more text";
//$string now equals "some text some more text"

Is there an equivalent in Delphi?

Many thanks,

ucbones

Comments

  • zibadianzibadian Posts: 6,349
    : Hi,
    :
    : Many thanks for your helpful responses thus far. My next question is, how do I read a whole text file into a memo field?
    :
    : At present, my code is:
    :
    : if FileExists('entries/1.jnl') then
    : begin
    : // Display the file contents
    : AssignFile(myFile, 'entries/1.jnl');
    : //open the file for reading
    : Reset(myFile);
    : while not Eof(myFile) do
    : begin
    : ReadLn(myFile, text);
    : MemoRecent.Text := text;
    : end;
    : // Close the file for the last time
    : CloseFile(myFile);
    : end
    : else
    : begin
    : MemoRecent.Text := '1.jnl does not appear to exist';
    : end;
    :
    : But this obviously merely sets the memo to show the last section of the file (i.e. after the final newline). In PHP, which I am more familiar with, you can append things to strings.
    :
    : i.e. $string="some text";
    : $string.=" some more text";
    : //$string now equals "some text some more text"
    :
    : Is there an equivalent in Delphi?
    :
    : Many thanks,
    :
    : ucbones
    :
    Check out the Lines.LoadFromFile() method in the help files.
Sign In or Register to comment.