文本文件操作问题(100分)

C

chb913811

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-11-29

• #1

问题要求：打开一个文本文件，开头插入一行文本信息；例如：
文本内容是：
1111
2222
插入之后是：
"插入内容"
1111
2222

我的尝试是：
var
F:TextFile ;
s:string;
begin
s := 'd:/test.txt';
AssignFile(f,s);
FileMode := 2 ;
Reset(f);
FileMode := 2 ;
Writeln(f,'abc');
CloseFile(f) ;
报错信息：I/O错误信息：105
请高人指教！

 

B

batconv

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-11-29

• #2

这个问题我也没有解决，好像操作文本文件的现有函数不能解决插入问题，你用文件流试试。

 

A

ANiDelphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-11-29

• #3

with TStringList.Create do //创建TStrings对象
try
LoadFromFile('d:/test.txt'); //读入文件
Insert(0, '插入第一行'); //插入文字
SaveToFile('d:/test.txt'); //保存文件
finally
Free; //释放TStrings对象
end;

 

T

themars

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-11-29

• #4

只能先把文本内容读出来 再一起写进去

 

Z

zhuangqr

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-11-29

• #5

使用Reset()过程是只读地打开一个文本文件,你这样当然有错了~~

 

D

delhpi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-11-29

• #6

rewrite

 

9

980

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-11-29

• #7

procedure TForm1.Button1Click(Sender: TObject);
var
Sl: TStringList;
i:integer;
begin
Sl:= TStringList.Create;
sl.LoadFromFile('c:/aa.txt');
sl.Insert(0,'1234567890');
// sl.Insert(0,'bbaaaabbb');//指定位置插入
{ i:=sl.IndexOf('345');
if i=-1 then begin
sl.Add('345'); //如果没找到则增加一行。
end else begin
sl:='99999'; //如果找到了就替换。
end; }
sl.SaveToFile('c:/aa.txt');
sl.Free;


end;