My Win10 is setup for Greek codepage, even for programs that don't use Unicode, but the expresion writeln(TextInGreek)
prints foreign characters.
Following is a reproducable example:
program Project5;
{$APPTYPE CONSOLE}
var errorMes : string;
begin
errorMes := 'αβγδεζηθικλμνξοπρστυφχψω';
writeln(errorMes); // I receive 'άέήϊίόύϋώΆΈΉΊΌΎΏ±≤ΪΫ÷≈°∙'
readln;
end.
I searched many posts about this, but I didn't find something useful for me.
PS. No success with all bellow sugestions in both Delphi 2007 & 2010