问一个文件操作的问题,急

[amartapple]

要求:
1,生成一个txt文件
2,打开文件,向里面追加double型数据,一行一个
3,写完后关闭文件,调用记事本打开
4,删除这个txt文件

大家会哪个就说哪个,不一定全答

[qwertyasd]

VAR MEMO:TSTRINGS;
I:REAL;
begin
I:=12132.3234;
MEMO:=TSTRINGLIST.Create;
MEMO.SaveToFile('D:\DDD.TXT');
MEMO.LoadFromFile('D:\DDD.TXT');
MEMO.Insert(2,FLOATTOSTR(I));
MEMO.Append(FLOATTOSTR(I));
MEMO.SaveToFile('D:\DDD.TXT');
MEMO.Free;
DeleteFile('D:\DDD.TXT')

[amartapple]

谢谢

那么怎么排列文本，比如我的数据：
a=1;b=2;c=34;
a=367;b=12;c=4;

我想让每列对齐：
a=1; b=2; c=34;
a=367; b=12; c=4;

a,b,c的之的位数没有规律，不好算出中间的空个数，该怎么办

[Samland]

自己写tab()函数定位

[u2m]

var F: TextFile;

begin
AssignFile(F, 'NEWFILE.$$$');
Rewrite(F);
Writeln(F, 'Just created file with this text in it...');
CloseFile(F);
end;

[cxreal]

楼上的答完了

[tyh800220]

来晚了，只有接分了！

[amartapple]

还有删除文件呢
如果不是追加呢，比如，删除某一行，或者在两行之间插入一行

[amartapple]

怎么写

[amartapple]

大家说说呀

[INeedCa]

最简单的,如果是文本文件,且文件很小,建议用TStringList.LoadFormFile和SaveToFile方法.

1,生成一个txt文件
2,打开文件,向里面追加double型数据,一行一个
3,写完后关闭文件,调用记事本打开
4,删除这个txt文件

创建一个TStringList,用FloatToStr方法将你的double数据写入到这个StringList中,再SaveToFile,记住你的文件名,然后用ShellExecute打开这个文件(用什么打开/是不是记事本打开是系统决定的),然后Deletefile.

[INeedCa]

实话实说,这样子你找工作似乎有点困难.

[amartapple]

谢谢，这只是我的爱好，不做程序员，太累

[amartapple]

谢谢

那么怎么排列文本，比如我的数据：
a=1;b=2;c=34;
a=367;b=12;c=4;

我想让每列对齐：
a=1; b=2; c=34;
a=367; b=12; c=4;

a,b,c的之的位数没有规律，不好算出中间的空个数，该怎么办