引言: 我想将下列不同行的语句加入到test.txt 中，恳求前辈指点 <?xml version="1.0" encoding="UTF-8"?> <!DOCTYPE svg PUBLIC "-//W3C//DTD SVG 1.1//EN" "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd"> <svg width="169.33mm" height="127mm" </BLOCKQUOTE id=quote> 不太懂您的意思, 您的意思是要把svg11.dtd append到test.txt中嗎??

procedure TForm1.Button1Click(Sender: TObject);
var
  slSrcText, slDestText: TStringList;
  i: Integer;    begin
  slSrcText := TStringList.Create;
  slDestText := TStringList.Create;
  try
    // 將 svg11.dtd資料取出
    slSrcText.LoadFromFile('c:\svg11.dtd');
    // 將 Test.txt資料取出
    slDestText.LoadFromFile('c:\test.txt');        for i := 0 to slSrcText.Count - 1 do
    begin
      // 把svg11.dtd的每行資料加到test.txt
      slDestText.Add(slSrcText.Strings[i]);
    end;        // 回存test.txt
    slDestText.SaveToFile('c:\test.txt');
  finally
    slSrcText.Free;
    slDestText.Free;
  end;
end;

引言: 如果这先语句不是放在文件里，而是在程序中产生如 if i=1 then '<svg xml....>'//加这段语句<svg xml....> else '<xml...>' ;//加这段语句'<xml...>' 那该怎样实现呢？

procedure TForm1.Button1Click(Sender: TObject);
var
  slDestText: TStringList;
  i: Integer;    begin
  slDestText := TStringList.Create;
  try
    // 將 Test.txt資料取出
    slDestText.LoadFromFile('c:\test.txt');
    
    if i = 1 then
      slDestText.Add('〈svg xml....〉')
    else
      slDestText.Add('〈xml....〉')              // 回存test.txt
    slDestText.SaveToFile('c:\test.txt');
  finally
    slSrcText.Free;
    slDestText.Free;
  end;
end;    

引言: 如果这先语句不是放在文件里，而是在程序中产生如 if i=1 then '<svg xml....>'//加这段语句<svg xml....> else '<xml...>' ;//加这段语句'<xml...>' 那该怎样实现呢？

procedure TForm1.Button1Click(Sender: TObject);
var
  slDestText: TStringList;
  i: Integer;    begin
  slDestText := TStringList.Create;
  try
    // 將 Test.txt資料取出
    slDestText.LoadFromFile('c:\test.txt');
    
    if i = 1 then
      slDestText.Add('〈svg xml....〉')
    else
      slDestText.Add('〈xml....〉')              // 回存test.txt
    slDestText.SaveToFile('c:\test.txt');
  finally
    slDestText.Free;
  end;
end;