请问怎么一行一行将文本中的信息读入一个数组中？(20分)

X

xiny

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-02-10

• #1

请问怎么一行一行将文本中的信息读入一个数组中？

请写上例子好吗？

 

P

Pipi.

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-02-10

• #2

创建一个 TStringList

StringList.LoadFromFile('文本文件') （如果从文件中读）
或者
StringList.Text= string （从变量中读）

StringList[0]是第1行
StringList[1]是第2行
StringList[2]是第3行

 

沈

沈前卫

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-02-10

• #3

const
MAXLINES=10000;
type
TMyArray:array [0..MAXLINES] of string;

var
hFile:TextFile;
i:integer;
txtArray:TMyArray;
begin
AssignFile(hFile,'C:/shenqw.Txt');
Reset(hFile);
i:=0;
while (not Eof(hFile) and (i<MAXLINES) do
begin
Readln(hFile,txtArray);
Inc(i);
end;
CloseFile(hFile);
end;

 

沈

沈前卫

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-02-10

• #4

const
MAXLINES=10000;
type
TMyArray:array [0..MAXLINES] of string;

var
hFile:TextFile;
i:integer;
txtArray:TMyArray;
begin
AssignFile(hFile,'C:/shenqw.Txt');
Reset(hFile);
i:=0;
while (not Eof(hFile) and (i〈 MAXLINES)) do
begin
Readln(hFile,txtArray);
Inc(i);
end;
CloseFile(hFile);
end;

 

X

xiny

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-02-10

• #5

一会就有这么多了，。hehe，谢谢两位！