如生成txt文件内容格如
AAAAA BBBBB CCCCCC
AAAAA BBBBB CCCCCC
AAAAA BBBBB CCCCCC
AAAAA BBBBB CCCCCC
在一个数据集中循环生成txt,如何调整文件指针生成如上行列格式
AAAAA BBBBB CCCCCC
AAAAA BBBBB CCCCCC
AAAAA BBBBB CCCCCC
AAAAA BBBBB CCCCCC
在一个数据集中循环生成txt,如何调整文件指针生成如上行列格式
解决方案 »
- Delphi 定时清理内存的方法?
- RMB找人修改个简单的网络程序
- 高手请进:怎样将以下VBscript代码转换成delphi代码(急!!!!!!!!!!!!!!!!)(如果麻烦,文字说明也行)
- 报表问题,QuickRep中有多页我怎样让我实现共几页当前第几页?
- 关于存储过程中无法查询中文名的问题
- 请问,在delphi中如何建立文件并且,把memo中的内容存入文件或从中读取出来啊?
- 为什么 不能保存数据到数据库哪?急急!
- 一页分成两列打印,打印的数据类型相同但类容不同,如:左边是狗胜的信息右边是二娃的信息
- 怎么知道当前桌面上有多少个窗口呢?快来取分吧。
- 我是要实现StringGrid中的计算功能。比如输入CELL[1,1]=1,CELL[2,1]=6,自动计算CELL[3,1]=6
- 怎么找有相同类名的子控件的句柄啊?
- 求助Delphi2009打补丁遇到的错误
ii: integer;
lnText: string;
fileVar: TextFile;
begin
lnText := '';
AssignFile(fileVar, YourfileName);
with dataset do
begin
while not eof do
begin
for ii := 0 to fieldList.Count - 1 do
lnText := lnText + FillChar(Fields[ii].asstring,Fields[ii]).Size,' ');//固定長度
Writeln(fileVar, lnText);
next;
end;
end;
end;
procedure TFllj.MemoRiZhiChange(Sender: TObject);
var
LLMemo:Tstringlist; ttime:string;
begin
if MemoRizhi.Lines.Count>100 then
begin
try
LLMemo:=Tstringlist.Create;
//LLMemo.LoadFromFile('LiuLiangMemo.txt');
LLMemo.Append(MemoRizhi.Lines.Text);
//LLMemo.SaveToFile('LiuLiangMemo.txt');
ttime:=formatdatetime('yyyymmddhhmmss',now);
LLMemo.SaveToFile(ttime+'.txt');
MemoRizhi.Clear;
finally
//LLMemo:=nil;
LLMemo.Free;
end;
end;
end;
*******************************************************
格式不清楚,直接写入不知会怎样?