Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
DateTime
[*] Robert Suska <SuskaR(zv)seznam(tec)cz> - 3.4.2003 21:03:50
Ahojte!
Mam nasledujuci urcite trivialny problem potrebujem porovnat toto
if now = StrToDateTime('3.4.2003 20:50:55') then
ShowMessage('ok')
Skusal som to aj takto
Var
ADateTime: TDateTime;
Begin
ADateTime:= StrToDateTime('3.4.2003 20:50:55');
if now = ADateTime then ...
End;
Napisal som to tak preto lebo v helpe je taky zapis ze nerobi hned
porovnanie if now = StrToDateTime ale pouziva premennu typu TDateTime ale
nic.
Ale ono sa to proste proste provna ale ked pride ten datum a cas ktory je v
systeme cize now tak sa mi nezobrazi ShowMessage a tento kod mam v TTimer a
je nastaveny na 1000 ms
Dakujem za odpoved
Robo
****************************************
Robert Suska
KORAK SLOVAKIA s.r.o.
Horna 52
974 01 Banska Bystrica
www.korak.sk robert(zv)korak.sk
Network administrator, Delphi programmer
My site: www.sefino.globus.sk
****************************************
DateTime
[*] Robert Suska <SuskaR(zv)seznam(tec)cz> - 3.4.2003 21:02:38
Ahojte!
Mam nasledujuci urcite trivialny problem potrebujem porovnat toto
if now = StrToDateTime('3.4.2003 20:50:55') then
ShowMessage('ok')
Skusal som to aj takto
Var
ADateTime: TDateTime;
Begin
ADateTime:= StrToDateTime('3.4.2003 20:50:55');
if now = ADateTime then ...
End;
Napisal som to tak preto lebo v helpe je taky zapis ze nerobi hned
porovnanie if now = StrToDateTime ale pouziva premennu typu TDateTime ale
nic.
Ale ono sa to proste proste provna ale ked pride ten datum a cas ktory je v
systeme cize now tak sa mi nezobrazi ShowMessage a tento kod mam v TTimer a
je nastaveny na 1000 ms
Dakujem za odpoved
Robo
****************************************
Robert Suska
KORAK SLOVAKIA s.r.o.
Horna 52
974 01 Banska Bystrica
www.korak.sk robert(zv)korak.sk
Network administrator, Delphi programmer
My site: www.sefino.globus.sk
****************************************
Promazani TStringLIst
[*] Erik Salaj <info(zv)winsoft.sk> - 03.4.2003 17:10:03
> Tak=BEe jak je to s t=ECmi cykly: Existuje zcela obecn=FD cyklus s =
0 a=BE N
> podm=EDnkami. Takov=FD cyklus maj=ED nap=F8=EDklad jazyky Ada 95 ne=
bo Flex
>
> P=F8=EDklad v Ad=EC:
> loop
> ...
> exit when <podm=EDnka>;
> ...
> exit when <podm=EDnka>;
> ...
> end loop;
nepaci sa mi to, exit je len "vylepsene" goto
> Cykly pak mohou vypadat nap=F8=EDklad takto (Flex):
>
> for i in 1..10 loop -- iterovat v p=F8=EDm=E9m po=
=F8ad=ED
>
> for i in reverse 1..10 loop -- iterovat v opa=E8n=E9m po=
=F8ad=ED
>
> for i in concurrent 1..10 loop -- iterovat dle libov=F9le p=
=F8eklada=E8e
pozor, concurrent obvykle znamena paralelne vykonavanie
a nie sekvencne vykonavanie v lubovolnom poradi. Okrem toho
si myslim, ze optimalne poradie by mal urcovat kompilator
a nie programator.
Vsetky tieto povymyslane konstrukcie riesi Eiffel jedinym cyklom,
ktory umoznuje automaticky skontrolovat, ci nie je cyklus chybne
naprogramovany:
from
-- inicializacne prikazy cyklu
variant
-- volitelna kontrola ukoncenia cyklu
invariant
-- volitelna kontrola invariantu cyklu
until
-- podmienka ukoncenia cyklu
loop
-- opakujuce sa prikazy
end
napriklad jednoducha iteracia zoznamom:
from
list.start
until
list.end
loop
....
list.next
end
Erik
REPEAT-UNTIL (was: Promazani TStringLIst)
[*] Erik Salaj <info(zv)winsoft.sk> - 03.4.2003 17:03:56
> IMHO principy strukturovaneho programovani hned tak
> out-of-date nebudou, bez ohledu na to, ze byly formulovany na pocatku
> 70-tych let.
niektore principy, napr. strukturovanie procedur (t.j. vnaranie procedur
a funkcii) su v protiklade s modularitou a reusabilitou a preto sa uz
dnes nepovazuju za vyhodne. Takisto zoskupovanie casti programu
podla syntaxe (najprv konstanty, potom premenne, atd.) sa ukazalo
ako nespravne chapanie "poriadku" v programe a presadilo
sa zoskupovanie casti podla logickych vezieb. Problemy boli
aj so syntaxou strukturovanch prikazov, atd. Top-down design
sa uz takisto nepreferuje. Dnes uz je naozaj programovanie niekde
uplne inde ako v 70-tych rokoch a zdaleko nie vsetko, co platilo
stale plati.
> To, ze nektere programovaci jazyky nabizeji nejake konstrukce, neznamena,
ze
> se maji pouzivat, nic to nevypovida o terii algoritmizace a uz vubec nic
> o teorii navrhu programu...
>
> S konstrukci repeat-until je to obdobne jako
> s prikazem skoku: rada jazyku ho podporuje,
> presto se obecne nedoporucuje ho pouzivat
> kvuli nachylnosti k chybam.
nemyslim si to, repeat cyklus je nieco ine ako goto.
Ak je to mozne, uved nejake linky na dokumenty,
kde sa nedoporucuje pouzivat repeat, rad by som
sa dozvedel PRECO by mal byt nachylny k chybam.
> No prave: konstrukce repeat-until takovym cyklem neni, protoze je to v
> podstate posloupnost prikazu
> a obecneho cyklu s timto prikazem v tele.
kazdy cyklus je v podstate cyklus, akurat moze byt rozne realizovany
(typicky je to s goto, t.j. JUMP instrukciou - to ale vobec neznamena,
ze cyklus je v principe goto).
> Pokud programatori pisi algoritmus rovnou, tak delavaji typickou chybu,
> kterou predvedl autor puvodniho prispevku (je zajimave, ze programatori
> v C cyklus DO-WHILE nepouzivaji tak casto, jako programatori REPEAT-UNTIL
v
> Pascalu).
to by som netvrdil
> A ze jsem takovych paskvilu za 25 let praxe videl
> - proto jsem tu pripomel zaklady struktrovaneho programovani, protoze
> zpravidla pohodlnost/lenost/hloupost programatora pri psani prvotniho kodu
> postihuje neblaze projekt v celem jeho dalsim zivotnim cyklu a proto se
> vyplati uplatnovat pri vyvoji takove techniky, ktere snizuji
pravdepodobnost
> vzniku chyb a zlepsuji udrzovatelnost kodu.
tie techniky musia mat predovsetkym zmysel - logicke zdovodnenie naco su;
co, ako a preco riesia a neriesia. Ten zmysel je dokonca daleko dolezitejsi
ako tie techniky samotne.
Erik
OT: REPEAT-UNTIL (was: Promazani TStringLIst)
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 3.4.2003 19:15:28
From: "Ond�ej Tu�n�" <tucny(zv)alsoft(tec)cz>
> Z�ejm� jsi nepochopil moji pozn�mku
> o obecn�m cyklu s N podm�nkami.
[...]
> Zjist�, �e jsi dostal krystalicky �istou iteraci
> a selekce. Skaln� teoretik mus� slintat blahem.
No to nevim, protoze jsi opomel na jednu takovou malickost, jakou jsou skoky
vne cyklu, bez kterych to nikdy z elementarnich operaci neslozis (jedine
znacne neefektivne
s uzitim pomocnych promennych),
ale to uz by ten teoretik asi neslintal ;-)
To chapal samozrejme uz pred 30 lety i Tebou opovrhovany M.A. Jackson, takze
soucasti
JSP jsou tzv. positivni iterace a positivni selekce,
coz jsou nastroje pro implementaci backtrackingu, ktere umoznuji
kontrolovane vyskocit nejen vne cyklu,
ale take do vetve ADMIT kterekoliv nadrizene selekce.
Proto bych zde zustal u tradicniho nazvoslovi
a nenazyval to obecnym cyklem s N podminkami,
ale technikou predcasneho opusteni/ukonceni cyklu, ktera nema nic spolecneho
s konkretnim iteracnim schematem.
> Jak�m zp�sobem je pros�m t� repeat..until n�chyln�
> k chyb�m?
Tim, ze to neni cyklus ;-)
(nize jsem se snazil ozrejmit to na struktogramu)
Podstata zvysene chybovosti spociva v absenci
side-effectu, ktery ma iteracni schema
vedle vlastniho rizeni poctu pruchodu cyklem:
[ridici] promenne v iteracnim schematu se zpravidla vyskytuji take v tele
cyklu a tim iteracni schema prirozene kontroluje obory platnosti jejich
hodnot.
Ne vzdy to byva tak trivialni jako s dereferenci neexistujici polozky
seznamu v nasem pripade.> until <podm�nka> loop
> ...
> end loop;
>
> ?? Syntaktick� z�pis nem� nic spole�n�ho
> s minim�ln�m po�tem iterac� cyklu
> a okam�ikem, kdy se vyhodnocuje podm�nka.
Hypoteticky mas pravdu, ale prakticky by byla
silenost zcela oddelit syntaxi od semantiky
a taky se to nedela. Mit takovyhle zapis pro
podminku, ktera se vyhodnocuje az po prvnim pruchodu cyklem, to bych uz byl
asi z programatoru davno
v Bohnicich :-)> Cht�l jsi ��ct napravit nedostatek tv�ho
> kresl�tka a p�ev�st:
Ne, nechtel. Samozrejme ze by nebyl problem zavest nejakou specialni znacku
pro konstrukci REPEAT-UNTIL stejne jako jsi obratil naruby syntaxi.
Ovsem vsechny me zname metody strukturovaneho navrhu vychazeji ze
struktogramu, ktere jsou reprezentovany nejakym hierarchickym grafem, at uz
je to Jackson,
Warnier-Orr atd.
Zkusim namalovat fragment takoveho struktogramu
neproporcionalnim pismem:
------------
Hn+1 [ prikaz ]
------------
!
-----------*
Hn [ iterace ]
------------
!
------------
Hn-1 [ telo ]
------------
V teto strukture je telo v hierarchi Hn-1 podrizenym
prvkem iterace resp. iteracniho schematu na urovni Hn.
To odpovida cyklum FOR / WHILE s testem na zacatku.
Vezmeme-li pripad konstrukce REPEAT-UNTIL, tak jeji
struktogram vypada takto: ------------
Hn+1 [ prikaz ]
------------
!
-------------
/ \
------------ -----------*
Hn [ telo ] [ iterace ]
------------ ------------
!
------------
Hn-1 [ telo ]
------------
tohle jasne dokumentuje ten zdroj chyb: telo je rozbito na dve casti z nichz
jedna je na stejne hierarchicke urovni jako vlastni iterace tj. je na ni
nezavisla !!!
Cili duvod, proc AFAIK nastroje Case nepodporuji konstrukci REPEAT-UNTIL je,
ze pokud analytik potrebuje definovat operaci na
stejne hierarchicke urovni Hn, ktera se ma vykonat vzdy pred cyklem resp.
pred testem podminky,
prirozene ze ji zapise explicitne vne cyklu
a nebude ji schovavat do nejake zahadne znacky.
(uz jenom proto, ze pouziva nejakou metodiku, pomoci ktere popisuje napr.
sekvencni soubor). Casto totiz ani neni v dobe navrhu jasne, ze operace pred
cyklem
a uvnitr cyklu jsou zcela totozne.
> Potom ov�em neum� po��dn� programovat
> resp. navrhovat software, co�
> naprosto nesouvis� s teori� cykl�.
A kdo umi? Cela SW fyzika je prece predevsim
o teoriich/empiriich pri tvorbe SW a o tom, jak zefektivnit tento proces a
ne o teorii cyklu a IMHO pro zdarny zivotni cyklus SW je take mnohem, mnohem
dulezitejsi.
Ostatne, ja celou dobu predpokladam, ze se bavime
o nachylnosti k chybam u programatoru ve vazbe na vlastnosti konstrukce
REPEAT-UNTIL, ktera je
z nejakych pohnutek programatorum v Pascalu blizsi
nez WHILE a tak ji nespravne naduzivaji - alespon
v tomto duchu jsem inicializoval tuto diskuzi,
protoze na teorii cyklu neni v podstate nic zajimaveho ;-)
HTH, pf
P.S.
Tak to uz je snad opravdu uplne vsechno,
co se k danemu tematu da napsat.
Priste uz bych nejspis musel zacit s korespondencnim kurzem strukturovaneho
programovani ;-)
HWND konzolove aplikace
[*] Petr Varga <djvar(zv)post(tec)cz> - 03.4.2003 18:56:12
No tak jak jsem se te=EF pod=EDval tak t=F8=EDda okna pro konzolov=E9
aplikace je ConsoleWindowClass. A to pro cel=E9 okno..
Tak douf=E1m =BEe ti to pom=F9=BEe. Petr
--=20
Ziskejte kvalitu, kterou si zasluhujete. Za minimalni mesicni
poplatek vam nabizime Antivir, Antispam nebo dalsi kapacitu pro
vas Mailbox. Vice na: http://sluzby.volny(tec)cz/product/postpaid/
IB_SQL
[*] Marek Spisak <spishark(zv)post(tec)cz> - 03.4.2003 17:58:31
Ahoj,
> pro praci s IB/FB (pri ladeni DB) pouzivam jiz delsi dobu IB_SQL
> (http://www.ibobjects.com/ibo_ib_sql.html). Jsem s nim vcelku spokojeny, ale
> obcas se nejake ty chybicky vyskytnou a tak hledam jeste neco jineho. Nevite
> o necem podobnem?
IBexpert (www.ibexpert.com) viz paralelni sprava Mirka Junka je opravdu
dobry nastroj, srovnatelny s nim je take EMS IBManager (puvodne se
jmenoval QuickDesk) na http://ems-hitech.com/ibmanager/ vice informaci o
jejich posledni verzi lze najit zde
http://www.ems-hitech.com/ibmanager/news.phtml?id=312
Marek
COM port jako klavesnice
[*] Peter Ondras <peter.ondras(zv)pse.sk> - 3.4.2003 17:34:10
//nasimuluje stlacenie lavej klavesy Win
KeyBd_Event(VK_LWIN, 0, 0, 0);
//nasimuluje pustenie lavej klavesy Win
KeyBd_Event(VK_LWIN, 0, KEYEVENTF_KEYUP, 0);
Toto je priklad z mojho programu, kde mam tlacitko start, ktore ma
rozbalit Windows Start menu a na to simulujem stlacenie klavesy Lavy
Win. Ty pouzi rovnake prikazy, len namiesto VK_LWIN tam postupne zadavaj
jednotlive znaky textu, ktore ti pridu z COM portu. To urobis cyklom
for i:=1 to Length(Moj_Text) do
begin
Moj_Text[i];
.......
(*Namiesto tych bodiek pouzi kbeventy a kod "Moj_text[i]" este musis
pretransformovat na znak. Teraz si v rychlosti nespomeniem cim sa to
robi, ale myslim ze CHR, CHAR, ORD alebo nieco podobne. Zadaj v Delphi
jeden z tych prikazov a viac uz ziskas z helpu.*)
end;
>: -----Original Message-----
>: From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]
On
>: Behalf Of Ivan Virag
>: Sent: Thursday, April 03, 2003 11:23 AM
>: To: delphi-l(zv)clexpert(tec)cz
>: Subject: COM port jako klavesnice
>:
>: Zdravim
>:
>: Potrebuji cist stringy z COM portu (to umim) a posilat je
>: windowsum, jakoby to bylo z klavesnice. Vi nekdo jak na to? Dekuji.
>:
>: Ivan Virag
---
avast! Antivirus: Odchadzajuca sprava cista.
Virova databaza (VPS): 1. 4. 2003
Testovane: 3. 4. 2003 17:34:07
avast! (c) copyright 2000-2003 ALWIL Software.
http://www.avast.com
IB_SQL
[*] Mirek Junek <mirek.junek(zv)worldonline(tec)cz> - 3.4.2003 16:51:24
www.ibexpert.com - personal edition je free (a umi toho spoustu), plna verze
je 200 Euro a je to licence na jeden pocitac + 1 domaci (nebo notebook)
Mirek
>
> pro praci s IB/FB (pri ladeni DB) pouzivam jiz delsi dobu IB_SQL
> (http://www.ibobjects.com/ibo_ib_sql.html). Jsem s nim vcelku spokojeny,
ale
> obcas se nejake ty chybicky vyskytnou a tak hledam jeste neco jineho.
Nevite
> o necem podobnem?
>
> Diky, Honza.
>
dva formulare
[*] Petr Brant <brant(zv)dcomm(tec)cz> - 3.4.2003 16:47:33
Muzes si ve FrmB udelat property KaDaoTableA a po vzniku FrmB do ni =
priradis
skutecnou hodnotu z FrmA.
Napr. ve FrmB.Pas:=20
private=20
FKaDaoTableA: TKaDaoTable ;
...
published
property KaDaoTableA: TKaDaoTable read FKaDaoTableA write =
FKaDaoTableA ;
(nedelam s tim, takze typ TKaDaoTable jen odhaduji)
a pak ve FrmA.pas muzes psat FrmB.KaDaoTableA:=3D KaDaoTableA; apod.
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]=20
http://web.redbox(tec)cz/petr.brant
D&COMM s.r.o.
Korunova=E8n=ED 6
Praha 7
tel. +420724007234
Mam formular FrmA. Pri urcite udalosti je vytvoren formular FrmB [
Application.CreateForm(TFrmB, FrmB); ]. Na FrmA je umisteno =
KADaoDatabaseA a
KADaoTableA. Ve FrmB potrebuji pracovat s KADaoTableA. Vim, ze muzu =
pouzit
FrmA.KADaoTableA.xy, ale zajima mne, zda je mozne se k tomu dostat =
nejakym
jinym zpusobem, abych ve FrmB nemel natvrdo zadano jmeno jineho =
formulare.
dva formulare
[*] mstevlik(zv)gamo.sk - 3.4.2003 16:58:59
Prehod tu KADAOTable a KADAODatabase z FrmA na DataModulu a mozes k nemu
potom pristupovat z ktoreho kolvek formulara
Stevlik Marian
ISYS programator
GAMO a.s.
Kyjevske nam. 6
974 04 Banska Bystrica
mail: mstevlik(zv)gamo.sk
tel: +421 48 4137935, 4132942
mobil: +412 905 462010
OT: REPEAT-UNTIL (was: Promazani TStringLIst)
[*] Ond�ej Tu�n������'�������̿ - 3.4.2003 16:47:26
> Stejne tak prikaz skoku odpovida zasadam strukturovaneho
> programovani pokud:
> 1. se jedna o skok na konec bloku (PASCAL - Break),
Pozor, toto je skok ven z bloku resp. t�sn� za konec bloku.
> 2. skok na pocatek bloku (PASCAL - Conntinue),
Pozor, toto je skok na _konec_ bloku, co� efektivn� zp�sob� p�echod do
dal�� iterace cyklu (je-li n�jak�).
> 3. skok o uroven vyse ( PASCAL - Exit),
Resp. obecn�ji skok na konec podprogramu.
> 4. skok na nejvysi uroven ( PASCAL - Halt).
Pozor, v Pascalu (resp. v delphi) se halt nechov� jako skok na nejvy���
�rove� proto�e neprov�d� finally ��sti blok�.
> Modernejsi teorie (cca -10 let) prinesly jeste skok v pripade vyjimky.
--
Ond�ej Tu�n�
Flex 4.0 Personal Edition Beta 1 build 2 dostupn� na www.flexlanguage.com
dva formulare
[*] <delphik(zv)email(tec)cz> - 3.4.2003 16:36:07
Zdravim.
Mam nasledujici problem (alespon pro mne). Mam formular FrmA. Pri urcite =
udalosti je vytvoren formular FrmB [ Application.CreateForm(TFrmB, FrmB);=
]. Na FrmA je umisteno KADaoDatabaseA a KADaoTableA. Ve FrmB potrebuji p=
racovat s KADaoTableA. Vim, ze muzu pouzit FrmA.KADaoTableA.xy, ale zajim=
a mne, zda je mozne se k tomu dostat nejakym jinym zpusobem, abych ve Frm=
B nemel natvrdo zadano jmeno jineho formulare. Je neco takoveho mozne ???=
Delphik
_________________________________________________________________________=
_____
GTS Volba Plus umo=BE=F2uje telefonovat a surfovat na Internetu i V=E1m. =
Zaj=EDmaj=ED V=E1s podrobnosti ?
http://www.gts(tec)cz/czech/GTS_Volba_Plus.html
OT: REPEAT-UNTIL (was: Promazani TStringLIst)
[*] Martin Schayna <mschayna(zv)aktis(tec)cz> - 3.4.2003 16:50:58
----- Original Message -----
From: "Lstiburek Pavel" <Lstiburek(zv)ceb(tec)cz>
> Pravdou je, ze cyklus "repeat" je takovy ponekud divny a
> dela se v nem hodne chyb. Myslim si ale, ze zejmena proto,
> ze podminka pro ukonceni cyklu je opacna proti cyklum WHILE a FOR.
Ja nevim jak vy, ale mam na to takovou "mnemotechnickou"
pomucku: v obou pripadech (tedy v cyklu WHILE i REPEAT)
plati ze pokud je podminka splnena, beh programu pokracuje
bezprostredne po prikazu ve kterem je podminka uvedena:
WHILE podminka DO...; pokracuje pri splnene podmince vnitrkem
cyklu
REPEAT ... UNTIL podminka; pokracuje pri splnene podmince
za koncem cyklu
Cyklus REPEAT-UNTIL mi (mozna diky teto pomucce) nedela
problemy a pouzivam ho pokud mi pripada vhodny, mimochodem
ted jsem si udelal statistiku a v nasem rozsahlem projektu (skoro
milion radku kodu) a je zajimave ze cyklus WHILE je opravdu
mnohem "oblibenejsi" nez REPEAT, to vsak neni nic proti cyklu
FOR :-)))
- cyklus WHILE je pouzit 4323 krat
- cyklus REPEAT je pouzit 839 krat
- cyklus FOR 12479 krat(!)
To je asi tak vsechno co jsem chtel k cyklum rici
Martin Schayna
IB_SQL
[*] Jan Naiser <tua(zv)wo(tec)cz> - 3.4.2003 16:40:59
Preji pekny den,
pro praci s IB/FB (pri ladeni DB) pouzivam jiz delsi dobu IB_SQL
(http://www.ibobjects.com/ibo_ib_sql.html). Jsem s nim vcelku spokojeny, ale
obcas se nejake ty chybicky vyskytnou a tak hledam jeste neco jineho. Nevite
o necem podobnem?
Diky, Honza.
OT: REPEAT-UNTIL (was: Promazani TStringLIst)
[*] Ond�ej Tu�n������'�������̿ - 3.4.2003 16:13:23
>> Jak�m zp�sobem je pros�m t� repeat..until n�chyln� k chyb�m? Moje
>> osobn� zku�enost je takov�, �e kdy� jsem se p�ed n�jak�mi 12-13 lety
>> u�il programovat, tak mi *MNOHEM* v�t�� probl�my d�lal cyklus WHILE,
>> proto�e se v n�m typicky pou��v� NEGATIVN� podm�nka. Repeat..until je
>> z tohoto pohledu daleko pr�hledn�j�� konstrukce, proto�e kon��
>> pozitivn� podm�nkou.
> Nechci se vmichat do hlavniho proudu diskuse, ale tohle tvrzeni me celkem zaujalo.
> Mne totiz zase naopak pripada WHILE cyklus "pochopitelnejsi", protoze
> WHILE podminka do prikaz
> si muzu cesky rict Dokud je splnena podminka, opakuj prikaz. Podminka se tedy
> formuluje tak, aby jeji splneni znamenalo dalsi provedeni prikazu.
To ano, to m� pravdu, ale velmi �asto konstruuje� while cykly hledac�
povahy:
while <prvek existuje> and not <podm�nka_nalezen�> loop <dal�� prvek> end loop;
^^^ v tomto spat�uji tu negativitu podm�nky
V dob�, kdy jsem se u�il programovat, mi �asto d�laly probl�my pr�v�
takov�hle v�ci.
> Naopak u repeat until se uvadi podminka, pri jejimz splneni se cyklus ukonci. Pro me
> je ciste subjektivne prirozenejsi podminku formulovat tak, aby jeji splneni znamenalo
> dalsi iteraci a tomu bych rikal pozitivni, zatimco u repeat until se mi jevi jako
> negativni.
> Proto si myslim, ze tyto pojmy jsou relativni. Nebo existuje nejaka platna definice, co
> je u cyklu pozitivni a co negativni?
Ne, neexistuje, to jsem uva�oval jen m� osobn� ch�p�n�.
--
Ond�ej Tu�n�
Flex 4.0 Personal Edition Beta 1 build 2 dostupn� na www.flexlanguage.com
OT: REPEAT-UNTIL (was: Promazani TStringLIst)
[*] Lstiburek Pavel <Lstiburek(zv)ceb(tec)cz> - 3.4.2003 16:19:17
Ahoj, neda mi to se nezapojit,=20
kdysi jsem se ucil, ze zasadam strukturovaneho programovani odpovidaji ct=
yri
typy cyklu:
1. cyklus danym poctem opakovani (PASCAL - FOR ),
2. cyklus s testem na zacatku (PASCAL - WHILE ),
3. cyklus s testem na konci (PASCAL - REPEAT ),
4. cyklus testem uprostred ( -- ).
Stejne tak prikaz skoku odpovida zasadam strukturovaneho
programovani pokud:
1. se jedna o skok na konec bloku (PASCAL - Break),
2. skok na pocatek bloku (PASCAL - Conntinue),
3. skok o uroven vyse ( PASCAL - Exit),
4. skok na nejvysi uroven ( PASCAL - Halt).
Modernejsi teorie (cca -10 let) prinesly jeste skok v pripade vyjimky.
Pravdou je, ze cyklus "repeat" je takovy ponekud divny a=20
dela se v nem hodne chyb. Myslim si ale, ze zejmena proto,
ze podminka pro ukonceni cyklu je opacna proti cyklum WHILE a FOR.=20
Pavel
> From: Lebeda David [mailto:david.lebeda(zv)comarr(tec)cz]
> > Jak=FDm zp=F9sobem je pros=EDm t=EC repeat..until n=E1chyln=FD k chyb=
=E1m? Moje
> > osobn=ED zku=B9enost je takov=E1, =BEe kdy=BE jsem se p=F8ed n=ECjak=FD=
mi 12-13 lety
> > u=E8il programovat, tak mi *MNOHEM* v=ECt=B9=ED probl=E9my d=EClal cy=
klus WHILE,
> > proto=BEe se v n=ECm typicky pou=BE=EDv=E1 NEGATIVN=CD podm=EDnka.=20
> Repeat..until je
> > z tohoto pohledu daleko pr=F9hledn=ECj=B9=ED konstrukce, proto=BEe ko=
n=E8=ED
> > pozitivn=ED podm=EDnkou.
>=20
> Nechci se vmichat do hlavniho proudu diskuse, ale tohle=20
> tvrzeni me celkem zaujalo.=20
> Mne totiz zase naopak pripada WHILE cyklus "pochopitelnejsi", protoze
>=20
> WHILE podminka do prikaz
>=20
> si muzu cesky rict Dokud je splnena podminka, opakuj prikaz.=20
> Podminka se tedy=20
> formuluje tak, aby jeji splneni znamenalo dalsi provedeni prikazu.
>=20
> Naopak u repeat until se uvadi podminka, pri jejimz splneni=20
> se cyklus ukonci. Pro me=20
> je ciste subjektivne prirozenejsi podminku formulovat tak,=20
> aby jeji splneni znamenalo=20
> dalsi iteraci a tomu bych rikal pozitivni, zatimco u repeat=20
> until se mi jevi jako=20
> negativni.
>=20
> Proto si myslim, ze tyto pojmy jsou relativni. Nebo existuje=20
> nejaka platna definice, co=20
> je u cyklu pozitivni a co negativni?
OT: REPEAT-UNTIL (was: Promazani TStringLIst)
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 03.4.2003 15:01:06
> Jak=FDm zp=F9sobem je pros=EDm t=EC repeat..until n=E1chyln=FD k chyb=E1=
m? Moje
> osobn=ED zku=B9enost je takov=E1, =BEe kdy=BE jsem se p=F8ed n=ECjak=FDm=
i 12-13 lety
> u=E8il programovat, tak mi *MNOHEM* v=ECt=B9=ED probl=E9my d=EClal cyklu=
s WHILE,
> proto=BEe se v n=ECm typicky pou=BE=EDv=E1 NEGATIVN=CD podm=EDnka. Repea=
t..until je
> z tohoto pohledu daleko pr=F9hledn=ECj=B9=ED konstrukce, proto=BEe kon=E8=
=ED
> pozitivn=ED podm=EDnkou.
Nechci se vmichat do hlavniho proudu diskuse, ale tohle tvrzeni me celkem =
zaujalo.
Mne totiz zase naopak pripada WHILE cyklus "pochopitelnejsi", protoze
WHILE podminka do prikaz
si muzu cesky rict Dokud je splnena podminka, opakuj prikaz. Podminka se t=
edy
formuluje tak, aby jeji splneni znamenalo dalsi provedeni prikazu.
Naopak u repeat until se uvadi podminka, pri jejimz splneni se cyklus ukon=
ci. Pro me
je ciste subjektivne prirozenejsi podminku formulovat tak, aby jeji splnen=
i znamenalo
dalsi iteraci a tomu bych rikal pozitivni, zatimco u repeat until se mi je=
vi jako
negativni.
Proto si myslim, ze tyto pojmy jsou relativni. Nebo existuje nejaka platna=
definice, co
je u cyklu pozitivni a co negativni?
OT: REPEAT-UNTIL (was: Promazani TStringLIst)
[*] Ond�ej Tu�n������'�������̿ - 3.4.2003 14:08:05
>> Tak�e jak je to s t�mi cykly:
> To, ze nektere programovaci jazyky nabizeji nejake konstrukce, neznamena, ze
> se maji pouzivat, nic to nevypovida o terii algoritmizace a uz vubec nic
> o teorii navrhu programu...
Z�ejm� jsi nepochopil moji pozn�mku o obecn�m cyklu s N podm�nkami. Zkus se
nad t�m pros�m t� znovu zamyslet a zobecnit si WHILE, FOR a UNTIL do jedn�,
v�ezahrnuj�c� konstrukce. Zjist�, �e jsi dostal krystalicky �istou iteraci
a selekce. Skaln� teoretik mus� slintat blahem. A p�jde to namalovat i case
n�stroj�ch...
> S konstrukci repeat-until je to obdobne jako
> s prikazem skoku: rada jazyku ho podporuje,
> presto se obecne nedoporucuje ho pouzivat
> kvuli nachylnosti k chybam.
Jak�m zp�sobem je pros�m t� repeat..until n�chyln� k chyb�m? Moje osobn�
zku�enost je takov�, �e kdy� jsem se p�ed n�jak�mi 12-13 lety u�il
programovat, tak mi *MNOHEM* v�t�� probl�my d�lal cyklus WHILE, proto�e se
v n�m typicky pou��v� NEGATIVN� podm�nka. Repeat..until je z tohoto pohledu
daleko pr�hledn�j�� konstrukce, proto�e kon�� pozitivn� podm�nkou.
To, �e n�kdo nech�pe, �e nem��e pracovat s prvn�m prvkem seznamu bez
toho, �e by si ov��il, �e je seznam nepr�zdn�, je naprosto nesouvisej�c�
v�c.
>> Existuje zcela obecn� > cyklus s 0 a� N
> [...]
>> S UNTIL je to malilinko slo�it�j��, tam je
>> v�hodn�j�� upravit syntaxi obecn�ho cyklu,
>> proto�e je to prost� pohodln�j��
> No prave: konstrukce repeat-until takovym cyklem neni, protoze je to v
> podstate posloupnost prikazu
> a obecneho cyklu s timto prikazem v tele.
:-) Uv�domuje� si, �e tradi�n� z�pis repeat..until je jen ot�zka konvence?
Zkou�el sis p�edstavit definici syntaxe ve stylu:
Cyklus ::= [ Itera�n� sch�ma ] loop Sekvence p��kaz� end loop
Itera�n� sch�ma ::= until Logick� v�raz | ...
a pou�it�:
until <podm�nka> loop
...
end loop;
?? Syntaktick� z�pis nem� nic spole�n�ho s minim�ln�m po�tem iterac� cyklu
a okam�ikem, kdy se vyhodnocuje podm�nka.
> Takze pokud nebudes algoritmus navrhovat v nejakem konkretnim jazyce, ale
> pouzijes k tomu nejakou vyssi uroven abstrakce, budes velmi pravdepodobne
> operovat na urovni obecnych iteraci. Case nastroj ti zpravidla ani nic
> jineho nenabizi (protoze rozeznava prave jen iteraci+iteracni schema) a
> vygeneruje kod
> s cyklem WHILE/FOR.
Zkus pou��t je�t� o trochu vy��� �rove� abstrakce... t�eba objev� cykly s
N podm�nkami v libovoln�m m�st� cyklu. N�co jin�ho obecn� jazykov�
konstrukce (bez ohledu na konkr�tn� jazyk) a schopnosti n�jak�ho kresl�tka
(=kejs n�stroje).
> Kdyz to das rucne kodovat nejakemu programatorovi, ten muze eventuelne
> nektere cykly WHILE optimalizovat prevodem na pohodlnejsi/jednodussi
> REPEAT-UNTIL,
> ale duvudu k takove optimalizaci je IMHO minimum.
Cht�l jsi ��ct napravit nedostatek tv�ho kresl�tka a p�ev�st:
<sekvence>
while <podm�nka> loop
<sekvence>
end loop;
na:
loop
<sekvence>
until <podm�nka>;
?
> Pokud programatori pisi algoritmus rovnou, tak delavaji typickou chybu,
> kterou predvedl autor puvodniho prispevku (je zajimave, ze programatori
> v C cyklus DO-WHILE nepouzivaji tak casto, jako programatori REPEAT-UNTIL v
> Pascalu).
> A kdyz si chybu uvedomi popr. ji pri ladeni odhali, tak misto aby to
> prepsali na jiny typ cyklu, tak zpravidla vlozi do tela podminku, kterou
> osetruji platnost souvisejicich operaci v tele cyklu. A to je uz dost
> strasny paskvil, zejmena u slozitejsich iteraci.
Potom ov�em neum� po��dn� programovat resp. navrhovat software, co�
naprosto nesouvis� s teori� cykl�.
> A ze jsem takovych paskvilu za 25 let praxe videl
> - proto jsem tu pripomel zaklady struktrovaneho programovani, protoze
> zpravidla pohodlnost/lenost/hloupost programatora pri psani prvotniho kodu
> postihuje neblaze projekt v celem jeho dalsim zivotnim cyklu a proto se
> vyplati uplatnovat pri vyvoji takove techniky, ktere snizuji pravdepodobnost
> vzniku chyb a zlepsuji udrzovatelnost kodu.
> ***
> Ted jsem se snazil vysvetlit to polopaticky
> a uz se k tomuto tematu nebudu vracet - jedine,
> ze by diskuse prinesla neco podnetneho z oblasti teorie navrhu programu.
Takhle se mi taky ob�as chce ukon�it diskusi, ale zpravidla rad�i v�bec
neodpov�m a ml��m, p�ipadal bych si p�ed ostatn�mi moc pov��en�.
--
Ond�ej Tu�n�
Flex 4.0 Personal Edition Beta 1 build 2 dostupn� na www.flexlanguage.com
OT: REPEAT-UNTIL (was: Promazani TStringLIst)
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 3.4.2003 12:44:30
From: "Ond�ej Tu�n�" <tucny(zv)alsoft(tec)cz>
> Jeho "strukturovan� programov�n�" u� je pon�kud
> out-of-date.
Mozna bys mel spis uvest nejake dilo ukazujici,
ze tyto principy jsou zastarale a neplatne.
Samozrejme nestiham precist vsechno, co bych chtel,
ale nejsem si vedom, ze bych napr. v dilech Yourdonovych ci Jackobsonovych
aj. na neco podobneho narazil, byt se zabyvaji modernimi objektovymi
technologiemi.
IMHO principy strukturovaneho programovani hned tak
out-of-date nebudou, bez ohledu na to, ze byly formulovany na pocatku
70-tych let.> Tak�e jak je to s t�mi cykly:
To, ze nektere programovaci jazyky nabizeji nejake konstrukce, neznamena, ze
se maji pouzivat, nic to nevypovida o terii algoritmizace a uz vubec nic
o teorii navrhu programu...
S konstrukci repeat-until je to obdobne jako
s prikazem skoku: rada jazyku ho podporuje,
presto se obecne nedoporucuje ho pouzivat
kvuli nachylnosti k chybam.> Existuje zcela obecn� > cyklus s 0 a� N
[...]
> S UNTIL je to malilinko slo�it�j��, tam je
> v�hodn�j�� upravit syntaxi obecn�ho cyklu,
> proto�e je to prost� pohodln�j��
No prave: konstrukce repeat-until takovym cyklem neni, protoze je to v
podstate posloupnost prikazu
a obecneho cyklu s timto prikazem v tele.
Takze pokud nebudes algoritmus navrhovat v nejakem konkretnim jazyce, ale
pouzijes k tomu nejakou vyssi uroven abstrakce, budes velmi pravdepodobne
operovat na urovni obecnych iteraci. Case nastroj ti zpravidla ani nic
jineho nenabizi (protoze rozeznava prave jen iteraci+iteracni schema) a
vygeneruje kod
s cyklem WHILE/FOR.
Kdyz to das rucne kodovat nejakemu programatorovi, ten muze eventuelne
nektere cykly WHILE optimalizovat prevodem na pohodlnejsi/jednodussi
REPEAT-UNTIL,
ale duvudu k takove optimalizaci je IMHO minimum.
Pokud programatori pisi algoritmus rovnou, tak delavaji typickou chybu,
kterou predvedl autor puvodniho prispevku (je zajimave, ze programatori
v C cyklus DO-WHILE nepouzivaji tak casto, jako programatori REPEAT-UNTIL v
Pascalu).
A kdyz si chybu uvedomi popr. ji pri ladeni odhali, tak misto aby to
prepsali na jiny typ cyklu, tak zpravidla vlozi do tela podminku, kterou
osetruji platnost souvisejicich operaci v tele cyklu. A to je uz dost
strasny paskvil, zejmena u slozitejsich iteraci.
A ze jsem takovych paskvilu za 25 let praxe videl
- proto jsem tu pripomel zaklady struktrovaneho programovani, protoze
zpravidla pohodlnost/lenost/hloupost programatora pri psani prvotniho kodu
postihuje neblaze projekt v celem jeho dalsim zivotnim cyklu a proto se
vyplati uplatnovat pri vyvoji takove techniky, ktere snizuji pravdepodobnost
vzniku chyb a zlepsuji udrzovatelnost kodu.
***
Ted jsem se snazil vysvetlit to polopaticky
a uz se k tomuto tematu nebudu vracet - jedine,
ze by diskuse prinesla neco podnetneho z oblasti teorie navrhu programu.
HTH, pf
Obrazek z TImage do clipboardu
[*] �tuPe - 3.4.2003 12:15:13
Nev=EDm, jestli je to dob=F8e, ale fakt jsem o tom nev=ECd=ECl v=EDc =
ne=BE ty.
Mo=BEn=E1 jen, =BEe do USES si dej clipbrd
A d=E1l jsem zkusil toto:
procedure TForm1.Image1DblClick(Sender: TObject);
var
AF: word; AD: Cardinal; AP: HPALETTE;
begin
Image1.Picture.RegisterClipboardFormat(CF_BITMAP, TBitmap);
Image1.Picture.SaveToClipboardFormat(AF, AD, AP);
Clipboard.SetAsHandle(AF, AD);
end;
A sv=ECte div se, vono to jede. Toto h=F8eje :)))
Jo, asi by to cht=EClo dod=EClat i
"Image1.Picture.UNRegisterClipb..."=A9tuPe http://stupe.jinde(tec)cz
----- P=F9vodn=ED zpr=E1va -----=20
Od: "Vlastimil Bardo=F2" <bardon(zv)akord-soft(tec)cz>
Komu: <delphi-l(zv)clexpert(tec)cz>
Odesl=E1no: 3. dubna 2003 11:51
P=F8edm=ECt: Obrazek z TImage do clipboardu
Muzete mi prosim nekdo poradit jak dostat obrazek z TImage do =
clipboardu? Nasel jsem jen proceduru SaveToClipboardFormat ale nevim jak =
ji pouzit. Dekuji.
Obrazek z TImage do clipboardu
[*] Petr Brant <brant(zv)dcomm(tec)cz> - 3.4.2003 12:06:00
Udelal jsem to takhle (odnekud jsem to vycetl) a funguje to. =
ScrCopyImage je
TImage s obrazkem.
procedure TScrCopyWnd.ToCLipboardBtnClick(Sender: TObject);
var MyFormat : Word;
AData: Cardinal; APalette : HPALETTE;
begin
ScrCopyImage.Picture.Bitmap.SaveToClipboardFormat(MyFormat, AData,
APalette);
ClipBoard.SetAsHandle(MyFormat,AData);
end;
Program, ve kterem je to pouzite, je na me strance
http://web.redbox(tec)cz/petr.brant, tlacitko "Software", jedna se o =
"Snimani
obrazovky", je to na strance hned nahore.
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]=20
http://web.redbox(tec)cz/petr.brant
D&COMM s.r.o.
Korunova=E8n=ED 6
Praha 7
tel. +420724007234
Muzete mi prosim nekdo poradit jak dostat obrazek z TImage do
clipboardu? Nasel jsem jen proceduru SaveToClipboardFormat ale nevim =
jak ji
pouzit. Dekuji.
Obrazek z TImage do clipboardu
[*] Vlastimil Bardo� <bardon(zv)akord-soft(tec)cz> - 3.4.2003 11:51:03
Muzete mi prosim nekdo poradit jak dostat obrazek z TImage do =
clipboardu? Nasel jsem jen proceduru SaveToClipboardFormat ale nevim jak =
ji pouzit. Dekuji.
IB / FB - problem s generatorem
[*] spisiak <spisiak(zv)zoznam.sk> - 03.4.2003 11:54:57
Dobry den
Presne to iste aj hodnota o 4 sa nam stalo minuly tyzden s FB 1 tiez na W2K.
Doteraz sme si to nedokazali vysvetlit. generator pouzivame na tvorbu ID do
tabuliek v databazi. Z nicoho nic sa do jednej z tabuliek nedalo pridavat.
Ked sme porovnali posledne spravne id v tabulke tak bolo o 4 vyssie ako
hodnota generatora, ktory tieto ID generuje.
Nikdy pred tym sme sa s nicim takym nestretli.
Karol
----- Original Message -----
From: "Mirek Junek" <mirek.junek(zv)worldonline(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, April 02, 2003 10:41 PM
Subject: IB / FB - problem s generatorem
> Mam logovaci tabulku T1, do ktere se zapisuji zaznamy o zmene dat v jine
> tabulce T2. Tabulka T2 ma trigger na after update pro insert zmen do
> logovaci tabulky T1.
>
> Logovaci tabulka ma primary key generovany pomoci generatoru v triggeru
> before insert.
>
> Tohle funguje nekolik mesicu, ale najednou se z nejakeho podivneho duvodu
> stalo, ze hodnota generatoru je o 4 mensi nez hodnota primarniho klice
> posledne zapsaneho zaznamu v logovaci tabulce. Zadny zaznam nechybi, tj.
> zapsaly se postupne 4 zaznamy se spravnym primarnim klicem, ale pak se z
> nejakeho duvodu generator snizil o 4.
>
> Po rucnim nastaveni generatoru na spravnou hodnotu to zase funguje dal.
>
> Nesetkal se nekdo z vas s necim podobnym ?
>
> Firebird 1.0 - V6.2.821, Server na W2K, pracovni stanice W98
>
> Diky za jakykoliv napad
>
> Mirek
>
COM port jako klavesnice
[*] Ivan Virag <lgcvirag(zv)iol(tec)cz> - 3.4.2003 11:23:12
Zdravim
Potrebuji cist stringy z COM portu (to umim) a posilat je
windowsum, jakoby to bylo z klavesnice. Vi nekdo jak na to? Dekuji.
Promazani TStringLIst
[*] Ond�ej Tu�n������'�������̿ - 3.4.2003 11:09:42
> Mozna by neskodilo, kdybys precetl treba The Principles of structure
> programming od Jacksona...
>> 1. Ty delas analyzu az takto do zdrojoveho kodu,
>> nebo ti nekdo urcuje jestli mas pouzit while nebo repeat?
>> 2. Ty cykly jsou prece rovnocene.
> Kdyz popisujes realny problem pri analyze, pracujes na urovni elementarnich
> logickych abstrakci typu sekvence, selekce a iterace, zpravidla bez ohledu
> na jazyk, a na teto urovni abstrakce nebudes umele slucovat sekvenci s
> iteraci, kterou cyklus REPEAT-UNTIL ve skutecnosti predstavuje.
> Myslim, ze k tomu nemam dal co dodat. To, co zde presentuji, jsou veci
> platne temer 30 let a lze je v patricne literature nastudovat.
Mo�n� by ne�kodilo nezamrzat na 30 let "platn�ch" z�v�rech d�dy Jacksona.
Jeho "strukturovan� programov�n�" u� je pon�kud out-of-date.
Tak�e jak je to s t�mi cykly: Existuje zcela obecn� cyklus s 0 a� N
podm�nkami. Takov� cyklus maj� nap��klad jazyky Ada 95 nebo Flex
P��klad v Ad�:
loop
...
exit when <podm�nka>;
...
exit when <podm�nka>;
...
end loop;
P��klad ve Flexu:
loop
...
if <podm�nka> then break end if;
...
if <podm�nka> then break end if;
...
end loop;
(Variantu "break if <podm�nka>;" neuv�d�, proto�e jsme se je�t� zcela �pln�
nedohodli na za�azen� sufixov� podm�nky do jazyka.)
Tento obecn� cyklus lze ro���it pomoc� tzv. itera�n�ch sch�mat, kter�
charakterizuj� ur�it� typick� zp�soby pou�it� cyklu (design patterny):
-- FOR
-- WHILE
-- UNTIL
Cykly pak mohou vypadat nap��klad takto (Flex):
for i in 1..10 loop -- iterovat v p��m�m po�ad�
...
end loop;
for i in reverse 1..10 loop -- iterovat v opa�n�m po�ad�
...
end loop;
for i in concurrent 1..10 loop -- iterovat dle libov�le p�eklada�e
...
end loop;
while <podm�nka> loop
...
end loop;
loop
...
until <podm�nka>;
V�imn�te si, �e syntakticky lze WHILE a FOR definovat jako nepovinn�
modifik�tor obecn�ho cyklu. S UNTIL je to malilinko slo�it�j��, tam je
v�hodn�j�� upravit syntaxi obecn�ho cyklu, proto�e je to prost� pohodln�j��
na z�pis:
Cyklus ::= [ Itera�n� sch�ma ] loop Sekvence p��kaz� end loop
Itera�n� sch�ma ::= while Logick� v�raz | for Identifik�tor in [ Modifik�tor ] Rozsah
Modifik�tor ::= reverse | concurrent
Until cyklus ::= loop Sekvence p��kaz� until Logick� v�raz
--
Ond�ej Tu�n�
Flex 4.0 Personal Edition Beta 1 build 2 dostupn� na www.flexlanguage.com
Velikost MDIChild formulare
[*] kudrna.p(zv)post(tec)cz - 03.4.2003 10:55:22
Dobry den,
jak lze po vytvoreni MDIChild formulare nastavit velikost podle
design navrhu?
Dekuji
Pavel
--
Ziskejte kvalitu, kterou si zasluhujete. Za minimalni mesicni
poplatek vam nabizime Antivir, Antispam nebo dalsi kapacitu pro
vas Mailbox. Vice na: http://sluzby.volny(tec)cz/product/postpaid/
Velikost MDIChild formulare
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 3.4.2003 11:01:15
Nejde, protoze velikost si ridi Windows u MDIChild samy.
Jednou z moznosti je nastavit to rucne v OnCreate formulare.
--
Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
3.4.2003 kudrna.p(zv)post(tec)cz:
> Dobry den,
> jak lze po vytvoreni MDIChild formulare nastavit velikost podle
> design navrhu?
problemy s verzi ComCtl vz. ImageList
[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 3.4.2003 10:21:55
> From: Ji=F8=ED Baudy=B9
>=20
> ale co s t=EDm ale m=E1m ud=EClat?=20
Doporucuji k tomuto ucelu nepouzivat TImageList,
ale obycejny TList nebo TObjectList a do nej TBitmap.
Vaclav Krmela
problemy s verzi ComCtl vz. ImageList
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 3.4.2003 10:19:26
>
>Zdrav�m a d�ky za radu,
>ale co s t�m ale m�m ud�lat? Jsem z toho pom�rn� dost smutn� (app. je
>hotova, schv�lena atd.). Nem��u p�ece zm�nit velikosti n�hled� v cel� app.
>to by klient asi nerozdejchal.
>- Pomohlo by na��t�n� n�kolika resource m�sto jednoho "velk�ho" ?
>- �lo by to vy�e�it update-m n�kter� z knihoven // tj. blbost co, ale moc
by
>se mi to l�bilo //
Ahoj,
moc jsem tuhle diskuzi nesledoval, ale nahledy jsem (nakonec) resil pomoci
memorystreamu a jedne bitmapy ;-)
Potrebovaljsem zobrazit nahledy vic jak 1000 jpg, takze je beru jeden po
druhem, nactu, zmensim (asi 100x70), ulozim do streamu. Zobrazuji se v
drawgridu. Na w98se mi to funguje, na w2k muzu zkusit.
Roman
==============================
http://kouzelne.misto(tec)cz
OT: Novell Netware 6 - nastaveni time, time zone a
[*] Libor Hajek <rpvp(zv)vagnerplast(tec)cz> - 3.4.2003 09:53:10
Sorry za OT:
Nevite nekdo jak spravne nastavit v Netware 6 toto:
SET TIME ZONE
SET TIME
Tak abych mel spravny cas na serveru i na stanicich ?
Dekuji
problemy s verzi ComCtl vz. ImageList
[*] Ji�� Baudy� - 3.4.2003 09:53:58
Zdrav=EDm a d=EDky za radu,
ale co s t=EDm ale m=E1m ud=EClat? Jsem z toho pom=ECrn=EC dost smutn=FD =
(app. je
hotova, schv=E1lena atd.). Nem=F9=BEu p=F8ece zm=ECnit velikosti n=E1hled=
=F9 v cel=E9 app.
to by klient asi nerozdejchal.
- Pomohlo by na=E8=EDt=E1n=ED n=ECkolika resource m=EDsto jednoho "velk=E9=
ho" ?
- =A9lo by to vy=F8e=B9it update-m n=ECkter=E9 z knihoven // tj. blbost c=
o, ale moc by
se mi to l=EDbilo //
V=E8erej=B9ek jsem v=ECnoval studiu prob=E9mu, ale princip jsem v tom nen=
a=B9el.
Fungovalo to na pom=ECrn=EC star=FDch ple=E8k=E1ch s hromadou soft., ale =
na P3 1000
MHz s 128 MB zase ta proklet=E1 hl=E1=B9ka. // smutn=E9 je, =BEe se mi te=
nto stav
neda=F8=ED naemulovat v kancel=E1=F8i :(, ale u klienta to pad=E1 a pad=E1=
//
D=EDky
Jirka
> Behalf Of Karel Rys
>
> No, ale jsem dost presvedcen o tom, ze Corel apod. nepouzivaji ke
> sve praci ImageList... Na
> Win95/98 byva problem i alokovat bitmapu 2048x2048 bodu. Nekde na
> internetu jsem kdysi videl testy
> - ruzne OS, ruzne graficke karty -> vysledkem je ruzna maximalni
> velikost bitmapy, kterou mohu
> alokovat. U nekterych kombinaci to bohuzel bylo treba jen
> 1200x1200 bodu... A nejen ze jsem to
> cetl, sam jsem na to narazil u sve aplikace - tenkrat ve spojeni
> s Win ME - ty se musely dokonce
> natvrdo resetovat pri pokusu o alokovani 2400x1600 bodu...
>
> Karel Rys
>
>
> Ji=F8=ED Baudy=B9 dne 2 Apr 2003 v 17:45:
>
> > To se mi moc nezd=E1 v=BEdy=BB na t=ECch PC b=EChaj v=ECci jako Corel=
, AI atd. co=BE
> > bych =F8ek, =BEe jsou v=ECci kter=E9 PC rozhodn=EC zat=ED=BE=ED v=EDc=
be=BE takov=E1 blbina
> > ?
> >
...
HWND konzolove aplikace
[*] Daniel VALS <Vals(zv)apls(tec)cz> - 3.4.2003 09:25:17
Zdravim vsechny v konferenci,
potrebuji vedet jak zjistit handle okna konzlove aplikace ve Windowsech.
Zkousel jsem to pres FindWindow ovsem prvni parametr je trida okna kterou
nevim nebo druhym parametrem je titulek okna. Tiulek se ovsem muze menit,
napriklad kdyz je konzolova aplikace spustena zastupcem je pak titulkem okna
nazev zastupce.
Nesetkal se stim to uz nekdo?
Daniel VALS - programator
APLS s.r.o.
www.apls(tec)cz
Ako funguje ComboBox ...
[*] �tuPe - 3.4.2003 08:40:58
P=F8i zm=ECn=EC vybran=E9 polo=BEky v kombu:
procedure THlavniForm.ComboChange(Sender: TObject);
type
TTvojeProcenta =3D array[0..3] of byte; // 4 polo=BEky
const
Procent: TTvojeProcenta =3D (100,75,50,25); // podle textov=FDch =
hodnot v kombu (m=F9=BEe=B9 tam m=EDt t=F8eba texty full, =
t=F8i=E8tvrt=EC, p=F9lka, hlavn=EC dodr=BE po=E8et polo=BEek v kombu a =
zde v k=F3du)
var
x: byte;
begin
x:=3D Procent[TComboBox(Sender).ItemIndex];
...
Chyb=ED ti tam BEGIN END u v=EDce=F8=E1dkov=FDho bloku (po ka=BEd=FDm =
THEN) ...
=A9tuPe http://stupe.jinde(tec)cz
----- P=F9vodn=ED zpr=E1va -----=20
Od: "alex" <bugala_a(zv)inMail.sk>
Komu: "Delphi" <delphi-l(zv)clexpert(tec)cz>
Odesl=E1no: 2. dubna 2003 20:22
P=F8edm=ECt: Ako funguje ComboBox ...> Ahojte,
>=20
> na formular som umiestnil ComboBox a naplnil ho hodnotami:=20
> 100%, 75%,50%, 25% ... (zvacsovanie a zmensovanie obrazku)
>=20
> Kazdu vybranu hodnotu by som potreboval obsluzit inym kodom.
> Skusal som to takto, ale nefunguje mi to:
>=20
> procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: =
Integer;
> Rect: TRect; State: TOwnerDrawState );
> var
> x: integer;
> y: integer;
> xx: integer;
> yy: integer;
> begin
> if Index =3D 5 then
> x :=3D Image1.Picture.Width;
> y :=3D Image1.Picture.Height;
> xx :=3D x div 100;
> yy :=3D y div 100;
> x :=3D xx * 10;
> y :=3D yy * 10;
> Image1.Width :=3D x;
> Image1.Height :=3D y
> else
> if Index =3D 3 then
> x :=3D Image1.Picture.Width;
> y :=3D Image1.Picture.Height;
> xx :=3D x div 100;
> yy :=3D y div 100;
> x :=3D xx * 50;
> y :=3D yy * 50;
> Image1.Width :=3D x;
> Image1.Height :=3D y;
> end;
>=20
> Poradi mi niekto, ako by som to mal urobit ???
>=20
> Dakujem,
> Alex
>=20
> -----------------------------------------------------
> Bugala Alex - stredoskolak
> Win2000 Prof CZ + SP2 + Delphi 3 Client/Server Suite
>=20
>=20
>=20
>=20
>=20
>=20
>=20
>=20
> ----------
> Teraz uz domena .SK pre kazdeho uplne ZADARMO.
> Viac info na: http://www.slovaknet.sk/sk-zadarmo.asp
>=20
>=20
problemy s verzi ComCtl vz. ImageList
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 3.4.2003 08:28:50
No, ale jsem dost presvedcen o tom, ze Corel apod. nepouzivaji ke sve prac=
i ImageList... Na
Win95/98 byva problem i alokovat bitmapu 2048x2048 bodu. Nekde na internet=
u jsem kdysi videl testy
- ruzne OS, ruzne graficke karty -> vysledkem je ruzna maximalni velikost =
bitmapy, kterou mohu
alokovat. U nekterych kombinaci to bohuzel bylo treba jen 1200x1200 bodu..=
. A nejen ze jsem to
cetl, sam jsem na to narazil u sve aplikace - tenkrat ve spojeni s Win ME =
- ty se musely dokonce
natvrdo resetovat pri pokusu o alokovani 2400x1600 bodu...
Karel Rys
Ji=F8=ED Baudy=B9 dne 2 Apr 2003 v 17:45:
> To se mi moc nezd=E1 v=BEdy=BB na t=ECch PC b=EChaj v=ECci jako Corel, A=
I atd. co=BE
> bych =F8ek, =BEe jsou v=ECci kter=E9 PC rozhodn=EC zat=ED=BE=ED v=EDc be=
=BE takov=E1 blbina
> ?
>
> Jirka
>
> > Karel Rys
> >
> > Ahoj,
> >
> > tahle hlaska se mi typicky objevovala na win 95/98 pri nedostatku
> > systemovych prostredku.
> >
> > Karel Rys
>
>
> > Ji=F8=ED Baudy=B9 dne 2 Apr 2003 v 12:38:
> >
> > > Jedn=E1 se o konkr=E9tn=ED verzi ComCtl32.dll (5.81.4916.400 / resp.
> > > 5.50.4916.400 to MS ozna=E8ov=E1n=ED asi nikdy nepochopim) s kombina=
c=ED s
> > > n=ECjakou dal=B9=ED knihovnou. (moment=E1ln=EC zji=B9=BBuji jakou) D=
o image
> > > listu se na=E8=EDtaj=ED obr=E1zky(ek) z resource jedn=E1 se o 185 ob=
r. o
> > > velikosti max 120x120 bod=F9. To znamen=E1 max 22200x120 bod=F9.
> > ...
> > > DAta.Images.InsertMasked - Vyhod=ED hl=E1=B9ku "Parametr nen=ED spr=E1=
vn=FD" a
> > > obr=E1zky do ImageListu nep=F8i=F8ad=ED.
Ako funguje ComboBox ...
[*] Michal Kolisek <michal.kolisek(zv)asei(tec)cz> - 3.4.2003 07:41:53
Dobry den,
uz tam mas zhruba odpoved jak nalozit s hodnotou z comboboxu, jednoduche
zjisteni vyberu a spusteni prislusne rutiny muze byt treba takto :
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
case ComboBox1.ItemIndex of
0: begin
showmessage(inttostr(ComboBox1.ItemIndex)+ComboBox1.Items.Strings[ComboBox1.
ItemIndex]);
end;
1: begin
showmessage(inttostr(ComboBox1.ItemIndex)+ComboBox1.Items.Strings[ComboBox1.
ItemIndex]);
end;
2: begin
showmessage(inttostr(ComboBox1.ItemIndex)+ComboBox1.Items.Strings[ComboBox1.
ItemIndex]);
end;
3: begin
showmessage(inttostr(ComboBox1.ItemIndex)+ComboBox1.Items.Strings[ComboBox1.
ItemIndex]);
end;
end;
end;
Po vyberu z comboboxu si bud podle poradoveho cisla (zacina se od nuly)
polozky v comboboxu, nebo podle prislusneho textu udelej vlastni obslouzeni,
kazdy begin-end je obslouzeni jineho rozliseni.
M.Kolisek
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of alex
Sent: Thursday, April 03, 2003 6:45 AM
To: Delphi
Subject: Re: Re: Ako funguje ComboBox ...
Ahojte,
na formular som umiestnil ComboBox a naplnil ho hodnotami:
100%, 75%,50%, 25% ... (zvacsovanie a zmensovanie obrazku)
Ked nacitam obrazok a chcem ho zmensit, pripadne zvacsit, kliknem
na ComboBox a vyberiem prislusnu hodnotu, a zmeni sa velkost
obrazku!
Vsetko mi to funguje az na to, ze pri vybere akejkolvek hodnoty z
Comboboxu sa zmeni velkost obrazku stale rovnako. Teda akoby
som ho vzdy chcel zmensit na 25%.
No a ja potrebujem vediet, ako zistim, ze bola vybrana prave hodnota
75% a nasledne spustit kod, ktory prevedie obrazok na velkost 75%.
Proste kazdu vybranu hodnotu by som potreboval obsluzit inym kodom.
Nejaky podobny priklad som nenasiel ... :-(
Dakujem,
Alex
-----------------------------------------------------
Bugala Alex - stredoskolak
Win2000 Prof CZ + SP2 + Delphi 3 Client/Server Suite
----------
Teraz uz domena .SK pre kazdeho uplne ZADARMO.
Viac info na: http://www.slovaknet.sk/sk-zadarmo.asp
Ako funguje ComboBox ...
[*] <kovalcik(zv)sinet.sk> - 3.4.2003 07:32:53 cest
osetri si EVENT - OnChange
a v ComboBox.Text sa nachadza prave vybraty TEXT takze staci uz len testovat ak je tam 75% potom a pod.
a myslim, ze aj v ComboBox.KeyValue sa nachcadza integer hodnota vybranej polozky zacina to od 0=25%,1=50%,2=75% ...
S Pozdravom
Dhaman
-------Original Message-------
From: delphi-l(zv)clexpert(tec)cz
Date: 03. apr�l 2003 06:58:40
To: Delphi
Subject: Re: Re: Ako funguje ComboBox ...
Ahojte,
na formular som umiestnil ComboBox a naplnil ho hodnotami:
100%, 75%,50%, 25% ... (zvacsovanie a zmensovanie obrazku)
Ked nacitam obrazok a chcem ho zmensit, pripadne zvacsit, kliknem
na ComboBox a vyberiem prislusnu hodnotu, a zmeni sa velkost
obrazku!
Vsetko mi to funguje az na to, ze pri vybere akejkolvek hodnoty z
Comboboxu sa zmeni velkost obrazku stale rovnako. Teda akoby
som ho vzdy chcel zmensit na 25%.
No a ja potrebujem vediet, ako zistim, ze bola vybrana prave hodnota
75% a nasledne spustit kod, ktory prevedie obrazok na velkost 75%.
Proste kazdu vybranu hodnotu by som potreboval obsluzit inym kodom.
Nejaky podobny priklad som nenasiel ... :-(
Dakujem,
Alex
-----------------------------------------------------
Bugala Alex - stredoskolak
Win2000 Prof CZ + SP2 + Delphi 3 Client/Server Suite
----------
Teraz uz domena .SK pre kazdeho uplne ZADARMO.
Viac info na: http://www.slovaknet.sk/sk-zadarmo.asp
___________________________________
NOCC, http://nocc.sourceforge.net
Ako funguje ComboBox ...
[*] Pavel Gazda <pavel_gazda(zv)dataint(tec)cz> - 3.4.2003 07:31:53
Ahoj,
zkus pouzit neco takoveho:
procedure TDBForm.ComboBox1Change(Sender: TObject);
var
proc : integer;
xx,yy : integer;
begin
proc := StrToInt(copy(ComboBox1.Text,1,pos('%',ComboBox1.Text)));
xx := (proc*Image1.Picture.Width) div 100;
yy := (proc*Image1.Picture.Height) div 100;
....
end;
Pavel
placeny amater
> 100%, 75%,50%, 25% ... (zvacsovanie a zmensovanie obrazku)
>
> No a ja potrebujem vediet, ako zistim, ze bola vybrana prave hodnota
> 75% a nasledne spustit kod, ktory prevedie obrazok na velkost 75%.
>
> Dakujem,
> Alex
DBMemo a automaticke zobrazeni scrolbaru
[*] abyssinians(tec)cz <abyssinian(zv)centrum(tec)cz> - 03.4.2003 07:10:43
DD,
nevite prosim nekdo o nejake lepsi DBMemo, ktera by umela
zobrazovat svisly scrollbar jen tehdy, kdyz pocet radku
textu je vetsi nez vyska DBMema?
Vypada to divne, kdyz se scrollbar zobrazuje vzdy, tj.
i tehdy kdyz s nim stejne nedje posouvat.
Pokud mozno free.
Diky,
Alfon Goetlitz
zacatecnik
--------------------
Centrum(tec)cz Reality: v=EDce ne=BE 13 000 aktu=E1ln=EDch nab=EDdek nemovi=
tost=ED <http://user.centrum(tec)cz/redir.php?url=3Dhttp://reality.centrum.=
cz>Ako funguje ComboBox ...
[*] alex <bugala_a(zv)inMail.sk> - 3.4.2003 06:45:10
Ahojte,
na formular som umiestnil ComboBox a naplnil ho hodnotami:
100%, 75%,50%, 25% ... (zvacsovanie a zmensovanie obrazku)
Ked nacitam obrazok a chcem ho zmensit, pripadne zvacsit, kliknem
na ComboBox a vyberiem prislusnu hodnotu, a zmeni sa velkost
obrazku!
Vsetko mi to funguje az na to, ze pri vybere akejkolvek hodnoty z
Comboboxu sa zmeni velkost obrazku stale rovnako. Teda akoby
som ho vzdy chcel zmensit na 25%.
No a ja potrebujem vediet, ako zistim, ze bola vybrana prave hodnota
75% a nasledne spustit kod, ktory prevedie obrazok na velkost 75%.
Proste kazdu vybranu hodnotu by som potreboval obsluzit inym kodom.
Nejaky podobny priklad som nenasiel ... :-(
Dakujem,
Alex
-----------------------------------------------------
Bugala Alex - stredoskolak
Win2000 Prof CZ + SP2 + Delphi 3 Client/Server Suite
----------
Teraz uz domena .SK pre kazdeho uplne ZADARMO.
KADAO a PC bez MS Access
[*] Ty�lic Ji�� - 3.4.2003 06:40:47
Nainstaluj na tom PC MS balicek MDAC (obsahuje DAO...), najdes na =
Microsoftu.=20
-----Original Message-----
From: Mirek [mailto:konf_delphi(zv)seznam(tec)cz]=20
Sent: Wednesday, April 02, 2003 9:55 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: KADAO a PC bez MS Access
Ahoj, mam prosbu. Potreboval bych hodne rychle vyresit jeden problem. =
Mam vytvorenou aplikaci, ktera pres komponentu KADAODatabase komunikuje =
s databazi MS Access. Tato databaze byla vytvorena primo v MS Access 97, =
ale funguje jen na pocitaci, kde je MS Access nainstalovan. Jinak se =
aplikace zhrouti s chybovym hlasenim, ze chybi "DAO". Muzete mi nekdo =
rychle poradit, jak to mam resit?
predem dekuji
Mirek
OT Meet face to face with other Delphi developers
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 3.4.2003 01:56:42
Meet other Delphi developers in your area
http://bdn.borland.com/article/0,1410,29906,00.html
http://delphi.meetup.com/members/
KADAO a PC bez MS Access
[*] Viliam Mlich <mlich1(zv)volny(tec)cz> - 2.4.2003 23:29:53
> funguje jen na pocitaci, kde je MS Access nainstalovan. Jinak se
aplikace
> zhrouti s chybovym hlasenim, ze chybi "DAO".
http://kadao.dir.bg/ sekcia Tech Info
bye
vmlich
IB / FB - problem s generatorem
[*] Mirek Junek <mirek.junek(zv)worldonline(tec)cz> - 2.4.2003 22:41:56
Mam logovaci tabulku T1, do ktere se zapisuji zaznamy o zmene dat v jine
tabulce T2. Tabulka T2 ma trigger na after update pro insert zmen do
logovaci tabulky T1.
Logovaci tabulka ma primary key generovany pomoci generatoru v triggeru
before insert.
Tohle funguje nekolik mesicu, ale najednou se z nejakeho podivneho duvodu
stalo, ze hodnota generatoru je o 4 mensi nez hodnota primarniho klice
posledne zapsaneho zaznamu v logovaci tabulce. Zadny zaznam nechybi, tj.
zapsaly se postupne 4 zaznamy se spravnym primarnim klicem, ale pak se z
nejakeho duvodu generator snizil o 4.
Po rucnim nastaveni generatoru na spravnou hodnotu to zase funguje dal.
Nesetkal se nekdo z vas s necim podobnym ?
Firebird 1.0 - V6.2.821, Server na W2K, pracovni stanice W98
Diky za jakykoliv napad
Mirek
PrinterIndex - nikdo nevi?
[*] Ji�� Semler <jsemler(zv)stbk.mcs(tec)cz> - 02.4.2003 22:21:45
Ahoj,
zkus toto:
QuickRep1.PrinterSettings.PrinterIndex:=2; // defaultni tiskarna je -1
QuickRep1.Print;
mne to slo.
Jirka
>Proc mi nechce QuickReport tisknout na tiskarnu zadanou v
>Printer.PrinterIndex? Porad tiskne na defaultni. Vytiskne na jinou tiskarnu
>jen pokud ji zmenim v preview okne "Printer setup". Ale to by zakaznik musel
>delat pri kazdem tisku.
>Zajimave je ze pokud nastavim PrinterIndex a potom:
>Printer.BeginDoc;
>Printer.Canvas.TextOut.....
>....
>Printer.EndDoc;
>
>tak toto funguje spravne.
>Dekuji za pomoc.
>Honza
>
Ako funguje ComboBox ...
[*] J�n Harman <harman(zv)volny(tec)cz> - 2.4.2003 22:03:22
Nevim co presne chces delat s tim zmensovanim obrazku, ale kazdopadne ti to
co mas napsane ani neprojde compilerem. Za "then" ti u obou pripadu chybi
"begin" a na konci bloku samozrejme "end"
Honza.
> Ahojte,
>
> na formular som umiestnil ComboBox a naplnil ho hodnotami:
> 100%, 75%,50%, 25% ... (zvacsovanie a zmensovanie obrazku)
>
> Kazdu vybranu hodnotu by som potreboval obsluzit inym kodom.
> Skusal som to takto, ale nefunguje mi to:
>
> procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer;
> Rect: TRect; State: TOwnerDrawState );
> var
> x: integer;
> y: integer;
> xx: integer;
> yy: integer;
> begin
> if Index = 5 then
> x := Image1.Picture.Width;
> y := Image1.Picture.Height;
> xx := x div 100;
> yy := y div 100;
> x := xx * 10;
> y := yy * 10;
> Image1.Width := x;
> Image1.Height := y
> else
> if Index = 3 then
> x := Image1.Picture.Width;
> y := Image1.Picture.Height;
> xx := x div 100;
> yy := y div 100;
> x := xx * 50;
> y := yy * 50;
> Image1.Width := x;
> Image1.Height := y;
> end;
>
> Poradi mi niekto, ako by som to mal urobit ???
>
> Dakujem,
> Alex
>
> -----------------------------------------------------
> Bugala Alex - stredoskolak
> Win2000 Prof CZ + SP2 + Delphi 3 Client/Server Suite
>
>
>
>
>
>
> ----------
> Teraz uz domena .SK pre kazdeho uplne ZADARMO.
> Viac info na: http://www.slovaknet.sk/sk-zadarmo.asp
>
KADAO a PC bez MS Access
[*] Mirek <konf_delphi(zv)seznam(tec)cz> - 2.4.2003 21:54:56
Ahoj, mam prosbu. Potreboval bych hodne rychle vyresit jeden problem. Mam
vytvorenou aplikaci, ktera pres komponentu KADAODatabase komunikuje s
databazi MS Access. Tato databaze byla vytvorena primo v MS Access 97, ale
funguje jen na pocitaci, kde je MS Access nainstalovan. Jinak se aplikace
zhrouti s chybovym hlasenim, ze chybi "DAO". Muzete mi nekdo rychle poradit,
jak to mam resit?
predem dekuji
Mirek
Blikanie obrazku pri Drag&Drop
[*] Vaclav Krmela <krmela(zv)ustinadorlici(tec)cz> - 2.4.2003 21:09:53
> From: alex
>
> - pri tahani obrazku neprijemne preblikava,
>
Asi to blika proto, protoze beres souradnice mysi
vuci obrazku a soucasne s obrazkem posouvas.
Zkus brat souradnice mysi vuci necemu neposuvnemu,
napriklad Screen:
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if ssLeft in Shift then
begin
Pos := (Sender as TImage).ClientToScreen(
Point(X + ScrollBox1.HorzScrollBar.Position,
Y + ScrollBox1.VertScrollBar.Position));
end;
end;
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var APos: TPoint;
begin
if ssLeft in Shift then
begin
APos := (Sender as TImage).ClientToScreen(Point(X, Y));
ScrollBox1.HorzScrollBar.Position := Pos.x - APos.X;
ScrollBox1.VertScrollBar.Position := Pos.y - APos.Y;
end;
end;
Vaclav Krmela
Blikanie obrazku pri Drag&Drop
[*] Vita J. <delphi(zv)obecpohori(tec)cz> - 2.4.2003 21:17:00
zkus v oncreate formulare napsat
doublebuffered:=true;
pisu to z hlavy v praci, doufam, ze to neni jinak.
VJ
----- Original Message -----
From: "alex" <bugala_a(zv)inMail.sk>
To: "Delphi" <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, April 02, 2003 8:22 PM
Subject: Blikanie obrazku pri Drag&Drop
> Ahojte,
>
> posuvanie obrazku v Image tahanim mysou je vyriesene, ale vyskytla sa
> necakany
> nedostatok a to:
>
> - pri tahani obrazku neprijemne preblikava, da sa to nejak odstranit ???
>
> Tu je kod:
>
> procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
> Shift: TShiftState; X, Y: Integer);
> begin
> if ssLeft in Shift then
> Pos := Point(X, Y)
> end;
>
> procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
> Y: Integer);
> begin
> if ssLeft in Shift then
> begin
> ScrollBox1.HorzScrollBar.Position := Pos.x - X;
> ScrollBox1.VertScrollBar.Position := Pos.y - Y;
> end;
> end;
>
> Poradi mi niekto, ako by som to mal urobit ???
>
> Dakujem,
> Alex
>
> -----------------------------------------------------
> Bugala Alex - stredoskolak
> Win2000 Prof CZ + SP2 + Delphi 3 Client/Server Suite
>
>
>
>
>
>
>
>
>
> ----------
> Teraz uz domena .SK pre kazdeho uplne ZADARMO.
> Viac info na: http://www.slovaknet.sk/sk-zadarmo.asp
>
Blikanie obrazku pri Drag&Drop
[*] alex <bugala_a(zv)inMail.sk> - 2.4.2003 20:22:53
Ahojte,
posuvanie obrazku v Image tahanim mysou je vyriesene, ale vyskytla sa
necakany
nedostatok a to:
- pri tahani obrazku neprijemne preblikava, da sa to nejak odstranit ???
Tu je kod:
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if ssLeft in Shift then
Pos := Point(X, Y)
end;
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if ssLeft in Shift then
begin
ScrollBox1.HorzScrollBar.Position := Pos.x - X;
ScrollBox1.VertScrollBar.Position := Pos.y - Y;
end;
end;
Poradi mi niekto, ako by som to mal urobit ???
Dakujem,
Alex
-----------------------------------------------------
Bugala Alex - stredoskolak
Win2000 Prof CZ + SP2 + Delphi 3 Client/Server Suite
----------
Teraz uz domena .SK pre kazdeho uplne ZADARMO.
Ako funguje ComboBox ...
[*] alex <bugala_a(zv)inMail.sk> - 2.4.2003 20:22:39
Ahojte,
na formular som umiestnil ComboBox a naplnil ho hodnotami:
100%, 75%,50%, 25% ... (zvacsovanie a zmensovanie obrazku)
Kazdu vybranu hodnotu by som potreboval obsluzit inym kodom.
Skusal som to takto, ale nefunguje mi to:
procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState );
var
x: integer;
y: integer;
xx: integer;
yy: integer;
begin
if Index = 5 then
x := Image1.Picture.Width;
y := Image1.Picture.Height;
xx := x div 100;
yy := y div 100;
x := xx * 10;
y := yy * 10;
Image1.Width := x;
Image1.Height := y
else
if Index = 3 then
x := Image1.Picture.Width;
y := Image1.Picture.Height;
xx := x div 100;
yy := y div 100;
x := xx * 50;
y := yy * 50;
Image1.Width := x;
Image1.Height := y;
end;
Poradi mi niekto, ako by som to mal urobit ???
Dakujem,
Alex
-----------------------------------------------------
Bugala Alex - stredoskolak
Win2000 Prof CZ + SP2 + Delphi 3 Client/Server Suite
----------
Teraz uz domena .SK pre kazdeho uplne ZADARMO.
chyba v StrToDate
[*] Milan Lucka <mlucka(zv)cz.foxconn(tec)com> - 2.4.2003 19:35:52
Zdravim
1. pozrel by som sa blizsie na premennu DateSeparator. Asi ju chces mat ".",
tak by som nastavil DateSeparator:= '.'. Na dotycnom stroji je mozno v
regionalnom nastaveni datumovy separator "/" a ty to v kode neovplyvnujes.
ShortDateFormat ovplyvnuje poradie a pocet cifier dna, mesiaca a roku
2. cela cast TDateTime je datum, desatinna cast je cas
v pripade potreby hlbsej separacie mozno pouzit:
function MonthOfDate(aDateTime: TDateTime): integer;
begin
Result:= StrToInt(FormatDateTime('m', aDateTime));
end;
function DayOfDate(aDateTime: TDateTime): integer;
begin
Result:= StrToInt(FormatDateTime('d', aDateTime));
end;
atd. pre ostatne casti datumu a casu
PS: Uz som to tu spominal, ze nastavenie formatovacich premennych pre datum,
cas a pod. v Delphi aplikacii nemusi byt stabilne pocas behu aplikacie, lebo
je ovplyvnene vlastnostou Application.UpdateFormatSettings (defaultne TRUE)
a teda pri WM_WININICHANGE sa opatovne nacitaju z registra a uzivatelske
nastavenie v aplikacii sa znici.
Dufam, ze to pomoze :-)
Milan
-----Original Message-----
From: Petr Langer [mailto:langer(zv)xdom(tec)cz]
Sent: Wednesday, April 02, 2003 6:24 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: chyba v StrToDate
Ahojte,
mam tento kousek kodu (typy promennych jsou jasne...):
ShortDateFormat := 'dd.mm.yyyy';
d1 := EncodeDate(2003, 6, 9);
s := DateTimeToStr(d1);
d2 := StrToDate(s);
a kdyz ho vykonam na jednom stroji s Windows 2000 Server, vyhuci to s chybou
" '09.06.2003' is not a valid date." na radku d2 := StrToDate(s);.
Jinde mi to beha, na tom jednom stroji to blbne. Nesetkal se nekdo s tim?
Jak jinak mam jednoduse rozparsovat Datum (respektive datum i cas, bude tam
oboji)?
Diky za tip,
Petr Langer
TClientSocket
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 2.4.2003 19:03:42
From: "Robert Suska" <SuskaR(zv)seznam(tec)cz>
> Mas pravdu ide to tak ze sa iba doinstaluje ten balicek dclsockets70.bpl a
> jeto hotove :). A ja som chodil ako pes okolo horucej kase.
Je to popsano v Readme.
Promazani TStringLIst
[*] Erik Salaj <info(zv)winsoft.sk> - 02.4.2003 16:55:50
> Pisatel mel zrejme na mysli to, ze z hlediska teorie dokazovani
algoritmu, je dokazoavni cyklu WHILE (pascalovskeho) jednodussi nez
> REPEAT - co se tyce tvorby pre- a post- conditions. Cyklus REPEAT je
"atypicky" tim, ze vzdy probehne alespon jednou, nehlede na
> ridici podminku cyklu.
zlozitost dokazovania WHILE aj REPEAT musi byt zhruba rovnaka,
pretoze previest REPEAT na WHILE je trivialna zalezitost. Komplikacie
mozu sposobit ine prikazy, povedzme goto, break, continue. Obzvlast
komplikovana je v tomto ohlade floating point aritmetika a myslim, ze aj
paralelne vykonavanie prikazov.
Vela jazykov ma REPEAT cyklus a na REPEAT cykle nevidim nic zle.
Pre zaujimavost Eiffel taky cyklus nema, tam je len jeden univerzalny
from-until-loop cyklus.
Erik
chyba v StrToDate
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 2.4.2003 19:03:11
From: "Petr Langer" <langer(zv)xdom(tec)cz>
> Pak ale nechapu, proc se zvlast jeste nastavuje ShortDateFormat :=
> 'dd.mm.yyyy'; respektive, proc si to sam nevezme odtud...
Je to tak a jsou s tim problemy, napriklad kvuli tomu pak nefunguji vlastni
formaty datumu v XML transformacich. Pokud mas Delphi 7 tak doporucuji pouzit
verze formatovacich funkci s dalsi parametrem kde se predava TFormatSettings
misto nastavovani globalnich promennych v SysUtils.
Petr Vones
chyba v StrToDate
[*] Petr Langer <langer(zv)xdom(tec)cz> - 2.4.2003 18:47:37
Po asi hodine a pul badani si odpovim sam:
DateSeparator := '.';
Pak ale nechapu, proc se zvlast jeste nastavuje ShortDateFormat :=
'dd.mm.yyyy'; respektive, proc si to sam nevezme odtud...
Petr Langer
----- Original Message -----
From: "Petr Langer" <langer(zv)xdom(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Wednesday, April 02, 2003 6:23 PM
Subject: chyba v StrToDate
> Ahojte,
> mam tento kousek kodu (typy promennych jsou jasne...):
>
> ShortDateFormat := 'dd.mm.yyyy';
> d1 := EncodeDate(2003, 6, 9);
> s := DateTimeToStr(d1);
> d2 := StrToDate(s);
>
> a kdyz ho vykonam na jednom stroji s Windows 2000 Server, vyhuci to s
chybou
> " '09.06.2003' is not a valid date." na radku d2 := StrToDate(s);.
> Jinde mi to beha, na tom jednom stroji to blbne. Nesetkal se nekdo s tim?
> Jak jinak mam jednoduse rozparsovat Datum (respektive datum i cas, bude
tam
> oboji)?
>
> Diky za tip,
> Petr Langer
>
>
>
chyba v StrToDate
[*] Petr Langer <langer(zv)xdom(tec)cz> - 2.4.2003 18:23:38
Ahojte,
mam tento kousek kodu (typy promennych jsou jasne...):
ShortDateFormat := 'dd.mm.yyyy';
d1 := EncodeDate(2003, 6, 9);
s := DateTimeToStr(d1);
d2 := StrToDate(s);
a kdyz ho vykonam na jednom stroji s Windows 2000 Server, vyhuci to s chybou
" '09.06.2003' is not a valid date." na radku d2 := StrToDate(s);.
Jinde mi to beha, na tom jednom stroji to blbne. Nesetkal se nekdo s tim?
Jak jinak mam jednoduse rozparsovat Datum (respektive datum i cas, bude tam
oboji)?
Diky za tip,
Petr Langer
problemy s verzi ComCtl vz. ImageList
[*] Ji�� Baudy� - 2.4.2003 17:45:39
To se mi moc nezd=E1 v=BEdy=BB na t=ECch PC b=EChaj v=ECci jako Corel, AI=
atd. co=BE bych
=F8ek, =BEe jsou v=ECci kter=E9 PC rozhodn=EC zat=ED=BE=ED v=EDc be=BE ta=
kov=E1 blbina ?
Jirka
> Karel Rys
>
> Ahoj,
>
> tahle hlaska se mi typicky objevovala na win 95/98 pri nedostatku
> systemovych prostredku.
>
> Karel Rys
> Ji=F8=ED Baudy=B9 dne 2 Apr 2003 v 12:38:
>
> > Jedn=E1 se o konkr=E9tn=ED verzi ComCtl32.dll (5.81.4916.400 / resp.
> > 5.50.4916.400 to MS ozna=E8ov=E1n=ED asi nikdy nepochopim) s kombinac=
=ED s
> > n=ECjakou dal=B9=ED knihovnou. (moment=E1ln=EC zji=B9=BBuji jakou) Do=
image listu se
> > na=E8=EDtaj=ED obr=E1zky(ek) z resource jedn=E1 se o 185 obr. o velik=
osti max
> > 120x120 bod=F9. To znamen=E1 max 22200x120 bod=F9.
> ...
> > DAta.Images.InsertMasked - Vyhod=ED hl=E1=B9ku "Parametr nen=ED spr=E1=
vn=FD" a
> > obr=E1zky do ImageListu nep=F8i=F8ad=ED.
>chyba v StrToDate
[*] Robert Suska <SuskaR(zv)seznam(tec)cz> - 2.4.2003 18:29:45
Ahoj!
Podla mna nemas dobre nastaveny Format datumu v regional settings v
Ovladacich paneloch v zalozke datum. Hm... Neviem mozno je to kravina ak =
ano
tak prosim ignorujte tento mail. To ma len tak teraz rychlo napadlo. ;-)
Robo
****************************************
Robert Suska
KORAK SLOVAKIA s.r.o.
Horna 52
974 01 Banska Bystrica
www.korak.sk robert(zv)korak.sk
Network administrator, Delphi programmer
My site: www.sefino.globus.sk
****************************************
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On
Behalf Of Petr Langer
Sent: Wednesday, April 02, 2003 6:24 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: chyba v StrToDate=20
Ahojte,
mam tento kousek kodu (typy promennych jsou jasne...):
ShortDateFormat :=3D 'dd.mm.yyyy';
d1 :=3D EncodeDate(2003, 6, 9);
s :=3D DateTimeToStr(d1);
d2 :=3D StrToDate(s);
a kdyz ho vykonam na jednom stroji s Windows 2000 Server, vyhuci to s =
chybou
" '09.06.2003' is not a valid date." na radku d2 :=3D StrToDate(s);. =
Jinde mi
to beha, na tom jednom stroji to blbne. Nesetkal se nekdo s tim? Jak =
jinak
mam jednoduse rozparsovat Datum (respektive datum i cas, bude tam =
oboji)?
Diky za tip,
Petr Langer
PrinterIndex - nikdo nevi?
[*] J�n Harman <harman(zv)volny(tec)cz> - 2.4.2003 17:27:21
Ahoj, predtim nikdo neodpovedel, tak jeste jednou prosim o radu.
Proc mi nechce QuickReport tisknout na tiskarnu zadanou v
Printer.PrinterIndex? Porad tiskne na defaultni. Vytiskne na jinou tiskarnu
jen pokud ji zmenim v preview okne "Printer setup". Ale to by zakaznik musel
delat pri kazdem tisku.
Zajimave je ze pokud nastavim PrinterIndex a potom:
Printer.BeginDoc;
Printer.Canvas.TextOut.....
....
Printer.EndDoc;
tak toto funguje spravne.
Dekuji za pomoc.
Honza
Promazani TStringLIst
[*] Bronislav Klucka <delphi(zv)pro2-soft(tec)com> - 2.4.2003 16:52:04
a mohl bys nam prosim krome tech teoretickych zvastu vysvetlit, v cem je
a:=true;
while a do
begin
<prikazy>
a:=exp;
end;
lepsi, nez
repeat
<prikazy>
a:=exp;
until not a;???
at se na tio divam, jak se na to divam, konstrukce repeat until mi v tomto
pripade prijde rozumnejsi JEDINY rozdil mezi temi konstrukcemi je skutecne
to, zda vim, ze se cyklus minimalne jednouprovede, nebo nevim.... S pozdravem
Bronislav Klucka
Windows programmmer, Web programmer
-------------------------------------------------
http://pro2-soft.com
Email : Bronislav.Klucka(zv)pro2-soft.com
Phone : +420605582922
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Petr Fejfar
Sent: Wednesday, April 02, 2003 3:52 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Re: Promazani TStringLIst
From: "Hampel, Radim" <rhampel(zv)infinity(tec)cz>
> No to je holy nesmysl.
Mozna by neskodilo, kdybys precetl treba The Principles of structure
programming od Jacksona...
> 1. Ty delas analyzu az takto do zdrojoveho kodu,
> nebo ti nekdo urcuje jestli mas pouzit while nebo repeat?
> 2. Ty cykly jsou prece rovnocene.
Kdyz popisujes realny problem pri analyze, pracujes na urovni elementarnich
logickych abstrakci typu sekvence, selekce a iterace, zpravidla bez ohledu
na jazyk, a na teto urovni abstrakce nebudes umele slucovat sekvenci s
iteraci, kterou cyklus REPEAT-UNTIL ve skutecnosti predstavuje.
Myslim, ze k tomu nemam dal co dodat. To, co zde presentuji, jsou veci
platne temer 30 let a lze je v patricne literature nastudovat.
HTH, pf
Promazani TStringLIst
[*] Ond�ej Tu�n������'�������̿ - 2.4.2003 15:55:39
> nebo lepe a jde to optimalne i bez repeat
> //Statement;
> cond = True;
> while Cond
> {
> Statement;
> cond = expr;
> }
Bu�������������.
--
Ond�ej Tu�n�
Flex 4.0 Personal Edition Beta 1 dostupn� na www.flexlanguage.com
Promazani TStringLIst
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 2.4.2003 15:51:42
From: "Hampel, Radim" <rhampel(zv)infinity(tec)cz>
> No to je holy nesmysl.
Mozna by neskodilo, kdybys precetl treba The Principles of structure
programming od Jacksona...
> 1. Ty delas analyzu az takto do zdrojoveho kodu,
> nebo ti nekdo urcuje jestli mas pouzit while nebo repeat?
> 2. Ty cykly jsou prece rovnocene.
Kdyz popisujes realny problem pri analyze, pracujes na urovni elementarnich
logickych abstrakci typu sekvence, selekce a iterace, zpravidla bez ohledu
na jazyk, a na teto urovni abstrakce nebudes umele slucovat sekvenci s
iteraci, kterou cyklus REPEAT-UNTIL ve skutecnosti predstavuje.
Myslim, ze k tomu nemam dal co dodat. To, co zde presentuji, jsou veci
platne temer 30 let a lze je v patricne literature nastudovat.
HTH, pf
DTD sablona - nezavazne poradi elementu
[*] Hampel, Radim <rhampel(zv)infinity(tec)cz> - 2.4.2003 15:18:55
> -----P=F9vodn=ED zpr=E1va-----
> Chtel bych ale nejak urcit, ze mi NEZALEZI na poradi (tedy=20
> povoluji pouze tyto elemnty, ale mohou byt jakkoliv prohazene=20
> a jakkoliv se opakovat). Jde to nejak, nebo k tomu pristupuji=20
> uplne spatne? Takhle to parser samozrejme nevezme a tvrdi, ze=20
> na tomto miste nemuze byt element... - nesedi mu poradi
<!ENTITY ELEMENT (SUBEL|SUBEL|SUBEL)* >
TClientSocket
[*] Robert Suska <SuskaR(zv)seznam(tec)cz> - 2.4.2003 15:33:45
Ahoj!
Mas pravdu ide to tak ze sa iba doinstaluje ten balicek dclsockets70.bpl =
a
jeto hotove :). A ja som chodil ako pes okolo horucej kase.=20
vdaka
Robo
****************************************
Robert Suska
KORAK SLOVAKIA s.r.o.
Horna 52
974 01 Banska Bystrica
www.korak.sk robert(zv)korak.sk
Network administrator, Delphi programmer
My site: www.sefino.globus.sk
****************************************> V D7 je standartne obsiahnuta komponenta TClientSocket len nie je uz=20
> ako visualna. Musis urobit malu upravu v kode a to takto doteraz si=20
> mal deklaraciu socketu takto
Mam takovy dojem, ze staci do D7 doinstalovat mezi packages =
dclsockets70.bpl
Tim by se mely vyresit diskutovane problemy.
Alexandr STEFEK
Promazani TStringLIst - KONEC
[*] Vymazal Milan <vymazal.milan(zv)seznam(tec)cz> - 2.4.2003 15:23:03
Cau Radim,
Wednesday, April 2, 2003, 2:07:56 PM, you wrote:
>> Od: Petr Fejfar [mailto:development(zv)callnet(tec)cz]
>> Obecne bych rekl, ze v programu, kteremu predchazela analyza
>> + navrh analytikem/projektantem, se konstrukce REPEAT-UNTIL
>> neobjevuji, protoze jeji pouziti je dusledkem optimalizace
>> nekterych typu cyklu pri kodovani. Ale bez takovych
>> optimalizaci se IMHO lze celkem dobre obejit.
> No to je holy nesmysl.
> 1. Ty delas analyzu az takto do zdrojoveho kodu, nebo ti nekdo urcuje
> jestli mas pouzit while nebo repeat?
> 2. Ty cykly jsou prece rovnocene. Pokud myslis optimalizi cyklu toto
> Statement;
> Cond = expr;
> While cond
> {
> statement;
> cond = expr;
> }
> Tak je prece lepsi repeat statement until expr; Toto neni optimalizace
> ale proste jiny zapis.
> 3. A nevidim opet rozdil v toku programu, jestli podminku testuji na
> zacatku a odskakuju dopredu, nebo testuji nakonec a odskakuji dopredu.
> Ani z hlediska zdrojoveho kodu, a ani me nedapada vyhoda/nevyhoda pro
> generovany kod.
> Radim
Dekuji vsem kdo mi na mou otazku odpovedeli a pomohli ale tedka uz vas
prosim zastavte ten flamewar.... :)
S pozdravem
Milan Vymazal
Promazani TStringLIst
[*] Alexandr Stefek <alex(zv)scova.vabo(tec)cz> - 2.4.2003 15:14:41
>Statement;
>Cond = expr;
>While cond
>{
> statement;
> cond = expr;
>}
>Tak je prece lepsi repeat statement until expr; Toto neni optimalizace
>ale proste jiny zapis.
nebo lepe a jde to optimalne i bez repeat
//Statement;
cond = True;
while Cond
{
Statement;
cond = expr;
}
TClientSocket
[*] Alexandr Stefek <alex(zv)scova.vabo(tec)cz> - 2.4.2003 15:06:53
> V D7 je standartne obsiahnuta komponenta TClientSocket len nie je uz ako
> visualna. Musis urobit malu upravu v kode a to takto doteraz si mal
> deklaraciu socketu takto
Mam takovy dojem, ze staci do D7 doinstalovat mezi packages
dclsockets70.bpl
Tim by se mely vyresit diskutovane problemy.
Alexandr STEFEK
DTD sablona - nezavazne poradi elementu
[*] Daniel Frantik <frantik(zv)telpro(tec)cz> - 2.4.2003 14:45:47
Ahoj,
delam DTD sablonu. Mam v ni neco jako: <!ELEMENT REGISTRY (WRITE*,
REPLACE*, RENAME*, DELETE*)>
Chtel bych ale nejak urcit, ze mi NEZALEZI na poradi (tedy povoluji pouze
tyto elemnty, ale mohou byt jakkoliv prohazene a jakkoliv se opakovat). Jde
to nejak, nebo k tomu pristupuji uplne spatne? Takhle to parser samozrejme
nevezme a tvrdi, ze na tomto miste nemuze byt element... - nesedi mu poradi
Diky,
Danik
Mirne OT: COM port
[*] Skopalik Slavomir <skopalik(zv)hlubocky.del(tec)cz> - 2.4.2003 14:39:15
1. Pouzil bych spise cteni API funkci, az potom komponentu.
2. RS 232 ma logickou High definovanou jako -3 az - 15 V a Logickou Low=20
jako +3 az + 15 V
Takze bych to urcite nespojoval se zemi, ale natriklad s DTR, tim DTR si =
blikal a musi mi blikat
i prislusny vstup COM portu (vse bych dele pres api win32, v nouzi bych=20
pouzil Asyn32, ten mi fungoval).
Slavek
>
> Co m=E1m pripojit na piny (napr. na 9 a na pin 5=3Dsign=E1ln=ED zem)? =
Pouz=EDv=E1m=20
CAN9, odhadl bych, ze se nap=E1j=ED kladn=FDm napet=EDm ten ci onen pin =
6,8,9 nebo=20
1(a samozrejme tak=E9 5=3DZEM, druh=FD p=F3l), ale nefunguje mi to. Port =
je=20
otevren, ale d=E1l poc=EDtac mlc=ED.
>
> Pokud s t=EDmto m=E1te nekdo zkusenosti a v=EDte i, jak nastavit =
property=20
DTRControl, FlowControl, RTSControl t=E9to komponente, poradte pros=EDm.
>
> Dekuji a jsem s pozdravem
> StuPe http://stupe.jinde(tec)cz
DTD sablona - nezavazne poradi elementu
[*] Jan K��ek - 2.4.2003 15:01:59
<!ELEMENT REGISTRY ((WRITE|REPLACE|RENAME|DELETE)*)>
| =3D jeden z=20
* =3D libovolny pocet
Honza +
> -----Original Message-----
> From: Daniel Frantik [mailto:frantik(zv)telpro(tec)cz]
> Sent: Wednesday, April 02, 2003 2:46 PM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: DTD sablona - nezavazne poradi elementu
>=20
>=20
> Ahoj,
> delam DTD sablonu. Mam v ni neco jako: <!ELEMENT REGISTRY (WRITE*,
> REPLACE*, RENAME*, DELETE*)>
>=20
> Chtel bych ale nejak urcit, ze mi NEZALEZI na poradi (tedy=20
> povoluji pouze
> tyto elemnty, ale mohou byt jakkoliv prohazene a jakkoliv se=20
> opakovat). Jde
> to nejak, nebo k tomu pristupuji uplne spatne? Takhle to=20
> parser samozrejme
> nevezme a tvrdi, ze na tomto miste nemuze byt element... -=20
> nesedi mu poradi
>=20
> Diky,
> Danik
>=20
Promazani TStringLIst
[*] Hampel, Radim <rhampel(zv)infinity(tec)cz> - 2.4.2003 14:07:56
> Od: Petr Fejfar [mailto:development(zv)callnet(tec)cz]=20
> Obecne bych rekl, ze v programu, kteremu predchazela analyza
> + navrh analytikem/projektantem, se konstrukce REPEAT-UNTIL
> neobjevuji, protoze jeji pouziti je dusledkem optimalizace=20
> nekterych typu cyklu pri kodovani. Ale bez takovych=20
> optimalizaci se IMHO lze celkem dobre obejit.
No to je holy nesmysl.=20
1. Ty delas analyzu az takto do zdrojoveho kodu, nebo ti nekdo urcuje
jestli mas pouzit while nebo repeat?
2. Ty cykly jsou prece rovnocene. Pokud myslis optimalizi cyklu toto
Statement;
Cond =3D expr;
While cond
{
statement;
cond =3D expr;
}
Tak je prece lepsi repeat statement until expr; Toto neni optimalizace
ale proste jiny zapis.
3. A nevidim opet rozdil v toku programu, jestli podminku testuji na
zacatku a odskakuju dopredu, nebo testuji nakonec a odskakuji dopredu.
Ani z hlediska zdrojoveho kodu, a ani me nedapada vyhoda/nevyhoda pro
generovany kod.
Radim
problemy s verzi ComCtl vz. ImageList
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 2.4.2003 13:51:46
Ji=F8=ED Baudy=B9 dne 2 Apr 2003 v 12:38:
> Jedn=E1 se o konkr=E9tn=ED verzi ComCtl32.dll (5.81.4916.400 / resp.
> 5.50.4916.400 to MS ozna=E8ov=E1n=ED asi nikdy nepochopim) s kombinac=ED=
s
> n=ECjakou dal=B9=ED knihovnou. (moment=E1ln=EC zji=B9=BBuji jakou) Do im=
age listu se
> na=E8=EDtaj=ED obr=E1zky(ek) z resource jedn=E1 se o 185 obr. o velikost=
i max
> 120x120 bod=F9. To znamen=E1 max 22200x120 bod=F9.
...
> DAta.Images.InsertMasked - Vyhod=ED hl=E1=B9ku "Parametr nen=ED spr=E1vn=
=FD" a
> obr=E1zky do ImageListu nep=F8i=F8ad=ED.
Ahoj,
tahle hlaska se mi typicky objevovala na win 95/98 pri nedostatku systemov=
ych prostredku.
Karel Rys
Mirne OT: COM port
[*] StuPe - 2.4.2003 13:43:10
M=E1m komponentu od Varian Software
konkr=E9tne TVaComm a nemohu doc=EDlit vyvol=E1n=ED ud=E1lost=ED =
(uveden=E9 vlastnosti jsou logick=E9ho typu):
procedure TForm1.VaComm1Dsr(Sender: TObject);
VaComm1.DSR // 6 - DSR
procedure TForm1.VaComm1Cts(Sender: TObject);
VaComm1.CTS // 8 - CTS
procedure TForm1.VaComm1Ring(Sender: TObject);
VaComm1.RING // 9 - Ri
procedure TForm1.VaComm1Rlsd(Sender: TObject);
VaComm1.RLSD // 1 - DCD (RLSD)
A m=E1m HARDWARE:
Pin Number
Direction of signal:
=20
1
Carrier Detect (CD) (from DCE) Incoming signal from a modem
=20
2
Received Data (RD) Incoming Data from a DCE
=20
3
Transmitted Data (TD) Outgoing Data to a DCE
=20
4
Data Terminal Ready (DTR) Outgoing handshaking signal=20
=20
5
Signal Ground Common reference voltage
=20
6
Data Set Ready (DSR) Incoming handshaking signal
=20
7
Request To Send (RTS) Outgoing flow control signal
=20
8
Clear To Send (CTS) Incoming flow control signal
=20
9
Ring Indicator (RI) (from DCE) Incoming signal from a modem=20
=20
Co m=E1m pripojit na piny (napr. na 9 a na pin 5=3Dsign=E1ln=ED zem)? =
Pouz=EDv=E1m CAN9, odhadl bych, ze se nap=E1j=ED kladn=FDm napet=EDm ten =
ci onen pin 6,8,9 nebo 1(a samozrejme tak=E9 5=3DZEM, druh=FD p=F3l), =
ale nefunguje mi to. Port je otevren, ale d=E1l poc=EDtac mlc=ED.
Pokud s t=EDmto m=E1te nekdo zkusenosti a v=EDte i, jak nastavit =
property DTRControl, FlowControl, RTSControl t=E9to komponente, poradte =
pros=EDm.
Dekuji a jsem s pozdravem
StuPe http://stupe.jinde(tec)cz
Umiestnenie textu v TEdit
[*] Lubos Urban <Lubos.Urban(zv)visicom.sk> - 2.4.2003 13:35:36
No tak, ked som sa nedockal riesenia na konfere tak som patral dalej a ak by
to niekoho zaujimalo tak som to poriesil takto:
1. Params.Style := Params.Style or ES_MULTILINE
2. SendMessage(EditControl.Handle, EM_SETRECT, 0, LongInt((zv)Rect));
3. odchytavat KeyPress a WM_PASTE a filtrovat VK_ENTER
----- Original Message -----
From: "Lubos Urban" <Lubos.Urban(zv)visicom.sk>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, March 31, 2003 9:56 AM
Subject: Umiestnenie textu v TEdit
> Ahojte,
>
> mohol by mi prosim niekdo poradit ci sa nejakym sposobom da upravit
> vertikatne umiestnenie textu v komponente TEdit (napr. vycentrovat na
> vysku).
> Na zmenu umiestnenia textu v horizontalnom smere som nasiel nieco ako
> EM_SETMARGINS, ale je nieco take ak na zmenu vertikalneho umiestnenia???
>
> Dakujem,
> Lubos
>
>
>
>
Interbase a ADOTable
[*] Lstiburek Pavel <Lstiburek(zv)ceb(tec)cz> - 2.4.2003 13:12:50
V cem by mohla byt chyba nevim (nemas tam vypocitavane pole?), ale=20
potrebujes urcite ADOTable ? Pokud s ADOQuery nejsou problemy, tak ji
pouzij, rozdil obou komponet je minimalni (ADOTable ma nektere drobne mou=
chy
i pri pristu MS databazim).
Pavel
> -----Original Message-----
> From: Franti=B9ek Ml=E8och [mailto:frantisek.mlcoch(zv)vsb(tec)cz]
> Sent: Friday, March 07, 2003 2:40 PM
> To: Delphi
> Subject: Interbase a ADOTable
>=20
>=20
> Pouzivam DB Interbase (server Firebird 1.0) a ODBC od=20
> EasySoft. Kdyz v D6
> pouziji komponentu ADOTable pro pristup k tabulce, dojde vzdy=20
> pri aktivaci
> komponenty k zobrazeni vyjimky:
>=20
> Raised exception class EVariantTypeCastError with message=20
> 'Could not convert
> variant of type (Null) into type (String)'.
>=20
> Kdyz tu samou tabulku otevru v navrhovem rezimu nebo pomoci komponenty
> ADOQuery (SELECT * FROM tabulka) zadna chyba nenastane.
>=20
> Poradte co s tim?
>=20
> Diky F.
>=20
>=20
Promazani TStringLIst
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 2.4.2003 12:52:41
From: "Tom Beran" <tfuzzy(zv)atlas(tec)cz>
> Pisatel mel zrejme na mysli to, ze z hlediska teorie dokazovani algoritmu,
> je dokazoavni cyklu WHILE (pascalovskeho) jednodussi nez
> REPEAT - co se tyce tvorby pre- a post- conditions.
> Cyklus REPEAT je "atypicky" tim, ze vzdy probehne alespon jednou,
> nehlede na ridici podminku cyklu.
Pisatel mel na mysli, ze konstrukce REPEAT-UNTIL neni z pohledu
algoritmizace prostou iteraci jako ostatni cykly, ale konstrukci slozenou
ze sekvence + iterace (to je ta atypicnost).
Jake problemy to pusobi programatorum nazorne ilustroval PS ve svem puvodnim
prispevku - ti pokrocilejsi takovou chybu fixnou vlozenim selekce
do tela cyklu ;-)
Teoreticky je existence REPEAT-UNTIL nadbytecna a proto se ve svete
strukturovaneho programovani (Jackson, Yourdon aj.) nepouziva/zavrhuje
Praktickym dusledkem je, ze se v nastrojich CASE zpravidla neda ve
struktogramech zakreslit.
Obecne bych rekl, ze v programu, kteremu predchazela analyza
+ navrh analytikem/projektantem, se konstrukce REPEAT-UNTIL
neobjevuji, protoze jeji pouziti je dusledkem optimalizace nekterych
typu cyklu pri kodovani. Ale bez takovych optimalizaci se IMHO lze
celkem dobre obejit.
HTH, pf
problemy s verzi ComCtl vz. ImageList
[*] Ji�� Baudy� - 2.4.2003 12:38:30
Jedn=E1 se o konkr=E9tn=ED verzi ComCtl32.dll (5.81.4916.400 / resp. 5.50=
.4916.400
to MS ozna=E8ov=E1n=ED asi nikdy nepochopim) s kombinac=ED s n=ECjakou da=
l=B9=ED
knihovnou. (moment=E1ln=EC zji=B9=BBuji jakou)
Do image listu se na=E8=EDtaj=ED obr=E1zky(ek) z resource jedn=E1 se o 18=
5 obr. o
velikosti max 120x120 bod=F9. To znamen=E1 max 22200x120 bod=F9.
procedure TS1Form.LoadImage(ResName: String);
var bmp:TBitmap;
begin
BMP:=3D TBitmap.Create;
BMp.Transparent:=3Dtrue;
bmp.TransparentMode :=3D tmAuto;
bmp.LoadFromResourceName(hInstance,ResName);
DAta.Images.Masked :=3D True;
DAta.Images.BkColor :=3D clNone;
DAta.Images.DrawingStyle :=3D dsNormal;
DAta.Images.InsertMasked(0,bmp,bmp.TransparentColor);
bmp.Free;
end;
Do ResName se podle rozli=B9en=ED a barevn=E9 hloubky vkl=E1d=E1 "spr=E1v=
n=FD" resource.
Program vykazuje chybu a=BE p=F8i vol=E1n=ED DAta.Images.InsertMasked
- Vyhod=ED hl=E1=B9ku "Parametr nen=ED spr=E1vn=FD" a obr=E1zky do ImageL=
istu nep=F8i=F8ad=ED.
D=EDky za jakoukoli radu
Jirka
> VCL vyzaduje COMCTL32.dll dodavanou s IE4 a vyssi, dnes je na
> vetsine pocitacu
> bezne asi verze z IE5 nebo 6. Pokud se jedna o problemy tak jsou
> spise jinde,
> casto jsou to spatne drivery videokarty (obsah imagelistu se
> nekdy v driveru
> cachuje) popripade nedokoncena instalace operacniho systemu
> (bar.hloubka pouze
> 16 barev). Zkus vice popsat o jake problemy se presne jedna.
> Jeste je dobre
> upozornit ze imagelist je urcen k uchovavani malych obazku/ikon
> pro toolbary,
> treeview, listview a podobne. Nekteri vyvojari se jej pak nekdy
> chybne snazi
> pouzivat i pro velke obrazky.
>
> Petr Vones
SOAP sluzba pres ISAPI
[*] Pavel Chaloupka <chaloup(zv)cmail(tec)cz> - 2.4.2003 12:21:26
From: "Petr Vones" <pvones(zv)mbox.vol(tec)cz>
> Mozna by bylo lepsi ten threadpool nejdrive uplne vyradit.
A k cemu tam ten threadpool vubec je?
> > v Demos zadnou SOAP sluzbu pres ISAPI vsechno jako CGI, DSO nebo
> > WebDebug....
>
> Asi vi proc ;-)
ToolBar & ToolButton
[*] Jiri Foldyna <jiri.f(zv)avizo(tec)cz> - 2.4.2003 11:54:24
Ahoj,
> 2. Potrebujem nejako vyriesit zatvaranie modalneho okna cez Esc a
> tiez mysou. Doteraz mam na jednom Buttone nastavene property Cancel
> na True a ModalResult na mrCancel. ToolButton taketo property nema a
> v ActionList nemam moznost vybrat shortcut Esc. A dat do ToolBaru ten
> button tak ako je nie je prave ono, lebo ostatne ToolButtony mam
> nastavene ako flat. Ako tento button prerobit na ToolButton pripadne
> iny s vyuzitim ActionList alebo nejako inac?
v D5 to delam tak, ze si nadefinuji TAction s nepredpokladatelnym nazvem
actCancel :-)), shortcut ji nastavim na Esc (jde to bez problemu - proste
napisu Esc :-)) a do OnExecute dam ModalResult := mrCancel. Pokud chci mit
jeste tlacitko na ToolBaru, pridam do imagelistu prislusnou ikonu, u
actCancel ji nastavim, vyplnim Hint a Caption a je vymalovano.
Zdravim
Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz
Promazani TStringLIst
[*] Jiri Foldyna <jiri.f(zv)avizo(tec)cz> - 2.4.2003 11:46:35
> > Tohle spis dokladuje, proc vetsina metodiku konstrukci
> > REPEAT-UNTIL zavrhuje jako "necistou"
>
> Meto- co ? To, =BEe n=ECkdo neum=ED programovat, je=B9t=EC nevypov=EDd=E1
> nic o kvalit=EC
> jazykov=E9 konstrukce. Repeat-until je naprosto pr=F9hledn=FD
> cyklus s p=F8esn=EC
> definovan=FDmi vlastnostmi a v n=ECjak=E9 podob=EC ho m=E1 snad ka=BEd=FD
> jazyk. Mo=BEn=E1 a=BE
> na c=E9=E8ko, kde je v=B9emocn=FD, transcendent=E1ln=ED FOR cyklus...
> Ond=F8ej Tu=E8n=FD
Ahoj,
v tomto pripade souhlasim s PF. Cyklus repeat-until lze snadno nahradit
cyklem while-do, ktery mi pripada transparentnejsi, oba typy cyklu se lis=
i
jen tim, kdy se vyhodnocuje podminka pro ukonceni cyklu. Cyklus repeat-un=
til
jsem pouzil naposledy snad v TP (notoricky zname "repeat until Keypressed=
"
:-)), a nepostradam ho.
Aby to nebylo uplne mimo, jeste k diskusi o mazani ve stringlistu -
prakticky vyhradne pouzivam konstrukci
var
i : integer;
TS : TStringList;
i :=3D 0; // nebo cokoliv, pokud nechci mazat od zacatku
while i < TS.Count do
begin
if TS.Strings[i] =3D 'xxx' then
TS.Delete(i)
else
inc(i);
end;
Nevim, jak by v tom sla udelat chyba :-))
Zdravim
Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz
Editorek pro editaci caption
[*] Martin Kleiner <mkleiner(zv)seznam(tec)cz> - 2.4.2003 10:46:09
Udelej si jednoduchy property editor a zaregistruj ho.
Ing. Martin Kleiner,
nez�visl� program�tor
>Pro editaci caption je mozno pomoci Object Inspektoru vyvolat "maly
editorek".
>Nevite nahodou jak bych mohl tento editorek vyvolat sam v mem programu ?
>Vim, ze si ho mohu tak� jednoduse napsat nejaky jednoduchy editorek, ale
jedne se mi o princip
>a urcite to nejak mus� jit, kdy� uz tam vlastne je.
>Diky za radu
>Franti�ek Stranik
TClientSocket
[*] Robert Suska <SuskaR(zv)seznam(tec)cz> - 2.4.2003 10:53:42
Ahoj!
:) este som zabudol ze si musis pripojit aj eventy a do uses musis pridat
jednotku ScktComp v kode asi takto
type
TForm1 = class(TForm)
procedure ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket);
private
{ Private declarations }
ClientSocket1: TClientSocket;
public
{ Public declarations }
end;
var ....
Data: String;
implementation
procedure TForm1.ClientSocket1Read;
begin
Data:= ClientSocket1.ReceiveText
end;
procedure TForm1.Create....
begin
ClientSocket1:= TClientSocket.Create(nil);
ClientSocket1.OnRead:= ClientSocket1Read;
// dalsie events
ClientSocket1.Host:= 'ip';
ClientSocket1.Port:= 1234;
ClientSocket1.Active:= True;
end;
Toto som pisal z hlavy priamo do mailu takze to asi neskompilujes ale
fungovat to bude
Robo
****************************************
Robert Suska
KORAK SLOVAKIA s.r.o.
Horna 52
974 01 Banska Bystrica
www.korak.sk robert(zv)korak.sk
Network administrator, Delphi programmer
My site: www.sefino.globus.sk
****************************************
Ahoj!
V D7 je standartne obsiahnuta komponenta TClientSocket len nie je uz ako
visualna. Musis urobit malu upravu v kode a to takto doteraz si mal
deklaraciu socketu takto
type
TForm1 = class(TForm)
ClientSocket1: TClientSocket;
private
{ Private declarations }
public
{ Public declarations }
end;
A teraz to bude vyzerat takto
type
TForm1 = class(TForm)
private
{ Private declarations }
ClientSocket1: TClientSocket;
public
{ Public declarations }
end;
Samozrejme ze to mozes dat aj inde aj tam kde je
var
Form1: TForm1;
ClientSocket1: TClientSocket;
implementation
ale teraz sa budes musiet starat o vytvorenie a uvolnenie toho Socketu sam
cize
ClientSocket1:= TClientSocket.Create(nil);
ClientSocket1.Host:= 'ip';
ClientSocket1.Port:= 1234;
ClientSocket1.Active:= True;
A potom pri ukocovani
begin
if Assigned(ClientSocket1) then
if ClientSocket1.Active then
begin
ClientSocket1.Active:= False;
FreeAndNil(ClientSocket1);
end
else
FreeAndNil(ClientSocket1);
end;
S pozdravom
Robo
****************************************
Robert Suska
KORAK SLOVAKIA s.r.o.
Horna 52
974 01 Banska Bystrica
www.korak.sk robert(zv)korak.sk
Network administrator, Delphi programmer
My site: www.sefino.globus.sk
****************************************
Zdravim,
chci se zeptat, jestli je v Delphi 7 standartne obsazena tato trida. Pri
nacteni starsiho programu, ktery se na ni odkazuje zahlasi Delphi ze ji
nemji. Pokud tam neni, poradte, prosim, kde se k ni muzu dostat.
Diky moc
Tlapka
Promazani TStringLIst
[*] Tom Beran<tfuzzy(zv)atlas(tec)cz> - 2.4.2003 11:26:44
>> Tohle spis dokladuje, proc vetsina metodiku konstrukci REPEAT-UNTIL
>> zavrhuje jako "necistou"
>
> Meto- co ? To, ze nekdo neumi programovat, jeste nevypovida nic o kvalite jazykove
> konstrukce. Repeat-until je naprosto pruhledny cyklus s presne definovanymi
Pisatel mel zrejme na mysli to, ze z hlediska teorie dokazovani algoritmu, je dokazoavni cyklu WHILE (pascalovskeho) jednodussi nez
REPEAT - co se tyce tvorby pre- a post- conditions. Cyklus REPEAT je "atypicky" tim, ze vzdy probehne alespon jednou, nehlede na
ridici podminku cyklu.
Vsehny druhy cyklu jsou pouzitelne, od toho asi v tom Pascalu budou, aby se pouzivali, nicmene za sebe musim rict, ze cyklus WHILE
prakticky pouzivam asi 1000krat casteji nez REPEAT.
At nam jazyk poskytne libovolne prostredky, je pravdou, ze "zverstvo" se da naprogramovat pomoci libovolne syntakticke konstrukce
(viz. jeden z predchozich prispevku). Zviratum se omlouvam, pokud je mi znamo neprogramuji a je tedy tento termin ponekud
zavadejici.
Tom
ToolBar & ToolButton
[*] Pavol Svorc <svorcp(zv)pp.internet.sk> - 02.4.2003 10:34:58
Dobry den,
Skusam klasicke buttony prerobit do ToolBaru s pouzitim ActionList
(D5). Zatial som narazil celkom na 3 problemy:
1. Neviem ako spravit, aby vsetky ToolButtony boli vlavo ale jeden
vpravo.
2. Potrebujem nejako vyriesit zatvaranie modalneho okna cez Esc a
tiez mysou. Doteraz mam na jednom Buttone nastavene property Cancel
na True a ModalResult na mrCancel. ToolButton taketo property nema a
v ActionList nemam moznost vybrat shortcut Esc. A dat do ToolBaru ten
button tak ako je nie je prave ono, lebo ostatne ToolButtony mam
nastavene ako flat. Ako tento button prerobit na ToolButton pripadne
iny s vyuzitim ActionList alebo nejako inac?
3. Toto uz je len kozmeticky problem ale predsa: Ked na ToolBare
nastavim ShowCaptions na True nemozem rucne zmenit velkost tych
ToolButton, nastavia sa automaticky podla velkosti textu. V archive
som nasiel, ze sa o to uz pred par rokmi niekto pokusal ale
bezvysledne. Ak sa to vsak niekomu podarilo vyriesit bol by som rad.
Vdaka.
P.Svorc
TClientSocket
[*] Robert Suska <SuskaR(zv)seznam(tec)cz> - 2.4.2003 10:38:14
Ahoj!
V D7 je standartne obsiahnuta komponenta TClientSocket len nie je uz ako
visualna. Musis urobit malu upravu v kode a to takto doteraz si mal
deklaraciu socketu takto
type
TForm1 = class(TForm)
ClientSocket1: TClientSocket;
private
{ Private declarations }
public
{ Public declarations }
end;
A teraz to bude vyzerat takto
type
TForm1 = class(TForm)
private
{ Private declarations }
ClientSocket1: TClientSocket;
public
{ Public declarations }
end;
Samozrejme ze to mozes dat aj inde aj tam kde je
var
Form1: TForm1;
ClientSocket1: TClientSocket;
implementation
ale teraz sa budes musiet starat o vytvorenie a uvolnenie toho Socketu sam
cize
ClientSocket1:= TClientSocket.Create(nil);
ClientSocket1.Host:= 'ip';
ClientSocket1.Port:= 1234;
ClientSocket1.Active:= True;
A potom pri ukocovani
begin
if Assigned(ClientSocket1) then
if ClientSocket1.Active then
begin
ClientSocket1.Active:= False;
FreeAndNil(ClientSocket1);
end
else
FreeAndNil(ClientSocket1);
end;
S pozdravom
Robo
****************************************
Robert Suska
KORAK SLOVAKIA s.r.o.
Horna 52
974 01 Banska Bystrica
www.korak.sk robert(zv)korak.sk
Network administrator, Delphi programmer
My site: www.sefino.globus.sk
****************************************
Zdravim,
chci se zeptat, jestli je v Delphi 7 standartne obsazena tato trida. Pri
nacteni starsiho programu, ktery se na ni odkazuje zahlasi Delphi ze ji
nemji. Pokud tam neni, poradte, prosim, kde se k ni muzu dostat.
Diky moc
Tlapka
TClientSocket
[*] Miroslav Tlap�k <M.Tlapak(zv)sh.cvut(tec)cz> - 2.4.2003 10:23:25
Zdravim,
chci se zeptat, jestli je v Delphi 7 standartne obsazena tato trida. Pri
nacteni starsiho programu, ktery se na ni odkazuje zahlasi Delphi ze ji
nemji.
Pokud tam neni, poradte, prosim, kde se k ni muzu dostat.
Diky moc
Tlapka
Thread a KADao
[*] Martin Zeman <zeman14(zv)bonbox(tec)cz> - 2.4.2003 10:14:21
Ahoj,
mel bych jeden problem. Do databaze MS Access 2000 pristupuju pres
komponenty KADao. Casove narocne importy a vypocty davam do threadu, ve
kterem si dynamicky vytvarim DataModul s nekolika komponentami KADaoDatab=
ase
a KADaoTable. Vsechno jakoby funguje, ale cas od casu to spadne. Pred tim=
,
nez jsem to dal do threadu, to bylo OK.
Co delam blbe ?
D5 Ent, W2000,W98
Dik.
Martin Zeman
---
Odchoz=ED zpr=E1va neobsahuje viry.
Zkontrolov=E1no antivirov=FDm syst=E9mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.463 / Virov=E1 b=E1ze: 262 - datum vyd=E1n=ED: 17.3.2003
MS SQL a Delphi
[*] Lstiburek Pavel <Lstiburek(zv)ceb(tec)cz> - 2.4.2003 09:58:26
Ahoj,=20
chyba bude pravdepodobne ve zpusobu mereni. Delphi standardne ceka=20
na naplneni lokalni cash na klientovi. QA zobrazi prvni vysledky=20
ihned ,jak jsou k dispozici. To je mozno vyzkouset propojenim pres ODBC,
ktere se chova take tak.
Dalsi zajimavy problem je, ze pokud se v klauzuli WHERE pouziji prametry
procedury, tak je dotaz casto optimalizovan chybne.=20
Odstraneni je jednoduche, pouzit promenou a hodnotu ji priradit
z parametru.=20
Pavel
> From: jimysforum(zv)centrum(tec)cz [mailto:jimysforum(zv)centrum(tec)cz]
> chci se zeptat, zda n=ECkdo netu=B9=ED, =E8=EDm je zp=F9sobena n=E1sled=
uj=EDc=ED v=ECc:=20
> M=E1me MS SQL Server. M=E1me SQL dotaz v ulo=BEen=E9 procedu=F8e (slo=BE=
it=ECj=B9=ED=20
> SELECT). V SQL Query Analyzeru trv=E1 spu=B9t=ECn=ED ulo=BEen=E9 proced=
ury a t=EDm=20
> zobrazen=ED v=FDsledku SELECTu cca 2 sec., ale v Delphi jeho proveden=ED=
=20
> trv=E1 kolem 30 sec. Nesetkal se s t=EDm n=ECkdo? Nev=ED n=ECkdo jak na=
to?
Promazani TStringLIst
[*] Ond�ej Tu�n������'�������̿ - 2.4.2003 09:56:53
> Tohle spis dokladuje, proc vetsina metodiku konstrukci
> REPEAT-UNTIL zavrhuje jako "necistou"
Meto- co ? To, �e n�kdo neum� programovat, je�t� nevypov�d� nic o kvalit�
jazykov� konstrukce. Repeat-until je naprosto pr�hledn� cyklus s p�esn�
definovan�mi vlastnostmi a v n�jak� podob� ho m� snad ka�d� jazyk. Mo�n� a�
na c��ko, kde je v�emocn�, transcendent�ln� FOR cyklus...
--
Ond�ej Tu�n�
Flex 4.0 Personal Edition Beta 1 dostupn� na www.flexlanguage.com
MS SQL a Delphi
[*] <jimysforum(zv)centrum(tec)cz> - 02.4.2003 09:20:05
Ahoj,
chci se zeptat, zda n=ECkdo netu=B9=ED, =E8=EDm je zp=F9sobena n=E1sled=
uj=EDc=ED v=ECc:=20
M=E1me MS SQL Server. M=E1me SQL dotaz v ulo=BEen=E9 procedu=F8e (slo=BE=
it=ECj=B9=ED=20
SELECT). V SQL Query Analyzeru trv=E1 spu=B9t=ECn=ED ulo=BEen=E9 proced=
ury a t=EDm=20
zobrazen=ED v=FDsledku SELECTu cca 2 sec., ale v Delphi jeho proveden=ED=
=20
trv=E1 kolem 30 sec. Nesetkal se s t=EDm n=ECkdo? Nev=ED n=ECkdo jak na=
to?
D=EDky.
Jirka
--------------------
Radio INFO - nov=E9, metropolitn=ED, hudebn=EC informa=E8n=ED r=E1dio s=
aktu=E1ln=EDm zpravodajstv=EDm o pra=BEsk=E9 doprav=EC. Nala=EFte si 1=
05,9 FM! http://www.netimpuls(tec)cz/info
Snizeni pametovych naroku
[*] Tvrz Miroslav <Miroslav.Tvrz(zv)merlin(tec)cz> - 2.4.2003 08:56:46
Zdravim konferu.
Tak jsem tu opet s jednim dotazem.
Kdyz v D7 vytvorim jakykoli projekt (at uz se jedna o
prazdny form, nebo nejakou utilitku s par radky), tak
si vysledny EXE ukousne z RAM az cca 3MB pameti,
coz je dosti nechutne (D5 si zabraly 1/10-nu). Nevim
jak na Win9x, ale na W2k a WinXP tomu tak je a
celkem to i vadi.
Predem dik za jakekoli info jak se toho zbavit.
Nastavenie OUTLOOK
[*] Robert Fujak <robof(zv)inmail.sk> - 1.4.2003 23:03:09
Zdravim,
je mozne programovo z Delphi vytvorit (nastavit) v systeme WinXP Dialup
pripojenie na net?
tak isto aj postu v OutlokExpress?
Dakujem Robo.
---
Odch�dzaj�ca spr�va neobsahuje v�rusy.
Skontrolovan� antiv�rusov�m syst�mom AVG (http://www.grisoft(tec)cz).
Verzia: 6.0.465 / V�rusov� datab�za: 263 - d�tum vydania: 25.03.2003
----------
Teraz uz domena .SK pre kazdeho uplne ZADARMO.
Re[2]: IB/FB - jak provest automaticke aktualizace
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 1.4.2003 20:24:17
From: "Ludek ZITA" <konference(zv)sales(tec)cz>
> A asi by to zvladla i nejaka radkova utilita
> ktera je soucasti instalace IB.
Jasne, staci kdyz si naplanujes spusteni nejakeho
.BAT souboru a v nem si spustis ISQL.EXE, kteremu
predas pomoci -i jmeno souboru se scriptem.
Vystup si eventualne muzes odchytit do souboru
pomoci -o a pak treba pomoci grep zjistovat,
jak to dopadlo atd.
No a kdyz uz Ti ten batch pobezi, tak rovnou muzes
zavolat GBAK.EXE a udelat si backup databaze, treba jeste pred spustenim
scriptu, kdyby se neco nepovedlo.
HTH, pf
Promazani TStringLIst
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 1.4.2003 20:24:11
From: "Peter Sulek" <psulek(zv)seznam(tec)cz>
> i := 0;
> repeat
> if temp[i]='###'
> then temp.Delete(i)
> else inc( i );
>
> max := temp.Count-1;
> until i > max;
Tak to snad ne :-(
Tohle spis dokladuje, proc vetsina metodiku konstrukci
REPEAT-UNTIL zavrhuje jako "necistou"
HTH, pf
Re[2]: IB/FB - jak provest automaticke aktualizace
[*] Ludek ZITA <konference(zv)sales(tec)cz> - 1.4.2003 16:34:05
----- Original Message -----
From: <js-delphi(zv)quick(tec)cz>> A pritom staci, aby existovalo
>neco podobneho jako to ma MSSQL tzv. planovac
> uloh, ktery mi zajisti napr. zalohovani databaze
> kazdy den, a x dalsich + to co potrebuju:
> jednou denne spustit nejaky script s updatem.
Ahoj.
Nemusis psat zadnou slozitou sluzbu.
Napis si jednoduchy programek, ktery spustis s parametrem (jmeno scriptu),
ktery tenhle SQL script natahne a provede.
A pak staci napsat SQL script a (vice mene stejne jako u mssql) nastavit v
"Naplanovanych ulohach" pusteni tohohle scriptu tvym programkem.
A asi by to zvladla i nejaka radkova utilita ktera je soucasti instalace IB.
Ludek
MDI okna
[*] Jan Harman <harman(zv)volny(tec)cz> - 01.4.2003 15:54:23
Mam obavy ze u MDI aplikace MUSI byt hlavni okno fsMDIForm a
vsechny dalsi muzou (nebo nemusi) byt jeho deti. Je to taky kvuli
sdileni menu atd...
Honza.> Zdar, mam priblem s MDI:
>
> 3 formulare, A,B,C. A je hlavni formular aplikace, B se
> vytvari tlacitkem na
> A a je fsMDIForm, B by melo vytvorit C, jako
> fsMDIChild, ale Delphi mi
> zarvou, ze neni aktivni zadny MDI okno... (presto, ze
> je B), kdyz jsem dal i
> okno A, jako fsMDIForm, tak se mi child okno C cpe
> prave do nej, ne do B....
> jak tedy udelat, abych mohul mit MDI okna a nebylo
> fsMDIForm hlavni okno
> aplikace?
>
>
>
>
> S pozdravem
> Bronislav Klucka
> Windows programmmer, Web programmer
> -------------------------------------------------
>
> http://pro2-soft.com
> Email : Bronislav.Klucka(zv)pro2-soft.com
> Phone : +420605582922
>
>
--
Ziskejte kvalitu, kterou si zaslouzite. Za minimalni mesicni
poplatek vam nabizime Antivir, Antispam nebo dalsi kapacitu pro
vas Mailbox. Vice na: http://sluzby.volny(tec)cz/product/mailpaid/
OT sitova aplikace a Win98
[*] KALUS Jozef <jozef.kalus(zv)spordat.sk> - 1.4.2003 15:28:04
vypni si vytacanie pripojenia na internet, t.j. niekde v nastaveni
vytacania, potom ti to uz nebude hlasit, ale ked budes chciet ist na
internet musis dat vytocit pripojenie rucne z ponuky Telefonicke
pripojenie
joka
--------------------------------------------
Delphi 6 Profesional, FireBird, Windows 2000
--------------------------------------------
Ing. Jozef Kalus=09
SOVA
=A5. =A9t=FAra 17/28
018 61 BELU=A9A
Mob.: 0905 459156
e-mail: equipment(zv)equipment.sk
jozef.kalus(zv)spordat.sk
Web: http://www.equipment.sk
Zdravim
Zkousim sitovou aplikaci. Na WIN 2000 jede Server a kdyz na PC s WIN 98
spustim aplikaci nabiha okno telefonickeho pripojeni na Internet. Toto
shodim a potom se aplikace rozebehne. Pokud mam Server na WIN98 a
OT sitova aplikace a Win98
[*] Viktor Marek <viktor(zv)mbox.vol(tec)cz> - 1.4.2003 15:21:47
Zdravim
Zkousim sitovou aplikaci. Na WIN 2000 jede Server a kdyz na PC s WIN 98
spustim aplikaci nabiha okno telefonickeho pripojeni na Internet. Toto
shodim a potom se aplikace rozebehne. Pokud mam Server na WIN98 a pripoju=
ji
se z WIN2000 je vse v poradku.
Nevi nekdo kde je problem (doufam ze neni mezi klavesnici a zidli)
Diky za radu
Viktor Marek
viktor(zv)mbox.vol(tec)cz
---
Odchoz=ED zpr=E1va neobsahuje viry.
Zkontrolov=E1no antivirov=FDm syst=E9mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.465 / Virov=E1 b=E1ze: 263 - datum vyd=E1n=ED: 25.3.2003
Editorek pro editaci caption
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 1.4.2003 14:34:58
From: "Str�n�k Franti�ek Ing." <FStranik(zv)cpoj(tec)cz>
> Vim, ze si ho mohu tak� jednoduse napsat nejaky jednoduchy editorek, ale
> jedne se mi o princip a urcite to nejak mus� jit, kdy� uz tam vlastne je.
Neni, desgintime kod komponent je v IDE zatimco v aplikaci je runtime kod.
Petr Vones
Editorek pro editaci caption
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 1.4.2003 14:41:43
> Pro editaci caption je mozno pomoci Object Inspektoru vyvolat=20
> "maly editorek".
> Nevite nahodou jak bych mohl tento editorek vyvolat sam v mem=20
> programu ?
To je designtime kod, takze v runtime ho nevies (a podla licencie ani
nesmies) pouzit.
Borland dodava designtime kod IDE jedine vo forme .dcp, takze sa da =
pouzit
len pri pisani designtime balickov ako rozsirenie IDE. Zdrojaky v
Source\ToolsAPI a Source\Property Editors su urcene len ako =
dokumentacia,
neda sa s nimi kompilovat, pretoze potrebne unity chybaju.
> Vim, ze si ho mohu tak=E9 jednoduse napsat nejaky jednoduchy=20
> editorek
Budes musiet.
HTH
Editorek pro editaci caption
[*] Str�n�k Franti�ek Ing. <FStranik(zv)cpoj(tec)cz> - 1.4.2003 14:30:02
Pratele,
Pro editaci caption je mozno pomoci Object Inspektoru vyvolat "maly =
editorek".
Nevite nahodou jak bych mohl tento editorek vyvolat sam v mem programu ?
Vim, ze si ho mohu tak=E9 jednoduse napsat nejaky jednoduchy editorek, =
ale jedne se mi o princip
a urcite to nejak mus=ED jit, kdy=BE uz tam vlastne je.
Diky za radu
Franti=B9ek Stranik
Promazani TStringLIst
[*] Vymazal Milan <vymazal.milan(zv)seznam(tec)cz> - 1.4.2003 13:40:32
Cau Pavel,
Tuesday, April 1, 2003, 10:38:08 AM, you wrote:
> pouzij
> for i:=temp.count-1 to 1 do
to mi nefunguje
>> for i:=1 to temp.count-1 do
>> Milan Vymazal
> Pavel Tresnak
> mailto:pavel.tresnak(zv)haida(tec)cz
S pozdravem
Milan Vymazal
DLL a formular
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 1.4.2003 13:23:11
From: "Vlastimil Zden�k" <delphi(zv)gestore(tec)cz>
> Nevite co delam spatne??
Spatny je predevsim napad cpat VCL kod do DLL.
Petr Vones
MS SQL manazer
[*] Z�le��k Tom� - 1.4.2003 11:37:15
> pracujem s SQL servrom MS SQL 7
> neviete niekto o nejakom nastroji, ktory by umoznoval podobne=20
> ako napriklad v Accese menezovat databazy ?
> Nieco ako je na servri MS SQL Enterprise manager, len=BEe aby=20
> mi to islo na stanici?=20
> Potrebujem tabulky vytvarat, editovat, mazat, predefinovavat,=20
> p=EDsat tam sql prikazy ...
SQL Server Enterprise Manager muzes nainstalovat i na stanici.
Pokud ho nemas, tak si stahni SQL Server 2000 Evaluation Edition:
http://www.microsoft.com/downloads/details.aspx?FamilyID=3Dd20ba6e1-f44c-=
4781-a6bb-f60e02dc1335
(bohuzel 267 MB)
Volne miesto na nenamapovanom sietovom disku zo st
[*] Barica Miroslav <miroslav.barica(zv)matador.sk> - 1.4.2003 14:01:24
zdravim vospolok,
mam taky "laicky" dotaz. da sa zistit SUBJ.? Funkciou Diskfree to asi
nebude, ze nie? ;)
Promazani TStringLIst
[*] Petr Hlozek <petr h(zv)mrp(tec)cz> - 1.4.2003 14:07:46
----- Original Message -----
From: "Vymazal Milan" <vymazal.milan(zv)seznam(tec)cz>> Cau Pavel,
>
> Tuesday, April 1, 2003, 10:38:08 AM, you wrote:
>
> > pouzij
>
> > for i:=temp.count-1 to 1 do
>
>
> to mi nefunguje
Asi ma byt spise
for i:=temp.count-1 downto 1 do
Promazani TStringLIst
[*] Vymazal Milan <vymazal.milan(zv)seznam(tec)cz> - 1.4.2003 13:41:30
Cau Robert,
Tuesday, April 1, 2003, 10:43:45 AM, you wrote:
> Ahoj !
> Tak po prve mas ten list prazdny takze nieje co mazat a po druhe zapis
> temp[i] Ti nevrati string co hladas cize '###' a po tretie ked mazes z
> takeho zoznamu treba ist od konca kvoli indexu cize asi takto:
ne ten list je plnej . jenom sem jsem to napsal spatne. downto pomohlo
> var i: Integer;
> temp: TStringList;
> begin
> try
> temp:= TStringList.Create;> for i:= temp.Count-1 downto 0 do
> if temp.Strings[i] = '###' then
> temp.Delete(i);
> except on E: Exception do
> end;
> FreeANDNil(temp);
> end;> Prajem vela zdaru
Promazani TStringLIst
[*] Peter Sulek <psulek(zv)seznam(tec)cz> - 1.4.2003 14:03:46
Mozno pomoze aj toto:
i := 0;
repeat
if temp[i]='###'
then temp.Delete(i)
else inc( i );
max := temp.Count-1;
until i > max;
> ----- Original Message -----
> From: "Vymazal Milan" <vymazal.milan(zv)seznam(tec)cz>
> To: <delphi-l(zv)clexpert(tec)cz>
> Sent: Tuesday, April 01, 2003 10:33 AM
> Subject: Promazani TStringLIst
>
>
> > Zdravim
> >
> > mozna je to totalne zacatecnicky dotaz ale mam
> >
> > var
> > temp:TStringLIst;
> > i:integer;
> > begin
> > temp:=TStringlist.create;
> >
> > for i:=1 to temp.count-1 do
> > begin
> > if temp[i]='###' then
> > temp.delete(i);
> >
> > end;
> > end;
> >
> > melo by to vymazat kazdej radek kterej obsahuje ### ale
> > po chvilce to spadne. V cem je problem. :(
> >
> >
> >
> >
> >
> > --
> > Best regards,
> >
> > Milan Vymazal
> > Delphi 7 Enterprise, Windows 2000 SP3 Proff, IE 6.0sp1 with all sp
> >
> >
>
>
MS SQL manazer
[*] koukal <koukal(zv)petrkoukal(tec)cz> - 01.4.2003 13:40:14
> MSSQL Enterprise manager funguje i na stanici samozrejme.
> Milos
>=20
> -----Original Message-----
> From: K=F6tele=B9 J=E1n [mailto:Koteles(zv)lumen.sk]=20
> Sent: Tuesday, April 01, 2003 11:26 AM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: MS SQL manazer
>=20
>=20
> Dobry den,
>=20
> pracujem s SQL servrom MS SQL 7
> neviete niekto o nejakom nastroji, ktory by umoznoval podobne ako > nap=
riklad v Accese menezovat databazy? Nieco ako je na servri MS SQL > Enter=
prise manager, len=BEe aby mi to islo na stanici?=20
> Potrebujem tabulky vytvarat, editovat, mazat, predefinovavat, p=EDsat >=
tam sql prikazy ...
>=20
>=20
> Dakujem
Dobry den!
Na stanici si nainstalujte MSSQL client utility + administraci zde je i E=
nterprice manager.
Petr Koukal
DLL a formular
[*] Jiri Sedivec <jsedivec(zv)mail(tec)cz> - 1.4.2003 13:45:14
Vyzkousejte tohle ...
Function ShowWelcomeForm (AHandle: THandle):longint;
Begin
Application.Handle := AHandle;
WelcomeForm := TWelcomeForm.Create(Application);
result := Longint(WelcomeForm);
WelcomeForm.Show;
WelcomeForm.Refresh;
End;
Procedure FreeWelcomeForm(AFormRef: Longint);
begin
If AFormRef <> 0 then
Begin
TWelcomeForm(AFormRef).Free;
End;
end;
>
> Toz me to nejak nechodi. Porad se vytvari na liste woken dalsi polozka
> aplikace a navic mi to pri "Show" spadne a delphi nereknou proc....:(((
>
> DLL:
> procedure ShowForm; stdcall;
> begin
> if MailForm=nil
> then
> MailForm := TMailForm.Create(FindControl(HwndGe));
> FE_MailForm.Show; <<<<TADY ohlasi delphi obecnou chybu ze
doslo
> k chybe...........
> end;
>
MDI okna
[*] Bronislav Klu�ka <delphi(zv)pro2-soft(tec)com> - 1.4.2003 13:21:30
Zdar, mam priblem s MDI:
3 formulare, A,B,C. A je hlavni formular aplikace, B se vytvari tlacitkem na
A a je fsMDIForm, B by melo vytvorit C, jako fsMDIChild, ale Delphi mi
zarvou, ze neni aktivni zadny MDI okno... (presto, ze je B), kdyz jsem dal i
okno A, jako fsMDIForm, tak se mi child okno C cpe prave do nej, ne do B....
jak tedy udelat, abych mohul mit MDI okna a nebylo fsMDIForm hlavni okno
aplikace?
S pozdravem
Bronislav Klucka
Windows programmmer, Web programmer
-------------------------------------------------
http://pro2-soft.com
Email : Bronislav.Klucka(zv)pro2-soft.com
Phone : +420605582922
dbExpress a prekodovani datove sady
[*] David Janko <djanko(zv)wizards(tec)cz> - 1.4.2003 13:58:19
Ahoj,
stale se trapim s prekodovanim dat mezi SQL serverem a klientem - respektive
kodovani win->lat pri prenosu na server jsem jiz vyresil v udalosti
provideru OnUpDateRecord, ale stale se mi nedari prekodovat data pri
nacitani ze serveru. I kdyz udelam nize uvedeny kod, stejne to pak v
ClientDatasetu prekodovany neni :(. Nejradeji bych to samozrejme udelal pres
LocaleCode na SQLConnection, ale nenasel jsem nikde zadny popis co ten param
presne pro server znamena a obavam se ze pro mysql mozna neznamena nic :(.
Netusi nekdo jak na to ?
diky
David.
procedure TfrmTplDB.DSProviderGetData(Sender: TObject;
DataSet: TCustomClientDataSet);
var
i : Integer;
begin
// Kodovani:
DataSet.LogChanges := false;
if frmMain.RecodeToClient <> nil then
begin
while not DataSet.Eof do
begin
for i := 0 to DataSet.FieldCount - 1 do
begin
if (DataSet.Fields[i] is TStringField) OR (DataSet.Fields[i] is
TMemoField) then
begin
if not VarIsNull(DataSet.Fields[i].Value) then
begin
if DataSet.State <> dsEdit then
DataSet.Edit;
DataSet.Fields[i].Value :=
frmMain.RecodeToClient.Recode(DataSet.Fields[i].Value);
end;
end;
end;
if DataSet.State = dsEdit then
DataSet.Post;
DataSet.Next;
end;
end;
DataSet.LogChanges := true;
Promazani TStringLIst
[*] Vymazal Milan <vymazal.milan(zv)seznam(tec)cz> - 1.4.2003 13:42:42
Cau David,
Tuesday, April 1, 2003, 1:18:17 PM, you wrote:
> Rekl bych, ze otazka promazani StringListu je jiz dostatecne vyresena.
> Kdybyste ted nekdo vyresil i mou otazku ohledne zobrazovani komponenty mimo
> ramec okna, bylo by to moc fajn ;-)
Ano ten problem skustecne vyresenej je :)
> David
S pozdravem
Milan Vymazal
Re[2]: Dropdown list
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 1.4.2003 13:25:57
> Jak se teda dosahne toho, ze kdyz ten seznam pod Combem
> dostane focus (treba clickem na rolovatko) tak se nedeactivuje
> ten form na kterem to Combo je?
V comboboxe (standard control) je to uz implementovane od Microsoftu.
Ak pises svoju vlastnu kontrolku, dosiahnes to vhodnou kombinaciou window
style/exstyle a tym, ze parent je desktop.
Pisem to z hlavy, takze to nebude asi celkom presne:
v CreateParams nastavit Params.Style: WS_POPUP, ...?, Params.ExStyle:
WS_EX_TOOLWINDOW, WS_EX_TOPMOST, ...?
a po vytvoreni
ParentWindow := GetDesktopWindow;
Budes tiez potrebovat SetCapture, aby to popup okno dostavalo spravy mysi
napriek tomu, ze nema prave fokus.
Precitaj si dokumentaciu o window styles a poexperimentuj s nimi.
Skus si tiez najst na internete nejaku Delphi kontrolku, ktora to robi, a
prestudovat si zdrojaky.
Jeden taky priklad najdes na www.delphi-gems.com a sice TColorPickerButton,
ktory ma popup window TColorPopup.
HTH
Promazani TStringLIst
[*] David Liska <konference(zv)thsoft(tec)cz> - 1.4.2003 13:18:17
Rekl bych, ze otazka promazani StringListu je jiz dostatecne vyresena.
Kdybyste ted nekdo vyresil i mou otazku ohledne zobrazovani komponenty mimo
ramec okna, bylo by to moc fajn ;-)
David
Re[4]: IB/FB - jak provest automaticke aktualizace
[*] <js-delphi(zv)quick(tec)cz> - 01.4.2003 13:26:39
----- P=F9vodn=ED zpr=E1va -----
Od=3A rdanhel=40centrum=2Ecz
=3E Pak me samozrejme napadaji uz jenom dve reseni
=3E 1=2E samostatny servis nebo run aplikace po =
=3E spusteni ktera pobezi =
asi mi nic jineho nezbyde =3A( =3Bo)
=3E 2=2E Jak jsem navrhoval=2C tak to spoustet vzdy =
=3E pri startu aplikace=2EJestli =
=3E ti jde o to aby to trebna 10000 zaznamu =
=3E neupdatovalo 10x dene=2C tak =
=3E staci ten dotaz napsat tak =2Caby se proste =
=3E updatnul zaznam ktery je =
=3E potreba=2E To znamena =2Cze do podminky zadat to =
=3E datum plus treba i stav=2E =
=3E Toto mi pripada jako absolutne nejlepsi =
=3E reseni=2C protoze uz zadna jina =
=3E aplikace na pozadi neni traba a ta zmena se =
=3E provede vzdy kdyz je =
=3E potreba a jenom jednou=2E
=3E =
s tim si dovolim nesouhlasit=2E Neni pravda=2C ze =
kdyz nedojde fyzicky k prepsani ani jednoho =
zaznamu z duvodu nesplneni pocatecnich podminek=2C =
tak se nic nebude dit=2E =
Ja si myslim=2C ze prave projit vsechny ty zaznamy =
a porovnat je s pocatecnima podminkama trva delsi =
dobu=2C nez jen tech par prepsat=2E
Proste se mi to reseni=2C vzhledem k optimalizaci=2C =
nelibi=2E=2E=2E ==3E =
=3E S pozdravem Rostislav Danhel=2E
Jak uz jsem rekl=2C stejne moc dekuji za napady =3A)
Jirka
--------------------------------------------------
Ing=2E Jiri Sokol=3B jiri=2Esokol=40seznam=2Ecz=3B 972 231 187
D6Prof+SP2=3B WinNT
programator amater
DLL a formular
[*] Vlastimil Zden�k <delphi(zv)gestore(tec)cz> - 1.4.2003 12:38:05
Toz me to nejak nechodi. Porad se vytvari na liste woken dalsi polozka
aplikace a navic mi to pri "Show" spadne a delphi nereknou proc....:(((
DLL:
procedure ShowForm; stdcall;
begin
if MailForm=nil
then
MailForm := TMailForm.Create(FindControl(HwndGe));
FE_MailForm.Show; <<<<TADY ohlasi delphi obecnou chybu ze doslo
k chybe...........
end;
Exports
ShowForm;
begin
HwndGe := FindWindow('TMasterForm','MasterForm');
end.
Nevite co delam spatne??
Diky za kazdou radu Vlasta
D5 Ent
> Pri vztvareni formulare v DLL mam:
> ....
> Application.Handle := "Handle hlavni aplikace"
> FormDll := TFormDll (Application);
> ...
> a funguje to celkem dobre.
> Honza
>
> > jeste bych si dovolil jeden dotaz :)
> > v DLL prilinkovane za behu aplikace chci vytvorit
> > formular a zobrazit ho.
> > Jak udelat, aby se mi na liste nezobrazila dalsi
> > "aplikace"?
> > Cim naplnit vlastnika toho formulare pri jeho
> > vytvareni?
> >
> > Diky moc za kazdou radu
> > Vlasta
> >
> > D5 Ent, WNT
> >
> >
> >
> >
>
> --
> Ziskejte kvalitu, kterou si zaslouzite. Za minimalni mesicni
> poplatek vam nabizime Antivir, Antispam nebo dalsi kapacitu pro
> vas Mailbox. Vice na: http://sluzby.volny(tec)cz/product/mailpaid/
>
>Re[4]: IB/FB - jak provest automaticke aktualizace
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 1.4.2003 12:13:08
rdanhel(zv)centrum(tec)cz dne 1 Apr 2003 v 11:50:
> Osobne bych nehledal komplikace tam kde nejsou. (Servis mi pripada
> jako drbani se levou rukou za pravym uchem :-))
No, zato je to nezavisle na aplikaci - bude to behat i v pripade, ze uzivatele aplikaci tyden
nespusti a k datum se treba mezitim bude pristupovat z jine aplikace jen kvuli nejakym vystupum
apod...
Karel Rys
NOVA DATA Z KONFERENCE
[*] Petr Brant <brant(zv)dcomm(tec)cz> - 1.4.2003 11:59:14
V navaznosti na tuto zpravu si dovoluji upozornit na ftp.delphi(tec)cz =
(username
DELPHI, password ARCHIVAR), kde jsou v adresari Other/KonfViewTXTData k
dispozici data za roky 2000, 2001 a 2002, kazdy rok je v jednom velkem
souboru, kazdy ma kolem 10 MB. Dalsi data budu doplnovat ctvrtletne.
Zdravim vsechny
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]=20
http://web.redbox(tec)cz/petr.brant
D&COMM s.r.o.
Korunova=E8n=ED 6
Praha 7
tel. +420724007234
=20
prave jsem dal na me stranky nova data z konference za prosinec
2002,
leden 2003 a unor 2003. Vse najdete na strance=20
http://www.rydval(tec)cz/slavek/DataZKonference.php
Dale byla dnes uvolnena nova verze KonfView, kterou nyni spravuje=20
Jan Fiala. Dalsi informace jsou na http://pspad.zde(tec)cz
Re[4]: IB/FB - jak provest automaticke aktualizace
[*] <rdanhel(zv)centrum(tec)cz> - 01.4.2003 11:50:34
Pak me samozrejme napadaji uz jenom dve reseni
1. samostatny servis nebo run aplikace po spusteni ktera pobezi=20
trvala. Jeji plus je v tom ze se update spusti jenom jednou, jeji=20
minus je ze se neda moc kontrolovat co se tam deje.
2. Jak jsem navrhoval, tak to spoustet vzdy pri startu aplikace.Jestli=20
ti jde o to aby to trebna 10000 zaznamu neupdatovalo 10x dene, tak=20
staci ten dotaz napsat tak ,aby se proste updatnul zaznam ktery je=20
potreba. To znamena ,ze do podminky zadat to datum plus treba i stav.=20
Toto mi pripada jako absolutne nejlepsi reseni, protoze uz zadna jina=20
aplikace na pozadi neni traba a ta zmena se provede vzdy kdyz je=20
potreba a jenom jednou.
Osobne bych nehledal komplikace tam kde nejsou. (Servis mi pripada=20
jako drbani se levou rukou za pravym uchem :-))
S pozdravem Rostislav Danhel.
_______________________________________________
>=20
> > Jestlize nechces psat vkladaci triger nebo=20
> > event tak me nenapada proc=20
> > to chces menit automaticky. Jestli jde o to=20
> > ,ze zaznam se podle datumu=20
> > nastavi na neaktivni z aktivniho=20
>=20
> ne, neni to jediny rozhodujici prvek. Tech stavu=20
> je nekolik. Jako zaklad je aktivni, neaktivni a=20
> pak existuji podle typu tabulky jeste jine napr=20
> propadly, prodlouzeny, zruseno-duvod atd.>=20
> >a jediny=20
> > jeho vyhodnoceni probyha az=20
> > v aplikaci tak bych to resil tam a to tak,=20
> > ze v okamziku kdy nekdo=20
> > provede dotaz na dany zaznam, tak bych ho=20
> > upravil podle data.=20
>=20
> to udelat lze a zajisti mi to 100% funkci=20
> aplikace, ale pripada mi to zbytecne, pokud vim,=20
> ze mi to staci udelat jednou denne. Proc se tim=20
> zabyvat x-krat?>=20
> >Nebo=20
> > davkove pri spusteni dane aplikace na=20
> > zacatku. Protoze kdyz aplikace=20
> > nebezi ,tak je samozrejme jedno co tam je za=20
> > data, kdyz se na ne nikdo=20
> > nekouka. Takze proste kazda aplikace by pri=20
> > spusteni, nebo jednou=20
> > denne, provedla update zaznamu.>=20
> tohle je urcite reseni, ale vyzaduje ukaznenost=20
> uzivatelu v tom smyslu, ze musi aplikaci=20
> ukoncovat a popr. pocitace vypinat. To si myslim,=20
> ze je ohrozeno aby to nedelalo co ma, protoze=20
> existuje velke riziko - je tam lidsky faktor a s=20
> tim nechci nic mit. Proc ma ma aplikace na tomto=20
> ztracet :( ;o)>=20
> > s pozdrave, Rostislav danhel
>=20
> Stejne moc diky za napady
> Jirka
> --------------------------------------------------
> Ing. Jiri Sokol; jiri.sokol(zv)seznam(tec)cz; 972 231 187
> D6Prof+SP2; WinNT
> programator amater
>=20
--------------------
Radio INFO - nov=E9, metropolitn=ED, hudebn=EC informa=E8n=ED r=E1dio s=
aktu=E1ln=EDm zpravodajstv=EDm o pra=BEsk=E9 doprav=EC. Nala=EFte si 1=
05,9 FM! http://www.netimpuls(tec)cz/info
OT - odistalovanie Twain
[*] Roland Turcan <rolo(zv)sedas.sk> - 01.4.2003 11:23:59
Hello Delphi CZ konferencia!
Poradte mi prosim, ako dostanem prec ovladac pre scanner, ktory nema
odistalator. Kde vsade sa registruje ovladac TWAIN v registry,
suboroch ,...
Dakujem
--
Best regards, TRoland
Promazani TStringLIst
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 1.4.2003 10:41:31
Uvedom si, ze kdyz zacnes prochazet, je Count treba 10 radku.
Pokud radek smazes, cyklus FOR se snazi jit az do 10, ale takovy radek
tam uz neni, takze to spadne na Access Violation.
V takovych pripadech je treba cyklus obratit, takze:
for i:=temp.count-1 downto 0 do
...
--
Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
1.4.2003 Vymazal Milan:
> Zdravim
> mozna je to totalne zacatecnicky dotaz ale mam
> var
> temp:TStringLIst;
> i:integer;
> begin
> temp:=TStringlist.create;
> for i:=1 to temp.count-1 do
> begin
> if temp[i]='###' then
> temp.delete(i);
> end;
> end;
> melo by to vymazat kazdej radek kterej obsahuje ### ale
> po chvilce to spadne. V cem je problem. :(
Promazani TStringLIst
[*] Robert Suska <SuskaR(zv)seznam(tec)cz> - 1.4.2003 10:43:45
Ahoj !
Tak po prve mas ten list prazdny takze nieje co mazat a po druhe zapis
temp[i] Ti nevrati string co hladas cize '###' a po tretie ked mazes z
takeho zoznamu treba ist od konca kvoli indexu cize asi takto:
var i: Integer;
temp: TStringList;
begin
try
temp:= TStringList.Create;
for i:= temp.Count-1 downto 0 do
if temp.Strings[i] = '###' then
temp.Delete(i);
except on E: Exception do
end;
FreeANDNil(temp);
end;
Prajem vela zdaru
Robo
****************************************
Robert Suska
KORAK SLOVAKIA s.r.o.
Horna 52
974 01 Banska Bystrica
www.korak.sk robert(zv)korak.sk
Network administrator, Delphi programmer
****************************************
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On
Behalf Of Vymazal Milan
Sent: Tuesday, April 01, 2003 10:34 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: Promazani TStringLIst
Zdravim
mozna je to totalne zacatecnicky dotaz ale mam
var
temp:TStringLIst;
i:integer;
begin
temp:=TStringlist.create;
for i:=1 to temp.count-1 do
begin
if temp[i]='###' then
temp.delete(i);
end;
end;
melo by to vymazat kazdej radek kterej obsahuje ### ale
po chvilce to spadne. V cem je problem. :(
--
Best regards,
Milan Vymazal
Delphi 7 Enterprise, Windows 2000 SP3 Proff, IE 6.0sp1 with all sp
Re[2]: IB/FB - jak provest automaticke aktualizace
[*] <js-delphi(zv)quick(tec)cz> - 01.4.2003 11:07:44
----- P=F9vodn=ED zpr=E1va -----
Od=3A Roland Turcan =3Crolo=40sedas=2Esk=3E
=3E Skus do Selectov ktore sa zaujimaju o tie =
=3E tabulky zapojit nejaku SP=2C
=3E ktora vykona update zaznamov=2E
=3E =
=3E -- =
=3E Best regards=2C TRoland
Ahoj=2E
Tim SP myslis nejake procedury=3F (vytvorene pomoci =
udf=3F)
No to by ale znamenalo=2C ze se bude provadet neco =
vzdycky=2C i kdyz uz to nebude potreba=2E
Priklad=3A cca 10 uzivatelu pristupuje k ty tabulce =
cca kazdy 10 do hodiny - tzn=2E=2C ze ta procedura =
pobezi denne 800x! A pritom staci=2C aby existovalo =
neco podobneho jako to ma MSSQL tzv=2E planovac =
uloh=2C ktery mi zajisti napr=2E zalohovani databaze =
kazdy den=2C a x dalsich + to co potrebuju=3A
jednou denne spustit nejaky script s updatem=2E
Jde to jeste jinak=2C nez jak psal Karel Rys - =
napsat si vlastni sluzbu=2C ktera se mi spusti v =
urcity cas a provede se jednou denne=3F (to je =
reseni a asi mi nic jineho=2C podle odpovedi=2C =
nezbyva - porad jeste doufam=2C ze jsem neco u =
FB/IB prehledl=2C a ze to pujde stejne jako u MSSQL)
Diky
Jirka
--------------------------------------------------
Ing=2E Jiri Sokol=3B jiri=2Esokol=40seznam=2Ecz=3B 972 231 187
D6Prof+SP2=3B WinNT
programator amater
Promazani TStringLIst
[*] Pavel Tresnak <pavel.tresnak(zv)haida(tec)cz> - 1.4.2003 10:38:08
pouzij
for i:=temp.count-1 to 1 do
> for i:=1 to temp.count-1 do
> Milan Vymazal
Pavel Tresnak
mailto:pavel.tresnak(zv)haida(tec)cz
Promazani TStringLIst
[*] Vymazal Milan <vymazal.milan(zv)seznam(tec)cz> - 1.4.2003 10:50:02
Cau Radim,
Tuesday, April 1, 2003, 10:40:18 AM, you wrote:>> Zdravim
>>
>> mozna je to totalne zacatecnicky dotaz ale mam
>>
>> var
>> temp:TStringLIst;
>> i:integer;
>> begin
>> temp:=TStringlist.create;
>>
>> for i:=1 to temp.count-1 do
>> begin
>> if temp[i]='###' then
>> temp.delete(i);
>>
>> end;
>> end;
>>
>> melo by to vymazat kazdej radek kterej obsahuje ### ale
>> po chvilce to spadne. V cem je problem. :(
>>
>>
> Tomuhle ja rikama "urezavani vetve, na ktere sedim". Musis mazat odzadu.
> A myslim, ze tam mas dalsi chybicku, pocita se od 0.
Ano vim ze se to pocita od 0 ale ja mam na 0 nejaka data ktere nectu.> for i := temp.count-1 downto 0 do
^^^^^^ aha tuje chyba do nuly jsem to
skousel.. ale ne takto
> begin
> ....> Radim
diky
S pozdravem
Milan Vymazal
MS SQL manazer
[*] K�tele� J�n <Koteles(zv)lumen.sk> - 1.4.2003 11:26:00
Dobry den,
pracujem s SQL servrom MS SQL 7
neviete niekto o nejakom nastroji, ktory by umoznoval podobne ako =
napriklad
v Accese menezovat databazy?
Nieco ako je na servri MS SQL Enterprise manager, len=BEe aby mi to =
islo na
stanici?=20
Potrebujem tabulky vytvarat, editovat, mazat, predefinovavat, p=EDsat =
tam sql
prikazy ...Promazani TStringLIst
[*] Radim Kunz <privat(zv)casestudio(tec)com> - 1.4.2003 10:40:18
----- Original Message -----
From: "Vymazal Milan" <vymazal.milan(zv)seznam(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, April 01, 2003 10:33 AM
Subject: Promazani TStringLIst
> Zdravim
>
> mozna je to totalne zacatecnicky dotaz ale mam
>
> var
> temp:TStringLIst;
> i:integer;
> begin
> temp:=TStringlist.create;
>
> for i:=1 to temp.count-1 do
> begin
> if temp[i]='###' then
> temp.delete(i);
>
> end;
> end;
>
> melo by to vymazat kazdej radek kterej obsahuje ### ale
> po chvilce to spadne. V cem je problem. :(
>
>
> --
> Best regards,
>
> Milan Vymazal
> Delphi 7 Enterprise, Windows 2000 SP3 Proff, IE 6.0sp1 with all sp
Tomuhle ja rikama "urezavani vetve, na ktere sedim". Musis mazat odzadu.
A myslim, ze tam mas dalsi chybicku, pocita se od 0.
for i := temp.count-1 downto 0 do
begin
....Replikace MS SQL 2000
[*] Ty�lic Ji�� - 1.4.2003 10:40:16
Zkus si spustit DTSRUN.EXE...=20
-----Original Message-----
From: Lasevic, Martin [mailto:MLasevic(zv)ratiopharm(tec)cz]=20
Sent: Tuesday, April 01, 2003 9:42 AM
To: Konference DELPHI na CLEXPERT. CZ (el. adresa)
Subject: OT: Replikace MS SQL 2000
Ahojek,
resime problem replikaci na MS SQL 2000 a jejich spousteni.=20
Vnitrofiremni system pro obchodni reprezentanty ma n+1 databazi, kde n =
je pocet reprezentantu a jedna databaze navic jako centralni.
Jak nejoptimalneji pripravit databaze k predani obchodnim zastupcum? =
Moje predstava je takova, ze si mimo replikacni proces pripravim data =
pro jednotlive zastupce a attachuji na jejich SQL server.
Da se nejak externe z aplikace spustit replikacni agent, zjistit status =
replikace a pripadne stav rozpracovani replikace?
Jake mate zkusenosti s replikaci na WinCE? Mame SQL server CE 2.0?
Hezky den
Martin=20
MS SQL manazer
[*] Sula Milos <milos.sula(zv)oku-su(tec)cz> - 1.4.2003 11:31:51
MSSQL Enterprise manager funguje i na stanici samozrejme.
Milos
-----Original Message-----
From: K=F6tele=B9 J=E1n [mailto:Koteles(zv)lumen.sk]=20
Sent: Tuesday, April 01, 2003 11:26 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: MS SQL manazer
Dobry den,
pracujem s SQL servrom MS SQL 7
neviete niekto o nejakom nastroji, ktory by umoznoval podobne ako =
napriklad v Accese menezovat databazy? Nieco ako je na servri MS SQL =
Enterprise manager, len=BEe aby mi to islo na stanici?=20
Potrebujem tabulky vytvarat, editovat, mazat, predefinovavat, p=EDsat =
tam sql prikazy ...Promazani TStringLIst
[*] Roman <sw.maurice(zv)seznam(tec)cz> - 1.4.2003 10:49:24
> Zdravim
>
> mozna je to totalne zacatecnicky dotaz ale mam
>
> var
> temp:TStringLIst;
> i:integer;
> begin
> temp:=TStringlist.create;
>
> for i:=1 to temp.count-1 do
> begin
> if temp[i]='###' then
> temp.delete(i);
>
> end;
> end;
>
> melo by to vymazat kazdej radek kterej obsahuje ### ale
> po chvilce to spadne. V cem je problem. :(
Spis asi takto:
i:=1;
while i<temp.count do
begin
if temp[i]='###' then temp.delete(i)
else Inc(i);
end;
Roman
==============================
http://kouzelne.misto(tec)cz
Re[2]: Dropdown list
[*] David Li�ka <konference(zv)thsoft(tec)cz> - 1.4.2003 11:21:05
Jako ze ten seznam je na novem formu?
Jak se teda dosahne toho, ze kdyz ten seznam pod Combem dostane focus (tr=
eba
clickem na rolovatko) tak se nedeactivuje ten form na kterem to Combo je?> Problem je v tom, ze ten seznam pod ComboBoxem je vlastne nove okno.
> Takze to neni ta komponenta...
>
> --
> Jan Fiala
> mailto:jan.fiala(zv)iol(tec)cz
>
> 1.4.2003 David Li=B9ka:
> > Ahoj,
> > nevite nekdo jak dosahnout zobrazeni nejake komponenty, ktera ale
zasahuje
> > az za okraj formulare?
> > Neco takoveho jak se chova treba dropdown list u klasickeho ComboBoxu=
...
ten
> > kdyz je treba na spodku formu, tak se taky rozbali az pod nej.
> > Koukal jsem do zdroju VCL, ale nejsem z toho moc chytrej ;-)
>
>
>
NOVA DATA Z KONFERENCE
[*] Slavek Rydval <konference(zv)rydval(tec)cz> - 1.4.2003 10:12:25
Preji vsem pekneho dne,
prave jsem dal na me stranky nova data z konference za prosinec 2002,
leden 2003 a unor 2003. Vse najdete na strance
http://www.rydval(tec)cz/slavek/DataZKonference.php
Dale byla dnes uvolnena nova verze KonfView, kterou nyni spravuje
Jan Fiala. Dalsi informace jsou na http://pspad.zde(tec)cz
Slavek
---------------------
http://www.rydval(tec)cz
slavek(zv)rydval(tec)cz
---------------------
Re[4]: IB/FB - jak provest automaticke aktualizace
[*] <js-delphi(zv)quick(tec)cz> - 01.4.2003 11:17:42
----- P=F9vodn=ED zpr=E1va -----
Od=3A rdanhel=40centrum=2Ecz
=3E Jestlize nechces psat vkladaci triger nebo =
=3E event tak me nenapada proc =
=3E to chces menit automaticky=2E Jestli jde o to =
=3E =2Cze zaznam se podle datumu =
=3E nastavi na neaktivni z aktivniho =
ne=2C neni to jediny rozhodujici prvek=2E Tech stavu =
je nekolik=2E Jako zaklad je aktivni=2C neaktivni a =
pak existuji podle typu tabulky jeste jine napr =
propadly=2C prodlouzeny=2C zruseno-duvod atd=2E
=3Ea jediny =
=3E jeho vyhodnoceni probyha az =
=3E v aplikaci tak bych to resil tam a to tak=2C =
=3E ze v okamziku kdy nekdo =
=3E provede dotaz na dany zaznam=2C tak bych ho =
=3E upravil podle data=2E =
to udelat lze a zajisti mi to 100=25 funkci =
aplikace=2C ale pripada mi to zbytecne=2C pokud vim=2C =
ze mi to staci udelat jednou denne=2E Proc se tim =
zabyvat x-krat=3F
=3ENebo =
=3E davkove pri spusteni dane aplikace na =
=3E zacatku=2E Protoze kdyz aplikace =
=3E nebezi =2Ctak je samozrejme jedno co tam je za =
=3E data=2C kdyz se na ne nikdo =
=3E nekouka=2E Takze proste kazda aplikace by pri =
=3E spusteni=2C nebo jednou =
=3E denne=2C provedla update zaznamu=2E
tohle je urcite reseni=2C ale vyzaduje ukaznenost =
uzivatelu v tom smyslu=2C ze musi aplikaci =
ukoncovat a popr=2E pocitace vypinat=2E To si myslim=2C =
ze je ohrozeno aby to nedelalo co ma=2C protoze =
existuje velke riziko - je tam lidsky faktor a s =
tim nechci nic mit=2E Proc ma ma aplikace na tomto =
ztracet =3A( =3Bo)
=3E s pozdrave=2C Rostislav danhel
Stejne moc diky za napady
Jirka
--------------------------------------------------
Ing=2E Jiri Sokol=3B jiri=2Esokol=40seznam=2Ecz=3B 972 231 187
D6Prof+SP2=3B WinNT
programator amater
Promazani TStringLIst
[*] delphin <delphinPP(zv)seznam(tec)cz> - 1.4.2003 10:42:34
..pri zmazani zaznamu, sa ti meni aj Count, takze po kazdom delete, by si
mal prechadzat ten zoznam odznovu..
----- Original Message -----
From: "Vymazal Milan" <vymazal.milan(zv)seznam(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Tuesday, April 01, 2003 10:33 AM
Subject: Promazani TStringLIst
> Zdravim
>
> mozna je to totalne zacatecnicky dotaz ale mam
>
> var
> temp:TStringLIst;
> i:integer;
> begin
> temp:=TStringlist.create;
>
> for i:=1 to temp.count-1 do
> begin
> if temp[i]='###' then
> temp.delete(i);
>
> end;
> end;
>
> melo by to vymazat kazdej radek kterej obsahuje ### ale
> po chvilce to spadne. V cem je problem. :(
>
>
>
> --
> Best regards,
>
> Milan Vymazal
> Delphi 7 Enterprise, Windows 2000 SP3 Proff, IE 6.0sp1 with all sp
>
>
Jak nacist PNG obrazek
[*] Peter Sulek <psulek(zv)seznam(tec)cz> - 1.4.2003 10:37:11
GraphicEx: http://www.delphix.host.sk/index.php?item=categs&act=shc&id=21
Kde je chyba, pripadne nemate nekdo komponentu, ktera umi nacist PNG.
Dik za radu
Honza
Dropdown list
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 1.4.2003 10:43:00
UHJvYmxlbSBqZSB2IHRvbSwgemUgdGVuIHNlem5hbSBwb2QgQ29tYm9Cb3hlbSBqZSB2bGFzdG5l
IG5vdmUgb2tuby4NClRha3plIHRvIG5lbmkgdGEga29tcG9uZW50YS4uLg0KDQotLSANCkphbiBG
aWFsYQ0KbWFpbHRvOmphbi5maWFsYUBpb2wuY3oNCg0KMS40LjIwMDMgRGF2aWQgTGm5a2E6DQo+
IEFob2osDQo+IG5ldml0ZSBuZWtkbyBqYWsgZG9zYWhub3V0IHpvYnJhemVuaSBuZWpha2Uga29t
cG9uZW50eSwga3RlcmEgYWxlIHphc2FodWplDQo+IGF6IHphIG9rcmFqIGZvcm11bGFyZT8NCj4g
TmVjbyB0YWtvdmVobyBqYWsgc2UgY2hvdmEgdHJlYmEgZHJvcGRvd24gbGlzdCB1IGtsYXNpY2tl
aG8gQ29tYm9Cb3h1Li4uIHRlbg0KPiBrZHl6IGplIHRyZWJhIG5hIHNwb2RrdSBmb3JtdSwgdGFr
IHNlIHRha3kgcm96YmFsaSBheiBwb2QgbmVqLg0KPiBLb3VrYWwganNlbSBkbyB6ZHJvanUgVkNM
LCBhbGUgbmVqc2VtIHogdG9obyBtb2MgY2h5dHJlaiA7LSkNCg0KIA==
Promazani TStringLIst
[*] Vymazal Milan <vymazal.milan(zv)seznam(tec)cz> - 1.4.2003 10:33:53
Zdravim
mozna je to totalne zacatecnicky dotaz ale mam
var
temp:TStringLIst;
i:integer;
begin
temp:=TStringlist.create;
for i:=1 to temp.count-1 do
begin
if temp[i]='###' then
temp.delete(i);
end;
end;
melo by to vymazat kazdej radek kterej obsahuje ### ale
po chvilce to spadne. V cem je problem. :(
--
Best regards,
Milan Vymazal
Delphi 7 Enterprise, Windows 2000 SP3 Proff, IE 6.0sp1 with all sp
Dropdown list
[*] David Li�ka <konference(zv)thsoft(tec)cz> - 1.4.2003 10:37:09
Ahoj,
nevite nekdo jak dosahnout zobrazeni nejake komponenty, ktera ale zasahuje
az za okraj formulare?
Neco takoveho jak se chova treba dropdown list u klasickeho ComboBoxu... ten
kdyz je treba na spodku formu, tak se taky rozbali az pod nej.
Koukal jsem do zdroju VCL, ale nejsem z toho moc chytrej ;-)
problem foxpro a sql
[*] Lstiburek Pavel <Lstiburek(zv)ceb(tec)cz> - 1.4.2003 10:24:04
takhle urcite ne!, tu prazdnou hodnotu uzes pouzit pouzit pouze v SQL
prikazu !
Pavel
> -----Original Message-----
> From: Ing. J=E1n Kuch=E1r PhD. [mailto:kuchar(zv)unicodesys(tec)cz]
> Sent: Tuesday, April 01, 2003 8:51 AM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: Re: problem foxpro a sql
>=20
>=20
> ale kdyz v delphach snazim nahradit hodnotu null tim prazdnym=20
> datumem tak to
> zarve :
>=20
> table1.Fields[i2].value:=3D'{}';
>=20
> kde table1 je komponenta napojena na foxpro tabulku
>=20
>=20
> ----- Original Message -----
> From: "Lstiburek Pavel" <Lstiburek(zv)ceb(tec)cz>
> To: <delphi-l(zv)clexpert(tec)cz>
> Sent: Monday, March 31, 2003 5:20 PM
> Subject: RE: problem foxpro a sql
>=20
>=20
> Jedina hodnota null, kterou foxka podporovala do verze 2.6 je u
> tyu datumu. Zadnou jinou ne ! U ostatnich typu se pouze lisila
> hodnota v dbf souboru pro nevyplnena data.
> Null hodnota datumu se zapisovala jako {} (prazdne zavorky),=20
> urcite to jde
> zapsat pres ODBC driver.
> Pavel
>=20
>=20
OT: Replikace MS SQL 2000
[*] Lasevic, Martin <MLasevic(zv)ratiopharm(tec)cz> - 1.4.2003 09:41:56
Ahojek,
resime problem replikaci na MS SQL 2000 a jejich spousteni.
Vnitrofiremni system pro obchodni reprezentanty ma n+1 databazi, kde n je
pocet reprezentantu a jedna databaze navic jako centralni.
Jak nejoptimalneji pripravit databaze k predani obchodnim zastupcum? Moje
predstava je takova, ze si mimo replikacni proces pripravim data pro
jednotlive zastupce a attachuji na jejich SQL server.
Da se nejak externe z aplikace spustit replikacni agent, zjistit status
replikace a pripadne stav rozpracovani replikace?
Jake mate zkusenosti s replikaci na WinCE? Mame SQL server CE 2.0?
Hezky den
Martin
problem foxpro a sql
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 1.4.2003 09:22:29
MS40LjIwMDMgIkluZy4gSuFuIEt1Y2jhciBQaEQuIjoNCj4gYWxlIGtkeXogdiBkZWxwaGFjaCBz
bmF6aW0gbmFocmFkaXQgaG9kbm90dSBudWxsIHRpbSBwcmF6ZG55bSBkYXR1bWVtIHRhayB0bw0K
PiB6YXJ2ZSA6DQoNCj4gdGFibGUxLkZpZWxkc1tpMl0udmFsdWU6PSd7fSc7DQoNCj4ga2RlIHRh
YmxlMSBqZSBrb21wb25lbnRhIG5hcG9qZW5hIG5hIGZveHBybyB0YWJ1bGt1DQoNCk9iYXZhbSBz
ZSwgemUgdiBEZWxwaGkgbXVzaXMgemFwb21lbm91dCBuYSBzeW50YXhpLCBwb3V6aXZhbm91IHZl
DQpGb3hQcm8uIHt9IG5lbmkgcHJhemRuZSBkYXR1bSAgOi0oDQoNCg0KLS0gDQpKYW4gRmlhbGEN
Cm1haWx0bzpqYW4uZmlhbGFAaW9sLmN6
Sinea - oriznuti sestavy
[*] Ludek ZITA <konference(zv)sales(tec)cz> - 1.4.2003 09:32:18
Zdravim.
Mam sestavy Sinea a termotiskranu na stitky.
Stitky maji rozmer 85x132mm a jsou korektne nastaveny jako vychozi na
driveru tiskarny.
Pokud nastavim papir v sestave na A4 pak pri pokusu o tisk vybehne dialog
"Sinea - moznosti tisku" kde jsou udaje:
Format tiskove sestavy 826x1169
Format media v tiskarne 338 x 519
a volby Oriznout,Zmensit,Vice listu,Otocit medium
Dobra. Nastavm tedy v sestave format papiru na 338x519 a vse se opakuje ale
Sinea mi ted tvrdi, ze medium v tiskarne je 200x400.
Vzhledem k vyse uvedenym volbam tak nikdy nedokazu tisknout na cely stitek.
Jak jsem zjistil tak podobne situace nastane i na jine tiskarne ktera ma
nestandardni rozmery papiru.
Co s tim
Ludek
IB/FB - jak provest automaticke aktualizace? Exist
[*] Roland Turcan <rolo(zv)sedas.sk> - 31.3.2003 17:08:15
<<< 31. 3. 2003 17:07 - js-delphi(zv)quick(tec)cz "js-delphi(zv)quick(tec)cz" >>>
jdqc> Ahoj.
jdqc> Uz se zase potrebuju na neco zeptat. ;o)
jdqc> Mam tabulku, ve ktere jsou sloupce (mimo
jdqc> jine) "Platnost" a stav zaznamu "Stav" [aktivni,
jdqc> neaktivni, zruseny z duvodu nove platnosti,
jdqc> propadla platnost, atd.]
jdqc> Problem:
jdqc> Jak mam vyresit automaticky update zaznamu tyhle
jdqc> tabulky? Proste, kdyz je platnost<dnesek and
stav=aktivni ->> stav=propadly
jdqc> Neni tezke na to napsat SQL, ale co s nim? To ho
jdqc> ma provadet kazda clientska aplikace? A kdyz jo,
jdqc> kolikrat za spusteni? Kdyz to bude treba u
jdqc> uzivatele, ktery PC nevypina (a takovy jsou), tak
jdqc> to moc slapat nebude.
jdqc> Jako nejlepsi se mi jevi moznost napsat nejaky
jdqc> JOB s provedenim toho SQL.
jdqc> No jo, ja bych vedel jak na to u MSSQL, ale jak
jdqc> na to u FB/IB?
jdqc> Diky
jdqc> Jirka
jdqc> --------------------------------------------------
jdqc> Ing. Jiri Sokol; jiri.sokol(zv)seznam(tec)cz; 972 231 187
jdqc> D6Prof+SP2; WinNT
jdqc> programator amater
-------------------------------------------
My answer:
----------
Moja rychla uvaha pred fajrontom. :-)))
Skus do Selectov ktore sa zaujimaju o tie tabulky zapojit nejaku SP,
ktora vykona update zaznamov.
--
Best regards, TRoland
problem foxpro a sql
[*] Ing. J�n Kuch�r PhD. <kuchar(zv)unicodesys(tec)cz> - 1.4.2003 08:51:10
ale kdyz v delphach snazim nahradit hodnotu null tim prazdnym datumem tak to
zarve :
table1.Fields[i2].value:='{}';
kde table1 je komponenta napojena na foxpro tabulku
----- Original Message -----
From: "Lstiburek Pavel" <Lstiburek(zv)ceb(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, March 31, 2003 5:20 PM
Subject: RE: problem foxpro a sql
Jedina hodnota null, kterou foxka podporovala do verze 2.6 je u
tyu datumu. Zadnou jinou ne ! U ostatnich typu se pouze lisila
hodnota v dbf souboru pro nevyplnena data.
Null hodnota datumu se zapisovala jako {} (prazdne zavorky), urcite to jde
zapsat pres ODBC driver.
Pavel
IB/FB - jak provest automaticke aktualizace? Exist
[*] <rdanhel(zv)centrum(tec)cz> - 01.4.2003 08:04:34
Ahoj
Jestlize nechces psat vkladaci triger nebo event tak me nenapada proc=20
to chces menit automaticky. Jestli jde o to ,ze zaznam se podle datumu=20
nastavi na neaktivni z aktivniho a jediny jeho vyhodnoceni probyha az=20
v aplikaci tak bych to resil tam a to tak, ze v okamziku kdy nekdo=20
provede dotaz na dany zaznam, tak bych ho upravil podle data. Nebo=20
davkove pri spusteni dane aplikace na zacatku. Protoze kdyz aplikace=20
nebezi ,tak je samozrejme jedno co tam je za data, kdyz se na ne nikdo=20
nekouka. Takze proste kazda aplikace by pri spusteni, nebo jednou=20
denne, provedla update zaznamu.
s pozdrave, Rostislav danhel
>> js-delphi(zv)quick(tec)cz dne 31 Mar 2003 v 14:18:>=20
> > Ahoj.> > Uz se zase potrebuju na neco zeptat. ;o)> > Mam tabulku, ve ktere jsou sloupce (mimo=20
> > jine) "Platnost" a stav zaznamu "Stav" [aktivni,=20
> > neaktivni, zruseny z duvodu nove platnosti,=20
> > propadla platnost, atd.]> > Problem:> > Jak mam vyresit automaticky update zaznamu tyhle=20
> > tabulky? Proste, kdyz je platnost<dnesek and=20
> > stav=3Daktivni -> stav=3Dpropadly
>=20
--------------------
Radio INFO - nov=E9, metropolitn=ED, hudebn=EC informa=E8n=ED r=E1dio s=
aktu=E1ln=EDm zpravodajstv=EDm o pra=BEsk=E9 doprav=EC. Nala=EFte si 1=
05,9 FM! http://www.netimpuls(tec)cz/info
IB/FB - jak provest automaticke aktualizace? Exist
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 1.4.2003 07:45:56
js-delphi(zv)quick(tec)cz dne 31 Mar 2003 v 14:18:
> Ahoj.
> Uz se zase potrebuju na neco zeptat. ;o)
> Mam tabulku, ve ktere jsou sloupce (mimo
> jine) "Platnost" a stav zaznamu "Stav" [aktivni,
> neaktivni, zruseny z duvodu nove platnosti,
> propadla platnost, atd.]
> Problem:
> Jak mam vyresit automaticky update zaznamu tyhle
> tabulky? Proste, kdyz je platnost<dnesek and
> stav=aktivni -> stav=propadly
Ahoj,
asi bych to zkusil resit napsanim sluzby (ktera pobezi nejspise na stejnem PC jako IB server, i
kdyz to neni podminkou). Ta by "cas od casu" dle Tvych pozadavku onen SQL spustila. Popr. by se
jiste dalo vyuzit i planovace uloh - tj. napsat to jako "normalni aplikaci" a nechat ji spustit
napr. kazdy den po pulnoci.
Jeste jina moznost je ten stav "aktivni ci propadly" vubec nerozlisovat a pri dotazech, kdy
vybiras jen aktivni polozky, proste testovat podle datumu misto podle tohoto pomocneho pole, ktere
stejne jen duplikuje informaci, ktera v tom datumovem poli je jiz obsazena.
Karel Rys
Komponenta pro seriovy port
[*] vlcek <l.vlcek(zv)noel-plus(tec)cz> - 1.4.2003 07:24:31
Dne po 31. b=F8ezna 2003 23:51 jste napsal(a):
> Zdravim vespolek,
>
> prosim, nevite nekdo o nejake kvalitni komponente pro seriovy port? Nejle=
pe
> asynchronni ?
>
Zkuste tohle :
http://www.ararat(tec)cz/synapse/
> Diky Zdenek Reznicek
L.V.
jezevec
Jak nacist PNG obrazek
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 1.4.2003 01:18:30
From: "Ing. Jan Dubsk� - Stroj�rna P�lava" <dubsky(zv)s-palava(tec)cz>
> Kde je chyba, pripadne nemate nekdo komponentu, ktera umi nacist PNG.
http://www.delphi-gems.com/Graphics.php
Petr Vones