var
  sl:TStringList;
  i:Integer;
begin
  sl:=TstringList.Create;
  sl.LoadFromFile('c:\a1.sql');
  for i:=0 to sl.Count-1 do
  begin
    ClientDataSet1.AppendRecord([sl.Strings[i]]);
  end;
  sl.Free;
end;

引言: dragon100 您好 藉由操作TStringList.Strings[]屬性, 就能達到您的需求.

var
  sl:TStringList;
  i:Integer;
begin
  sl:=TstringList.Create;
  sl.LoadFromFile('c:\a1.sql');
  for i:=0 to sl.Count-1 do
  begin
    ClientDataSet1.AppendRecord([sl.Strings[i]]);
  end;
  sl.Free;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  sl:TStringList;
begin
  ClientDataSet1.First;
  sl:=TStringList.Create;
  while not ClientDataSet1.Eof do
  begin
    sl.Add(ClientDataSet1.Fields[0].AsString);
    ClientDataSet1.Next;
  end;
  sl.SaveToFile('c:\a.txt');
  sl.Free;
end;