Перевести строку с ASCII (Dos) в Win

[PRsam]

Здравствуйте! Не получается перевести строку ASCII (Dos) что бы отобразить рус текст в listBox.
С файла копируется часть строки (кирилица).

ListBox1.Items.Add((Copy(S, p+3, L));  // на выходе каракули

Спасибо!


___________
для форматирования кода используйте
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
а не тег PHP

Модератор.

[Serge_Bliznykov]

function StrOemToAnsi(const S: AnsiString): AnsiString;
begin
  SetLength(Result, Length(S));
  OemToAnsiBuff(@S[1], @Result[1], Length(S));
end;

ну и в Uses добавить Windows - если его нет в списке подключённых модулей...

[PRsam]

большое спасибо

[PRsam]

BEGIN 
       AssignFile(f,'V:\sor01.txt');
       Reset(F);
          begin
                  for i := 1 to 10 do ReadLn(F); 
                  ReadLn(F, S);
                  StrOemToAnsi(S);
                  ListBox1.Items.Add(Copy(S, 5, 14));
          end;
              CloseFile(F);
              END;

function TASOPD.StrOemToAnsi(const S: AnsiString): AnsiString;
begin
  SetLength(Result, Length(S));
  OemToAnsiBuff(@S[1], @Result[1], Length(S));
end;

Комплируется но результата нет.

[Serge_Bliznykov]

ну что Вы!
StrOemToAnsi - это ж функция.
Она возвращает результат!

          begin
                  for i := 1 to 10 do ReadLn(F); 
                  ReadLn(F, S);
                  S := StrOemToAnsi(S);
                  ListBox1.Items.Add(Copy(S, 5, 14));
          end;