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

使用文件存取chang字符串

编辑:说三道四文库 发布时间:2017-08-24 03:07
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帮助下有个例子
欧朋 CTO 罗志宇:谈Sphinx游戏引擎的前世今生 John Carmack大神亲手操刀,Oculus Rift SDK即将发布 从南极之争谈软件架构十个技巧,及成功团队具备的气质 Imation重拳出击,推出新型混合存储平台 张建华:FusionSphere不是简单的OpenStack发行版 Chrome 29来了:地址栏变得更“兼容” Android版增WebRTC 工程师谈在Facebook工作最糟糕的事情 用Scala重构19楼——SDCC 2013讲师王治专访 10款最新且超实用的开发框架 创业公司为什么应该写博客? 向iOS SDK看齐:Facebook Android SDK迎来重大更新 闯向海外:对话AppFlood产品总监陈霄 高手爱跨界:联想智能桌面,27寸大Pad抢先试玩 惠普第三季度收入272亿美元同比下降8% 高管重新布局 原来我们会出这个价钱购买“廉价”iPhone Web设计过程中该做和不该做的 新细节披露:通过电信合作 美国75%网络遭NSA监控 实时Bug检测工具Bugsnag发布API更新 【观察】一大三小:亚马逊,微软、谷歌、IBM ,IaaS四足鼎立 “化云为雨”一小滴:北京,3G手机+蓝牙打印机实现智能抄表 金山云与蓝汛联合提供云基础设施服务 MongoDB出新招,增加对Hive的支持 编程语言收入榜 Java排第三 直接拿来用!10段超有用的Git命令行代码 Google Cast SDK正式版发布:自动适配,修复Bug 频受红杉资本青睐,商业智能初创公司Birst靠的是什么? 2013百度世界大会要点精华回顾 WebApp开发框架Clouda、轻应用... 对新手有用的JavaScript开发小建议 磨剑三载,且看从容应对14.3万TPS的Twitter是怎样炼成的! 兰亭集势:被高估的“长尾式采购” 谁说WP手机不行?微软称已成拉丁美洲第二大移动平台 int a 除以 int b 取他们的余数用C#该怎么写啊?谢谢 求救!显示后台数据,在线等待!等…… jsp中的数据库问题,求教!!急 刚学数据库,弱智问题,高分赠送! 这个查询怎么写? 关于表生成文本文件遇到的事情,急 InstallShield Professional Standard Edition 6.30 英文版的下载(高分:200) 寻一男友:发展方向——>老公 我用serv-u,客户端访问为什么没有用户登陆窗口啊? 脚本验证datetime要准确点的 请问,想做出象Protel(Tango)作图效果的程序,如何下手呢? win API函数的区别(win xp 和win 2000)高难度!! 那儿有winsock.pbl 进入系统的速度变慢????在线等待 当 AllowPaging 设置为真并且选定的数据源不实现 ICollection 时,AllowCustomPaging 必须为真,并且 ID 为 DataGrid1 的 Data 怎么提高搜索速度? 如何printScreen并获得这个图片? 如何用SQL格式化一个IP地址?我得到的IP地址是一串数字,想显示为255.255.255.255那样的样子。 为什么在客户端出现Interface not support的错误? help,关于文本显示! SOS 急急急 请教几个概念? 如何打开一个用winexec打不开的可执行文件。 进入系统的速度变慢????在线等待 请大家谈谈目前比较经典软件,共享的,免费的,大公司的,个人的,国内的,国外的,不分行业等等,只要是经典都可以,请大家畅谈! 欢迎踊跃讨论!如何使得delphi编的exe或dll最小! 基于对话框的打印,打印一块区域!! 一个简单的链问题是输入一个结点请高手在助我 急问!在access中什么字段类型能容纳很多文本?就类似sqlserver中的text!!! 最近有个工程需要用串口(用MSComm控件)来接收ASCII字符信息,怎么用啊!?谢谢! VC++6.0中如何通过Socket从Client端向Server端传送文件? WinCE.NET 系统上如何拷屏 请问如何选择录音的输入设备? 引用“&”和union有没有区别啊? 本版的“跳楼大放送,今年高程、系分模拟试题及备考指南、考前培训笔记、心得,保证通过率。 (romantic999 ) ”你们打的开吗?我打不开 哪里有 车辆管理系统 的资料 请教:(在程序中)如何判断我的系统是否安装SQL Server数据库。如果安装,如何获取SQL Server的版本信息?谢谢! 小问题 请教 将RS232输入的信息转成键盘输入??? 关于表生成文本文件遇到的事情,急 西北人在外(北京,上海,深圳,广州等)打工的兄弟们进来聊聊。 数组问题 急~!!! 如何获得多选框是否被选中 怎样将2003-3-16的字符串串换成时间值 jdom中问题 大家知道今年各个级别考试的通过率是多少吗?什么地方能查到吗? 研究学习COM,哪本书好? javamail发送中文名邮件附件乱码问题? C#中如何比较两个日期的大小? 抗议VB版主公报私仇封杀我的帐号! in your line of...You cant interpret the letter in your line of argument.It should be read in its own right.请问这两句话翻译成中文的意思是什么?in your line of argument这部分的分析?in one's line of有这个词组吗? 《释放》作文 观看辩论赛的心得体会 过滤纸怎么叠 放飞在( )之上 作文的含义是什么我连题目都没看懂20分钟后关闭问题或找到一个正确答案 世界为何存在世界为何而存在难道我生命中注定了要问一次这样的问题? 要一篇写了小伙伴的作文 noip2011普及组解题报告 世界让我们存在为了什么?我们的存在到底有什么意义?宇宙是否和我们一样也有自己的意识,或者意识的更高形态,如果有是否会让你害怕?世界的发展与变化是不是以智慧生命为主的,如果是那 石家庄身边的新变化作文征文要以“身边的新变化”、“身边的新现象”、“身边的文明故事”、“未来的新发展”、“自己的幸福感悟”为主题用文字描述城市的新变化和新发展,以及对幸 今天大家是不是都用不了line这个软件呀 王强卖读一本故事书,己读了3分之1,如果再读80页,已读的与剩下的页数比是2:1,这本故事书一共有多少页 求石家庄暴雪作文有高人来写一篇石家庄暴雪作文吗? 我最敬佩的人300字-400字 noip2011(普及组)的官方答案? 以变化为主题初二作文 LINE工具怎么样 作文 放飞我的梦 向石灰水中加过量的碳酸钠溶液,反应后溶液ph是碳酸钠ph么我认为不是,毕竟里面还有NAOH,但老师是这样讲的,是老师讲错了么 line聊天工具是那个国家的?line聊天工具到底是那个国家开发的,是韩国还是日本?还是其他? 《放飞我的梦想》 作文急 急 急 体育通讯稿 line是什么意思 作文《2008,放飞我的梦想》怎么写? NOIP2011普及组的题目会太难吗? 请以《你很重要》为话题,写一篇作文.一.除诗歌外,文体不限;二.600字以上 以 孝 为主题的演讲稿,500 600左右还要说明自己是如何孝顺父母的,字数不限,请大家再提供一篇游记, dot line report是什么意思 求《我很重要》作文一篇朴素点好 关于辩论赛活动的计划和总结、怎么写阿,急要! finish line dot 5.1怎么样 高中作文水平提高,练习重要?我们很少写作文的,几乎只在考试的时候才会写.我现在高二.文科.作文是应该多花时间在背优美词句上还是练习上?有必要作文周练么?单单积累不行吗?求提高作文 李玲看一本240页的故事书,已经看的页数比未看的页数多2/5,已看的页数比未看的页数多多少页?请列式. 尊师爱师的故事 有关社会实践的重要性的英语小短文 李玲看一本240页的故事书,已看的页数比未看的页数多五分之二,已看的页数比未看的页数多()页 列式不答 尊师故事我眼豪富火堆四哦扶绥 作文一篇:_____________也很重要 夏雪看一本240页的故事书,已经看的页数比未看的页数多2/5,已看的页数比未看的页数的多多少页?请列算式. Our teather often asks us_(not cut)in line when we're waiting for a bus 菊花瓣过滤纸折叠方法是什么? 辩论赛主持词开场白,和结尾的关于《事物的答案只有一个吗》来写, wait in line 的告示牌用英语怎么写?you should keep__________clean.紧急!wait in line意思为排好队 如果y=( a — 3)x + ( b +2)是y关于x的正比例函数.那么a.b应满足什么条件 辩论会的陈词是开头还是结尾说?应该讲什么? PASCAL NOIP1996普及组复赛第二题2.输入三个自然数N,i,j (1 .一项工程,甲,乙两人合做8天可完成.甲单独做需12天完成.现两人合做几天后,余下的工程由乙独自完成,使乙 初三400字作文《放飞我的梦想》 PASCAL NOIP1997复赛普及组第二题2.将1,2,••••••,9共9个数排成下列形态的三角形.(30%) a b c d e f 计算机的无线功能开关在哪 电梯(扶梯)下面有绿色的光,怎么回事呀? I m on line,so you take your heart on your breast. 一项工程,甲乙两人合作8天可以完成.甲单独做血药12天完成,现在甲乙合作几天后,余下的工程由乙独自完成乙前后两段所用的时间比为1:3,这个工程实际工期多少天?我要过程和答案!谢谢!( 电梯与电梯扶手为什么电梯和电梯扶手的运转速度不一样啊? in your line of什么意思 作文《放飞______________》800-1000字,夹叙夹议.少100个字啊。不过内容还不错 一本故事书第一天读了全书的3/1第二天读了全书余下的4/1,还有60页未读一共多少页、 line of your email 关于放飞____的作文.要是借景抒情的! 祝福祖国演讲稿 600字左右 英国检方称《世界新闻报》曾窃听哈里王美国超级追星族与上万明星合影美正式削减50亿美元食品券 4700浙江县级城市空气质量昨天首次试发布 日舰机挑衅 后果很严重美澳联手窃听亚太 亚洲多国“不爽”日本3万兵力集结冲绳 实弹演练夺岛感受英国的“投诉文化”新一轮伊核对话可能取得重要进展日三万兵集结冲绳 实弹演练夺岛英拟对外国购房者增税补赤字斯诺登愿赴德助查“监听门”(图)人类音乐史获推进:河南贾湖遗址再现8日媒:亚洲的战争与和平取决于中国如何日本3男女光天化日在公园拍AV被警方英媒:中共十八届三中全会将酝酿深刻变澳媒:部分中国城市规划者的“雄心”过港媒:中美两国领导人都想借商贸实现和美国洛杉矶国际机场发生枪击事件日媒:亚洲的战争与和平取决于中国如何快递员不满被辞退欲纵火烧办公室 老保雅库布告别广州富力 投奔卡塔尔联赛豪莫耶斯亲赴拜仁考察引援目标杰拉德:已开始教练培训课 将来愿担任官方:埃弗顿租借拉西纳?特劳雷足总杯波尔蒂梅开二度 阿森纳4 0考医生:法尔考仍有希望参加世界杯弗格森:曼联仍可争夺英超冠军博洛尼亚取消迪亚曼蒂转会穆里尼奥:温格总是喜欢抱怨Goal 每日卡通:曼联的点球效率…摩纳哥将支付特殊税款曼联宣布切尔西同意马塔转会巴特梅乌:“神秘俱乐部”曾试图截杀内温格:德拉克斯勒只是一个幻想奥朗德与女友分手 媒体盘点两人往日温中国将建立精准扶贫机制“瞄准”最贫困新疆新和县发生爆炸 6名暴徒自爆6人2014年贵州省将招聘1万名农村“特长春212个高清电子警察今日上岗小客车专段号牌争夺比例大幅下降75:摆摊救母小哥俩的“爸爸回来了”跪地请
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘