Question

delphi问题：关于随机文件名保存的问题

请教高手，一共有5个memo编辑框，每个编辑框都有内容，我需要将这5个编辑框中的内容保存到5个文本文件中，文件名随机取，最好不要出现对话框，自动在后台保存。如何实现？请高手指点一下。谢谢。。（实在抱歉，财富值为0，没分了，有分一定给）

Answer 1

我的处理方法：
1、做一个配置项，由用户自己配置这些文本文件的存放路径，如D:\files；
2、在保存之前读取这个配置好的目录；
3、自己写一个方法来生成这5个文件名(如1.txt)，方法很多，可以直接遍历目录计算该目录下的文件数，一次累加1，不建议用随机名；
4、直接保存memo的lines，memo.lines.savetofile('D:\files\1.txt')

Answer 2

放上5个Memo和一个Button
双击Button在里边写入下边代码:

procedure TForm1.Button1Click(Sender: TObject);
var
i:Integer;
begin
for i := 0 to ComponentCount -1 do begin
if Components[i] is TMemo then
TMemo(Components[i]).Lines.SaveToFile(IntToStr(i) + '.txt');
end;
end;

这里没有使用随机的文件名.你可以使用Random函数随机一个,
把TMemo(Components[i]).Lines.SaveToFile(IntToStr(i) + '.txt');
把后边的 i 这个变量改了就可以做为文件名了..

Answer 3

用guid

function getguid:string ;

//注意要 use activex

var
t:TGUID;
s:string;
begin
CoCreateGuid(t);
s:=GUIDToString(t);
Result:=MidStr(s,2,36);
end;

追问

谢谢兄弟指教。。。
不过，有个问题，你这个程序，将文本文件保存在什么地方呀？？怎么没有目录呀？

追答

默认保存在程序所在目录