[教学]比较非文字档内容是否相同 by aquarius

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, ..

访客只能看到部份内容，免费 加入会员

x0