How do I set the position in TMemo? 1

[doctorjellybean]

The TMemo component loads the contents of a text file. After loading, I need to set the position to the beginning of the first line (row).

Then I want to insert some info at that position, and move down to the beginning of the next line (row). I'm basically trying to insert timestamps into the beginning of each line (row). The timestamps are obtained from another procedure.

Thank you.

 

[CADTenchy]

I haven't tried it, but I would guess that

Memo1.SelStart := line;

where line is an integer 0 to count-1 may do it?


Steve (Delphi 2007 & XP)

 

[doctorjellybean]

Thank you.

It sets the position of the cursor on the line itself, where

Memo1.SelStart := 0;

is the first character on the first line. Now I need to put the cursor at the beginning of the 2nd line, and this is what I would like to know.

 

[CADTenchy]

ok, try this one:

procedure TMainForm.Button6Click(Sender: TObject);
begin
  with Memo1 do
  begin
    // Move to 3rd line, Character 3:
    SelStart := Perform(EM_LINEINDEX, 2, 0) + 3;
    Memo1.SelLength := 0;
    Perform(EM_SCROLLCARET, 0, 0);
    Memo1.SetFocus;
  end;
end;

The 2 is the 3rd line (0,1,2, etc).
Change the +3 to +0 to put the cursor at the begginning of the line.
You probably don't need the SetFocus, I used that in my test button to see the cursor flashing at the right place.



Steve (Delphi 2007 & XP)

 

[doctorjellybean]

Thank you, it works

 

[CADTenchy]

You're welcome.
Usually it's me asking, so good to be the answerer for once..


Steve (Delphi 2007 & XP)