تبدیل Ansi به Unicode در دلفی 7
سلام
من یک پروسیجری در دلفی 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);
دوستان می توانند راهنمایی کنند؟ایا راهی وجود دارد؟
نقل قول: تبدیل Ansi به Unicode در دلفی 7
سلام.
چاره ی کار باز نویسی متد هاست.
روش دیگه استفاده از کامپوننت های آماده است.
نقل قول: تبدیل Ansi به Unicode در دلفی 7
نقل قول: تبدیل Ansi به Unicode در دلفی 7
ممنونم از پاسختون
ولی من به دنبال کامپونت نیستم و تنها اگر دستور Loadfromfile بتواند انکودینگ 1256 را قبول کند ان وقت مشکل من حل میشود.
این کامپونتهایی که دوستان معرفی کردن همگی دارای اشیا و ابجکت هستند و فکر نمی کنم که دستورات یونیکدی به دلفی اضافه کنند