如何分行读取文本的内容呢？(请给代码) ( 积分: 100 )

3

32881

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-02-14

• #1

假定有个文本，内容为：
http://www.123.com
http://www.234.com
http://www.456.com
.............
如何读取文本中这些网址呢？就是想让程序可以将这些网址按行为区分符读出来．．

 

L

liugaohui

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-02-14

• #2

tstinglist,读入文件，即可

 

B

batconv

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-02-14

• #3

如果是文本文件，用readln读，每次就是一行

 

A

Avalon

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-02-15

• #4

procedure TForm1.Button1Click(Sender: TObject);
var
list: TStringList;
begin
list := TStringList.Create;
list.LoadFromFile('c:/111.txt');
Memo1.Lines.CommaText := list.CommaText;
list.Free;
end;

 

L

liyinwei

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-02-15

• #5

procedure TForm1.Button1Click(Sender: TObject);
var
F: TextFile;
s: String;
begin
AssignFile(F, 'c:/456.txt');
Reset(F);
while not EOF(F) do begin
ReadLn(F,s);
Memo1.Lines.Add(s);
end;
CloseFile(F);
end;
或者
procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Lines.LoadFromFile('c:/456.txt');
end;

 

3

32881

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-02-16

• #6

多人接受答案了。