大家进来边喝茶边讨论。(50分)

花

花 儿

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-15

• #1

我要用RichEdit读取某文本文件，读取时要用进度条显示读取的过程，怎么做
?一个字节一个字节的读吗?

 

C

coolbaby

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-15

• #2

读文本用不着进度条吧，很快的
想想ultraedit打开一个好几兆的，就一下子

 

酷

酷尔贝塔

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-15

• #3

[brown]TEA WITH MILK[][/brown]

 

S

sunys

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-15

• #4

同意，哎，原来是白开水。

 

花

花 儿

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-15

• #5

CoolBaby:
谁说的？一个1.2兆的Doc文件要十几秒呢，给点源代码吧？

 

Z

zouming

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-15

• #6

一行一行读。

 

T

txyx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-15

• #7

我有源码:
function THexConversion.ConvertReadStream(Stream:TStream; BufferChar;
; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; ; BufSize:integer): integer;
var s:string;
; ; buf:array[1..124] of char;
; ; i,n:integer;
; ; m,z:integer;
; ; t:char;
begin
; while (stream.Position<=307) do
; stream.Position:=stream.Position +1;
; ; begin
; Result := 0;
; if BufSize <= 82 then Exit;
;// s := Format(';%.5x ;',[stream.position]);
; n := Stream.Read(buf,124);
; if n = 0 then Exit;
;{ for i := 1 to n do
; ; begin
; ; ; ; ; ; ;z:=ord(buf);
; ; // ; ShowMessage(IntToHex(Byte(Buffer[ord(buf)]),2));
; ; // begin ;t:=ord(buf);
; ; ; buf:=change(z);
; ; ; AppendStr(s,IntToHex(ord(buf),2)+' ');
; ;// AppendStr(s,IntToHex(ord(buffer[ord(buf)]),2)+' ');
; ; ; if i mod 4 = 0 then AppendStr(s,' ');
; ; end;
; ; AppendStr(s,StringOfChar(' ',62-length(s)));
; ; AppendStr(s,' ; ;');
; }
; for i := 1 to n do
; ; begin
; ; ; ; ;m:=ord(buf);
; ; ; ; ;//showmessage(inttostr(m));
; ; ; ; ;//t:=buffer[m];
; ; ; ; ;buf:=change(m);
; ; // ;if (buf < #32) or (buf > #126) then ;buf := '.';
; ; ; AppendStr(s,buf);
; // ; ; if i mod 124 = 0 then AppendStr(s,#13#10);
; ; end;
; AppendStr(s,#13#10);
; StrPCopy(Buffer,s);
; Result := length(s);
; if Stream.Position and $FFF = 0 then MainForm.Progress(Stream.Position);
; end;
end;
研究一下吧

 

花

花 儿

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-15

• #8

txyx:
又是流技术啊？

 

H

hsw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-16

• #9

要不使用内存流技术，要不就开一个Memo1
然后一行一行的从Memo1.lines中读出来

 

花

花 儿

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-16

• #10

txyx
的代码我好多处不了解，怎么办？

 

L

lop

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-16

• #11

花儿，是红的吗?

 

K

kunmeng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-16

• #12

RichEdit能正确显示Doc格式吗？
你的电脑太落伍了吧!

 

花

花 儿

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-16

• #13

kunmeng:
怎么不能？？？？好好的阿！：）
我的电脑不太好就是了，7月烧了主板、Cpu：）
唤了C667,精音的主板。

 

影

影 子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-16

• #14

RichEdit不能显示Doc格式。
换了C667,精英的主板。
但这与用RichEdit读Doc文件无关！

：）

 

花

花 儿

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-17

• #15

影 子,:
我就是能用RichEdit显示Doc格式！！！！，不过有时不能正确显示（可能加了图片）

 

影

影 子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-17

• #16

呵呵，有没有试过读中文的DOC文档？

离题了...

 

I

ili

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-01

• #17

用“流”~~

 

花

花 儿

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-03

• #18

接受答案了.