在文件test.svg中有10行文字，我想在地五行插入一段文字（test first）该怎样实现啊？ 恳求前辈指点

您好﹗    若檔案是文字內容﹐可使用Memo的Insert方法﹐將Memo元件的WordWrap屬性值設為False﹐以防止Memo自動換行造成test.svg檔案中文字的行數錯誤﹐範例如下﹕

procedure TForm1.Button2Click(Sender: TObject);
begin
  Memo1.Lines.LoadFromFile('D:\test.svg');
  Memo1.Lines.Insert(5, 'Delphi6 is good!');
  Memo1.Lines.SaveToFile('D:\test.svg');
end;
//注﹕Memo元件中Lines的行數Index是由0開始算﹐0即代表第一行﹐以此類推    或者使用TStringList來代替Memo元件亦可

========================= 我是您的朋友﹐有您真好﹗ ========================= 發表人 - cashxin2002 於 2004/12/18 16:14:44

------
忻晟