SetSelTextBuf (Delphi)

From RAD Studio Code Examples
Jump to: navigation, search

Description

This example inserts the contents of temp_string at the current location of the cursor.

Code

procedure TForm1.Button1Click(Sender: TObject);
var
  temp_string: array[0..15] of Char;
begin
  temp_string := 'I am now here';
  Memo1.SetSelTextBuf(temp_string);
end;

procedure TForm1.FormCreate(Sender: TObject);
const Path = 'readme.txt';
begin
  Memo1.Lines.LoadFromFile(Path);
end;

Uses