摘要： function ListFiles(Dir: String):TStrings;var FSearchRec: TSearchRec; FileList: TStrings; FindResult: Integer;begin if Dir[length(Dir)]<>'\' then Dir:=Dir+'\'; FileList :=TStringList.Create; FindResult:=FindFirst(Dir+'*.ini',faAnyFile+faDirectory,FSearchRec); //只历遍INI文件类 阅读全文

摘要： procedure TForm1.N1Click(Sender: TObject);var GridtoExcel: TDBGridEhToExcel;begin try GridtoExcel := TDBGridEhToExcel.Create(nil); GridtoExcel.DBGridEh := DBGridEh1; //需要导出数据的DBGridEh文件名 GridtoExcel.TitleName := 'EXCEL的标题'; //根据需要自行修改 GridtoExcel.ShowProgress := true; GridtoExcel.ShowOpenExc 阅读全文

摘要： var i:Integer; Series:array of TFastLineSeries; //这里最好写在全局变量中begin SetLength(Series,MyTHead.Count); Chart1.SeriesList.Clear; for i:= 0 to MyTHead.Count-1 do //MyTHead是一个Tstringlist，根据MyTHead来动态创建曲线的数量 begin Series[i]:=TFastLineSeries.Create(nil); Series[i].ParentChart:= Chart1; //在名为CHART1的组件上建曲线 Se 阅读全文