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

使用文件存取chang字符串

编辑:说三道四文库 发布时间:2017-10-20 12:20
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帮助下有个例子
乐视网联手富士康推新盒子C1S “0+290元”新浪微博发售 吸引开发者:只要开发新应用 微软便奖100美元 PaintCode - 将矢量图转化为Objective-C代码的开发神器 苹果发布iOS 6.1.3 封杀evasi0n越狱所用漏洞 [API快讯] Google开放实时协作API 58同城开源轻量级Java Web框架 Argo 初创公司AppNeta:4轮融资,4780万美元 MongoDB释放2.4版本:692更新及8大得意之作 十年6亿美元!Amazon云计算喜获CIA大单! 国人当自强:HTML5+联盟首次筹备会成功举行 开源框架TAAE发布 快速打造iOS音频应用 如何学会600多种编程语言 “第五届中国云计算大会”将于2013年6月5-7日在京召开 Ridiculous Fishing:游戏遭遇山寨如何一雪前耻 老游戏的今天:Doodle Jump每周进账2万美元 剑指Evernote 谷歌正式推出Google Keep 开源的JS MVC框架 Backbone.js 1.0发布 前Facebook资深员工王淮给技术创业团队的十点建议 微软发布Windows Embedded 8系列操作系统 Google Play 4.0抢先体验 中国 vs. 非洲:移动医疗的前世今生 Java大数据框架初创企业Concurrent获400万美元融资 基于Edge Animate开发CSS3 Animations 后端服务商Firebase发布全新iOS SDK [爆料]百度云或在秘密打造实时移动Web App开发框架 打造最佳开发团队的几点建议 Facebook与开发者交恶 扼杀第三方应用 负载大逃亡:四十二路怪兽联军及七条逃生法则 那些年,MIT技术男们奇妙的黑客作品 深度分析:腾讯3.3亿美元收购Epic股份值吗? 传下一代iOS或将推行扁平化设计 如何让IE6不显示保存图片按钮? 時間比較問題 如何固定DBGridEh的列? 如何在vb.net里面使用资源文件 关于WIN2K管理员密码 在tomcat服务器上发布soap的问题,高分相赠 JSP在websphere4.0中的应用问题! 急,关于COM调用的问题 请问各位C#有DBChart控件吗????????? select的问题 有没有好一些的MP3播放器推荐 关于声音的问题…………等…… xml是不是马上必学的?????? 呜呼!我巍巍中华,铿锵汉字,终将进博物馆了吗? 创建虚拟目录,在另一计算机上的共享位置? 用javascript怎样remove掉数组中的一个元素???急 存储过程问题 java基础类 网络错误718,是什么问题呢?分不够可以再给,急呀!! 怎样加大数据库的连接时间,因为通过远程连接,所以想加大连接时间 紧急求救? 这样的弹性页面能实现吗? 100分求"公司网络管理办法" 寻开发公司 请帮我,关于从WIN2000到WIN98的问题(在线等) 关于firework的问题?急急急!!!!!!!!!!!! 用VC.net应该怎么调试.cpp文件 老有人反复发一些老帖子,早被别人转了几百遍了,烦啊! 展示 怎样删除页面布局表格 或 页面布局单元 各位大侠,外挂里的自动捡物是怎么实现的? 如何在运行中删除动态创建的 POPUPMENU 的某个菜单项呢? 安装包怎么做? 怎样将mysql数据库里某个字段的所有值绑定到form的<select>选项里。 我的com+组件两台机器间不能执行方法 怎样获得InputBox、InputQuery的值? 我用的光盘版的maya5.0,serial number不对啊?谁有可以用的啊? 请教:MPP文档是什么概念啊? 哪里有VF做的工资管理系统下载 怎样在一个中英文混合的字符串中添加回车键后而不出乱字符 救命啊!!!!! 关于ocx的问题 如何响应Esc键按下? 寻开发公司 EVB 如何修改 Grid的字体? 怎样来查找在线游戏、即时聊天软件所使用的端口号? 搞过数据库的进来瞧瞧 表中有自增类型字段id,用TABLE 控件与之相连,记录增加时,ID怎么 在asp中我想等程序执行完了,直接把窗口关闭,不要出现提示 session怎么不见了?解决了马上送分 有关CORBA产品:VisiBroker的问题 声称的近义词最正确的 我发现生命是如此的没有意义 用英语怎么讲 用 山 作形旁,你能写出多少个形声字?试试看、 声明的近义词是什么 如图所示,A球在斜面上的A点以水平速度v抛出,斜面的倾角为θ,设斜面足够长,问:自抛出起经过多长时间,小球离斜面最远?小球落点B距A点多远? 金黄的大斗笠 本文的语句优美生动形象,请结合下面句子具体分析其表达效果.(1)山这边,梯田里的庄稼,像绿海里卷来的一道道浪头.(2)金黄的大斗笠下还遮着笑,遮着小山羊偶尔发出的咩 电解电容上标的多少v是什么,标的一样的电容电压一样吗主板上两个标一样的电容,用万用表测量电压都不一样,一个十几v,一个二十几v. 教体艺 是什么? 下列形声字的形旁械 基 陈述的近义词是什么 是要什么特长? 以 少 作形旁的形声字有哪些(至少写5个) 蛛有什么组词 浊化音是如何产生的?例:在S后的t,k,p轻辅音全部都要念成浊辅音d,g,b sky发音是/sgai/ stop发音是/sdop/ australia发音是/ausdreilia/ 这是如何产生的? 心有余而力不足和心有余力而不足心有余而力不足和心有余力而不足经常听到这两个短语,不知哪个是正确的呢?或者都可以用…… 关于纺纱学配棉的问题用129(含杂1.8%)50%,229(含杂2.1%)30%,331(含杂1.5%)10%,回花10%配棉,试计算:(1)平均纤维长度(2)平均等级(3)平均含杂率我要问的是回花的纤维长度,等级是多少, s后面哪几个音要浊化 心有余力不足什么意思 斜塔上的实验 第17段对教堂的环境描写有什么表达作用?_ 品牌kappa中文什么 为什么总是心有余力而不足?人活着好累啊 同样是常见的吃草动物,牛,羊,马,驴,为什么驴的药用价值最大? KAPPA 应该怎么叫那中文啊 这两段话英文怎么表达第二,这份问卷原本是只有一道多选题,但是由于问卷的答案选项没有标明哪些是单选哪些是多选,造成有很多回答者误解,把单选题以多选题的形式作答了,这给我们数据 蛛能组什么词 被称为明朝开国文臣之首的是【】,他的代表作有【送东阳马生序】 指出下列形声字的形旁斧()符() 领()祥()阁()飘()草()赌() 我什么都可以放弃,唯独你我不能放弃 帮我翻译英文 【语文】送东阳马生序八册下语文书上,这篇课文是完整的,还是节选的? 定积分-√2到√2 √(8-2y^2) dy,令y=2sinu,怎么转换成定积分-π/4到π/4 (4√2)cos^2 u du 《地球人都知道我爱上了你》歌词 求“黄胜 是不是要等到我放弃了你才想到我对你的好”英文意思 如何证明浮体做的是简谐运动? "地球人都知道我爱上了你"是谁唱的啊在线等,谢谢啊 英语读音哪些情况下要浊化 恶劣的近义词可不可以是险恶 为什么生命终于有一天要结束,那为何还要开始呢? 英语读音浊化有哪些单词开头为s的浊化现象,如stand,speak,sport,sky, 险恶的近义词 天蝎座的格言? 那位科学家坚持对现代药物的研究是为了能改善人们的生活.中译英 高中物理求分析 坏蛋是怎样练成的经典名言 人的性格是随着年龄变化的吗 衣服上的商标 如果反比例函数Y=K/X的图象分布在第一.三象限,则直线Y=K(X-2)经过第_____象限. 人性格会随着年龄变化吗? 1.无题静止在光滑水平面上,先对物体施加一水平向右的恒力F1,经过t秒后物体的速率为V1时撤去F1,立即再对它施一水平向左的水平恒力F2,又经过3t秒后物体回到出发点,此时速率为V2,则V1,V2间的 已知反比例函数的图象经过点A(3,-4).(1)这个函数的图象分布在哪些象限?在图像的每一支上,y随x的增大如何变化?(2)点B(-3,4),C(-2,6)和点D(3,4)是否在这个函数的图像上? 人的性格会随着年龄增长吗? 假设一个物体在某行星的一个悬崖上,从静止开始自由下落,1秒内从起点落下4米,再落下4秒,它将在起点下记米处? 高山流水 【急!】伯牙鼓琴,其友钟子期听之.方鼓琴而志在太山,钟子期曰:“善哉乎鼓琴!巍巍乎若太山!”少选之间,而志在流水,钟子期复曰:“善哉乎鼓琴!汤汤乎若流水!”钟子期死,伯牙破 找一部电影许多年前看的,大致剧情好像是讲17世纪左右的事,好像一个人是贵族,他很热爱科学,他研究人体,把好几个人的尸体拼起来,做了一个人,我记得电影一开始是在冰天雪地里,他做的那个 英语中S+元音+t,中的t要发d的音吗? 蛛能组词什么 我想找一部电影电影讲的是一群互不相识的不同国籍的高手,被骗到一个岛上,岛上有一种怪物会隐身,怪物会把杀死的人为自己所用,去攻击这些不同国家的人,有美国人,日本人,还有别的国家的 p k的浊化问题我是一名英语爱好者 最近在学习英语单词的时候 看见有不少单词有浊化现象 如study student sky history especially 等 不知这其中有什么规律 652170678 他们说得什么海子体,韩寒体 是什么东西啊 电影万有引力22分钟那首歌是什么 就是高远追石晓琳那时候那首歌 一直run run run的 金黄的大斗笠文中有三处写道“风来啦!”第三处和前两处在写法上有什么不同?这样写有怎样的表达效果干干净净的蓝天上,偷偷溜来一团乌云,风推着它爬上山头.山这边,梯田里的庄稼像绿海 美国情报机构被爆监听35名国际政要电奥巴马医改核心举措漏洞频出接受国会质美田纳西州海军基地又发枪击案 2人受土耳其已用中国导弹试验 硬顶美国别买中国画家潘义奎获艺术界\"诺贝尔\"德国就默克尔手机或被美监听一事召见美美方称无迹象显示两美国人遭绑架是恐怖小贝携全家看比赛 父爱爆棚吞小七胖手星巴克星巴克创始人回应“在中国高定价专家:中国已有5大类17种转基因生物芝加哥农产品期价24日全线下挫美国总统呼吁年内通过移民改革法案美国13岁少年持玩具AK-47 遭两印度少女回家途中遭轮奸 事后遭歹徒焚美国情报机构被爆监听35名国际政要电美遭盟友“愤怒围城” 昔日帝国实力大美媒称土购中国导弹或是把特洛伊木马塞法国之后是德国 媒体调侃下一个愤怒盟李雪主成为朝第一夫人 传因长得像金正叙政府军占领大马士革郊区重镇默克尔私人手机可能遭监听 德媒怒称最学院路专线延长至24日上期答案境外学历认证不再需要留学回国证明泰反对派再次包围总理府 数百名稻农聚社区回收烟花意粉屋河南调查人大代表包养情妇为子上学套关系被骗百万余元冰场清场埃航客机遭劫系副驾驶所为天津出台“史上最严减负令”哈里王子环保诚意遭质疑大城大事习近平将会见连战奇葩案频发笨贼一箩筐《私人订制》首播引争议子宫内膜异位症患者招募南非被困矿工部分被救出任重道远剪头发市场水管发生爆裂多家商户损失惨重
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘