Delphi6函数大全(1) <> 首部 function AnsiResemblesText(const AText, AOther: string): Boolean; $[StrUtils.pas功能 返回两个字符串是否相似说明 ANSI(American National Standards Institute)美国国家标准协会;不 区分大小写参考 function StrUtils.SoundexProc; var StrUtils.AnsiResemblesProc例子
function GetDelimiteredStringN(Astring:String;Dlmter:Char;nPos:integer):string; var sList:TStringList; begin Result:=''; sList:=TStringList.Create; sList.Text:=StringReplace(Astring,Dlmter,#13#10,[rfReplaceAll]); if (nPos>0) and (sList.Count>=
课程设计题目,做的比较简单procedure TForm1.Button2Click(Sender: TObject); begin form1.Close; end; procedure TForm1.Button1Click(Sender: TObject); begin if edit1.Text='' then showmessage('请输入用户名') else if edit2.Text='' then showmessage('请输入密码') else begin adoquer
实验室设备管理系统 1.用户登陆界面代码 procedure TForm1.Button1Click(Sender: TObject); var u,p:string; //temp:string; begin u:=edit1.Text; p:=edit2.Text; if(u='')then begin showmessage('用户名不允许为空!'); edit1.SetFocus;