十万为急！文件操作........(100分)

I

itcai

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-31

• #1

是一个经过加了密的.txt文件（注：是对内容加密），能否一次性把所有的内容读出
并赋值给一变量。而不有　readln　，或用它而不受加车符的限制。（有原码最好）
itcai@sina.com [][!]

 

T

tseug

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-31

• #2

用流...TFileStream

 

W

wbtvc

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-31

• #3

procedure TQuickPadForm.Mnu_Open(AFileName: string);
var
FOpenFileName: string;
begin
with RichEdit1 do
begin
FOpenFileName := format('%s/%s', [FDirName, AFileName]);
Lines.LoadFromFile(FOpenFileName);
end;
end;

 

S

seekingboy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-31

• #4

procedure TForm1.Button3Click(Sender: TObject);
var
f: TFileStream;
begin
f := TFileStream.Create('role.xml',fmOpenRead);
Memo1.Lines.LoadFromStream(f);
f.Free;
end;

 

X

xzh2000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-31

• #5

同意楼上

 

I

itcai

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-31

• #6

[]各位大侠，以上的方法我都试过，可是就有一些特殊的字符不能在Tmemo控
件和其它的控件显示，不知是否还有其它高招？

 

T

tseug

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-31

• #7

这个没有什么有效的办法，我一般同时显示ASC码和字符，如果不可见就用'.'代替显示

 

J

jsxjd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-31

• #8

var
s:TStrings;
begin
s:=TStringList.create;
s.loadFromFile('d:/Myfile.txt');
showmessage(s.Text);
s.Free;
end;

 

A

aizb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-31

• #9

你是要赋给一个变量还是要显示,如果仅仅是赋给一个字符串变量就简单:
procedure TForm1.Button3Click(Sender: TObject);
var
f: TFileStream;
s:String;
begin
f := TFileStream.Create('role.xml',fmOpenRead);
Setlength(s,f.size);
f.Read(s[1],f.size);//把整个文件读入字符串变量s中.
f.Free;
end;

如果要显示就麻烦了,总之一定要自绘输出,当然对不同的显示控件有不同的处理方法,而且一般都不是一两句话可以说清的.

 

诸

诸葛白痴

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-03

• #10

文件映射最快

 

N

nibul

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-03

• #11

var
sl:tstringlist;
str:string;

sl:=tstringlist.creat;
try
sl.loadfrom(文件);
str:=sl.txt;
finally
sl.free;
end;

 

M

myangel

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-08

• #12

用文件流

 

I

itcai

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-02-10

• #13

多人接受答案了。