افزودن متن دلخواه در یک شی Memo

[khorsandreza]

سلام
من میخواستم در یک شی Memo یک متن دلخواهی را دد بین متون نوشته شده بصورت متغییر وارد کنم بعد از انتخاب محل مورد نظر نتوانستم دستوری پیدا کنم که متن مورد نظرم را اضافه کند به شکل دستورات توجه بفرمائید

procedure TMokatbehFrame.MatnEditKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var
xLine,xColu : integer;
begin
If Key = 17 Then
Begin
xLine := MatnEdit.Line;
xColu := MatnEdit.Column;
MatnEdit.JumpTo(xLine,xColu) ;
MatnEdit.Lines.???????????
// ShowMessage('Line ='+IntTostr(xLine)+' Column='+IntToStr(xColu) );
End;
end;

[hossein_h62]

سلام
var
CurPoint: TPoint;
cText: string;
cLine: string;
begin
cLine:='Delphi';
CurPoint:=Memo1.CaretPos;
cText:=Memo1.Lines[CurPoint.y];
cText:=Copy(cText,0,CurPoint.x)+cLine+Copy(cText,C urPoint.x+1,Length(cText));
Memo1.Lines[CurPoint.y]:=cText;
end;

[Felony]

یا باید متن فعلی رو داخل یک متغییر String بریزید و بعد با توابع رشته ای ، رشته مورد نظر رو بهش اضافه کنید و بعد رشته حاصله رو به Memo اختصاص بدید یا توسط پیغام EM_REPLACESEL متن رو در Memo درج کنید :


SendMessage(MatnEdit.Handle, EM_REPLACESEL, 0, Integer(PCHAR('This is sample text')));

[khorsandreza]

یا باید متن فعلی رو داخل یک متغییر String بریزید و بعد با توابع رشته ای ، رشته مورد نظر رو بهش اضافه کنید و بعد رشته حاصله رو به Memo اختصاص بدید یا توسط پیغام EM_REPLACESEL متن رو در Memo درج کنید :


SendMessage(MatnEdit.Handle, EM_REPLACESEL, 0, Integer(PCHAR('This is sample text')));
اگر بخواهیم با دستور SendMessage به اولین سطر و ستون یک RichEdit حرک کنیم چیست