procedure TForm2.WriteData (Sender: TObject);
Var
FileStream:TFilestream;
Mywriter:TWriter;
i: integer;
Begin
FileStream:=TFilestream.create(ExtractFileDir(paramstr(0))+'\日志文件.txt',fmCreate or fmopenwrite);
Mywriter:=TWriter.create(FileStream,1024);
Mywriter. writelistbegin; For i:=0 to Memo1.lines.count-1 do
Mywriter.writestring(memo1.lines[i]); Mywriter.writelistend;
Mywriter.FlushBuffer;
FileStream.seek(0,sofrombeginning);
Mywriter.free;
FileStream.free;
End;上面是源码,错误是没有。但有以下几个问题
一、汉字输出到txt是乱码。
二、格式乱了,根本不换行
三、我是要在原来的txt后面追加,不行。大家来帮帮忙
Var
FileStream:TFilestream;
Mywriter:TWriter;
i: integer;
Begin
FileStream:=TFilestream.create(ExtractFileDir(paramstr(0))+'\日志文件.txt',fmCreate or fmopenwrite);
Mywriter:=TWriter.create(FileStream,1024);
Mywriter. writelistbegin; For i:=0 to Memo1.lines.count-1 do
Mywriter.writestring(memo1.lines[i]); Mywriter.writelistend;
Mywriter.FlushBuffer;
FileStream.seek(0,sofrombeginning);
Mywriter.free;
FileStream.free;
End;上面是源码,错误是没有。但有以下几个问题
一、汉字输出到txt是乱码。
二、格式乱了,根本不换行
三、我是要在原来的txt后面追加,不行。大家来帮帮忙
解决方案 »
- Rave Reports7.7BE 为啥不支持数据库表的中文字段呢?求解。
- 碰到个郁闷的事,主窗体重载WNDPROC想截获WM_KEYDOWN消息怎么截获不了?
- 简单的问题,急!!
- 如何将.db表的图片字段的图片显示到TImage组件上?
- 各位朋友进来帮忙看一下!(等待中)急急!!!
- 如何在dbgrid中加入一列或多列固定列??
- 哪有整套DevExpress控件下载?
- 新的Delphi2009不错,请问打包要用第三方工具吗?是不是编译出来的程序拷到别的机器上就可以运行呢??
- image字段
- InterBase6.0中为何不能使用5.11版中的数据库?有办法解决吗?(20分)
- 圣诞散分:)
- JonnySun(智者寡言)接分
ConfigIni: TIniFile;
iniPath: String;
i : Integer;
Begin
iniPath:=ExtractFilePath(Application.EXEName);
ConfigIni := TIniFile.Create(iniPath+'日志文件.txt');
try
For i:=0 to Memo1.lines.count-1 do
begin
ConfigIni.WriteString('-1','昨天',memo1.lines[i]);
end;
finally
ConfigIni.Free;
end;End;
i: integer;
begin
try
AssignFile(F, path);
Rewrite(F);
Writeln(F,'[PATH]');
// Writeln(F,'[TEXTFILE]=' + info.text);
Writeln(F,'[RECORDFILE]=' + info.recFilePath); Writeln(F,'');
Writeln(F, '[RECORD]');
For i := 0 to 3 do
begin
if info.OpenRecrod[i] then
Writeln(F,'OpenRecord=0')
else
Writeln(F,'OpenRecord=1')
end; Writeln(F,'');
Writeln(F,'[INDEX]');
For i := 0 to 3 do
begin
if info.LineIndex[i] then
Writeln(F,'LineIndex=0')
else
Writeln(F,'LineIndex=1')
end;
CloseFile(F);
except
showmessage('写入文件时出错!');
end
end;