第2个问题 ----------------------------------- function Tfrmaddry.GetPYIndexChar(hzchar:string):char;//HZCHAR是单个汉字, begin case WORD(hzchar[1]) shl 8 + WORD(hzchar[2]) of $B0A1..$B0C4:result:='A'; $B0C5..$B2C0:result:='B'; $B2C1..$B4ED:result:='C'; $B4EE..$B6E9:result:='D'; $B6EA..$B7A1:result:='E'; $B7A2..$B8C0:result:='F'; $B8C1..$B9FD:result:='G'; $B9FE..$BBF6:result:='H'; $BBF7..$BFA5:result:='J'; $BFA6..$C0AB:result:='K'; $C0AC..$C2E7:result:='L'; $C2E8..$C4C2:result:='M'; $C4C3..$C5B5:result:='N'; $C5B6..$C5BD:result:='O'; $C5BE..$C6D9:result:='P'; $C6DA..$C8BA:result:='Q'; $C8BB..$C8F5:result:='R'; $C8F6..$CBF9:result:='S'; $CBFA..$CDD9:result:='T'; $CDDA..$CEF3:result:='W'; $CEF4..$D188:result:='X'; $D1B9..$D4D0:result:='Y'; $D4D1..$D7F9:result:='Z'; else result:=char(0); end; end;
这里有个关于它的使用方法:按拼音检索 type TForm1 = class(TForm) Edit1: TEdit; ListBox1: TListBox; ListBox2: TListBox; Label2: TLabel; Label1: TLabel; procedure Edit1Change(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1;implementationfunction GetCharInd(zzchar:string):char; begin case WORD(zzchar[1]) shl 8+WORD(zzchar[2]) of $B0A1..$B0C4:result:='A'; $B0C5..$B2C0:result:='B'; $B2C1..$B4ED:result:='C'; $B4EE..$B6E9:result:='D'; $B6EA..$B7A1:result:='E'; $B7A2..$B8C0:result:='F'; $B8C1..$B9FD:result:='G'; $B9FE..$BBF6:result:='H'; $BBF7..$BFA5:result:='J'; $BFA6..$C0AB:result:='K'; $C0AC..$C2E7:result:='L'; $C2E8..$C4C2:result:='M'; $C4C3..$C5B5:result:='N'; $C5B6..$C5BD:result:='O'; $C5BE..$C6D9:result:='P'; $C6DA..$C8BA:result:='Q'; $C8BB..$C8F5:result:='R'; $C8F6..$CBF9:result:='S'; $CBFA..$CDD9:result:='T'; $CDDA..$CEF3:result:='W'; $CEF4..$D188:result:='X'; $D1B9..$D4D0:result:='Y'; $D4D1..$D7F9:result:='Z'; else result:=#0; end; end;function DisByStrInd(ListBoxStr:TListBox;StrInd:string):string; label NotFound; var zzchar :string; i,j:integer; begin for i:=0 to ListBoxStr.Items.Count-1 do begin for j:=1 to Length(StrInd) do begin zzchar:=ListBoxStr.Items[i][2*j-1]+ListBoxStr.Items[i][2*j]; if (StrInd[j]<>'?') and (UpperCase(StrInd[j])<>GetCharInd(zzchar)) then goto NotFound; end; if result='' then result:=ListBoxStr.Items[i] else result:=result+#13+ListBoxStr.Items[i]; NotFound: end; end;{$R *.DFM}procedure TForm1.Edit1Change(Sender: TObject); var SelStr:string; begin SelStr:=''; ListBox2.Items.Text:=DisByStrInd(listBox1,Edit1.Text); end;end.
如何抠出一个字符串中的数字//D6测试通过 --------------------------------------- procedure TForm1.Button1Click(Sender: TObject); var i: integer; begin for i:= 0 to length(Self.Edit1.Text) do if Self.Edit1.Text[i] in ['0'..'9'] then ShowMessage(Self.Edit1.Text[i]); end;
不过你讲得不太清楚啊,sdfew235sad’,怎么才能变为‘23.5 sad',或者‘2.3.5.sad’
数字后面的字母都保留?小数点怎么确定在哪个位置?
第2个就不懂啦
有把提取中文的汉语拼音的函数呢,呵呵
-----------------------------------
function Tfrmaddry.GetPYIndexChar(hzchar:string):char;//HZCHAR是单个汉字,
begin
case WORD(hzchar[1]) shl 8 + WORD(hzchar[2]) of
$B0A1..$B0C4:result:='A';
$B0C5..$B2C0:result:='B';
$B2C1..$B4ED:result:='C';
$B4EE..$B6E9:result:='D';
$B6EA..$B7A1:result:='E';
$B7A2..$B8C0:result:='F';
$B8C1..$B9FD:result:='G';
$B9FE..$BBF6:result:='H';
$BBF7..$BFA5:result:='J';
$BFA6..$C0AB:result:='K';
$C0AC..$C2E7:result:='L';
$C2E8..$C4C2:result:='M';
$C4C3..$C5B5:result:='N';
$C5B6..$C5BD:result:='O';
$C5BE..$C6D9:result:='P';
$C6DA..$C8BA:result:='Q';
$C8BB..$C8F5:result:='R';
$C8F6..$CBF9:result:='S';
$CBFA..$CDD9:result:='T';
$CDDA..$CEF3:result:='W';
$CEF4..$D188:result:='X';
$D1B9..$D4D0:result:='Y';
$D4D1..$D7F9:result:='Z';
else
result:=char(0);
end;
end;
type
TForm1 = class(TForm)
Edit1: TEdit;
ListBox1: TListBox;
ListBox2: TListBox;
Label2: TLabel;
Label1: TLabel;
procedure Edit1Change(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;var
Form1: TForm1;implementationfunction GetCharInd(zzchar:string):char;
begin
case WORD(zzchar[1]) shl 8+WORD(zzchar[2]) of
$B0A1..$B0C4:result:='A';
$B0C5..$B2C0:result:='B';
$B2C1..$B4ED:result:='C';
$B4EE..$B6E9:result:='D';
$B6EA..$B7A1:result:='E';
$B7A2..$B8C0:result:='F';
$B8C1..$B9FD:result:='G';
$B9FE..$BBF6:result:='H';
$BBF7..$BFA5:result:='J';
$BFA6..$C0AB:result:='K';
$C0AC..$C2E7:result:='L';
$C2E8..$C4C2:result:='M';
$C4C3..$C5B5:result:='N';
$C5B6..$C5BD:result:='O';
$C5BE..$C6D9:result:='P';
$C6DA..$C8BA:result:='Q';
$C8BB..$C8F5:result:='R';
$C8F6..$CBF9:result:='S';
$CBFA..$CDD9:result:='T';
$CDDA..$CEF3:result:='W';
$CEF4..$D188:result:='X';
$D1B9..$D4D0:result:='Y';
$D4D1..$D7F9:result:='Z';
else
result:=#0;
end;
end;function DisByStrInd(ListBoxStr:TListBox;StrInd:string):string;
label NotFound;
var
zzchar :string;
i,j:integer;
begin
for i:=0 to ListBoxStr.Items.Count-1 do
begin
for j:=1 to Length(StrInd) do
begin
zzchar:=ListBoxStr.Items[i][2*j-1]+ListBoxStr.Items[i][2*j];
if (StrInd[j]<>'?') and (UpperCase(StrInd[j])<>GetCharInd(zzchar))
then goto NotFound;
end;
if result='' then result:=ListBoxStr.Items[i]
else result:=result+#13+ListBoxStr.Items[i];
NotFound:
end;
end;{$R *.DFM}procedure TForm1.Edit1Change(Sender: TObject);
var
SelStr:string;
begin
SelStr:='';
ListBox2.Items.Text:=DisByStrInd(listBox1,Edit1.Text);
end;end.
---------------------------------------
procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
begin
for i:= 0 to length(Self.Edit1.Text) do
if Self.Edit1.Text[i] in ['0'..'9'] then
ShowMessage(Self.Edit1.Text[i]);
end;