ViewVC Help

View File | Revision Log | View Changeset | Root Listing

root/Oni2/oup/current/Tools/BinEdit.pas

Comparing oup/rewrite/Tools/BinEdit.pas (file contents):
Revision 104 by alloc, Tue Feb 20 22:03:11 2007 UTC vs.
Revision 105 by alloc, Wed Feb 21 00:29:27 2007 UTC

#	Line 178 | Line 178 | end;
178
179
180
181	–
182	–	function IntToBin(Value: Byte): String;
183	–	var
184	–	i: Byte;
185	–	begin
186	–	Result := '';
187	–	for i := 7 downto 0 do
188	–	Result := Result + IntToStr((Value shr i) and $01);
189	–	end;
190	–
191	–
192	–
193	–
181		function TForm_BinEdit.GetValue(datatype: Word; offset: LongWord): String;
182		var
183		Data: TByteData;

Diff Legend

–	Removed lines
+	Added lines
<	Changed lines (old)
>	Changed lines (new)