[教学]比较非文字档内容是否相同 by aquarius
Home
Home
登入
注册
发表
列印
载入图片
引用
|
编辑
far
2003-09-22 13:21
楼主
x
0
procedure TForm1.Button1Click(Sender: TObject);
var
fs1, fs2 : TFileStream ;
cBuf1, cBuf2 : array of char ;
iRead : integer ;
begin
fs1:=TFileStream.Create(Edit1.text,fmOpenRead) ;
fs2:=TFileStream.Create(Edit2.text, ..
访客只能看到部份内容,免费
加入会员
x
0
完整版本
免责声明
顶端