如何使用RichTextBox在每行附加和讀取文本行？

Question

我在WinForm上有一個richtextbox，並希望追加和讀取每行的文本行。

看看我試圖在我的代碼如下：

method ScriptDlgpas.Execute(memo:RichTextBox): Boolean; 
var i:Integer; 
begin 
    Result := false; 

    scriptMemo.Clear; 
    var line1 := memo.Lines; 
    while (line in line1) do 
    scriptMemo.AppendText(line); 

    if ShowDialog = DialogResult.OK then 
    begin 
    memo.Clear; 
    var line2 := ScriptMemo.Lines; 
    while(line in line2) do 
     memo.AppendText(line); 
    Result := true; 
    end; 
end; 

我有兩個RichTextBox中，scriptmemo和備忘錄。我將文本設置爲scriptmemo，然後將其讀回到備註RichTextBox。這一切似乎順理成章，當然它編譯成功，但是編譯器產生異常，IndexOutofRange，運行期間爲線VAR線路1：= memo.Lines

任何幫助將不勝感激。 謝謝，

Answer 1

從它的外觀來看，無論是其他程序員都不知道我在說什麼，或者不知道如何解決它。

我弄清楚了我的問題，並希望發佈答案，希望它能幫助別人。

這裏是修訂和工作代碼：

method ScriptDlgpas.Execute(memo:RichTextBox): Boolean; 
var i:Integer; 
    lines1, lines2 : Array of string; 
begin 
    Result := false; 

    scriptMemo.Clear; 
    lines1 := memo.Lines; 
    for each aline in lines1 do 
    begin 
    scriptMemo.AppendText(aline+System.Environment.NewLine); 
    end; 

    if ShowDialog = DialogResult.OK then 
    begin 
    memo.Clear; 
    lines2 := ScriptMemo.Lines; 
    for each aline in lines2 do 
    begin 
     memo.AppendText(aline+System.Environment.NewLine); 
    end; 
    Result := true; 
    end; 
end;