整型值写下filestream

整型值写入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;