摘要：
学习多线程前，先学习下进程。进程 是操作系统结构的基础；是一个正在执行的程序；计算机中正在运行的程序实例；可以分配给处理器并由处理器执行的一个实体；由单一顺序的执行显示，一个当前状态和一组相关的系统资源所描述的活动单元。进程 是程序在计算机上的一次执行活动。当你运行一个程序，你就启动了一个进程。显然，程序是死的(静态的)，进程是活的(动态的)。 第一，进程是一个实体。 第二，进程是一个&ldquo... 阅读全文
摘要：
proceudre TForm1.ReadConfig;VarmIni：TIniFile;filename,port:string;begin filename:=ExtractFilePath(paramstr(0))+'Config.ini'; mIni:= TIniFile.Creat(filename); try port:=mIni.ReadString('comport','Port'... 阅读全文
摘要：
function SameStr(Str: String; Len: Integer): String;var m:string;begin if Len >= Length(Str) then begin m := StrUtils.DupeString(' ', len-length(str)); Result:=m+str; end else Result:=str;end;StrUt... 阅读全文
摘要：
Procedure numonly(key :char);beginif (not (Key in ['0'..'9']) //数字 and (Key <> '.') and (Key <> #8) ) then //小数点和退回键 begin Key :=#0;end;end; 阅读全文