一个简单的问题(20分)

S

scriptman

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-03-24

• #1

function GetFile(Str:String):TStrings;
begin

Result.LoadFromFile(Str);
end;

prodedure TForm1.Button1Click(Sender:TObject);
begin

Memo1.Lines.Assign(GetFile('c:/ttt.txt'));
end;
我什么这样用不行,如何改写?

 

W

wuyi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-03-24

• #2

memo1.Lines.loadfromfile('c:/ttt.txt');

 

S

scriptman

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-03-24

• #3

我要用的是GetFile(Str:String)的返回直!

 

W

wuyi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-03-24

• #4

function GetFile(Str:String):TStringlist;
begin
result := tstringlist.Create;
Result.LoadFromFile(Str);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
memo1.lines := getfile('d:/index.html');
end;

 

J

jghuang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-03-25

• #5

To scriptman:
TStrings 是一个抽象类,这个类是供
其它类(如,Tmemo)改写的,所以正如
wuyi兄所说的那样,应使用TStringList类.

 

C

CJ

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-03-25

• #6

用TSTRINGLIST

 

唐

唐晓锋

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-06-15

• #7

多人接受答案了。