Lazarus
学习记录
qq_24499417
这个作者很懒,什么都没留下…
展开
-
计算汉字的笔画数
利用free pascal计算汉字的笔画数写了一个简单的单元pascnchar.unit pascnchar;{$mode objfpc}{$H+}interfaceuses fpjson,jsonparser;//获取汉字笔画数function GetCountByStroke(cnchar:utf8string):Byte;implementationconst s:utf8string='{"一":"j","乙":"o","丁":"jg","七":"ju","乃"原创 2021-03-23 13:45:31 · 5962 阅读 · 0 评论 -
lazarus中的try except
读取下txt文件试了下用try except来容错file not found错误。发现运行的时候总是报错。program Project1; uses sysutils; const file_name='C:\Users\FanXiaoLei\Desktop\15.txt'; var stextF:textfile; s :string;begin try begin...原创 2020-04-06 11:45:13 · 318 阅读 · 0 评论 -
LAZARUS遍历文件夹/文件
1.遍历所有文件夹。program getfiles;uses Classes,sysutils;var sPath:string; L:TStringList;procedure getdir(path:string; var List:TStringList);//函数的具体描述var SR:TSearchRec; i:smallint;begin List.A...原创 2020-04-04 17:17:05 · 770 阅读 · 0 评论 -
Lazarus汉字与16进制互转
我没有修改代码编辑器为本地的代码。默认使用utf-8.所以转换总是要涉及解码。program Project1;uses SysUtils;var i: string; j:integer; k:shortstring; m:smallint;begin //汉字转16进制编码。 i:='一龥'; m:=1; for m:=1 to length(...原创 2020-04-02 19:00:11 · 303 阅读 · 0 评论 -
lazarus使用com组件
写下lazarus里调用com组件。这个大致和vb6里面的写法差不多。上手挺快。也是只适用于win平台。下面我就写下读取excel相关数据来举个例子。program excel; uses comobj,sysutils,Variants;var xlapp :olevariant; wb:variant; sht:Variant; cell:variant; ...原创 2020-03-31 17:30:09 · 1073 阅读 · 0 评论 -
Lazarus网抓。
获取网页数据可以使用fpHttpClient。处理html字符串可以使用正则或sax_html。下面简单写下抓页面的代码:program webscarpping;uses fpHttpClient,classes,sax_html,dom_html,dom;var HTMLString,url:string; doc:THTMLDocument; els: TDomNode...原创 2020-03-31 08:20:39 · 559 阅读 · 0 评论 -
处理API中文乱码的问题
在Lazarus使用API函数MessageBox中,直接使用中文标题和提示会出现乱码。利用PChar+Utf8ToAnsi来转下可以消除乱码。program Project1;uses Windows;begin MessageBox(0,PChar(Utf8ToAnsi('你好')),PChar(Utf8ToAnsi('温馨提示')),MB_OK);end....原创 2020-03-30 21:10:52 · 1537 阅读 · 0 评论