改行を置き換えた後にDelphiのカーソル位置を維持する方法

Question

DBMemoにName = dbmemSummaryがあります。また、DB Memoから余分な改行を削除するReplaceLineBreaksメソッドがあります。カーソル位置の設定に問題があります。

これは、メソッドの抜粋です -

procedure ReplaceLineBreaks; 
var 
    Save_Cursor: TCursor; 
    aOldTextList: TStringList; 
    aNewTextList: TStringList; 
    i, : Integer; 
begin 
    inherited; 
    aOldTextList := TStringList.Create; 
    aNewTextList := TStringList.Create; 
    try 
    Save_Cursor := Screen.Cursor; 
    aOldTextList.text := dbmemDisciplineSummary.text; 
    for i := 0 to aOldTextList.Count - 1 do begin 
     if (i = 0) and(Trim(aOldTextList[i]) <> '') then 
     aNewTextList.Add(aOldCN_TextList[i]) 
     else if not ((i<>0) and (Trim(aOldTextList[i - 1]) = '') and (Trim(aOldTextList[i]) = '')) then 
     aNewTextList.Add(aOldTextList[i]); 
    end; 
    cdsPTClinicalNotesCNTEXT.AsString := aNewTextList.Text; 
    finally 
    Screen.Cursor := Save_Cursor; 
    FreeAndNil(aOldTextList); 
    FreeAndNil(aNewTextList); 
    end; 
end; 

しかし、そのバックと同じ位置にカーソルを設定されていません...いくつかのいずれかが助けてくださいことはできますか？あなたがメモのSelStartとSelLengthプロパティではなく、Screen.Cursorプロパティを使用する必要が

Answer 1

：

procedure ReplaceLineBreaks; 
var 
    Save_SelStart, Save_SelLength: Integer; 
    aOldTextList: TStringList; 
    aNewTextList: TStringList; 
    i, : Integer; 
begin 
    inherited; 
    aOldTextList := TStringList.Create; 
    try 
    aNewTextList := TStringList.Create; 
    try 
     aOldTextList.Text := dbmemDisciplineSummary.Text; 
     for i := 0 to aOldTextList.Count - 1 do begin 
     if (i = 0) and(Trim(aOldTextList[i]) <> '') then 
      aNewTextList.Add(aOldCN_TextList[i]) 
     else if not ((i<>0) and (Trim(aOldTextList[i - 1]) = '') and (Trim(aOldTextList[i]) = '')) then 
      aNewTextList.Add(aOldTextList[i]); 
     end; 
     Save_SelStart := dbmemDisciplineSummary.SelStart; 
     Save_SelLength := dbmemDisciplineSummary.SelLength; 
     try 
     cdsPTClinicalNotesCNTEXT.AsString := aNewTextList.Text; 
     finally 
     dbmemDisciplineSummary.SelStart := Save_SelStart; 
     dbmemDisciplineSummary.SelLength := Save_SelLength; 
     end; 
    finally 
     FreeAndNil(aNewTextList); 
    end; 
    finally 
    FreeAndNil(aOldTextList); 
    end; 
end;