如题!谢谢
解决方案 »
- Excel 导入 Sql2000
- delphi往word插入多表格,效果跟目标差一点点
- 一个关于SQL报错的问题,请高手指点迷津!比较急,在线等!
- 控件位置的问题
- 谁有窗口界面的“第一”“上一条”“下一条”“最后”的图标
- 请问各位大哥,市面上有介绍Delphi基础类库的书籍卖吗?小弟迷惑中。谢了。
- 请问 PB和Delphi那一个更有“钱“途?
- 哪里有delphi6.0的电子教程
- 请教:(socket),怎么判断服务器和客户端已经连接上了呢?谢谢!
- imDos_Headers=(IMAGE_DOS_HEADER *)pBasePointer;转换为:imDos_Headers := IMAGE_DOS_HEADER(pBasePointer);出错
- 如何在web中调用delphi的webservice?
- 当执行某一事件的时候会对多个数据表进行操作,如何保证其完整性?
type
Tre = Record
a : integer;
B : integer;
end; procedure Test;
var
sss : TFileStream;
record1 : Tre;
begin
try
Record1.a := 10;
Record1.b := 100;
sss := TFileStream.Create('11.dat', fmOpenReadWrite or fmCreate);
sss.Seek(0, soFromEnd);//
sss.Write(record1, sizeof(record1)); finally
sss.Free;
end;
end; 直接手寫的,可能有筆誤,大致操作就可翠這樣。
Trec = Record
a : integer;
B : integer;
end;
var
mfile: file of trec;
begin
assignfile(mfile,FName);
rewrite(mfile);
write(mfile,rec);
closefile(mfile);
end;