Insert Lines Into a Memo

produsysprodusys Brazil
Hi friends,
I'm trying insert a line into a memo on execution time using a while.
See my example:
while not Query1.Eof do
begin
  if Trim(Memo41.Memo)<>'' then
    Memo41.Memo := Memo41.Memo + #13 + [DialogForm.Query1."buy_value"]
  else
    Memo41.Memo := [DialogForm.Query1."buy_value"];
  Query1.Next;
end;
Where the '#13' is a ASCII code for the Return Key. I'm need this because i'm using two Queries. But it not insert a new line, it gives an error message: Invalid Variant Operation.
How can I insert a line into a memo in Execution Time? ;) I'm waiting for help!

Comments

Leave a Comment

Rich Text Editor. To edit a paragraph's style, hit tab to get to the paragraph menu. From there you will be able to pick one style. Nothing defaults to paragraph. An inline formatting menu will show up when you select text. Hit tab to get into that menu. Some elements, such as rich link embeds, images, loading indicators, and error messages may get inserted into the editor. You may navigate to these using the arrow keys inside of the editor and delete them with the delete or backspace key.