[roamer]

Сообщение от zet_asm

Здравствуйте!
В Delphi 2009 хочу прочитать файл кодированный в utf8 в строку типа UTF8String.

Как вариант, можно (для D 2009) примерно так :

Код:

function FromTextFileToWideString(fn : string; Encoding : TEncoding) : WideString;
Var
  List : TStrings;
begin
  Result:='';
  fn:=trim(fn);
  if FileExists(fn) then begin
     List := TStringList.Create;
     TRY
       List.LoadFromFile(fn,Encoding);
       Result:=List.Text;
     FINALLY
       FreeAndNil(List);
     END;
  end;
end;

Для UTF8 вызов :

MyWideString := FromTextFileToWideString('C:\111.txt', TEncoding.UTF8);