| Код | // -----------------------------------------------------------------
function Ansi2OEM(const S : string) : string;
// Конвертирует строку из кодировки Windows в DOS кодировку
begin
SetLength(Result,Length(S));
if Length(S) <> 0 then
CharToOem(pChar(S),pChar(Result));
end;
// -----------------------------------------------------------------
function OEM2Ansi(const S : string) : string;
// Конвертирует строку из кодировки DOS в Windows кодировку
begin
SetLength(Result,Length(S));
if Length(S) <> 0 then
OemToChar(pChar(S),pChar(Result));
end;
// ----------------------------------------------------------------- |
|
)
, а очень надо!!! Подскажите, может есть какие нить настройки, или как сдесь быть, я только начал программировать и пока только в этой консоле начинаю!!! Помогите плиз...