نوشتن اسم متغیر ها و توابع و انواع جدید به فارسی

[Ananas]

سلام سلام سلام.
اوووووووووووووووه !!! خیلی جالبه حیفم اومد اینجا ننویسم.
یه چیزی به فکرم رسید امتحانش کردم دیدم درست کار میکنه.
یک مثال :

unit تست_فارسی;



interface



uses Dialogs, SysUtils;



type

  اعشاری = Single;

  بردار3بعدی = record

    آ, ب , س : اعشاری;

    function طول:اعشاری;

  end;



procedure تست;



implementation



function بردار3بعدی.طول:اعشاری;

begin

  Result := Sqrt(

    آ * آ +

    ب * ب +

    س * س

  );

end;



procedure تست;

var

  v : بردار3بعدی;

begin

  v.آ := 1;

  v.ب := 5;

  v.س := -10.2222;

  ShowMessage(FloatToStr(v.طول));

end;



end.

تابع "تست" متنش اینجا تو html یکم جابجا شده ولی خودتون میتونید امنحان کنید.