寫入一筆資料var 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;
字段间加入TAB键值,自己查一下Tab的键值
把日志文件写入.txt,并且取当前时间和日期为文本文件名: 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; ******************************************************* 格式不清楚,直接写入不知会怎样?
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;
*******************************************************
格式不清楚,直接写入不知会怎样?