Ehsani2006
سه شنبه 21 خرداد 1387, 14:58 عصر
کسی کد پیج ی عربی رو داره ؟
ی فارسی = 237
ممنون
اصغر (پآچ)
سه شنبه 21 خرداد 1387, 17:28 عصر
سلام دوست من
اشتباه می کنی! "ی فارسی = 236" و "ي عربی = 237" می باشد. برای اینکه مطمئن شی می تونی از کد زیر استفاده کنی!
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
ListBox1: TListBox;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
procedure ListBox1DblClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
I: Integer;
begin
for I:= 0 to 256 do
ListBox1.Items.Add(Chr(I));
end;
procedure TForm1.ListBox1DblClick(Sender: TObject);
begin
Edit1.Text := IntToStr(ListBox1.ItemIndex);
end;
end.
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.