说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

使用文件存取chang字符串

编辑:说三道四文库 发布时间:2017-02-28 11:48
HTML文档下载 WORD文档下载 PDF文档下载
//写文件
procedure TForm1.Button3Click(Sender: TObject);
var FileHandle :THandle;
    slen:integer;
    i,Count:longint;
    s:String;
begin
    FileHandle := FileCreate('test.txt');
    s:=Self.Memo1.Lines.text;
    slen :=length(s);
    fileWrite(filehandle,slen,sizeof(integer));
    fileWrite(filehandle,s,slen);
    FileClose(FileHandle);
end;

//读文件
procedure TForm1.BitBtn1Click(Sender: TObject);
var FileHandle :THandle;
    count,slen,i,k:integer;
    ps:Pchar;
    s:String;
begin
  FileHandle := FileOpen('test.txt',fmOpenRead);
  memo2.Lines.Clear;
  fileRead(filehandle,slen,sizeof(integer));
  fileRead(filehandle,s,slen);
  Memo2.lines.text := s;
  FileClose(FileHandle);
end;

其中,读文件可肯定有问题。
呵呵,该程序执行了非法操作,将被关闭。
谢谢
使用Reset打开文件,用ReadLn读取
sorry
标题打错了
我是说存取长字符串
就是带换行符和回车符的字符串
还有
我不想一下读写一行,效率太低(我要存取许多Memo.lines.Text)
所以,也不能用Memo.Lines.loadfromfile(filename);
所以,我想一下读写整个Memo.lines.Text
我想,你是把LoadFromFile和SaveToFile的功能弄错了。。

这两个方法本来就是对Memo里的所有内容进行操作的。
Delphi会自动的为你处理换行和回车符的。
我要把许多个Memo.Lines保存在同一个文件中
当然还要取到不同的Memo.lines中去
所以,loadfromfile savetofile 不能用
fileRead(filehandle,s,slen);
改成:
fileRead(filehandle,s[0],slen);

其实你可以用一个TStrings啊,那样不用跟文件底层打交道。

好像有问题,FileRead()在Delphi帮助下有个例子
大神云集 大型创客聚会2014深圳Maker Faire盛大开幕 直击Maker Faire,将精彩“一网打尽”! 电池革命:超级充电器来袭,30秒为手机充满电 风雨13载,Windows XP今起正式退役 向Facebook看齐,Twitter收购Android屏幕待机应用开发商Cover 绝对的超现实!Jaunt打造360°全景VR电影 Unite China 2014课程解析:行业解决方案专场免费开放 Manhattan,Twitter规模的实时、多租户分布式数据库 Ceph浅析(中):结构、工作原理及流程 孙元浩:基于Spark引擎的高速内存分析和挖掘工具应用 腾讯私有云背后的团队,品高要做企业云计算的产品经理 撼动企业应用架构的十大技术趋势 Airbnb的管理之道:产品设计的点评策略与技巧 Windows 8.1 Update 1的下载地址和八点须知 《近匠》棱镜:手游渠道SDK平台的技术历程 OpenSSL究竟为何物,为何它的影响力如此之大? Redis大冒险:如何跳出SQL这个坑 【走近院士】张尧学:基于透明计算的云操作系统 微软转型之路:从Build 2014开始 大势所趋 HTML5成Web开发者最关心的技术 从火种到核心,浅析Hadoop大数据用户的演变 搭建高可用的MongoDB集群(上):MongoDB的配置与副本集 软硬件协同创新,共建未来数据中心 优秀Unix管理员的七个习惯 2014Unity亚洲开发者大会倒计时 干货内容日程汇总 TIOBE 2014年4月编程语言排行榜:Perl跌至历史最低点 Hadoop集群环境下网络架构的设计与优化 CloudFoundry架构优化:NATS集群化方案 Dropbox推独立应用,公司估值已达100亿美元 【走近院士】梅宏:云计算时代软件技术发展需求和挑战 云计算战争:OpenStack vs. VMware 请问:在执行文件DPR中有一段代码出现错误,请各问指点! 两个问题:1 关于.NET中 一个新控件propertyGrid1的使用问题;2 我想生成一个由lable和TextBox合成的控件(label在左,TextBox靠其右),怎么办? 分栏打印 依旧是undefined function mysqsl_connect()问题 急:如何在生成的exe中添加新的属性页,显示更多文件信息? V-DVD ROM!? MSDN上的例子需要uafxcwd.lib,怎么找不到呢? 请问窗口的other事件是如何触发执行的 JSP如何学习 vc在什么时候会引起小喇叭的叫声 请教高手,如果在VB里实现内存共享? 用什么方法可以转换图片类型?譬如将BMP格式的转换为JPEG格式的,请各位大哥给点提示!!! 关于vb script数组和函数功能的二个问题!高难度! 关天打印问题? 只能最小化到屏幕的左下角 *急:无为,acptvb,请帮忙看看http://www.csdn.net/Expert/topic/426/426766.shtm (有关XMLHTTP) 在php中要取出一段字符串的前n个字节,而又要判断最后一个是中文还是英文,如果是中文则将最后半个字符省略应该怎么做? 有在BCB5中用过sapi5朗读中文的朋友,高分送上! 最初级的问题,关于编译程序的。 重庆市信息产业办公室荣获全国最差信息产业办公室称号 大家用PB创建Jaguar应用程序时,一般创建一个大包还是多个包阿? 奇怪的问题,来者有分!没回答问题的先到先得! 如何把临时表建在内存中 请教一个关于DELPHI多线程的问题 *急:无为,acptvb,请帮忙看看http://www.csdn.net/Expert/topic/426/426766.shtm(有关XMLHTTP) 比爱情少一点,比友情多一点,即不讨厌又不来电,你能做到吗? 请教一个问题,一个分两帧的窗口,分别是两个CView的子类。一个view里的下拉框选中一条记录,使另一个view刷新。不知道用什么mfc函数。 有关新开窗口的问题! please intrduce a good muti-root soft for win95,win98,winme,win2000,winxp 求助:哪位大侠能介绍一下网络传输设备(象 HDSL、Cable Modem)的品牌、厂家和性能? 我的ie浏览器怎么了? 搞软件开发时应不应该是一边看书一边搞开发? 请教:C中的共同体是什么?谁能解释一下或举例说明 关于线程套间问题。 请教各位在oracle中如何在date字段下条件? Window me对ADO是不是支持的不够好??? 请问csdn.net使用shtml如何构架的! 安装Acrobat后,只出现一个PDF Writer虚拟打印机,Adobe Distiller却死活装不上,不知是何原因? sybase anywhere5.0 支持 mid 函数吗,如果支持该怎么写 微软的一道面试题!!!!! help me!(53)问题解决以后再送100分 为什么我的win2000server上装不上Exchange5.5? 虚拟DVD-ROM????!!!!!!!!!!!!!!!!!!!!!!!!!!!!???? 建ORACLE网络服务名的问题!!! 数组作为地址传递到dll,在dll内进行修改,dll释放后,数组也跟着释放,怎么办呢??先谢了! 有关程序的规范写法 谁有minix操作系统的代码 PalmOS中的手写接口? 一个比较搞人的钩子问题! 获取客户端的浏览器的信息!? TMDIChildForm 是系统的一个类吗? 把0.4改写成计数单位是千分之一的数是( ). 地球内部引力变化地球内部引力是越接近地心引力越大还是越小,我自己分析是越小,不知道对不对 去掉3.900末尾的零后,计数单位由原来的( )变成了( ) 车对地面的压力和地面对车的支持力是不是一对平衡力 地球内部引力随高度怎样变化 把小数点后面的零去掉,小数的计数单位就发生改变吗? 压力和支持力是一对平衡力吗,为什么? 地球内部有引力吗?地面上的物体会受引力附在地球上,那么地球核心的引力是什么样的呢?地球的中心的物体都悬浮在地球内部的空间中吗? 如何测量静摩擦力和滑动及滚动摩擦力?计算公式那么在什么情况下,作用在物体上的力等于静摩擦力? 人对车的压力和车对人的支持力是一对平衡力吗? 关于地球内部引力地球内部任意一点是没引力效果的吗?还是另需计算?具体怎么计算的呢?这和均匀带电体内任意一点是一样道理的吗?(不要高斯定理算的)谢谢了. 为什么滚动摩擦力就是静摩擦力 为什么他们之间没有摩擦力? 地球内部引力怎样计算? 滚动摩擦力小还是静摩擦力小 地球同步卫星,相对与地面是静止的,因此卫星 A.不受任何力的作用 B.受地球的吸引力 C.受一对平衡力的作用D.受力情况不清楚 51.7的计数单位 静摩擦力和滚动摩擦力的例子要例子 说清楚一点 小数十分位上的计数单位比千分位上的计数单位( )A 大0.99 B 小0.09 C 大0.099 D小0.9 51.7有多少个计数单位 小数点左边第二位是( )计数单位是( );小数点右边第二位是( )它的计数单位是( ) 小数十分位的计数单位比千分位的计数单位--A.大0.9 B .大0.99 C .大0.099 D.大0.999 这四个答案选哪个?为 51.2的计数单位是什么 国庆节,工人师傅在马路两边挂灯笼,每两棵树之间挂1盏灯笼.如果马路两边各有18棵树,一共要挂多少盏灯笼?如果每两个树之间的距离是30米,这条马路长多少米?如果在马路两边每个50米放一个 摩擦力的方向与接触面相切 Why?最好画图说明,看了很多介绍不理解. 其中没有受到滑动摩擦力的是 1.为了迎接“十一”国庆节,某市装备用灯笼美化道路,需要A,B俩种不同类型的灯笼共200个,且B型灯笼的个数是A型灯笼的3分之2.(1)求A,B俩种灯笼个需要多少个?(2)如果A种灯笼每个40元,B种灯 摩擦力的方向与接触面相切怎么理解?那和接触面平行吗?rt如何理解呢?还是不理解相切 我想问下 汽车在公路上匀速行驶时 收的牵引力和摩擦力是平衡力时汽车受到的牵引力 是作用在汽车上还是地面上 还有摩擦力呢力作用在什么地方 要怎么判断呢 元宵节有哪些花样灯笼 如何理解摩擦力的方向与接触面相切 初二物理关于如果没有摩擦力的作文急 啊 !800里告急!~ 静摩擦力的方向和滑动摩擦力的方向如何判断?需要详细一点的,有例子讲解! 物体所受摩擦力的方向总是和接触面相切对么 嗯、我知道与相对运动什么的相反,就问这句对么~选择,可以选么 《如果世界没有摩擦力》论文我要高中的,500字左右,三篇可以了一定要三篇 中国节日,分别是几月几日 “摩擦力的方向总与接触面相切”这句话怎么解释? 假如世界上没有摩擦力100字物理论文 每个节日的几月几号(英语)中国的节日!New Year's DayChildren's DayChristmas DaySpring FestivalNew yearWomen′s DayNational DayTeachers′DayInternational worker′s day我是说节日在几号用英语!!!!!!!!!! 地球自身的引力是自己内部压力的来源?地球内部之所以有那么大的压力,是因为地球自身的万有引力造成的!这是对的吗?要是不是对的,那是为什么呢? 怎么写关于摩擦力的物理小论文只要方法,尽快一小时 小数0.708的计数单位是:A.千分位 B.1/1000,是A还是B? 地球的引力是怎样产生的?还有,压力的作用是什么? 一篇物理论文《假如生活没有摩擦力》800字论文 春节,元宵节为什么要挂灯笼,挂什么样的灯笼,有何寓意等寻灯,问灯,画灯 79648000中,7在( )位上,计数单位是( ),6在( )位上,计数单位是( ),8在( )位上,计数单位是( ) 4.7的计数单位是( ),它有( )个这样的计数单位. 为什么元宵节要挂灯笼20到80字 什么计数单位之间的进率是77进制的, 7.58有几个这样的计数单位啊 元宵节的灯笼怎么做 十万位的计数单位是什么? 用事例来区分静摩擦力滑动摩擦力和滚动摩擦力用事例来区分静摩擦力 滑动摩擦力 和滚动摩擦力.请以初中物理角度来区分. 静摩擦力和滑动摩擦力 8.95的计数单位是(),它里面含有()千分之一 急救:高中物理摩擦力习题车对人的摩擦力?2.如图所示,小车的质量为M,人的质量为m,人用恒力F拉绳,若人和车保持相对静止,不计绳和滑轮质量及车与地面的摩擦,则车对人的摩擦力可能是:( 如何判断静摩擦力还是滑动摩擦力还是滚动摩擦力,请举例说明 请问0.09的计数单位是什么 高中一道关于摩擦力的物理题T1 (1) 有四块完全相同长方体木块,质量都为m,给四块木块标号A、B、C、D,用一个力F1,把A、B、C、D压在墙面上,并且ABCD都落在一块,如图: →ABCD| 问:B 去掉0.40末尾的零,它的计数单位如何变化? 跪求!
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn