memoの選択位置前にeditの内容を挿入するには

解決

かお 2003-09-26 19:36:14 No: 5018

最近Delphiを始めたばかりの初心者です。
memoの内容のある部分を選択しeditの内容をその選択位置の前に挿入するにはどのようにすればよろしいのでしょうか。
教えてください。よろしくお願いします。

HOota 2003-09-26 20:48:16 No: 5019

SelStart位置の前にTEditの文字列を挿入すればOK

Halbow 2003-09-26 21:28:07 No: 5020

Halbow です。

> memoの内容のある部分を選択しeditの内容をその選択位置の前に挿入するには

やってみました。

procedure TForm1.Button1Click(Sender: TObject);
var
  SelL:integer;
begin
  SelL := Memo1.SelLength;
  if SelL = 0 then
    Memo1.SelText := Edit1.Text
  else begin
    Memo1.SelLength := 0;
    Memo1.SelText := Edit1.Text;
    Memo1.SelLength := SelL;
  end;
  Memo1.SetFocus;
end;

かお 2003-09-27 01:00:14 No: 5021

できました(^o^)丿
ありがとうございましたm(__)m

かお 2003-09-27 01:01:53 No: 5022

たすかりました。