请教，如何在读取一个文本文件时，将其前面的空格也能读进来(100分)

D

dead_lee

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-23

• #1

我的如下程序
AssignFile(FInitFile, 'D:/oracle/ora81/network/ADMIN/tnsnames.ora');
Reset(FInitFile);
while not SeekEof(FInitFile) do
begin
Read(FInitFile, Value);
CfgContents.Add(Value);
end;
发现读入的Value都是没有带该行前面的空格的，这样会破坏文件的格式，
导致oracle无法读取该文件。

 

完

完颜康

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-23

• #2

我的如下程序
AssignFile(FInitFile, 'D:/oracle/ora81/network/ADMIN/tnsnames.ora');
Reset(FInitFile);
while not Eof(FInitFile) do
begin
ReadLine(FInitFile, Value);
CfgContents.Add(Value);
end;
or
CfgContents.LoadFromFile('D:/oracle/ora81/network/ADMIN/tnsnames.ora');

 

I

iie

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-23

• #3

用TextFile

 

D

dead_lee

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-25

• #4

to iie,我用的FInitFile就是TextFile
to 完颜康,没有ReadLine这个方法,只有ReadLn方法,该方法也是没有用的...
不过你所说的LoadFromFile我会试验一下的...

 

D

dead_lee

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-25

• #5

试验发现,LoadFromFile是能满足要求的,呵呵,结账了....

 

D

dead_lee

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-25

• #6

看了看原代码,LoadFromFile是将文本作为Stream读进来,然后挨个字符分析,
根据回车换行来决定是否拆分字符串,嗯....

 

J

jixiaoyu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-25

• #7

你用的delphi几，如下程序在DELPHI5上测试没有你说的问题
AssignFile(FInitFile, 'D:/oracle/ora81/network/ADMIN/tnsnames.ora');
Reset(FInitFile);
while not Eof(FInitFile) do
begin
ReadLn(FInitFile, Value);
// CfgContents.Add(Value);
memo1.lines.add(value);
end;