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

[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 یکم جابجا شده ولی خودتون میتونید امنحان کنید.