delphi7判断字符串的组成
2010-04-08 14:04 jinze 阅读(447) 评论(0) 编辑 收藏 举报勿须多言,看代码吧。:
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Menus; type TForm1 = class(TForm) Memo1: TMemo; Button1: TButton; Label1: TLabel; Button2: TButton; Label2: TLabel; Label3: TLabel; Label4: TLabel; Button3: TButton; Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; MainMenu1: TMainMenu; g1: TMenuItem; N1: TMenuItem; Label5: TLabel; Memo2: TMemo; Label6: TLabel; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure FormCreate(Sender: TObject); procedure UseByteType(SpecStr:String); procedure Button3Click(Sender: TObject); procedure N1Click(Sender: TObject); procedure Memo2Change(Sender: TObject); procedure Memo1Change(Sender: TObject); { Public declarations } private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin label1.Caption := Format('当前列:%d, 当前行:%d', [Memo1.CaretPos.X, Memo1.CaretPos.Y]); end; procedure TForm1.Button2Click(Sender: TObject); var s: string; i,sum,e,c,t: Integer; CharIndex,NumIndex,ChinSimInedx: Integer; begin s := Memo1.Text; CharIndex:=0; NumIndex:=0; ChinSimInedx:=0; e := 0; c := 0; sum := Length(s); for i := 0 to sum do begin if (Ord(s[i]) >= 33) and (Ord(s[i]) <= 126) then //取其ASCII值 begin //Inc(e); //Label2.Caption := '字母数: ' + IntToStr(e); CharIndex:= CharIndex+1; // end; if(Ord(s[i])>=65) and (Ord(s[i])<=90)then begin NumIndex :=NumIndex+1; end; if Ord(s[i]) >= 127 then begin Inc(c); end; edit1.Text:=IntToStr(e); edit2.Text := IntToStr(NumIndex); Label3.Caption := '汉字数: ' + IntToStr(c div 2); end; end; procedure TForm1.FormCreate(Sender: TObject); begin form1.Memo1.Text:=''; form1.Memo2.Text:=''; memo2.Font:=memo1.Font; label6.Font:=label5.Font; button2.Enabled:=false; end; procedure TForm1.UseByteType(SpecStr:String); var I,E,C,O,N:integer; begin E:=0; C:=0; O:=0; N:=0; for I:=1 to Length(SpecStr) do begin if (ByteType(SpecStr,I)=mbSingleByte) then begin if (SpecStr[I] in ['a'..'z','A'..'Z']) then Inc(E) else Inc(O); end else Inc(C); if(ByteType(SpecStr,I)=mbSingleByte)then begin if (SpecStr[I] in ['0'..'9']) then N:=N+1; end end; // Application.MessageBox(Pchar('该字符串的组成结构为:汉字'+IntToStr(C div 2)+'个,'+'英文字母'+IntToStr(E)+'个,'+'其他类型字符'+IntToStr(O)+'个'),'提示',mb_ok+mb_iconinformation); //Label2.Caption := '字母数: ' + IntToStr(E); //Label3.Caption := '汉字数: ' + IntToStr(c div 2); edit1.Text:= IntToStr(E); edit2.Text := IntToStr(c div 2); edit3.Text:= IntToStr(N); end; procedure TForm1.Button3Click(Sender: TObject); begin UseByteType(form1.Memo1.Text); end; procedure TForm1.N1Click(Sender: TObject); begin Application.MessageBox(Pchar('由于用OnTextChange()方法会增加系统开销,所有用一个Button的OnClicl方法来做。'+#13+'学号:12007242622 姓名:马金泽'),'提示',mb_ok+mb_iconinformation); end; procedure TForm1.Memo2Change(Sender: TObject); begin UseByteType(form1.Memo2.Text); end; procedure TForm1.Memo1Change(Sender: TObject); begin { if(memo1.Text ='') then button2.Enabled:=false else begin button2.Enabled:=true; end; end; } end.
OK。