السلام عليكم ورحمة الله وبركاته
أسأل عن كيفية تحويل ملف وورد من الكوداج ansi إلى utf-8 برمجيا بلغة الدلفي
استعمل دوال
utf8decode
utf8encode
هل ممكن تعطيني مثال من فضلك على كيفية إستعمال هذه الدوال؟
procedure ANSIToUTF8(ANSIFile, UTF8File: TFileName);
var
S: TStrings;
begin
S := TStringList.Create;
try
S.LoadFromFile(ANSIFile);
S.Text := UTF8Encode(S.Text);
S.SaveToFile(UTF8File);
finally
S.Free;
end;
end;
أشكرك أخي الكريم كل الشكر
وأنا ممتن لك وجزاك الله كل خير