帮忙翻译(200)

procedure TForm1.Button4Click(Sender: TObject);var inStream:TFileStream; OutStream:tmemorystream; path:string; sor:integer; intcount:integer; i:integer; intbuf:integer; outbuf:integer; xxx:array of byte;begin inStream:=TFileStream.create(self.Edit1.Text, fmOpenReadWrite or fmShareExclusive); outStream := tmemorystream.create; //jy_Stream(inStream,outStream); path:= ExtractFileDir(self.Edit1.Text)+'/ceshi'+ExtractFileExt(self.Edit1.Text); setlength(xxx,inStream.size); //inStream.Position:=0; inStream.Seek(0,soFrombeginning); inStream.Read(xxx[0],inStream.Size); for i:=Low(xxx) to high(xxx) do begin xxx:=xxx xor $FF; end; outStream.WriteBuffer(xxx[0],inStream.Size); outStream.SaveToFile(path); inStream.Free; outStream.Free;end;谁帮忙翻译成 标准c++的代码啊 小弟在这里不胜感激

帮忙翻译一下了 谢谢

帮忙翻译一下啊 分不够可以再加

帮帮忙啊

标准的C++里可没有和Delphi里的组件接近的组件。你就是用C++重写一个得了。也不是很复杂。

谢谢大家 问题已经解决