1.Mam aplikację konsolową napisaną w delphi ale nie ma polskich znaków, gdy pisze writeln('żółw'); wychodzi tekst zaszyfrowany :-8 . Jak sprawić aby w konsoli wyświetlały się polskie znaki ?
2.Jak zakończyć pracę aplikacji konsolowej napisanej w delphi ? Tylko nie mówcie że Close; :-D
Dzięki za ewentualną pomoc
Ad. 2: Halt
PS. Jakby to znalazł jakiś znawca ASMa: czy w Delphi zadziała święte :) "mov ax, 4C00h; int 21h"?
Ad.1.
Cóż - pisanie w writeln polskich znaków faktycznie daje krzaki, ale można użyć polecenia chr - zwraca znak o podanym numerze (z tablicy ASCII) np:
writeln(chr(190),chr(162),chr(136),'w');
da Ci w efekcie na ekranie napis żółw
Trochę kombinowania z tym jest, ale po jakimś czasie sobie przyswoisz numery polskich znaków.
PS. Jakby to znalazł jakiś znawca ASMa: czy w Delphi zadziała święte :) "mov ax, 4C00h; int 21h"?
Nie testowałem, ale Windows zależnie od wersji:
W sumie to bardziej jest kwestia trybu chronionego - ale nigdy się w to nie zagłębiałem :-P.
PS. Jakby to znalazł jakiś znawca ASMa: czy w Delphi zadziała święte :) "mov ax, 4C00h; int 21h"?
Zadziała wywalając:
"Exception EAccessViolation in module Project2.exe at 00007FD7.
Access violation at address 00407FD7 in module 'Project2.exe'. Read of address FFFFFFFF."
:)
Ale jakby nie patrzeć zakończy działanie :)
Ad.1.
Cóż - pisanie w writeln polskich znaków faktycznie daje krzaki, ale można użyć polecenia chr - zwraca znak o podanym numerze (z tablicy ASCII) np:
writeln(chr(190),chr(162),chr(136),'w');
da Ci w efekcie na ekranie napis żółwTrochę kombinowania z tym jest, ale po jakimś czasie sobie przyswoisz numery polskich znaków.
Można też napisac procedurke do zamieniania tekstu na kody ASCII. I nie trzeba się będzie uczyć na pamięć.
Do pytania nr 1:
<delphi>
program CharOem;
{$APPTYPE CONSOLE}
uses
Windows;
const
Elephant: String = 'Słoń';
begin
CharToOem(PChar(Elephant), PChar(Elephant)); // Znormalizowanie tekstu
Write(Elephant);
Readln;
end.
<delphi>
Program wydrukuje na konsoli bezkrzaczkowy tekst 'Słoń'.