Anonymní profil Marlog – Programujte.com
 x   TIP: Přetáhni ikonu na hlavní panel pro připnutí webu

Anonymní profil Marlog – Programujte.comAnonymní profil Marlog – Programujte.com

 

Příspěvky odeslané z IP adresy 212.111.4.–

Webové servery (Apache, IIS...), .htaccess › Kolik si říct za správu syst…
25. 1. 2016   #208115

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

marlog
Pascal › Procházení adresářu a výpis
20. 3. 2010   #125588

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.

marlog
Pascal › Procházení adresářu a výpis
20. 3. 2010   #125586

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

marlog
Pascal › OOP zapouzdrenost
9. 1. 2010   #122502

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

marlog
Pascal › OOP zapouzdrenost
6. 1. 2010   #122366

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}


mam tuto deklaraci, cGraf, cPole, cSoubor jsou objekty. potrebuji s poslednimi dvema pracovat dynamicky a globalne, ale problem je ze mi kompilator hlasi v kodu (nejdrive u pole) Unknown identifier. tak jsme se chtel zeptat jak by mela tato deklarace vypadat, aby byl obejkt cGraf funkcni.

dik moc

Marlog
Pascal › Kontrola pismen v txt souboru
13. 11. 2008   #89652

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


aha diky moc za pomoc obema !! uz to beha :smile2:

Marlog
Pascal › Kontrola pismen v txt souboru
13. 11. 2008   #89633

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:

Marlog
Pascal › Kontrola pismen v txt souboru
12. 11. 2008   #89600

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


takze zns:=radek[i] ?

mel jsem jeste nekolik verzi
while (radek<>'') or not VM do begin
znS:=copy(radek,1,1);
delete(radek,1,1);
if ((ZnS>='A') and (ZnS<='Z')) or (ZnS=' ') then

ale taky mi to nejelo. jak by jsi to ted upravil? (nejak jednoduse pls)

Marlog
Pascal › Kontrola pismen v txt souboru
12. 11. 2008   #89591

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


:smile11:
vazne prikaz po prikazu?
.
.
.
pokud neni konec souboru nebo je VM false tak provadej
nacti radek
i prirad 1
pokud neni konec radku nebo je VM false tak provadej
znakS prirad znak z radku
jestlize je znakS >=A a soucasne znakS <=Z, nebo znakS= mezera tak
posun i o jeden
nebo
v radku se nachazi nepovoleny znak (VM:=true)
.
.
.

Marlog
Pascal › Kontrola pismen v txt souboru
12. 11. 2008   #89583

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}

 

 

Hostujeme u Českého hostingu       ISSN 1801-1586       ⇡ Nahoru Webtea.cz logo © 20032018 Programujte.com
Zasadilo a pěstuje Webtea.cz, šéfredaktor Lukáš Churý