TStringList的问题。关于insert过程。(100分)

I

ilovedelphi2

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-27

• #1

procedure TForm1.Button1Click(Sender: TObject);
var
Sl: TStringList;
i:integer;
begin
Sl:= TStringList.Create;
sl.LoadFromFile('e:/a.txt');
sl.Insert(0,'aaaa');//insert这里的整数能否做到是一串数字？
//因为我想每行前面都要插入.。而不单是一行前插入。
sl.SaveToFile('e:/aa1.txt');
sl.Free;
end;

 

J

jobsxy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-27

• #2

不可能，呵呵，只能你自个写代码逐一完成！

 

I

ilovedelphi2

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-27

• #3

那么如何能够做到我需要的功能呢？就是每行前面插入内容？

 

J

jobsxy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-27

• #4

var
sl: TStringList;
i:integer;
begin
Sl:= TStringList.Create;
sl.LoadFromFile('e:/a.txt');

for i := 0 to sl.Count-1 do
begin
sl.Strings := 'aaa' + sl.Strings
end;

sl.SaveToFile('e:/a.txt');
sl.Free;
end;

 

I

ilovedelphi2

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-27

• #5

接受答案了.