admin
22 / July / 2013, 08:21 PM
سلام دوستان.
مدیر b_itman_b (<span style="font-family: trebuchet ms"><font size="3"><font color="Indigo"><b><font color="red">[فقط اعضاء انجمن قادر به مشاهده لینکها و عکسها می باشند <a href="/reg_iran.php" target="_blank">برای عضویت در سایت کلیک کنید</a>]</font></b></font></font></span>)
حرف شما متین ولی این کد رو تست کنید و متوجه بشید که کد اسکی تمامی حروفی که از هر key میاد با هم برابره :
کد:
*
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
*Shift: TShiftState);
begin
* ShowMessage(Chr(Key)+" - "+IntToStr(Key));
end;
تابعی که کاربر***javad_rajabloo (<span style="font-family: trebuchet ms"><font size="3"><font color="Indigo"><b><font color="red">[فقط اعضاء انجمن قادر به مشاهده لینکها و عکسها می باشند <a href="/reg_iran.php" target="_blank">برای عضویت در سایت کلیک کنید</a>]</font></b></font></font></span>)* خواسته بودند رو هم تقدیم میکنم :
کد:
*
* *
Function persian(key:Char):Char;
begin
if (Key="ي")then
begin
key:= "ي";
end;
if (Key="ک")then
begin
key:= "ك";
end;
if (Key="ه")then
begin
key:= "ه";
end;
if (Key="و")then
begin
key:= "و";
end;
* persian:=key;
end;
*
و طریقه ی استفاده اش هم اینه :
کد:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
key :=persian(key);
end;