メモフィールドの内容から特定の行を削除する

Question

Delphiを使用して特定の文字列の後ろにあるメモフィールドからデータを削除するにはどうすればよいですか？ ：

<Data I want to keep> 

======= Old Data ======== 
<line 1> 
<line 2> 
etc. 

古いデータラインの後（およびそれを含む）のすべてのデータを削除するようにDelphiに指示する方法を教えてください。しかし、私が保持したいデータに触れないでください？

Answer 1

のようなもの：

var 
    I: Integer; 
    s: string; 
begin 
    s := 'your big string with ======= Old Data ======== and more'; 
    I:=Pos('======= Old Data ========',s); 
    if I>0 then 
    Delete(s, I, MaxInt); 
    ShowMessage(s); 

Answer 2

はこのお試しください： - ;しかし、 `

procedure myForm.ClearFromLine(value: string); 
var 
    i, index: integer; 
begin 
    index := memo.lines.IndexOf(value); 
    if index = -1 then 
    Exit; 
    memo.lines.BeginUpdate; 
    try 
    for i := memo.lines.count - 1 downto index do 
     memo.lines.delete(i); 
    finally 
    memo.lines.EndUpdate; 
    end; 
end;