從備註字段的內容中刪除特定行

Question

我將如何使用Delphi從特定字符串之後的備註字段中刪除數據，例如我正在通過它顯示的數據庫中的數據：

<Data I want to keep> 

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

我怎麼能告訴德爾福刪除舊數據行（包括）後的所有數據？但不要觸摸我想保留的數據？

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;