delphi的memo的loadfromfile的问题

Posted 2023-05-16

程序里有一个memo在loadfromfile时，load的是一个txt文件，之前的好多的txt都能被memo读取。但是有一个txt，memo在loadfromfile时，发现，load后，memo里的字符是‘’，即空的，没load成功。在这里我讲一下，这个txt是一个检验机器（检验血的）的原始数据，然后拷到我电脑里的。不知道哪里出的问题，给人的感觉是这个txt的原始数据有问题，但是之前拷过好多检验机器的原始数据，都是txt的，memo都能通过loadfromfile方法完整的获取里面的字符。这个文本文档的原始数据也没看到有什么奇异的地方。
然后我又通过
assignfile(f,srfile);
reset(f);
while not eof(f) do
begin
readln(f,s_read);
s_wcl:=s_wcl+s_read;
end;
这几条语句试着读取，竟然读到了。
srfile就是那个txt的目录。之后把读到的字符都赋给了s_wcl；
但是之后又有一个奇怪的问题出现了。
这个txt里面是有字符“？”的，即问号，但是，当我通过方法pos("?",s_wcl)时，发现pos值为0，即没发现里面有这个字符的。但是，这个txt里，的确是有这个字符的，即问号是有的。
麻烦哪位大神帮小弟解决下

txt的文件开头有 “乱码”，其中包括了 字符串结束符 0
LoadFromFile()认为文件结束了，所以没有继续处理后面的文件内容。
具体很查看LoadFromFile()中使用的TStrings.SetTextStr()函数。

你看到的“？”,并不是真的　问号符。
“乱码”中的非标准字符没有对应的显示字符。
你看到的“？”，只是那个工具这样显示而已。
换个工具可能就会显示别的字符。

你应该用十六进制工具去查看你的.txt文件，就比较清楚了。

至于你的.txt文件为什么会变成这样。原因太多，不好列举。 参考技术A 是不是输入法的问题 ？？
粘贴一下试试

转Delphi中Memo显示行号列号

http://www.alonely.com.cn/Delphi/20160814/8912.html

实例说明本例是个光标应用的简单技巧，希望通过这个例子的学习后能举一反三。Delphi中像这样简单而又实用的例子还有很多，只要平时多注意积累就能写出简洁、执行效率高的代码。编程思路直接向Memo组件发送消息EM_LineFromChar并检测返回值，即可获知此组件中光标所在的行号，向Memo组件发送消息EM_LineIndex并检测返回值即可获知此组件中光标所在的列号

实例说明

本例是个光标应用的简单技巧，希望通过这个例子的学习后能举一反三。Delphi中像这样简单而又实用的例子还有很多，只要平时多注意积累就能写出简洁、执行效率高的代码。

编程思路 直接向Memo组件发送消息EM_LineFromChar并检测返回值，即可获知此组件中光标所在的行号，向Memo组件发送消息EM_LineIndex并检测返回值即可获知此组件中光标所在的列号。

编程步骤 先在Form上放置三个Label组件，并在程序代码的前面声明下面这三个变量为整型数，即： VarLpos,Cpos,Linelength:integer； 其中Lpos是行的值(按照Memo的规定，第一行为O)，Cpos是字符的位置，LineLength是当前行的字符总个数。然后，再将下面的七行程序代码分别加入Memo1的OnMouseDown和OnKeyDown的事件代码处即可。Lops:=SendMessage(Memo1.Handle,EM_LineFromChar,Memol.SelStart,0);Cpos:=SendMessage(Menol.Handle,EM_LineIndex,Lpos,0);LineLength:=SendMessage(Memol.Handle,EM_LineLength,Cpos,0);Cpos:=Memol.SelStart-CPos; Label1.Caption:=IntToStr(ipos);Label2.Caption:=IntToStr(cpos); Label3.Caption:=IntToStr(linelength); 完成后，在执行程序时，随着在Memo组件中的编辑操作，Labell、Label2和Label3就将显示出相对应的当前行值、字符位置与当前行的字符总个数了。

编程总结 请大家结合“获取RichEdit组件中光标所在的行号”一起学习，实际上两者极为相似。 附另一篇：

一、如何得知当前行号
　　用RichEdit（或者memo）控件制作文本编辑器时，通过访问lines count属性可以得到总行数，但是若想知道光标当前所在行的行号就麻烦了，因为delphi没有提供这个属性。要实现这个编辑器必备功能，就须调用 em_ LineFromChar。请试试下面的程序。
　　先在窗口中布置一个RichEdit或者memo（命名为editor），以及一个button。在button的onclick事件中写入下列代码。
　　var
　　CurrentLine:Integer;
　　begin
　　CurrentLine:=Editor Perform(em_ LineFromChar,SFFFF,0);
　　Application MessageBox(PChar(′当前行号是′＋IntToStr(CurrentLine)),′消息′,mb_ iconinformation);
　　end;
　　需要注意的是，第一行的行号为零。
　　二、如何撤消操作（undo）
　　对于memo来说，实现undo是不需编程的，只要让popupmenu属性为空，运行时就能用鼠标右键激活一个常用操作菜单，其中包括撤消、剪切、复制、粘贴、删除和全选六项。
　　但可惜的是，这一招对于功能强大的RichEdit控件居然行不通，害得我们还要自己设计一个popupmemu。当你用 CutToClipBoard等语句轻松而顺利地完成了“剪切”等功能，接着便会无奈地发现，竟找不到undo或cancel之类的语句来执行“撤消”。
　　这时你需要这样处理：
　　RichEdit1 Perform(EM_UNDO,0,0);
　　另外还应检查是否允许撤消，从而开启或关闭弹出菜单中的“撤消”项：
　　Undo1 Enabled:=RichEdit Perform(EM_CANUNDO,0,0)<>0;
　　以上程序在Delphi3中调试通过。