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

使用文件存取chang字符串

编辑:说三道四文库 发布时间:2017-12-17 06:34
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帮助下有个例子
contains(str) -JQuery API end() -JQuery API filter(filter) -JQuery API filter(expression) -JQuery API find(expr) -JQuery API is(expr) -JQuery API next(expr)-JQuery API not(elems)-JQuery API not(expr)-JQuery API not(el)-JQuery API parent(expr)-JQuery API parents(expr)-JQuery API prev(expr)-JQuery API siblings(expr)-JQuery API Events事件-JQuery API bind(type,data,fn)-JQuery API blur(fn) -JQuery API blur() -JQuery API change(fn) -JQuery API click(fn)-JQuery API click()-JQuery API dblclick(fn) -JQuery API error(fn) -JQuery API focus(fn)-JQuery API focus() -JQuery API hover(over,out)-JQuery API keydown(fn) -JQuery API keypress(fn)-JQuery API keyup(fn)-JQuery API load(fn)-JQuery API mousedown(fn)-JQuery API 何处下载《自动机理论、语言和计算导论》? PCPOP的站内短信是如何实现的呢? 关于TResourceStream ,我的rc文件是这样的:abc EXEFILE test.exe,然后。。 急求asp項目合作伙伴?(為了更好的溝通,地點僅限深圳) wave 文件格式定位问题 程序员新手调查 怎样动态设置CStatic控件的内容? foxpro数据删除问题 急怎样只更新联合查询的主表字段? 如何使自动编号的字段的数据重新从一开始??? 谁是在家里架设个人服务器的?请说一下经验和建议。 如何实现ip地址的递增 如何给菜单项加上Tips? 请问c++ builder有没有把实型数四舍五入的函数? 大虾注意啦!!!!!请教linux 远程启动的问题!!!! 为什么我在MYSQL里自动产生的ID会有重复的 小问题!求救!在线等! endl在cout<<和cin>意义是什么? 各位大大我在写一个MIS系统调查计划(公司领导在考虑上MIS系统,请帮忙补充一下,或是提些建议)做过类似工作的大大顶呀 c++builder下的消息 初学者问题,大家帮忙 xp死机?????????? 拜程序高手为师拉,快来看看呀!!!!!!!! 哪位高手能提供一个什么技术都带有的网站和代码吗?(ASP、JS、数据库、FLASH....) 失业了,散分 各位大大我在写一个MIS系统调查计划(公司领导在考虑上MIS系统,请帮忙补充一下,或是提些建议)做过类似工作的大大顶呀 100分请在中小学教信息技术这门课的老师和水源里的兄弟姐妹都进来聊聊 哪儿有下载TC2。0的 OleDbConnection连结sql数据库的问题 求救!我想用C语言去修改HTML文件,该怎么做啊? 一个纳闷的JTextArea 问题(再线等待) 关于数据库并发操作 谁能帮我找这个网站上的代码? 什么是梯度值?图像锐化的一个概念性问题 《满清十大酷刑》之----如意胶~!!! [女士慎入] commandbutton上文本的颜色怎么编辑 一个MYSQL CC的问题 哪位帮忙告之pro c中varchar类型变量的arr函数是做什么用? 原创:::软件开发--------大挽版 安装完Winamp后,运行不了!!! 能否用delphi来开发基于corba的分布式构件系统 怎样才能让internet上的用户来访问本地电脑上的数据SQL Server数据库?? 怎样才能让internet上的用户来访问本地电脑上的数据SQL Server数据库?? 谁能帮我找这个网站上的代码? 谁能教我图象处理中的位运算 真情探讨,高分相送(职业规划问题) 100分求《谁搞垮了演艺事业》电子书 高手请进:100分求如何得到word文档的第一页!!! 散分求解有关上传的问题 下面这段代码,怎么做敲回车和点击按钮起到同样的效果。 多日未决的问题,拜托你给个答复:请问在win2000的服务里设置sql的允许桌面交互是什么意思?请问如何当sql表里数据更新了就自动通知VB刷 If you ask women today to name an attractive man...这里的to 体育用品商店的篮球只数是排球只数的2倍.每天卖出30只排球和40只篮球.这样卖若干天后,排球卖完了,篮球还剩120只.商店原有篮球、排球各多少只?会的快来! 吐水的吐是第几声 如何解释这两个图求解释 英语翻译A:Does it mean that the question will not be covered in the exam?B:Yes,it does.到底是会考还是不会考啊? 余扫墓山中,检有峦纹可观之石,归与芸商曰:“用油灰叠宣州石于白石盆,取色 求改写句子! 已知P(A)=P(B)=P(C)=0.25,P(AC)=0,P(AB)=P(AC)=0.15,则A,B,C中至少有一个发生的概率 形容风平静的词语 静静的湖面像什么? 风吹湖面象什么? 让我们闭上眼睛 用心去感受风的平静 让我们的烦恼随着风 消失的无影无踪人为什么有那么多的烦恼 水池捞2.87美元硬币买食物 穷困智德媒借美监听事件翻奥巴马\"旧账\"欧盟主席谈隐私 被称暗示美国搞监视是美媒解密美国国家安全局监控盟友的方式24架美军“鱼鹰”运输机落户冲绳 半沙特前高官批评美国中东政策 或联手埃澳大利亚最老双胞胎长寿秘诀:不与坏男美国19岁学生欲徒步闯南极 14岁曾欧盟主席谈隐私 被称暗示美国搞监视是西藏活佛在柏林开讲座 介绍藏传佛教和印度总理辛格不用手机电子邮件 不担心【高清图】廊坊200多名骑友市区游 美马两国决定建立全面伙伴关系中国网事:南昌超生儿落户不用“亮罚单财经观察:西班牙经济复苏之路漫漫贵州:节日期间严查搞变通等隐形“四风哈尔滨:铁面执纪问责 坚决刹住节日不国际新闻晚班车:丹麦女王参观南京大屠李克强:我最关心大家就业 有就业就能4月28日哈尔滨市停水信息不实 目前青海省海西蒙古族藏族自治州冷湖行政委贵州省委书记赵克志4月28日率团赴台网游高达新世纪九州仙侠录新生在玛珐大陆篮球之神化器飞升生存在绝望的世界风游异世骗人的爱情神亦飘渺网游之箭控天下拈花偷心中华奇石馆旅游花园口旅游杏坛旅游奎文阁旅游张衡公园旅游阿巴扎仓旅游格桑花公园旅游苏丹回教堂旅游马里安曼兴都庙旅游新加坡圣安德烈教堂旅游新加坡新闻及艺术部大厦旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘