//创建多级目录
ForceDirectories(TempFilePath);
//获取文件名
ExtractFileName(LocalFile);
//获取路径
ExtractFilePath(LocalFile)
//TClientDataSet动态创建列
var
myDataSet:TClientDataSet;
begin
myDataSet := TClientDataSet.Create(application);
myDataSet.FieldDefs.Add('Name',ftstring,10);
myDataSet.FieldDefs.add('Age',ftinteger);
myDataSet.CreateDataSet;
myDataSet.Active;
myDataSet.Append;
myDataSet.FieldByName('Name').AsString:='AA';
myDataSet.Post;
end;