整型值写入filestream
FS: TFileStream;
res := strtoint(edt.text); //这句该怎么写?res该定义为什么类型?读取的时候是按照dword读取的
FS.Write(Res,4);
[解决办法]
res := strtoint(edt.text); //这句该怎么写?res该定义为什么类型?读取的时候是按照dword读取的
FS.Write(Res,4);
Res : integer; //或者定义成DWORD(LongWord)都可以
无法打开文件,你要检查一下func1的 fs.free是否真的被执行了,下个断点,然后跑起来看看
[解决办法]
1.DWORD是32位无符号整型(没有负数),对应D中的类型是LongInt和Cardinal;Integer是32位有符号整形,也可以用它
2.FreeAndNil(fs);
[解决办法]
看下就知道区别在哪了!
- Delphi(Pascal) code
procedure TObject.Free;beginif Self <> nil thenDestroy;end;procedure FreeAndNil(var Obj);varTemp: TObject;beginTemp := TObject(Obj);Pointer(Obj) := nil;Temp.Free;end;