How do I insert text into a memo? 1

[TimSNL]

Hello.

I need to insert a string into a memo at the cursor position.
I can see how to do it using the clipboard, but I didn't want to upset anything the user may already have in the clipboard.
Is there another way to do this?

Thanks for your help.
Tim
SNL Computing

 

[footpad]

Tim,

Use something along these lines:

   Memo1.SelText := 'Text to Insert';

SelText will either replace the selected text with whatever you pass to it. If nothing is selected in the memo, then it adds the text at the insertion point.

You can control the insertion point by setting the SelStart property. Set it to 0 to move the insertion point to the beginning and to something along the lines of

IntToStr( length( Memo1.Text ) )

.

Hope this helps...

-- Lance

 

[footpad]

Gak!

That last paragraph should read:

"You can control the insertion point by setting the SelStart property. Set it to 0 to move the insertion point to the beginning and to something along the lines of

length( Memo1.Text )

to move the insertion point to the end."

Sorry for the bad typing (and/or editing, take your pick)...

-- Lance

 

[awarnica]

index := Memo.ItemIndex;
Memo.Lines.Insert[index, strTextToInsert];

This should do it as well I think. Sometimes it is easier to work with the items property than the text property.

 

[TonHu]

The seltext should have first go, as usually you'll be inserting when a user presses some button, and the cursor would be at SelPos, with some text selected for SelLength chars, and 0 being noting selected. If I press the 'Insert the smiley mnemonic' button, it would be nicely inserted at current cursor position ;-)

HTH
TonHu

 

[TimSNL]

Thankyou everyone .
You have helped me out.
Tim