真受不了了，咋回事。。。??(100分)

P

Puma Wang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-02

• #1

if OpenDialog.Execute then
Begin
FileName :=OpenDialog.FileName;
edFilePath.Text :=FileName;
AssignFile(F,FileName) ;
Reset(F) ;
ReadLn(F,s) ;
Memo1.Text :=s ;
End ..
随便一个文本文件。取出来的结果 竟然是 一个个 的 小?

 

影

影 子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-02

• #2

有问题吗？

var
FileName: string;
F: TextFile;
s: string;
begin
if OpenDialog.Execute then
Begin
FileName :=OpenDialog.FileName;
edFilePath.Text :=FileName;
AssignFile(F,FileName) ;
Reset(F) ;
ReadLn(F,s) ;
Memo1.Text :=s ;
end;
end;

 

S

structer

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-02

• #3

在我的机器上运行没有错误呀，是不是你的Delphi出了毛病呀

 

P

Puma Wang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-03

• #4

经测试。 对*.sql 文件 读不出来，对其他文件 如 .pas .txt 等。

奇怪 ing ..

 

L

LGXing

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-03

• #5

可能是你存的.SQL文件的字符编码方式不同
Unicode
你可以这样试一下：
用查询分析器或者别的工具打开，将内容copy到记事本中保存为另一个.sql
再用程序打开

 

F

flower204

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-03

• #6

为什么我只能读取文本文档里的第一行的内容，其余的就不能读了？

 

F

flower204

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-03

• #7

我是一个刚学delphi的菜鸟。我想问的是textfile是什么东东？

 

P

Puma Wang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-03

• #8

正门读文本的 File 了。

好了 。
经过测试我才发现 果然是那个 编码的问题。 谢了 LGXing...

 

P

Puma Wang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-03

• #9

多人接受答案了。