在多行字符串和TstringList之間轉換

Question

我有一個多行字符串，我想從中刪除一些行。 TMemo組件包含執行此操作所需的代碼。

MyMemo:=TMemo.Create(nil); 
try 
    MyMemo.Text:=MyString; 
    MyMemo.Lines.Delete(x); // lines I want to delete 
    MyMemo.Lines.Delete(y); 
    MyString:=MyMemo.Text; 
finally 
    MyMemo.Free; 
end; 

但是，使用可視化組件進行基本轉換似乎是錯誤的。有沒有不同的，但同樣簡單的方法來做到這一點？ 感謝

Answer 1

你必須在問題的標題正確的答案 - 用TStringList：

procedure MyProcedure(var MyString: string); 
var 
    sl: TStringList; 
begin 
    sl := TStringList.Create; 
    try 
    sl.Text := MyString; 
    sl.Delete(x); // lines I want to delete 
    sl.Delete(y); 
    MyString := sl.Text; 
    finally 
    sl.Free; 
    end; 
end; 

Answer 2

我剛剛意識到的TStringList本身具有Text屬性。這就回答了我自己的問題。