» Poradna » Programy

Jak je v pascalu znak noveho radku?

Odpovědět  |  Zobrazit bez stromu  |  Upozornit redakci  |  nových odpovědí: 6/6
 |   |   |  [81.0.194.---]

dobry den,
jsem nucen neco naprogramovat v pasvalu a potrebuji napsat podminku, ktera otestuje, zda je v promenne radek retezec 'vrt[NOVY_RADEK]'

Jak tam mam nacpat ten novy radek? ani jedno z nasledujiciho mi nefunguje a nechapu proc.

pos('vrt\n', radek)<>0
pos('vrt'+#10, radek)<>0

diky moc

Odpovědi na otázku

 |   |   |  [84.42.139.---]

nový řádek v linuxu je #10, ale ve widlích a DOSU #13#10, neboli Chr(13) + Chr(10)

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   |   |  [81.0.194.---]

ale to mi prave nefunguje..

Jsem na linuxu. Proc mi treba tohle vypise FALSE?

radek:='textvrt'+#10+'text';
writeln(pos('vr t'+#10, radek)<>0);

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   |   |  [81.0.194.---]

tak nic tohle zrovna vypise TRUE

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   |   |  [81.0.194.---]

Nefunguje to jenom kdyz ten retezec nactu ze souboru...

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   | 

Když to načteš ze souboru, tak se tyto znaky (CR/LF) zežerou systémem a nepředávají se ti do proměnné. Předpokládám, že to nečteč binárně.

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   |   |  [212.158.157.---]

Mozna by bylo spravneji konec radku (i kdyz to de facto znamena novy radek)... Puvod to ma v davnych dobach, kdy tiskarny EPSON ke znaku "konec radku" - Chr(10) generovaly automaticky znak "navrat voziku" Chr(13), kdezto tiskarny IBM znak Chr(13) potrebovaly obdrzet z pocitace.

Souhlasím  |  Nesouhlasím  |  Odpovědět

Související témata: Znak



Určitě si přečtěte


Tesla chce změnit nákladní dopravu. Její elektrický náklaďák má ohromující parametry

Tesla chce změnit nákladní dopravu. Její elektrický náklaďák má ohromující parametry

** Tesla představila elektrický kamion ** Má obdivuhodný výkon i dojezd ** Prodávat by se měl už za dva roky

17.  11.  2017 | Vojtěch Malý | 226

Nejlepší notebooky do 10 tisíc, které si teď můžete koupit

Nejlepší notebooky do 10 tisíc, které si teď můžete koupit

** I pod hranicí desíti tisíc korun existují dobře použitelné notebooky ** Mohou plnit roli pracovního stroje i zařízení pro zábavu ** Nejlevnější použitelný notebook koupíte za pět a půl tisíce

16.  11.  2017 | Stanislav Janů | 53

Do 20 let nebude nikdo vlastnit auta, říká zkušený šéf několika automobilek

Do 20 let nebude nikdo vlastnit auta, říká zkušený šéf několika automobilek

** Bývalý šéf a expert z několika velkých automobilek se vyjádřil k budoucnosti tohoto průmyslu ** Do 20 let „nikdo“ nebude vlastnit auta ** Veškerá doprava bude řešená pomocí velkých logistických platforem

15.  11.  2017 | Karel Javůrek | 74


Aktuální číslo časopisu Computer

Otestovali jsme 5 HDR 4K televizorů

Jak natáčet video zrcadlovkou

Vytvořte si chytrou domácnost

Radíme s koupí počítačového zdroje