Anonymní profil marlog – Programujte.com

Kolik je přimeřený měsíční tarif za spravování systému založeném na Drupalu? (Copywriting, kontrola funkčnosti, přidávání obsahu, zálohování, úprava chybných informací vložených uživateli atd.)?

Díky

dobre, tak problem jsem vyresil, do chdir se asi nemuze zadat posledni lomitko cesty.
ale i takj je to divne, ze pred tim to chodil vporadk ua ted zniceho nic uz ne.

sice to nepatri k tomuto problemu, ale chtel jsme se zeptat, zda procedura chdir potrebuje nejake specialni prava, nebo tak neco, pro zmenu adresare. Protoze mi prestal doslova ze dne na den fungovat, ted mi kvuli tomu pada cely program.
diky za odpoved

to KIIV: no ja bych rekl ze tim vytvoris pametove misto, ktere obsahuje ukazatel na napr. cPole
ale s tim var mas asi pravdu, jsem myslel, ze to pujde tak, ale pomoci varu by to melo slapat taky

to jozo0025: ja k nim pristupuji pomoci metod ;)

diky vsem za odpovedi, vyresil jsme to tim VARem
kdyby byl jeste problem tak napisu sem :) jakoze myslim, ze i bude :D

Zdravim, mel bych takovy jeden problem:

   type cGraf=object

                private

                  Graph:tGraf;

                  pole:^cPole;

                  text:^cSoubor;

                public

                  constructor Init;

                  procedure VytvorGraf;

                  destructor Done;

                end; {cGraf}

KIIV napsal:
no jeste sem tam psal poznamku o tom ze pascal neni tak benevolentni jako C a znak bere jako znak a ne jako cislo (ikdyz formalne to cislo je) no a samozrejme prevod znaku na cislo umi funkce ord()
takze bud length(radek) nebo ord(radek[0]) ale tezko rict co je rychlejsi

to KIIV: krasne napsane, ale mel bychpar dotazu ten radek[0] je to same jako length(radek)? protoze mi to nejak nechce vzit pise mi to type mismatch. kdyz t oale nahradim length(radek), tak to jede.
ale zaznamenal jsem problem a to sice, ze mi ten cyklsd for cykluje do nekonecna, pokud to najde v retezci male pismeno (nejak to nemuze vyskocit ven pomoci i:=length(radek)+1;).

to Laaca: tva verze je skvela dekuji !! :smile2:

KIIV napsal:
znS:=copy(radek,i,1); // kopirujes jeden znak z retezce radku ktery si nacetl mimo tento cyklus
// mimochodem staci radek[i] a mas to same

KIIV napsal:
naprosto nechapu o co se sakra v tom programu snazis...
rozepis kazdej prikaz co ma delat

caute profici,
mam na vas takovy primitivni odtaz:
potrebuji udelat podprogram na kontrolu písmen v txt souboru. Potrebuji, aby neprosly znaky jine nez jsou #65 (A) az #90 (Z) a #32 (mezera), cili pokud se bude v txt souboru nachazet znak a -> true, ! ->true, mezera -> false, M -> false.
napsal jsem tohle, ale nejak to nejede korektne (hlavne mi to neveme, kdyz je 1. radek prazdny a potom pokud dojede na konec radku, tak ho neprepise na dalsi)

function VelkeMale(jms:string):boolean;

  var radek,zns:string;

      zn:char;

      vm:boolean;

      i:word;

  begin

    assign(jls,jms);

    reset(jls);

    VM:=false;

    while not eof(jls) or not VM do begin

      readln(jls,radek);

      i:=1;

      while not eoln(jls) or not VM do begin

          znS:=copy(radek,i,1);

          if ((ZnS>='A') and (ZnS<='Z')) or (ZnS=' ') then

            i:=i+1

            else

              VM:=true

          end

      end;

    velkemale:=VM;

    close(jls)

   end; {VelkeMale}