delphi
文章平均质量分 70
kinglion
这个作者很懒,什么都没留下…
展开
-
在delphi把字符串分割成一维数组
字符串的处理,往往是很多地方都要用到的。对于一个字符串,可以用以下方法来完成。 type userarray=array of string; function tform1.split(s:string;dot:char):userarray; var str:userarray; i,j:integer; begin i:=1;原创 2001-05-07 11:21:00 · 720 阅读 · 0 评论 -
netmessagebuffersend示例
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;function ToUnicode(str:string;dest:PWideChar):integer;function SendMsg(Toh,F原创 2001-11-06 16:12:00 · 648 阅读 · 0 评论