Почему моя программа лучше))

[onewho]

Ваш <...> - говно, вы ничего не понимаете в <...> (с) Лебедев
без обид просто фраза подходящая

[phomm]

"сказал А, говори и Б" © народная мудрость

Если коммент onewho относится к моему решению проблемы перевода анси в оем, то будьте добры, разъясните почему оно плохое , аргументируйте, я поучусь, а голословно говорить как-то не по-взрослому

[Serge_Bliznykov]

прежде всего, хочу сказать, что я не разделяю мнение onewho

но мне гораздо больше нравится такой вариант перевода Ansi Oem:

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

да и вообще, к данной теме предложенный вариант убрать транслит НИКАКОГО ОТНОШЕНИЯ НЕ ИМЕЕТ.
Ибо программа для TurboPascal и нет там никакого Ansi!
т.е. там достаточно:

   WriteLn('Введите число: ');

Но это будет работать, только если Винда русская или MS DOS окно руссифицировано!

[onewho]

ребят, фраза не относилась ни к кому конкретно!
phomm, я ваш модуль вообще не качал )

Мое отношение к русскому языку в написании программ такое : просто его не использовать