[vinni]

Люди, помогите плиз, кто знает - как программно сохранить текстовый файл в другой кодировке? Заранее спасибо!

[Admin]

Напрмер так:

Src:=RichEdit1.Lines.GetText;
OemToChar(Src,Str);
RichEdit1.Lines.SetText(Str);

смотри Windows.pas...

[vinni]

НЕ КАТИТ. Я СЧИТЫВАЮ ИЗ ФАЙЛА Readln-ОМ В СТРОКУ ТИПА Widestrig, ПЫТАЮСЬ ЕЕ КОНВЕРТИТЬ - ВЫДАЕТСЯ ОШИБКА: НЕСООТВЕТСТВИЕ ТИПОВ Widestring И Pansichar...

[vinni]

ADMIN, СПАСИБО, НО Я РАЗОБРАЛСЯ - НАШЕЛ НА ОДНОМ САЙТЕ СЛЕДУЮЩУЮ ПРОЦЕДУРУ:
function DosToWin(St: string): string;
var
Ch: PChar;
begin
Ch := StrAlloc(Length(St) + 1);
OemToAnsi(PChar(St), Ch);
Result := Ch;
StrDispose(Ch)
end;
ВСЕ АХ***** РАБОТАЕТ И ПРИВЕДЕНИЯ ТИПОВ НЕ ТРЕБА

Предупреждение за мат, на нашем форуме мат запрещен!