如何将流中的数据显示在Memo当中(50分)

苍

苍鹰

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-17

• #1

我将文件存放在数据库中，读出来后最后转换为内存流，请问如何将该内存流中的数据显示
在Memo 当中

 

Y

yy2001

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-17

• #2

procedure TForm1.Button1Click(Sender: TObject);
//将指定文件读入memo1
var
mystr:Tfilestream;
begin
if opendialog1.Execute then
begin
mystr:=Tfilestream.create
(opendialog1.filename,fmopenread);
try
memo1.lines.LoadFromStream(mystr);
finally
mystr.Free;
end;
end;
end;

 

W

wcwcw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-17

• #3

procedure TForm1.Button1Click(Sender: TObject);
var
Ms: TMemoryStream;
begin
try
Ms := TMemoryStream.Create();
Ms.LoadFromFile('e:/a.txt');
Memo1.Lines.LoadFromStream(ms);
finally
Ms.Free;
end;
end;

 

苍

苍鹰

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-17

• #4

你们说的方法我都用过，不行，我的内存流中的数据是字节流是从字节数组 Olevariant
转换得到数据。不是从文件中读取的数据。文件保存到数据库的类型是Image类型的数据。
而该文件是一个文本文件。

 

W

wlmmlw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-01-24

• #5

直接用Text就行了！！！