تبدیل Ansi به Unicode در دلفی 7

[hector2000]

سلام
من یک پروسیجری در دلفی Xe3 نوشتم که فایل های متنی Ansi با انکودینگ 1256 را به یونیکود تبدیل می کنه و دخیره می کنه و می خواهم این کار را در دلفی 7 انجام بدم ولی متاسفانه نمی تونم این کار را بکنم چون در تابع LoadFromFile و SaveToFileدر دلفی 7 نمی توان انکودینگ را بهش داد که موقع باز کردن از این انکودینگ استفاده کند.
نمونه کد من:

procedure Tform1.ConvertANSIFileToUTF8File(AInputFileName, AOutputFileName: TFileName);

var

  Strings: TStrings;

begin

  Strings := TStringList.Create;

  try



    Strings.LoadFromFile(AInputFileName , TEncoding.GetEncoding(1256));

    Strings.Text := UTF8Encode(Strings.Text);

    Strings.SaveToFile(AOutputFileName , TEncoding.UTF8);

  finally

    Strings.Free;

  end;



end;

بخشی را که دلفی 7 نمی فهمد

Strings.LoadFromFile(AInputFileName  ,TEncoding.GetEncoding(1256));

Strings.SaveToFile(AOutputFileName , TEncoding.UTF8);

دوستان می توانند راهنمایی کنند؟ایا راهی وجود دارد؟

[یوسف زالی]

سلام.
چاره ی کار باز نویسی متد هاست.
روش دیگه استفاده از کامپوننت های آماده است.

[BORHAN TEC]

روش دیگه استفاده از کامپوننت های آماده است.

http://www.tmssoftware.com/site/tmsuni.asp
http://www.axolot.com/TNT/

[hector2000]

ممنونم از پاسختون
ولی من به دنبال کامپونت نیستم و تنها اگر دستور Loadfromfile بتواند انکودینگ 1256 را قبول کند ان وقت مشکل من حل میشود.
این کامپونتهایی که دوستان معرفی کردن همگی دارای اشیا و ابجکت هستند و فکر نمی کنم که دستورات یونیکدی به دلفی اضافه کنند