Pascal - výpis písmen s diakritikou – Pascal – Fórum – Programujte.com

Ahojte,potreboval by som pomoct ako vypísať písmenka do konzoly s makcenom alebo dlznom? namiesto nich mi vypisuje rozne znaky .vďaka :-)

Napiš v příkazovém řádku příkaz "chcp" a nastav kódování souboru v editoru na stejnou hodnotu.

Není to úplně nejčistší, ale bude ti to stačit.

Keď to prekopírujem inde a spustím to tam,budem musieť použiť tento postup aj tam?

Jo, musel bys zase sladit to kódování, pokud bude jiné. To zase jde příkazem chcp.

Trochu jsem si s tím hrál a ony se ty stringy konvertují, ale nějak divně a asi to při výpisu ignoruje kódování konzole. Nepřišel jsem na nic lepšího, než změnit kódování konzole na kódování, ve kterém se to do ní vypisuje. Plus ještě direktivu codepage podle nastaveného kódování zdrojáku. Takže mně funguje toto:

{$codepage utf8}
...
uses
  ..., windows;

Const
  LF_FACESIZE = 32;

Type
  CONSOLE_FONT_INFOEX = record
    cbSize     : ULONG;
    nFont      : DWORD;
    dwFontSize : COORD;
    FontFamily : UINT;
    FontWeight : UINT;
    FaceName   : array [0..LF_FACESIZE-1] of WCHAR;
  end;

function SetCurrentConsoleFontEx(hConsoleOutput: HANDLE; bMaximumWindow: BOOL; var CONSOLE_FONT_INFOEX): BOOL; stdcall; external kernel32;

procedure FixConsole;
var
  font: CONSOLE_FONT_INFOEX;
begin
  SetConsoleOutputCP(DefaultSystemCodePage);
  SetTextCodePage(Output, DefaultSystemCodePage);

  FillChar(font, SizeOf(CONSOLE_FONT_INFOEX), 0);
  font.cbSize := SizeOf(CONSOLE_FONT_INFOEX);
  font.FaceName := 'Consolas';
  font.FontWeight := 400;
  font.dwFontSize.Y := 16;
  SetCurrentConsoleFontEx(StdOutputHandle, False, font);
end;

begin
  FixConsole;

  writeln('nazdarěščřžýáíénazdar');
  ...
end.

Předpokládám teda, že je to Lazarus/Free Pascal na Windows.

Zaujímavé že mne to nefunguje :P 

Mohol by som ti poslať kód do nejakej správy že či som to dobre implementoval,pretože nemám čistý program a nechcem to tu zverejnovať lebo to je troška dlhšie :-)