کد پیج ی فارسی و کد پیج ي عربی

[Ehsani2006]

کسی کد پیج ی عربی رو داره ؟

ی فارسی = 237

ممنون

[اصغر (پآچ)]

سلام دوست من

اشتباه می کنی! "ی فارسی = 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.