Lazarus - diakritika

expoox · Napísal **expoox**: 31.12.2013 11:03

Zdravim, mame za ulohu v skole zrobit ako projekt neaku hru, ja som dostal osemsmerovku lenze mam tu jeden problem cez ktory sa neviem pohnut. Zadanie (teda pismenka) mam citat zo suboru lenze mi nechce precitat pismenka s diakritikou a vypisuje to miesto nich neviditelne znaky. Potreboval by som vediet ako nacitavat diakritiku z textoveho suboru, dakujem

BX · Napísal BX: 01.01.2014 14:26

A robíš to v konzolovom, alebo okienkovom prostredí? Ako načítavaš súbor? V akom kódovaní je súbor?

F3RY · Napísal **F3RY**: 01.01.2014 14:49

http://lmgtfy.com/?q=delphi+diakritika+txt :-)

expoox · Napísal autor témy **expoox**: 01.01.2014 17:26

robim to v okienkovom prostredi, citacia cast kodu vyzera takto http://paste.debian.net/hidden/6daebf7a/, a subor je normalny textac pisany v notepade

skusil som tam funkciu UTF8Decode ale ta pomohla akurat v tom ze teraz mi nevykresluje prazdne znaky ale otazniky

BX · Napísal BX: 01.01.2014 19:19

A si si istý, že aj samotný súbor je uložený v kódovaní utf8?

expoox · Napísal autor témy **expoox**: 01.01.2014 19:27

tak to neviem, ako to zistim ?

//EDIT: ok stiahol som si notepad++ a nastavil nech mi to do utf8 ale ziadna zmena... mam pocit ze to bude tym ze precitat to mozno lazarus vie ale vypisat uz nie

BX · Napísal BX: 02.01.2014 9:31

Tak skús inak načítavať, tomu assign veľmi neverím.
Našiel som toto, mohlo by to fungovať. Keď nie, tak skús ešte trochu pogoogliť

Kód:

var
  Strings: TStringList;
begin
  Strings := TStringList.Create;
  Strings.LoadFromFile(AInputFileName);
  Strings.Text := UTF8Decode(Strings.Text);
     .... tady by to melo byt
  Strings.Free;
end;

Lazarus - diakritika

Podobné témy