如何将读取出来的文件名作为一个字段添加到clientdataset中

Question

如何将读取出来的文件名作为一个字段添加到clientdataset中

Answer 1

str:='select '+filename+' from tablename';

Answer 2

procedure TForm1.BitBtn1Click(Sender: TObject);
var
FileRec:TSearchRec;
s,s1:string;
Files:TStrings;
i:Integer;
F:textfile;
begin
  Files:=TStringList.Create;
  s:='E:\新建文件夹 (2)\LC_DATA\LC_DATA\d*.*';
  i:=0;
  try
    if FindFirst(s,faAnyFile,FileRec)=0 then
      repeat
        inc(i);
        Files.Add(FileRec.Name);
      until FindNext(FileRec)<>0;   // Memo1.Lines.Add(inttostr(Files.count));
  finally
     for i:=0 to files.Count-1 do
      ce.Append;
      ce.FieldByName(Files).AsString;
      ce.CreateDataSet;
    Memo1.Lines.AddStrings(Files);
    FindClose(FileRec);
    Files.Free;
 //for i:=0 to files.Count-1 do }
 //ce.First;
 {begin
 AssignFile(F,'D0010066.619');
  Reset(F);
  while not eof(f) do//如果是连续读出数据：
  begin
    Readln(F, S1);
    Edit1.Text := edit1.text+S1;
  end;
  CloseFile(F);
  end;}end;
//end;
end.
这是代码 怎么添加