ASCII в ANSI

[JRcoker]

Короче тема такая,общаюсь я тут через TEdit С консолью получаю ответ от консоли в Memo сам ответ - GetDosOutput(Edit1.Text)...Только вот выглядит это не как ответ а как белиберда...Может у каво есть функция перевода ASCII строки в ANSI строку?...

[Arigato]

ASCII - это стандарт однобайтового кодирования символов, в котором прописаны все символы с кодами от 32 до 127. Национальные буквы имеют коды более 127 и в стандарте ASCII не оговариваются.
Так из какой в какую кодировку требуется перекодировать?

[JRcoker]

Из ASCII в ANSI...

[Minimus]

Скорее всего тебе надо OEM->ANSI

The OemToChar function translates a string from the OEM-defined character set into either an ANSI or a wide-character string. (OEM stands for original equipment manufacturer.) This function supersedes the OemToAnsi function.

BOOL OemToChar(

LPCSTR lpszSrc, // pointer to string to translate
LPTSTR lpszDst // pointer to buffer for translated string
);


Parameters

lpszSrc

Points to a null-terminated string of characters from the OEM-defined character set.

lpszDst

Points to the buffer for the translated string. If the OemToChar function is being used as an ANSI function, the string can be translated in place by setting the lpszDst parameter to the same address as the lpszSrc parameter. This cannot be done if OemToChar is being used as a wide-character function.



Return Values

The return value is always nonzero.

See Also

[_Dmitry]

//Перекодировка ANSI->OEM
function ConvertAnsiToOem(const S: string): string;
begin
  SetLength(Result,Length(S));
  if Length(Result) > 0 then AnsiToOem(PChar(S),PChar(Result));
end; //ConvertAnsiToOem

//Перекодировка OEM->ANSI
function ConvertOemToAnsi(const S: string): string;
begin
  SetLength(Result,Length(S));
  if Length(Result) > 0 then OemToAnsi(PChar(S),PChar(Result));
end; //ConvertOemToAnsi

[JRcoker]

Благодарю за помощь...