تبدیل اعداد فارسی به انگلیسی در زمان تکست باکس

[یوسف زالی]

شما باید یک حلقه بگیرید، تک تک کاراکترهای ادیت اول رو بگیرید ببرید تو فرمت خودتون، و بریزید تو ادیت دوم.
یه چیزی شبیه این:

function ConvertChar(c: char): char;

begin

  case ch of

    #$0660: Result := #$0030;

.

.

  end;

end;



.

.





for i := 1 to length(edit1.text) do

  edit2.text := edit2.text + ConvertChar(edit1.text[i])