procedure InsertTextAtBeginningOfMemoLines(Memo: TMemo; const Text: string);
var
i: Integer;
begin
for i := 0 to Memo.Lines.Count - 1 do
begin
Memo.Lines[i] := Text + Memo.Lines[i];
end;
end;
使用这个函数的例子:
procedure TForm1.Button1Click(Sender: TObject);
begin
InsertTextAtBeginningOfMemoLines(Memo1, '> '); // 在每行前插入'> '
end;