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

解決

かお 2003-09-26 19:36:14 No: 5018 IP: [192.*.*.*]

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

編集削除

HOota 2003-09-26 20:48:16 No: 5019 IP: [192.*.*.*]

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

編集削除

Halbow 2003-09-26 21:28:07 No: 5020 IP: [192.*.*.*]

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 IP: [192.*.*.*]

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

編集削除

かお 2003-09-27 01:01:53 No: 5022 IP: [192.*.*.*]

たすかりました。

編集削除