请教一个关于创建文件的问题？！急·！！ ( 积分: 10 )

我想要创建一个文本文件，先向文件里面写入
第一行：123456
第二行：扩大寄生蜂艰苦
第三行：立刻艰苦
创建完了后，又要把第一行的数据读到a(string)中，第二行的数据读到b（string）中
该怎么做呢？请各位多指教！！谢了！！

我想要创建一个文本文件，先向文件里面写入
第一行：123456
第二行：扩大寄生蜂艰苦
第三行：立刻艰苦
创建完了后，又要把第一行的数据读到a(string)中，第二行的数据读到b（string）中
该怎么做呢？请各位多指教！！谢了！！

帮顶

--------签名档---------------------------

惊爆开源站

http://www.source520.com

80G源码电子书免费免注册下载,大量精辟技术文档库随时更新

too easy!
////
strs :=TStringList.Create;
strs.add('123456');
strs.add('扩大寄生蜂艰苦');
strs.add('立刻艰苦');
strs.SaveToFile(...);

/////
a:=strs.string[0];
b:=strs.string[1];

strs.Free;

with TStringList.Create do
try
add('123456');
add('扩大寄生蜂艰苦');
add('立刻艰苦');
SaveToFile(...);
a:=string[0];
b:=string[1];
finally
Free;
end;
这个好些，不要TRY。。FINALLY。。END不是太好

我要的是对文件的操作函数~！！！

文件操作函数呀，给你列几个
filecreate
fileopen
fileseek
fileclose
filedelete


readln
writeln
这两个可以用于对文本文件的行读出和写入

procedure TForm1.Button2Click(Sender: TObject);
var
sFile: TextFile;
sFileName, sLine1, sLine2: String;
begin
sFileName := 'c:/a.txt';
try
AssignFile(sFile, sFileName);
ReWrite(sFile);
Writeln(sFile,'123456');
WriteLn(sFile,'123456');
WriteLn(sFile,'123456');
finally
CloseFile(sFile);
end;

try
AssignFile(sFile, sFileName);
Reset(sFile);
Readln(sFile, sLine1);
Readln(sFile, sLine2);
ShowMessage(sLine1 + ' ' + sLine2);
finally
CloseFile(sFile);
end;
end;