Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
SQL- UNION
[*] Jan �ebel�k <honza(zv)haes(tec)cz> - 7.5.1999 14:04:31
> > V Delphi to nelze.
> > Tedy presneni receno UNION v TQuery.SQL nelze.
> Tu by som si dovolil oponovat. Jedine, ze by som mal nejaku
> inu verziu TQuery.
Omlouvam se, zkousel jsem to v Delphi1 a pak jsem se k tomu uz nevracel.
Dokazal jsem se bez toho vzdy obejit.
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 0434 692 931, 692 569, 0601 20 30 84
=========================================SQL- UNION
[*] Jan �ebel�k <honza(zv)haes(tec)cz> - 7.5.1999 14:09:22
> > Mozna to reknu prilis kategoricky.
> > Kdo ma dobre udelany datovy model, ten UNION nepotrebuje.
>
> Mozna to reknu prilis kategoricky.
> Kdo to ma v hlave aspon trochu v poradku, ten takoveto rady nepotrebuje.
>
> Jiri Polak
Kdo to ma v hlave aspon trochu v poradku, ten se snazi, aby jeho databaze byla relacne cista.
UNION je bastl.
Kazdy bastl drive nebo pozdeji prinese potize.
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 0434 692 931, 692 569, 0601 20 30 84
=========================================SQL- UNION
[*] Jan �ebel�k <honza(zv)haes(tec)cz> - 7.5.1999 14:21:10
> UNION pouzivam hlavne v zostavach, kde potrebujem
> uzivatelovi posunut pripraveny datovy modul, aby si mohol
> definovat zostavy podla vlastnej lubovole a nemusel nic
> programovat. Takze si Vam dovolim oponovat aj v tomto.
>
Prosim o priklad, kdy se bez UNION neobjedu.
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 0434 692 931, 692 569, 0601 20 30 84
=========================================Winsock - pomozte prosim !!!
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 7.5.1999 14:23:57
>Jedna se o maly proxy server zalozeny na pouhem preposilani requestu po
>TCPIP primo pres Winsock API.
>
>Stale se mi stava, ze pri pokusu o Receive ze serveru se mi vrati chyba
>"Connection reset by peer".
>Stava se to pouze u serveru, ktere maji rychle odezvy a na ktere posilam
>par requestu soubezne.
>
>Delam neco spatne ?
1) po accept ma novy socket stejne parametry jako master socket. Tedy je v
non-blocking rezimu a WinSock rozesila stejne zpravy jako na master socket
eventy. Lepsi je na master dat pouze FD_ACCEPT a na akceptovane sockety pak
je to co je potreba.
2) tim, ze mas hooodne veliky buffer pro recv() stejne nedosahnes abys
nacetl celou HTTP request hlavicku od browseru. Klidne ti to muze skoncit s
tim, ze se nacetl jen jeden byte - musis cist to co uz dorazilo a cekat
dokud nemas hlavicku celou. Pak vyseparovat HTTP request, zjistit jestli to
neni nahodou POST (pak mas jeste dalsi data za headerem)....
3) Podle me je procedura DataAvail nepouzitelna. Jednodussi, jistejsi a
prehlednejsi to budes mit, pokud na kazdy akceptovany socket spustis novy
thread a v nem budes tento socket obslohovat jako blocking (socket musis
ihned po akcept prepnout do non-blocking mode)
cteni dat ze serveru pak muzes jednoduse realizovat jako:
repeat
if recv(serversovket,...) = 0 then
Break;
send(clientsocket)
until false;
Zdravi
D. Toman
SQL- UNION
[*] Jan �ebel�k <honza(zv)haes(tec)cz> - 7.5.1999 14:24:21
> ing. Jan Fiala fiala(zv)infos(tec)cz
> Kategoricky ano, ale spravne ne. Zkus si treba nasledujici dotaz nad
> obycejnymi DBF tabulkami :
>
> select *
> from 'd:\infos\odbyt\dodli.dbf'
> where odber = 820555
> union
> select *
> from 'd:\infos\archiv\dodli.dbf'
> where odber = 820555
>
A jsme u toho.
Databaze (at uz lokalni nebo SQL) by mela byt obrazem relacniho datoveho modelu.
Datovy model je obrazem realneho systemu.
Realny system je jeden.
Pouze v ramci jedne databaze lze formulovat integritni omezeni (zkus foreign key do jine databaze), triggery, transakcni zpracovani (s vyjimkou tzv. two-phase-commit napr. u InterBase, to zase ale nepodporuje BDE.)
Co kdyz se ti rozhodi referencni integrita mezi ostrou databazi a archivem, co pak s tim?
> projde uplne bez problemu. A k tomu "dobre navrzenemu" datovemu modelu.
> Podle tebe bych vse nacpat do jedne tabulky, ktera bude mit 9 milionu
> zaznamu (skutecnost). Dobre navrzeny datovy model bych spise videl mit
> tabulky 2. V jedne aktualni rok, ve druhe archivni data, do kterych se chodi
> jen obcas a pak se vyuzije UNION.
Kdyz uz neni vyhnuti (prilis mnoho dat), pak bych spise videl 2 databaze (ostra a archiv) a s kazdou pracoval zvlast.
Kazda z nich si musi udrzet vlastni integritu.
>Podobne k tvemu prispevku o temporary
> tabulkach. Zda se mi vyhodnejsi porizovany doklad pri porizovani dat do
> temporary tabulky, kterou pak naraz zpracuji, nez to cpat do ostrych dat a v
> pripade, ze si to na konci porizovani rozmyslim, tak to z ostrych dat mazat.
>
Transakce: commit a rollback
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 0434 692 931, 692 569, 0601 20 30 84
=========================================MDI
[*] Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz> - 7.5.1999 14:36:31
Zdravim,
oteviram soucasne nekolik childu maximalizovane. Jak zabranit neprijemnemu
problikavani? Vypada to, jako by se child vytvoril nejprve v puvodni
velikosti a teprve pak se maximalizoval.==[ Libor Krayzel ]================================
http://webhost(tec)cz/elka * mailto:libor.krayzel(zv)czech-tv(tec)cz
http://easypad.fwd(tec)cz * mailto:elka(zv)seznam(tec)cz
============================================== DBGrid
[*] Martin Bohm <mbohm(zv)quelle.sk> - 7.5.1999 14:46:40
Zdravim
Neviete niekto ako v DBGride zistit, ktore riadky (cisla riadkov) su
vybrate.
Skusal som to cez DBGrid.SelectedRows.Items[#] ale hlasi mi to ze, tam niesu
ziadne polozky (List out of bound...), a to som chcel prvu polozku (index =
0).
Za kazdu radu budem vdacny.
Martin B�hm
mbohm(zv)quelle.sk
tel. 07/5556 88 08
SQL- UNION
[*] Martin Bohm <mbohm(zv)quelle.sk> - 7.5.1999 14:48:35
>SQL servery sice UNION umoznuji, ale zkus treba
>create view vvv as select .... union select ....
>
>Ktery server si s timto poradi?
Oracle (aspon verzia 7.3.4)SQL- UNION
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 7.5.1999 14:56:09
> > Mozna to reknu prilis kategoricky.
> > Kdo ma dobre udelany datovy model, ten UNION nepotrebuje.
>
> Mozna to reknu prilis kategoricky.
> Kdo to ma v hlave aspon trochu v poradku, ten takoveto rady
> nepotrebuje.
>
> Tak to maximalne ten, kdo si uz vytvori DB a datovy model sam.Ne pro
> toho,kdo
> to prevezme a ma z toho neco kloudneho udelat.
Jejda, to mne mrzi. Ale kdyz to ctu, musim uznat, ze to vyznelo jinak
nez jak jsem to myslel. Samozrejme nesouhlasim s tou stupiditou:
"Mozna to reknu prilis kategoricky. Kdo ma dobre udelany datovy model,
ten UNION nepotrebuje."
Dobre udelany datovy model a potreba UNIONU ci docasnych tabulek se
samozrejme
nevylucuje.
Jiri Polak
----------
Jiri Polak
e-mail:jura.polak(zv)email(tec)cz
jiri.polak(zv)tconsult(tec)cz
web :http://freeweb.coco(tec)cz/jpolak
----------
The only good bug, is a dead bug!SQL- UNION
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 7.5.1999 15:08:46
> -----Original Message-----
> From: Jan �ebel�k [mailto:honza(zv)haes(tec)cz]
> Sent: Friday, May 07, 1999 2:09 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Re: SQL- UNION
>
>
> > > Mozna to reknu prilis kategoricky.
> > > Kdo ma dobre udelany datovy model, ten UNION nepotrebuje.
> >
> > Mozna to reknu prilis kategoricky.
> > Kdo to ma v hlave aspon trochu v poradku, ten takoveto rady
> nepotrebuje.
> >
> > Jiri Polak
>
> Kdo to ma v hlave aspon trochu v poradku, ten se snazi, aby
> jeho databaze byla relacne cista.
ano
> UNION je bastl.
ne. Union je algebraicka operace sjednoceni.
> Kazdy bastl drive nebo pozdeji prinese potize.
Jiri Polak
----------
Jiri Polak
e-mail:jura.polak(zv)email(tec)cz
jiri.polak(zv)tconsult(tec)cz
web :http://freeweb.coco(tec)cz/jpolak
----------
The only good bug, is a dead bug!podivne ADONIS
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 7.5.1999 15:15:31
> -----Original Message-----
> From: honza(zv)haes(tec)cz [mailto:honza(zv)haes(tec)cz]
> Sent: Friday, May 07, 1999 1:57 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Re: podivne ADONIS
>
>
> > > Mozna to reknu prilis kategoricky:
> > > Kdo ma dobre udelany datovy model, ten docasne tabulky
> nepotrebuje.
> >
> > To je dobrej nesmysl.
> > To je asi jako kdybys rekl, ze kdo ma spravne postavenej
> > program, nepotrebuje lokalni promenne ve funkcich.
> >
> > Jura
> Tento argument me nepresvedcil.
> Programovani procedur a funkci je neco jineho nez prace s
> relacni databazi.
Je to to stejne, potrebujes docasne prostor pro
uchovani informaci.
> Pokud se to navrhne opravdu relacne...
> Jak zapises docasnou tabulku do ER-Diagramu?
> Jakou Entitu takova tabulka reprezentuje?
> Uznavam, ze je to receno az prilis kategoricky, ale "v
> zasade" to pravda je.
>
Neni.
Zapisu to jako normalni tabulku.
Nektere veci byvaji zavisle na sezeni.
Napr. Seznam chyb po validaci editace.
Jiri Polak
----------
Jiri Polak
e-mail:jura.polak(zv)email(tec)cz
jiri.polak(zv)tconsult(tec)cz
web :http://freeweb.coco(tec)cz/jpolak
----------
The only good bug, is a dead bug!GREP pro Delphi
[*] Petr Fejfar <callnet(zv)telecom(tec)cz> - 7.5.1999 15:41:12
Jan �ebel�k <honza(zv)haes(tec)cz> wrote:> V Delphi4: RightClick a FindDeclaration.
Hi,
to je sice dobra funkce, ale kdyz udrzujes projekt, tak te IMHO daleko
casteji zajima, kde vsude musis neco zmenit. Ale na to uz ma Delphi radu let
podporu v prikazu Find, Find in Files.
Horsi je to s Replace pres vice souboru. To Delphi nepodporuje, takze se
nakonec ke slovu stejne dostane stare dobre ME, ostatne, ja ho pouzivam
daleko vice nez integrovany editor.
Bye, pf
podivne ADONIS
[*] Jaroslav Sikora <sikora(zv)kam(tec)czu(tec)cz> - 7.5.1999 15:57:22
>> > Mozna to reknu prilis kategoricky:
>> > Kdo ma dobre udelany datovy model, ten docasne tabulky nepotrebuje.
>>
>> To je dobrej nesmysl.
>> To je asi jako kdybys rekl, ze kdo ma spravne postavenej
>> program, nepotrebuje lokalni promenne ve funkcich.
>>
>> Jura
>Tento argument me nepresvedcil.
>Programovani procedur a funkci je neco jineho nez prace s relacni databazi.
>Pokud se to navrhne opravdu relacne...
>Jak zapises docasnou tabulku do ER-Diagramu?
>Jakou Entitu takova tabulka reprezentuje?
>Uznavam, ze je to receno az prilis kategoricky, ale "v zasade" to pravda
je.
>
> Honza
No to teda neni. A co treba docasne tabulky ve stored procedurach?
Jarda
sikora(zv)kam(tec)czu(tec)cz
Divne chovani TRadioGroup
[*] Tomas Holan <HOLAN(zv)ksvi.mff.cuni(tec)cz> - 7.5.1999 16:43:48
Dobry den,
neni mi jasne nasledujici chovani komponenty TRadioGroup:
Projekt obsahuje dve okna:
- Form1 obsahuje TRadioGroup (ShowMessage pri OnClick)
a TButton (Form2.Show)
- Form2 obsahuje TButton (Form1.RadioGroup1.ItemIndex := 3)
* Spustim
* nastavim TRadioGroup
* tlacitkem zobrazim Form2
* stiskem Form2.Button1 zmenim nastaveni Form1.RadioGroup1
* kliknu nekam na Form1
- a RadioGroup se prepne jinam!!
Nejsou tam zadne jine udalosti, tenhle projekt jsem psal uz
proto, abych zjistil, proc to nefunguje v projektu,
kde se to puvodne projevilo.
Nesetkal se s tim nekdo z Vas?
Dekuji
Tom
Problem s ToolHelp funkcemi na NT
[*] Milan Sorm <xsorm(zv)informatics.muni(tec)cz> - 7.5.1999 18:12:03
Dobry den.
Mam program bezici korektne pod Win95 (v Delphi) a pouzivajici funkce z
ToolHelpu (tu 32-bitovou verzi). Funkce Process32Next apod. hleda v
kernel32.dll, coz je ve Win95 to spravne misto. V NT vsak v teto knihovne
tyto funkce nejsou (hledano pomoci Zbezne zobrazit).
Nevite, jak napsat program, ktery by pracoval pod oboji, tj. kde v NT najit
ty funkce ?
diky moc
milan
Presun formulare na formular
[*] lukas(zv)oknet(tec)cz (Vana Lukas) - 7.5.1999 19:11:39
Prosim o radu k tomuto problemu:
Uzivatel ma spustenou aplikaci, ktera zobrazuje dva nemodalni formulare. Oba
bude pri praci premistovat. Kdyz se mu podari uchopit jeden z nich a
presunout ho NAD TEN DRUHY, potrebuju, aby se po presunu vygenerovala
udalost a program zobrazil napriklad message "Jedno okno programu presahuje
pres druhe". Zni to jako zbytecnost, ale pro muj programek je to zasadni
vec.
Nevi prosim nekdo jak na to?
Lukas Vana, lukas(zv)oknet(tec)cz
Odchytavani stisknutych klaves
[*] lukas(zv)oknet(tec)cz (Vana Lukas) - 7.5.1999 19:13:01
Jen tak pro zajimavost: existuje nejaky zpusob, jak vytvorit programek,
ktery ac minimalizovan a ac jsou prave pouzivany jine programy stale
odchytava vsechny stisknute klavesy? A umi proto treba to, ze uzivatel pise
ve Wordu, stiskne Shift+Ctrl+P a program se maximalizuje?
Diky, Lukas Vana.SQL- UNION
[*] Leos Urban <Leos.Urban(zv)aitix(tec)cz> - 7.5.1999 20:06:40
>SQL servery sice UNION umoznuji, ale zkus treba
>create view vvv as select .... union select ....
>
>Ktery server si s timto poradi?
Informix (aspon verze 7.30)Ukradena pamet
[*] Vodicka, David (CAP, GCF) <David.Vodicka(zv)gecapital(tec)com> - 7.5.1999 20:25:38
Zdrav�m f�echny Delfa�e,
Nev� n�kdo, jak zabezpe�it vr�cen� pam�ti po vyvol�n� datab�zov�ho
dotazu pomoc� TQuery. N� probl�m spo��v� v tom, �e po sekvence
"Query1.Open; n�co (a nebo taky nic); Query1.Close" p�ijdeme o docela dost
pam�ti. Dost n�m to vad� zejm�na na aplika�n�m serveru, kde po mnoha
tis�c�ch dotaz� je ztr�ta pam�ti pom�rn� nep��jemn�.
Pro p�esnost : p�i prvn�m vyvol�n� Open si to vezme cca 100k, prvn�
Close vr�ti cca 40, druh� a dal�� si uz berou m�� a vrac� v�c, ale stejn� to
nevrac� v�echno - a ka�d�ho K pam�ti je �koda. P�i vyvol�n� jin� Query je
op�t prvn� u�r�n� pam�ti zna�n� ...
D�ky za ka�d� nakopnut�
Ing. David Vodi�ka
David.Vodicka(zv)GECapital.com
Patch k D4
[*] Pavel Malinsk� <spiderland(zv)seznam(tec)cz> - 7.5.1999 23:26:49
Ahoj,
chtel jsem se zeptat, jak to je se %subj%,
ktery je posledni a jak je potreba je instalovat.
Staci posledni nebo je nutne postupne nainstalovat
vsechny ?
S pozdravem a diky
==================================
> Pavel Malinsky; spiderland(zv)seznam(tec)cz <
>================================<
> ...The Truth Is Out There... <
==================================
GSM: 0602 652 203
MDI
[*] MJ soft <mjsoft(zv)rychnov(tec)cz> - 7.5.1999 23:36:29
Jo to me taky rozciluje. Ale v Rx demo to
maj osetreny. Zkus se podivat.
Jin
-----P�vodn� zpr�va-----
Od: Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz>
Komu: '*** Delphi' <delphi-l(zv)fwd(tec)cz>
Datum: 07.kv�tna.1999 14:44
P�edm�t: MDI
>Zdravim,
>
>oteviram soucasne nekolik childu maximalizovane. Jak zabranit neprijemnemu
>problikavani? Vypada to, jako by se child vytvoril nejprve v puvodni
>velikosti a teprve pak se maximalizoval.
>
>==[ Libor Krayzel ]================================
>http://webhost(tec)cz/elka * mailto:libor.krayzel(zv)czech-tv(tec)cz
>http://easypad.fwd(tec)cz * mailto:elka(zv)seznam(tec)cz
>==============================================Patch k D4
[*] Jaroslav Sikora <sikora(zv)kam(tec)czu(tec)cz> - 8.5.1999 08:47:55
> chtel jsem se zeptat, jak to je se %subj%,
>ktery je posledni a jak je potreba je instalovat.
>Staci posledni nebo je nutne postupne nainstalovat
>vsechny ?
Zkus unprepare.
Jarda
sikora(zv)kam(tec)czu(tec)cz
Patch k D4
[*] Leos Urban <Leos.Urban(zv)aitix(tec)cz> - 8.5.1999 08:54:28
> chtel jsem se zeptat, jak to je se %subj%,
>ktery je posledni a jak je potreba je instalovat.
>Staci posledni nebo je nutne postupne nainstalovat
>vsechny ?
Posledni je Update Pack 3, ten se instaluje na Update Pack 2.
Vice informaci na http://www.borland.com/devsupport/delphi/downloads/
nebo na http://www.inprise(tec)cz
Leos
Obcerstveni ADONIS DataSetu
[*] Hynek svatos <svatos(zv)af(tec)czu(tec)cz> - 8.5.1999 09:37:22 met
Zdravicko,
Netusite nahodou nekdo, jak udelat to:
Mam podkladovou tabulku nad kterou mam udelany nejaky vyber
pomoci ADONISu placnuty do datasetu.
Nyni provedu zmeny v te tabulce na serveru a chci, aby se mi
zmany projevily i na klientovi.Zatim vim o jedinem reseni a to je
reload datasetu, coz je neprijatelne (dotaz trva treba 15 sec.).
Napada vas neco ?
Hynek Svatos
svatos(zv)af(tec)czu(tec)cz
IntelliMouse v Delphi
[*] iko(zv)kamarad(tec)cz - 8.5.1999 12:26:35
Minule som zistil v jednom mojom softe zaujimavu vec. Bolo to
taketo nieco.
var a:byte;
begin
for a:=0 to 30 do begin
.
end;
Ale ide o to, ze ked som si krokoval ten cyklus, tak a malo v prvom
cykle hodnotu 31 (nie 30 !!!) a postupne klsesalo. Myslel som si, ze
na to je miesto to downto. A preco 31?
Iko
iko(zv)kamarad(tec)cz
http://freeweb.coco(tec)cz/IKO
IntelliMouse v Delphi
[*] Michal Cizek <starxax(zv)molly.vabo(tec)cz> - 8.5.1999 13:05:01
Zdarec
Zkus si v kompilatoru vypnout optimalizaci, prekompilovat a protrasuj to
znovu ...
Mam takovej dojem ze na neco takovyho uz jsem taky narazil, a delala to
optimalizace.
S pozdravem Michal
> Minule som zistil v jednom mojom softe zaujimavu vec. Bolo to
> taketo nieco.
>
> var a:byte;
> begin
> for a:=0 to 30 do begin
> .
> end;
>
> Ale ide o to, ze ked som si krokoval ten cyklus, tak a malo v prvom
> cykle hodnotu 31 (nie 30 !!!) a postupne klsesalo. Myslel som si, ze
> na to je miesto to downto. A preco 31?
> Iko
> iko(zv)kamarad(tec)cz
> http://freeweb.coco(tec)cz/IKO
Problem s TThread
[*] Michal Leinweber <M.Leinweber(zv)sh.cvut(tec)cz> - 8.5.1999 13:34:36
> procedure
> TSoundThread.Create(TicksFrom,TicksTo:DWord;FileToPlay:String);
Neni to nahodou tim ze to ma bejt "constructor" a ne "procedure" ?
Jinak reseni navrhovane p Kanderou ma zasadni chybu v tom ze inherited
zavolane na konci contructoru znici vsechno co bylo nastaveno pred nim.
McLEI
Odchytavani stisknutych klaves
[*] Michal Leinweber <M.Leinweber(zv)sh.cvut(tec)cz> - 8.5.1999 13:40:23
> Jen tak pro zajimavost: existuje nejaky zpusob, jak vytvorit programek,
> ktery ac minimalizovan a ac jsou prave pouzivany jine programy stale
> odchytava vsechny stisknute klavesy? A umi proto treba to, ze uzivatel
pise
> ve Wordu, stiskne Shift+Ctrl+P a program se maximalizuje?
Ano pomoci funkce RegisterHotKey si zaregistrujete svoji kombinaci klaves a
kdyz ji uzitavel striskne posle se vam zprava WM_HOTKEY do okna ktereho
handle predavate pri volani te funkce.
McLEI
LOCAL SHARE
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 8.5.1999 13:01:42
Puvodni zprava, kterou napsal Pavel M. dne 20 Feb 98,:
> Mam zatim nekolik duvodu (nebo mozna vymluv) proc tu aplikaci
> mame pod paradoxem.
>
> V malych sitich (dolem 10 stanic) je to rychlejsi.
Opravdu jsi to zkousel? Ja si dovolim nesouhlasit. Samozrejme
Paradox na siti se muze zdat byt rychlejsi nez SQL Server,
pokud jsou tabulky male a nic moc se nedela. V okamziku, kdy
je databaze obsaznejsi a nebo s nimi opravdu intenzivne
pracujes, je SQL Server rychlejsi. Za prve proto, ze po siti
nepluji vsechna data sem a tam, za druhe proto, ze server
je vetsinou vykonny stroj a zpracovava dotazy rychleji nez
stanice.
> Pro programotora - amatera (jsem ekonom) je to snazsi.
To je pravda. Ale kdo pak opravuje zhavarovane tabulky?
> Protoze se ta aplikace dela za behu (uz 3 roky) u paradoxu se
> snaze meni struktury atd. (je to bastleni ja vim).
Jakto? Struktury se na SQL Serveru meni take dobre, i kdyz
samozrejme je lepsi udelat hodne dobry databaze design,
aby to bylo co nejmene potreba.
> Nosna cast aplikace je planovani vyroby a materialu a tam porad
> HODNE vyuzivame velmi snadnou spolupraci s Quattrem (umi
> primo cist i zapisovat do paradoxu).
> A pokud to bezi a nehlasi to "index out of date" kazdy tyden
> jako pred puldruhym rokem, tak jakou vyhodu mi prinese
> SQL databaze ?
Teda ale nerikej mi, ze ti bezi aplikace postavena na tabulkach
Paradoxu na siti s 10 stanicemi, aniz by to chcipalo... To se mi
nechce vubec verit, protoze staci mit tabulku s memo polem,
pridat zaznam a shodit stanici, a je po tabulce... Tabulky
Paradox i dBase jsou velmi nespolehlive i pri lokalnim provozu.
Pricemz nespolehlivost exponencialne roste s pouzitim MEMO poli
a s nasazenim na sit.
S pozdravem
Petr Zahradnik, pocitacovy expert
Autorizovany dealer TurboPower Software... knihovny pro Delphi
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon: 047-5500610, telefon/fax: 047-5501627 ===
=== mobilni telefon GSM (hotline): 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================
ICQ: 21215917, PGP vitano
SQL- UNION
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 8.5.1999 13:10:33
Puvodni zprava, kterou napsal Jan �ebel�k dne 7 May 99,:
> Mozna to reknu prilis kategoricky.
> Kdo ma dobre udelany datovy model, ten UNION nepotrebuje.
Honzo, pri vsi ucte, tohle je blbost...
Rekni mi opravdu jeden kvalitni a logicky argument, proc by pouziti
UNION bylo v rozporu s dobre udelanym datovym modelem.
S pozdravem
Petr Zahradnik, pocitacovy expert
Autorizovany dealer TurboPower Software... knihovny pro Delphi
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon: 047-5500610, telefon/fax: 047-5501627 ===
=== mobilni telefon GSM (hotline): 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================
ICQ: 21215917, PGP vitano
SQL- UNION
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 8.5.1999 13:47:58
Puvodni zprava, kterou napsal Jan �ebel�k dne 7 May 99,:
> Prosim o priklad, kdy se bez UNION neobjedu.
Nejde o to, zda se bez UNION da obejit, jde o to, kdy bude
pouziti UNION snazsi, jednoznacnejsi a lepe pouzitelne.
Pozor, pouziti UNION rozhodne neznamena, ze na vstupu musi
byt uplne stejne tabulky - naopak mohou byt odlisne a tim
UNIONem s vhodnymi parametry je lze sjednotit do jedne
tabulky...
Tak reknu priklad - mozna nejsem nejlepsi database designer,
ale proste mam dve tabulky - firmy a osoby... Nebudu probirat
vsechny udaje ani vazby, ale proste kazdy vime, ze firma ma
jine udaje nez osoba. Treba firma ma ICO, DIC, osoba zase
rodne cislo apod. Na tom neni nic zvlastniho, ale ja napriklad
muzu mit partnera jak firmu, tak osobu. Proc mit vsechny
dohromady v jedne tabulce se zbytecnymi sloupci? Takze mam
tabulku partner, ktera ma spolecne udaje, tabulku firma,
ktera ma firemni udaje, a tabulku osoba, ktera ma udaje osob.
Vsechno pracuje uplne spickove a bez problemu. A ted - kdyz
chci vytisknout treba smlouvy pro 5 novych partneru, pak
chci, aby na smlouve byly u firem udaje nazev firmy, adresa,
ICO, DIC a zastupce, ale u osob jen jmeno a rodne cislo.
Jak to asi udelat? Delat zbytecne dva dotazy a dva tisky?
Takze udelam prikaz UNION, kde vysledkem je pole sestavene
(a) z urcenych poli firmy a (b) z urcenych poli osob.
Jinymi slovy ten UNION je napojen na dve ruzne tabulky, ale
vysledkem je jedno pole asi takto pro firmu:
Spolecnost s rucenim omezenym, Masarykova 366, 101 00 Praha,
ICO: 12345678, DIC: 001-12345678, zastupce: Ing. Franta Novak,
reditel
a takto pro osobu:
JUDr. Petr Mamlas, Nova 36, 602 00 Brno, rodne cislo: 451201/2564
Takze mam jako vysledek jednu tabulku pro tisk smluv, kterou
snadno vytisknu na jeden zatah, jednoduse to resi dve ruzne
funkce na urovni SQL Serveru a ja pouziji velmi snadno jeden
SELECT s UNIONem.
Mimochodem v mem pripade je mnohem lepsi pouzit dve tabulky,
resp. tri (jednu spolecnou + dve ruzne), protoze s osobami
pracuji uplne jinym zpusobem nez s firmami, ale na druhou
stranu v urcitych vazbach maji firmy i osoby stejne moznosti.
S pozdravem
Petr Zahradnik, pocitacovy expert
Autorizovany dealer TurboPower Software... knihovny pro Delphi
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon: 047-5500610, telefon/fax: 047-5501627 ===
=== mobilni telefon GSM (hotline): 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================
ICQ: 21215917, PGP vitano
LOCAL SHARE
[*] Pavel M. <talema(zv)top(tec)cz> - 8.5.1999 18:07:47
> Puvodni zprava, kterou napsal Pavel M. dne 20 Feb 98,:
>
> > Mam zatim nekolik duvodu (nebo mozna vymluv) proc tu aplikaci
> > mame pod paradoxem.
> >
> > V malych sitich (dolem 10 stanic) je to rychlejsi.
>
> Opravdu jsi to zkousel? Ja si dovolim nesouhlasit. Samozrejme
> Paradox na siti se muze zdat byt rychlejsi nez SQL Server,
> pokud jsou tabulky male a nic moc se nedela. V okamziku, kdy
> je databaze obsaznejsi a nebo s nimi opravdu intenzivne
> pracujes, je SQL Server rychlejsi. Za prve proto, ze po siti
> nepluji vsechna data sem a tam, za druhe proto, ze server
> je vetsinou vykonny stroj a zpracovava dotazy rychleji nez
> stanice.
To, ale trochu hovoris o vykonosti pocitacu. Pokud budou vsechny
pocitace (vcetne serveru) rekneme Pentium 100 + 32MB
pameti tak si myslim, ze je to rychlejsi. Ale nechci se hadat
nedelal jsem zadne testy. Mam ted na testovani jednu aplikaci
pod Oracel + PowerBuilder, server je NT P266 + 128MB a je
to oproti paradoxu dost line. Ale opet pocit nic jsem nemeril.
>
> > Pro programotora - amatera (jsem ekonom) je to snazsi.
>
> To je pravda. Ale kdo pak opravuje zhavarovane tabulky?
Zatim to zvladam :-)> > Nosna cast aplikace je planovani vyroby a materialu a tam porad
> > HODNE vyuzivame velmi snadnou spolupraci s Quattrem (umi
> > primo cist i zapisovat do paradoxu).
> > A pokud to bezi a nehlasi to "index out of date" kazdy tyden
> > jako pred puldruhym rokem, tak jakou vyhodu mi prinese
> > SQL databaze ?
>
> Teda ale nerikej mi, ze ti bezi aplikace postavena na tabulkach
> Paradoxu na siti s 10 stanicemi, aniz by to chcipalo... To se mi
> nechce vubec verit, protoze staci mit tabulku s memo polem,
> pridat zaznam a shodit stanici, a je po tabulce... Tabulky
> Paradox i dBase jsou velmi nespolehlive i pri lokalnim provozu.
> Pricemz nespolehlivost exponencialne roste s pouzitim MEMO poli
> a s nasazenim na sit.
Tak tohle nemuzu potvrdit ani vyvratit. Mam v celem projektu cca
60 tabulek a snad jen jedno ci dve memo pole a to navic v dost
malo editovanych (spis jsou to ciselniky atd.) tabulkach.
Ja netvrdim, ze nase aplikace je buhvijak velika a ze na ni
v jednom kuse pracuje 10 lidi. 5 lidi spis jen delaji reporty,
ci se koukaji na data ve formularich aobcas neco zedituji a
ostanich 5 tam cpe data. Presto je tam par (asi 5)
tabulek, kde je pocet zaznamu od 40 do 100 tisic.
Kazdy den v noci delam automaticky kompletni reindexaci
- nove vytvoreni indexu (pro jistotu). A docela to bezi.
Pavel Medek
Talema Electronic
Toroidni transformatory
Jak do TDBGrid udelat multiline?
[*] Jan �ebel�k <honza(zv)haes(tec)cz> - 8.5.1999 18:18:49
> Odes�latel: Jan Linhart <delphi(zv)mis-net(tec)cz>
> > Nev�te pros�m nekdo jak nejjednoduseji prij�ti k DBGridu, kter� bude umet
> > multiline?
Nevim, co od toho presne chces, ale co TDBCtrlGrid?
(Teda ne, ze bych nekdy v praxi nalezl k takovemu pocinu odvahu...)
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 0434 692 931, 692 569, 0601 20 30 84
=========================================GREP pro Delphi
[*] Jan �ebel�k <honza(zv)haes(tec)cz> - 8.5.1999 19:00:17
> > V Delphi4: RightClick a FindDeclaration.
>
> Odes�latel: Petr Fejfar <callnet(zv)telecom(tec)cz>
> to je sice dobra funkce, ale kdyz udrzujes projekt, tak te IMHO daleko
> casteji zajima, kde vsude musis neco zmenit. Ale na to uz ma Delphi radu let
> podporu v prikazu Find, Find in Files.
>
Jasne, mas pravdu.
Ja jsem jenom na danou otazku uvedl jednu z (dobrych) moznosti.
> Horsi je to s Replace pres vice souboru. To Delphi nepodporuje, takze se
> nakonec ke slovu stejne dostane stare dobre ME, ostatne, ja ho pouzivam
> daleko vice nez integrovany editor.
>
Replace pres vice souboru je sice myslitelne, ale ve vetsine pripadu je to trochu harakiri.
Ja se radsi spolehnu na kompilator a nad kazdou zmenou se zamyslim.
Vetsinou (alespon u me) nejde o pouhou nahradu, ale take o jistou zmenu funkcnosti.
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 0434 692 931, 692 569, 0601 20 30 84
=========================================SQL- docasne tabulky
[*] Jan �ebel�k <honza(zv)haes(tec)cz> - 8.5.1999 19:05:29
[Honza]
> > Programovani procedur a funkci je neco jineho nez prace s
> > relacni databazi.
[Jura]
> Je to to stejne, potrebujes docasne prostor pro
> uchovani informaci.
[Honza]
Prostoru pro docasne uchovani informaci (ve vztahu ke "Klietovi") mam v pameti sveho pocitace dost.
Kvuli tomu nemusim do databaze ("Server"), ktera by mela modelovat realny svet, zanaset balast.
......
[Honza]
> > Jak zapises docasnou tabulku do ER-Diagramu?
> > Jakou Entitu takova tabulka reprezentuje?
[Jura]
> Zapisu to jako normalni tabulku.
> Nektere veci byvaji zavisle na sezeni.
> Napr. Seznam chyb po validaci editace.
[Honza]
Vzdyt mi mluvis z duse: veci zavisle na "sezeni" se tykaji Klienta, tedy s databazi ("ktera by mela modelovat realny svet") nemaji nic spolecneho.
>
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 0434 692 931, 692 569, 0601 20 30 84
=========================================SQL- docasne tabulky
[*] Jan �ebel�k <honza(zv)haes(tec)cz> - 8.5.1999 19:06:09
[Honza]
> >Programovani procedur a funkci je neco jineho nez prace s relacni databazi.
> >Pokud se to navrhne opravdu relacne...
> >Jak zapises docasnou tabulku do ER-Diagramu?
> >Jakou Entitu takova tabulka reprezentuje?
> >Uznavam, ze je to receno az prilis kategoricky, ale "v zasade" to pravda
> >je.
[Jarda]
> No to teda neni. A co treba docasne tabulky ve stored procedurach?
[Honza]
Ulozene procedury jdou za ramec relacniho modelu.
Nic proti nim nemam (naopak), ale nekdy je to berlicka, ktera pomuze resit chyby, ktere jsme v datovem modelu udelali.
Z historie relacnich databazi: obsahovaly vsechny SQL databaze ulozene procedury od sveho sameho pocatku?
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 0434 692 931, 692 569, 0601 20 30 84
=========================================SQL- docasne tabulky a UNION
[*] Jan �ebel�k <honza(zv)haes(tec)cz> - 8.5.1999 19:06:00
> Odes�latel: Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz>
> Jejda, to mne mrzi. Ale kdyz to ctu, musim uznat, ze to vyznelo jinak
> nez jak jsem to myslel. Samozrejme nesouhlasim s tou stupiditou:
> "Mozna to reknu prilis kategoricky. Kdo ma dobre udelany datovy model,
> ten UNION nepotrebuje."
> Dobre udelany datovy model a potreba UNIONU ci docasnych tabulek se
> samozrejme nevylucuje.
>
Tak fajn.
Omlouvam se za svoje "nekdy prilis kategoricke" nazory.
Taky jsem to asi neformuloval nejstastneji.
Samozrejme mate pravdu, ze pouzit docasne tabulky nebo UNION neni zlocin.
Za leta sve vyvojarske praxe jsem si ale spise nez resit problemy zvykl chodit cestickami, kde se s problemy setkam zridka.
Chtel jsem se v diskusi o tyto zkusenosti podelit.
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 0434 692 931, 692 569, 0601 20 30 84
=========================================JAK OSETRIT ALT+F4
[*] Paja <delphi4(zv)seznam(tec)cz> - 8.5.1999 19:10:03
Nazdar,
Zajimalo by me jestli nekdo nevite jak osetrit stisk a tedy nasledne
ukonceni ALT+F4
Diky za jakoukoli odpoved.net time
[*] Delphi Konferencia <delphi(zv)enterkosice.sk> - 8.5.1999 19:30:20
Zdravim,
Existuje program C:\WINDOWS\NET.EXE,
pomocou ktoreho je mozne synchronizovat datum
a cas pocitaca podla ineho v sieti - zrejme cez
NetBEUI a/alebo IPX/SPX:
Nevie niekto, ako toto previest priamo z Delphi
pomocou nejakych API fcii spolu s identifikaciou
navratovej hodnoty (ci synchronizacia prebehla
okay, alebo nie). A ma to synchronizovat aj pod
W95, nielen pre NT - presne tak, ako net.exe.
V tomto momente ma synchronizacia cez TCP/IP
velmi nezaujima, ale pripadne by aj to pomohlo.
Vdaka za kazdy namet
forgo
SQL- UNION
[*] Jan �ebel�k <honza(zv)haes(tec)cz> - 8.5.1999 20:16:02
> > Mozna to reknu prilis kategoricky.
> > Kdo ma dobre udelany datovy model, ten UNION nepotrebuje.
>
> Honzo, pri vsi ucte, tohle je blbost...
> Rekni mi opravdu jeden kvalitni a logicky argument, proc by pouziti
> UNION bylo v rozporu s dobre udelanym datovym modelem.
No tak mi to uz prominte!
Chtel jsem spise rici:
Ve vetsine pripadu, kdy jsem se s UNION nekde setkal, slo o horkou jehlou pospojovana data, ke kterym bych se pri jenom trochu slusne navrzene databazi dostal snadno a bez problemu.
Pisete-li UNION, nejprve se zamyslete, zda mate databazi dobre navrzenou.
Takhle byste to uz brali?
Vzdyt v mem puvodnim textu je jasne vyjadreno (veta c.1), ze ten vyrok (veta c.2) nemyslim tak uplne doslova.
Honza
P.S.
Tvuj priklad (viz jiny prispevek) na union pres firmy (ICO) a osoby (RC) v zasade beru.
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 0434 692 931, 692 569, 0601 20 30 84
=========================================JAK OSETRIT ALT+F4
[*] LuborK(zv)tnet(tec)cz (Kolar Lubor) - 8.5.1999 21:03:31
Pajo, nic proti, ale tvoje otazky jsou vetsinou znacne primitivni :-). Napr. v Tform.Close.
Lubor bIRDIE Kolar
====================
GSM Phone: +420-603-410019
ICQ: 18587772
----- P�vodn� zpr�va -----
Od: Paja <delphi4(zv)seznam(tec)cz>
Komu: Delphi <delphi-l(zv)fwd(tec)cz>
Odesl�no: 8. kv�tna 1999 19:10
P�edm�t: JAK OSETRIT ALT+F4
> Nazdar,
>
> Zajimalo by me jestli nekdo nevite jak osetrit stisk a tedy nasledne
> ukonceni ALT+F4
>
> Diky za jakoukoli odpoved.
> propojeni na el. pokladnu
[*] Ing. Marian Winkler <ag.art(zv)iol(tec)cz> - 8.5.1999 21:11:03
Zdravim,
stojim pred problemem, jak do sve aplikace zabudovat interface na
elektronickou pokladnu - vyrobce Sanyo.
Nemate s tim nekdo nejakou zkusenost?
Delam neco takoveho prvne a byl bych vdecen za kazdou radu
nebo odkaz. Diky za Vas cas.
Marian Winker
IntelliMouse v Delphi
[*] Pavel Malinsk� <spiderland(zv)seznam(tec)cz> - 8.5.1999 23:41:46
Ahoj,
Presne tak, dela to optimalizace.
Pro priklad si zkus tu promenou "a"
v tom cyklu k necemu pouzit a uz bude pocitat spravne.
S pozdravem
==================================
> Pavel Malinsky; spiderland(zv)seznam(tec)cz <
>================================<
> ...The Truth Is Out There... <
==================================
GSM: 0602 652 203
-----P�vodn� zpr�va-----
Od: Michal Cizek <starxax(zv)molly.vabo(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 8. kv�tna 1999 13:23
P�edm�t: Re: IntelliMouse v Delphi
>Zdarec
>
>Zkus si v kompilatoru vypnout optimalizaci, prekompilovat a protrasuj to
>znovu ...
>Mam takovej dojem ze na neco takovyho uz jsem taky narazil, a delala to
>optimalizace.
>
>
>S pozdravem Michal
>
>> Minule som zistil v jednom mojom softe zaujimavu vec. Bolo to
>> taketo nieco.
>>
>> var a:byte;
>> begin
>> for a:=0 to 30 do begin
>> .
>> end;
>>
>> Ale ide o to, ze ked som si krokoval ten cyklus, tak a malo v prvom
>> cykle hodnotu 31 (nie 30 !!!) a postupne klsesalo. Myslel som si, ze
>> na to je miesto to downto. A preco 31?
>> Iko
>> iko(zv)kamarad(tec)cz
>> http://freeweb.coco(tec)cz/IKO
>
>
SQL- UNION
[*] Jaro <jaro(zv)sinea(tec)cz> - 9.5.1999 09:36:02
Podobne k tvemu prispevku o temporary
>tabulkach. Zda se mi vyhodnejsi porizovany doklad pri porizovani dat
do
>temporary tabulky, kterou pak naraz zpracuji, nez to cpat do ostrych
dat a v
>pripade, ze si to na konci porizovani rozmyslim, tak to z ostrych dat
mazat.
-----------
Me se to zase nezda.
Uz jsi nekdy slysel o StartTransaction, Commit a Rollback ???
-----------
>Presne tak.Slozitejsi "selekty"(vice tabulek) je lepsi si pripravit
do
>odkladacich tabulek
>a pak doupravit.Z vlastni zkusenosti vim, ze tri jednouche "selekty"
>probehnou drive nez to same v jednom vrhu.
-----------
Mas pravdu, ze slozeny SELECT nebo i SELECT s UNION byva to
nejpomalejsi reseni. Vzdy bude ovsem mnohem rychlejsi FOR SELECT
v ulozene procedure nez reseni, ktere navrhujes. Problem muze nastat,
kdyz to delas na tabulkach a ne na serveru. Ja ovsem stale zastavam
nazor,
ze takoveto veci delat jinak nez s pouzitim databazoveho serveru je
je velky nerozum, ba primo silenost.
Tusim, ze jsi psal o 9.000.000 zaznamech. Tady pak uz neni o cem
diskutovat.
Kazdy poradny server ma transakce i ulozene procedury, snadneji udrzi
integritu
a zvlada rychleji i velke objemmy dat.
Jaro
Instalator - zadarmo
[*] Jaro <jaro(zv)sinea(tec)cz> - 9.5.1999 09:50:02
Vzhledem k velkemu zajmu to vyvesim na nas web.
Az to tam bude, tak dam jeste ECHO
Jaro
-----P�vodn� zpr�va-----
Od: Jaro <jaro(zv)sinea(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 6. kv�tna 1999 22:37
P�edm�t: Instalator - zadarmo
>Probehla tu diskuse o instalacnich programech.
>Napadla me jedna moznost.
>Drive jsme vytvorili vlastni instalacni program.
>Pote, co jsme lokalizovali IS, jsme jej opustili.
>Neumel sice instalovat BDE, ale byl velmi jednoduchy,
>umel svazky disket a definice instalace se provedla
>jednoduse popisem v textovem souboru.
>
>Pokud by byl zajem o tento jednoduchy instalator, mohl bych
>ho uvolnit k bezplatnemu uzivani a to vcetne zdrojovych
>souboru. Necht si ho kazdy upravi dle svych potreb.
>Zajemci mohou napsat na jaro(zv)sinea(tec)cz
>Pokud bude zajem, pridam ho na nas web k volnemu
>stazeni.
>Jaro
>
>
>-----P�vodn� zpr�va-----
>Od: Jaro <jaro(zv)sinea(tec)cz>
>Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
>Datum: 6. kv�tna 1999 2:34
>P�edm�t: Re: instalator Youseful 4.0
>
>
>>To je pravda.
>>Jaro
>>
>>
>>>>Apropos: co mas proti Installshield-u ?
>>>>Mas ho na CD s Delphi a lokalizovat se ho take podarilo.
>>>>Ja ho pouzivam jiz treti rok a vyhovuje mi.
>>>
>>>
>>>Proti installshieldu nemam nic. Asi bychom ale potrebovali
>>Professional
>>>verzi, ktera umi skripty. Nebo Express umi zadat behem instalace v
>>>dialogovem okne napr. nazev SQL serveru pro nastaveni BDE?
>>>A protoze Profi verze neni nejlevnejsi, rad bych poznal, co se
>obecne
>>>pouziva.
>>>
>>>Leos
>>>
>>
>Instalator - zadarmo
[*] Jaro <jaro(zv)sinea(tec)cz> - 9.5.1999 09:54:16
Jisteze, nejsem proti.
Jaro
-----P�vodn� zpr�va-----
Od: Zbysek Hlinka <zhlinka(zv)login(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 7. kv�tna 1999 13:22
P�edm�t: Re: Instalator - zadarmo
Jaro wrote:
> Pokud by byl zajem o tento jednoduchy instalator, mohl bych
> ho uvolnit k bezplatnemu uzivani a to vcetne zdrojovych
> souboru. Necht si ho kazdy upravi dle svych potreb.
> Zajemci mohou napsat na jaro(zv)sinea(tec)cz
> Pokud bude zajem, pridam ho na nas web k volnemu
> stazeni.
A co ho zkusit dat na Delphree, jestli se nekdo ujme jeho rozvoje?
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
SQL Dotaz po II
[*] Jaro <jaro(zv)sinea(tec)cz> - 9.5.1999 09:55:34
Jednak bys mel nahradit GROUP BY Z.ZEME,SKUPSAZ
Podle mne musi trideni odpovidat skupinovani.
Pro jednu zemi a jednu skupinu to vsak vysledek neovlivni.
Hod si tam jeste Count(*), abys vedel, jaky pocet vet to vlastne
souctuje v obou pripadech. Presvec se, zda tam nevstupuji hodnoty nill
a pod. Vypada to, jakoby v TQUERY rozsah dat byl jiz nejak
omezen a pocitalo se s mene zaznamy.
Jaro
>Tohle jsem uz tady posilal, zatim jsem to nevyresil, tak to posilma
jeste
>jednou.
>Uplne jsem se na tom kousl. Vubec nevim co s tim...TAK PROSIM HELP
>
>Zkousel jsem updatovat BDE, preindexovat tabulky, ale porad to dela
to
>same...
>
>
>Mam SQL Dotaz
>
>===========
>SELECT
> Z.ZEME, C.SKUPSAZ,sum(C.tis_KC) as K�, sum(tuny) as Tun
>FROM
> CELSTA C, ZEME Z
>WHERE
> rok=1998 AND DOV_VYV=1 AND ZMPU="PL" AND SKUPSAZ="7208"
> AND Z.KODZEME=C.ZMPU GROUP BY Z.ZEME,SKUPSAZ
>ORDER BY
> TUN DESC
>===========
>
>Kdyz ho pouziju v SQL eploreru, vyjdou mi vysledky dobre.
>Ale kdyz ho pouziji v komponente TQuery, tak to nevyjde ani
priblizne....
>Vyjde to az tehdy, pokud zrusim propojeni na druhou tabulku ZEME,
ktera
>obsahuje nazev statu a jeho dvojmistny kod..
>
>Vysledky pro srovnani
>SQL eplorer = POLSKO 7280 165068,96 12442,63
>TQUERY = POLSKO 7280 17743,08 1230,09
>
>Pouzivam BDE 4.50 pro FOXPRO DBF tabulky. Delphi 3 C/S.
>
>V cem je podle Vas zakopany pes?
>
>DIK..
>
>Dalibor
>
>
SQL- docasne tabulky
[*] Jaro <jaro(zv)sinea(tec)cz> - 9.5.1999 10:31:44
>[Honza]
>> > Programovani procedur a funkci je neco jineho nez prace s
>> > relacni databazi.
Nevim, proc by to melo byt neco jineho. I tady lze dodrzet relacni
model.
>[Honza]
>Prostoru pro docasne uchovani informaci (ve vztahu ke "Klietovi") mam
v pameti sveho pocitace dost.
>Kvuli tomu nemusim do databaze ("Server"), ktera by mela modelovat
realny svet, zanaset balast.
Zpravidla jde o to, ze pokud existuje dalsi zpracovani, tak ne serveru
to probiha mnohem rychleji.
Ovsem, co se me tyka, ja jsem zatim vzdy take dokazal vytvort takovy
datovy model, z nehoz
potreba docasnych tabulek nevznika. Mozna nevim o co prichazim, ne????
Aby nedoslo k omylu. Ulozene procedury tu nejsou hlavne pro vytvareni
docasnych tabulek,
ale proto, aby operace, ktere se mohou delat na serveru, se delaly
tam. Ulozene procedury jsou
take soucasti onoho "realneho veta", protoze reaguji na urcite podnety
z venku
(od klientu) a na zaklade techto podnetu modifikuji tento svet nebo
vraceji jeho obraz v urcite forme.
Pokud jsou spravne vytvoreny, pak nenarusuji integritu tohoto sveta
(ba naopak), ale dodavaji
mu rychlos a silu a rozsiruji jeho vlastni zivotaschopnost. Tim
myslim, ze mohou zajistit,
co nejmensi zavislost na klientskych programech a co nejvice snizit
potrebu takoveho programovani.
Jaro
pocesteni BDE (konkretne 5.01)
[*] Leos Urban <Leos.Urban(zv)aitix(tec)cz> - 9.5.1999 11:02:22
Ahoj,
jak donutim BDE, aby mi vypisovalo ceske popisy chyb?
Presneji, chtel jsem to pocestit a vubec jsem na disku ty chyby nenasel.
Treba:
Table does not support this operation because it is not uniquely indexed.
FAR mi pise ze vubec tento retezec na disku nenasel.
Diky
Leos
Editovatelny Report Komponent
[*] kopr <kopr(zv)kopr(tec)cz> - 9.5.1999 11:05:19
Podivej se na QRDesign
http://www.thsd.de/
mozna zde naleznes odpoved
~~~~~~~~~~~~~~~~~~~~~~~~
KOPR software Pavel ZIDEK
voice 069 / 66 02 156
mailto:kopr(zv)kopr(tec)cz
http://www.kopr(tec)cz
~~~~~~~~~~~~~~~~~~~~~~~~
----------
Odes�latel: TUNGLI Jan <tungli(zv)pvt.sk>
Komu: DELPHI Distribution List <delphi-l(zv)fwd(tec)cz>
P�edm�t: Editovatelny Report Komponent
Datum: 7. kv�tna 1999 8:21
Vytvaram editovateln� report (u��vate�om) zalozany na QuickReport 2.
Ma vyznam vytvarat tuto komponentu alebo existuje nieco slusne zadarmo?
Hlavne mi ide o to aby v jednom reporte bolo mozne pouzivat viac Query, ako napr.
master-slave atd. a aby aj uzivatel mohol zadavat Query.SQL.
Ak by ste mali nejaky napad tak prosim napiste mi.
TUNGLI Jan
tungli(zv)pvt.sk
pocesteni BDE (konkretne 5.01)
[*] Jan �ebel�k <honza(zv)haes(tec)cz> - 9.5.1999 14:35:11
> Odes�latel: Leos Urban <Leos.Urban(zv)aitix(tec)cz>
> jak donutim BDE, aby mi vypisovalo ceske popisy chyb?
Nekde existuji ceske hlasky, urcite ti nekdo poradi.
Ja ale vzdycky argumentuji, ze hlaska "Key violation" je ucetni, ktera zadava faktury, uplne stejne malo platna, jako "Duplicitni klic". Pujde se podivat jestli nekdo nestrka do dveri nejake klice z druhe strany.
Chyby by se mely osetrovat (pokud to jde a pokud mam dost trpelivosti) na miste sveho vzniku. Pak by nemel byt problem zahlasit "faktura s timto cislem uz existuje".
Pokud pracuji s nejakym SQL serverem, je uzitecne ty tzv. constraints na serveru nejak sikovne zakodovat, takze pak napr. z chyby, ktera obsahuje "PK_FAKTURA" v Application.OnException snadno odvodim, ze jde o primarni klic na tabulce FAKTURA, takze "faktura s timto cislem uz existuje" zahlasim velmi snadno.
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 0434 692 931, 692 569, 0601 20 30 84
=========================================pocesteni BDE (konkretne 5.01)
[*] sales(zv)nocomment.sk - 9.5.1999 15:19:06
Ahoj,
potreboval by som pomoct s vytvorenim "komplikovanejsieho" SQL selectu.
Predstavte si tabulku s nasledujucimi stlpcami:
Opis, RealneCislo, CeleCisloA1, CeleCisloA2, CeleCisloB1, CeleCisloB2
no a ja potrebujem ziskat tabulku kde:
CeleCislo1, CeleCislo2, Opis, RealneCislo1, RealneCislo2, RealneCislo3
pricom takyto riadok bude vzdy pre kazdy unikanu dvojicu CeleCisloA1,
CeleCisloA2 z povodnej tabulky.
Opis bude zodpovedajuci opis a RealneCislo1 bude suma jednotlivych stlpcov
RealneCislo z povodnej tabulky pre vsetky zaznamy kde CeleCisloA1,
CeleCisloA2 v povodnej tabulke sa bude rovnat danej unikatnej dvojici
CeleCislo1 a CeleCislo2.
RealneCislo2 bude sumou stlpcu RealneCislo vsetkych zaznamov kde
CeleCisloB1, CeleCisloB2 sa rovna "onej" unikatnej dvojici.
A RealneCislo3 bude Rozdielom RealnehoCisla1 a RealnehoCisla3.
No a teraz neviem ci tomu bude vobec niekto rozumiet. Skusim to este raz
trosku inak.
Su to zaznamy uctovnictva. RealneCislo v povodnej tabulke je "Cena", Opis je
"Opis". CeleCisloA1 a 2 je zaradenie zaznamu na strane ma dat a stlpce s "B"
v nazve je na strane Dal.
No a odo mno sa chce asi takato tabulka na vystupe:
500, 41, "Myslim ze toto su sluzby", 150 Sk, 100 Sk, 50 Sk
500, 42, ...
600, 01, ...
Pre vsetky unikatne dvojice uctovnej skupiny a podskupiny sumu na strane ma
dat, dal a ich rozdiel.
ma niekto nejaky napad? Neviem preco som spresvedceny ze sa to da sopravit
jednym selectom...
dakujem
rw
uctovanie jednym selectom
[*] Leos Urban <Leos.Urban(zv)aitix(tec)cz> - 9.5.1999 20:01:11
potreboval by som pomoct s vytvorenim "komplikovanejsieho" SQL selectu.
Predstavte si tabulku s nasledujucimi stlpcami:
Udelal jsem slovensky subjekt, je to tak dobre?? :-)))
K veci:
Predne: pokud opis znamena popis dokladu, tak jej nemuzes pri souctovani
vybirat, protoze je pro kazdy doklad jiny. Dale tedy s polozkou opis
nepracuji.
Jestli jsem to dobre pochopil, tak by ti mohl pomoci tento select:
select x.mds, x.mda, sum(x.cena), (select sum(cena) from ucto where
dds=X.mds and dda=X.mda), sum(x.cena)-(select sum(cena) from ucto where
dds=X.mds and dda=X.mda)
from ucto X group by 1,2
Je to sice funkcni (Informix IDS), ale neprilis vhodne pouziti, nebot to
nebude prilis rychle a neni prenosne mezi servery. Na Dbase a spol. asi
nebude fungovat. A je to vubec jeden select nebo jsou to tri selecty???
Kazdopadne je to jeden Tquery.Open.
Ja osobne bych pro tvuj pripad pouzil asi tohle:
lock table ucto in share mode; // aby nekdo nepridal mezi vytvarenim
zaznam
select mds,mda,sum(cena) soucet from ucto group by 1,2 into temp mdsum;
select dds,dda,sum(cena) soucet from ucto group by 1,2 into temp ddsum;
select mds,mda, mdsum.soucet, ddsum.soucet, mdsum.soucet-ddsum.soucet
from mdsum,ddsum where mdsum.mds=ddsum.dds and mdsum.mda=ddsum.dda;
Leos
Jine napady?
Editovatelny Report Komponent
[*] Jaro <jaro(zv)sinea(tec)cz> - 9.5.1999 20:03:57
Tento problem resi take nas generator tiskov�ch sestav.
Zadarmo je ale pouze pro Delphi 1 a 2
Muzes si ho stahnout na www.sinea(tec)cz
Pro Delphi3 a 4 je k dispozici DEMO.
Generator resi i tento tvuj problem, ale neni to nadstavba
QuickReportu
Jeho havni schpnosti je jednoducha uzivatlska tvorba sestav
vcetne vnorenych sestav. Na serveru je k dipozici i dokumentace
a p��klady. Tak lze zjistit, co generator um�, aniz bys musel neco
platit.
Jaro
-----Puvodni zprava-----
Od: kopr <kopr(zv)kopr(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 9. kvetna 1999 11:24
Predmet: Re: Editovatelny Report Komponent
>Podivej se na QRDesign
>http://www.thsd.de/
>mozna zde naleznes odpoved
>
>~~~~~~~~~~~~~~~~~~~~~~~~
>KOPR software Pavel ZIDEK
>voice 069 / 66 02 156
>mailto:kopr(zv)kopr(tec)cz
>http://www.kopr(tec)cz
>~~~~~~~~~~~~~~~~~~~~~~~~
>----------
>Odesilatel: TUNGLI Jan <tungli(zv)pvt.sk>
>Komu: DELPHI Distribution List <delphi-l(zv)fwd(tec)cz>
>Predmet: Editovatelny Report Komponent
>Datum: 7. kvetna 1999 8:21
>
>Vytvaram editovatelny report (uzivatelom) zalozany na QuickReport 2.
>Ma vyznam vytvarat tuto komponentu alebo existuje nieco slusne
zadarmo?
>Hlavne mi ide o to aby v jednom reporte bolo mozne pouzivat viac
Query, ako napr.
>master-slave atd. a aby aj uzivatel mohol zadavat Query.SQL.
>
>Ak by ste mali nejaky napad tak prosim napiste mi.
>
>TUNGLI Jan
>tungli(zv)pvt.sk
>
pocesteni BDE (konkretne 5.01)
[*] Jaro <jaro(zv)sinea(tec)cz> - 9.5.1999 20:06:09
V 32 bit Delphi je pismo ukladane jinak a souvisly text tam jiz
tudiz nenajdes. Musis to vzit pres editor. Vhodnej je
k tomu lokalizator
Jaro
-----P�vodn� zpr�va-----
Od: Leos Urban <Leos.Urban(zv)aitix(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 9. kv�tna 1999 11:27
P�edm�t: pocesteni BDE (konkretne 5.01)>Ahoj,
>jak donutim BDE, aby mi vypisovalo ceske popisy chyb?
>Presneji, chtel jsem to pocestit a vubec jsem na disku ty chyby
nenasel.
>Treba:
>Table does not support this operation because it is not uniquely
indexed.
>FAR mi pise ze vubec tento retezec na disku nenasel.
>Diky
>Leos
>
>
uctovanie jednym selectom
[*] sales(zv)nocomment.sk - 9.5.1999 21:27:08
> Je to sice funkcni (Informix IDS), ale neprilis vhodne pouziti, nebot
to
no ono je to uctovny system od MRP a on je postaveny na DBase z ktoreho to
musim dostat von.
Ten opis bol textovy opis danej uctovnej kategorie (alebo ako sa to vola, aj
do databaz a uctovnictva moc vela nerobim...)>nebude prilis rychle a neni prenosne mezi servery. Na Dbase a spol. asi
>nebude fungovat. A je to vubec jeden select nebo jsou to tri selecty???
:-))) Myslim ze to je jedno, v zasade to chcem spravit co najmenej bolestne
a najrychlejsie.>Kazdopadne je to jeden Tquery.Open.
to je dostatocne jednoduche...> Ja osobne bych pro tvuj pripad pouzil asi tohle:> lock table ucto in share mode; // aby nekdo nepridal mezi vytvarenim
>zaznam
ok. BTW: Pamatate sa o 200 mailovej diskusii o zamykani zaznamov co som tu
prednedavnom vyvolal :-))) (ja viem toto je o niecom inom.)
> select mds,mda,sum(cena) soucet from ucto group by 1,2 into temp mdsum;
> select dds,dda,sum(cena) soucet from ucto group by 1,2 into temp ddsum;
> select mds,mda, mdsum.soucet, ddsum.soucet, mdsum.soucet-ddsum.soucet
> from mdsum,ddsum where mdsum.mds=ddsum.dds and mdsum.mda=ddsum.dda;
no a tomuto vobec nerozumiem .... :-))) Mohol by si mi k tomu nieco napisat?
{
ten prvy podla vsetkeho zratal stranu ma dat a vytvoril tem tabulku ...
ten druhy select sparvil to site so stranou dal...
a treti spravil to iste (vybral vsetky unikatne dvojice uctovnej osnovy) a
prisunul k nim sucet zo strany ma dat. dal a ich rozdielu.
spravne? (chvilku mi to trvalo :)}
dakujem
rw
>
> Leos
> Jine napady?
>
>SQL- docasne tabulky
[*] Jan �ebel�k <honza(zv)haes(tec)cz> - 9.5.1999 22:26:42
> >[Honza]
> >> > Programovani procedur a funkci je neco jineho nez prace s
> >> > relacni databazi.
[Jaro]
> Nevim, proc by to melo byt neco jineho. I tady lze dodrzet relacni
> model.
[Honza]
Pokud si vzpominam, tak tam slo o tvrzeni, ze docasne tabulky hraji stejnou roli jako lokalni promenne v pascalovskych funkcich. Alespon tak jsem to pochopil.
> >[Honza]
> >Prostoru pro docasne uchovani informaci (ve vztahu ke "Klietovi") mam
> v pameti sveho pocitace dost.
[ Jaro]
> Zpravidla jde o to, ze pokud existuje dalsi zpracovani, tak ne serveru
> to probiha mnohem rychleji.
[Honza]
To dozajista ano. Ulozene procedury mam taky rad.
Ale pokud si vzpominam, tak tam slo o to, ze si nekdo do pomocnych tabulek uklada seznam chyb pri validaci zaznamu.
Honza
=========================================
= HAES - RNDr. Jan Sebelik
= http://www.haes(tec)cz
= Skolici a konzultacni stredisko pro Delphi a Win32
= Vojtiskova 206
= 507 81 Lazne Belohrad
= tel. 0434 692 931, 692 569, 0601 20 30 84
=========================================pocesteni BDE (konkretne 5.01)
[*] Leos Urban <Leos.Urban(zv)aitix(tec)cz> - 9.5.1999 22:45:27
>V 32 bit Delphi je pismo ukladane jinak a souvisly text tam jiz
>tudiz nenajdes. Musis to vzit pres editor. Vhodnej je
>k tomu lokalizator
Mohl bys byt trochu konkretnejsi? Zkousel jsem lokalizator a namatkou
nekolik DLL v adresari Borland/CommonFiles/BDE mi zobrazilo jen VersionInfo.
Zadne texty k pocesteni.
Pravda byla to trial verze Lokalizatoru ale to by asi nemelo vadit.
Mimochodem zitra jej objednavam - je to opravdu uzitecny program.
Jinak diky.
Leos
Jak do TDBGrid udelat multiline?
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 09.5.1999 22:53:05
Jan Linhart wrote:
>
> Zdar,
>
> Pred casem jsem polozil tento dotaz, avsak odpoved se nenasla.
>
> Probl�m m�m st�le a tak bych prosil v�s, kter� m�te nejak� hlubs� vedomosti
> n�pomocn� ke "slozitejs�" ceste k c�li, abyste me alespon "nekopli"
> spr�vn�m smerem :-)
>
> Predem d�ky za konstruktivn� n�vrhy
Ahoj,
Muzes to udelat napriklad takhle:
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
Db, Grids, DBGrids, DBTables;
type
TXYDBGrid = class(TDBGrid)
protected
procedure DrawColumnCell(const Rect: TRect; DataCol: Integer;
Column: TColumn; State: TGridDrawState); override;
procedure LayoutChanged; override;
public
constructor Create(AOwner: TComponent); override;
end;
TForm1 = class(TForm)
Database1: TDatabase;
DataSource1: TDataSource;
Table1: TTable;
procedure FormCreate(Sender: TObject);
private
Grid1: TXYDBGrid;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
begin
Grid1 := TXYDBGrid.Create(Self);
Grid1.Parent := Self;
Grid1.Align := alClient;
Grid1.DataSource := DataSource1;
end;
{ TXYDBGrid }
constructor TXYDBGrid.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
DefaultDrawing := False;
end;
procedure TXYDBGrid.DrawColumnCell(const Rect: TRect; DataCol: Integer;
Column: TColumn; State: TGridDrawState);
const
AlignFlags : array [TAlignment] of Integer =
( DT_LEFT or DT_WORDBREAK or DT_EXPANDTABS or DT_NOPREFIX,
DT_RIGHT or DT_WORDBREAK or DT_EXPANDTABS or DT_NOPREFIX,
DT_CENTER or DT_WORDBREAK or DT_EXPANDTABS or DT_NOPREFIX );
var
R: TRect;
begin
Canvas.FillRect(Rect);
R := Rect;
InflateRect(R, -2, -1);
DrawText(Canvas.Handle, PChar(Column.Field.DisplayText), -1, R, AlignFlags[Column.Field.Alignment]);
if gdFocused in State then DrawFocusRect(Canvas.Handle, Rect);
end;
procedure TXYDBGrid.LayoutChanged;
var
K: Integer;
begin
inherited LayoutChanged;
Canvas.Font := Font;
K := Canvas.TextHeight('Wg');
DefaultRowHeight := K * 2 + 4;
RowHeights[0] := K + 4;
end;
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
LockWindowUpdate...
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 09.5.1999 22:55:39
"Fryz, Zdenek" wrote:
>
> ahoj
>
> mam nasledujici problem:
>
> v programu (SDI) pouzivam fci LockWindowUpdate(hWndForm), abych zamezil
> blikani okna pri ruznych zmenach - to funguje dobre, pouze
> pokud je okno aplikace maximalizovane, v opacnem pripade
> kdyz zavolam LockWindowUpdate(0) zablika to, co je umisteno za oknem me
> aplikace...
>
> umi nekdo poradit ?
Ahoj,
Zkus misto toho pouzit zpravu WM_SETREDRAW.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
pocesteni BDE (konkretne 5.01)
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 09.5.1999 22:56:06
Leos Urban wrote:
>
> Ahoj,
> jak donutim BDE, aby mi vypisovalo ceske popisy chyb?
> Presneji, chtel jsem to pocestit a vubec jsem na disku ty chyby nenasel.
> Treba:
> Table does not support this operation because it is not uniquely indexed.
> FAR mi pise ze vubec tento retezec na disku nenasel.
Ahoj,
Chybova hlaseni jsou ulozeny jako resource v souboru IDR20009.DLL. Otazka
je, jestli ma preklad chybovych hlaseni BDE vubec smysl, ceske preklady
byvaji nekdy zavadejici. Urcitym resenim by bylo prelozena hlaseni ulozit
jako resouce do samostatne DLL, v aplikaci odchytavat prislusnou vyjimku
a text chyby nahradit ceskym textem. Podle mne je to ale zbytecna prace.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
Problem s ToolHelp funkcemi na NT
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 09.5.1999 22:56:52
Milan Sorm wrote:
>
> Dobry den.
>
> Mam program bezici korektne pod Win95 (v Delphi) a pouzivajici funkce z
> ToolHelpu (tu 32-bitovou verzi). Funkce Process32Next apod. hleda v
> kernel32.dll, coz je ve Win95 to spravne misto. V NT vsak v teto knihovne
> tyto funkce nejsou (hledano pomoci Zbezne zobrazit).
>
> Nevite, jak napsat program, ktery by pracoval pod oboji, tj. kde v NT najit
> ty funkce ?
Ahoj,
Toolhelp funkce nejsou implementovany v NT4, podle MSDN vsak maji byt v
NT5. Misto nich lze v NT4 pouzit knihovnu PSAPI, ale neobsahuji presne
tytez funkce.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
DBGrid
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 09.5.1999 22:56:16
Martin Bohm wrote:
>
> Zdravim
>
> Neviete niekto ako v DBGride zistit, ktore riadky (cisla riadkov) su
> vybrate.
> Skusal som to cez DBGrid.SelectedRows.Items[#] ale hlasi mi to ze, tam niesu
> ziadne polozky (List out of bound...), a to som chcel prvu polozku (index =
> 0).
>
Ahoj,
Priklad mas tady:
http://www.borland.com/devsupport/delphi/ti_list/TI2976.html
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
Odchytavani stisknutych klaves
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 09.5.1999 22:57:01
Vana Lukas wrote:
>
> Jen tak pro zajimavost: existuje nejaky zpusob, jak vytvorit programek,
> ktery ac minimalizovan a ac jsou prave pouzivany jine programy stale
> odchytava vsechny stisknute klavesy? A umi proto treba to, ze uzivatel pise
> ve Wordu, stiskne Shift+Ctrl+P a program se maximalizuje?
Ahoj,
Odchytavani stisku klaves lze udelat pomoci hook funkci, ale prinasi to
sebou jiste problemy. V tvem pripade lze vyuzit funkce RegisterHotKey:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
private
procedure WMHotKey(var Msg: TWMHotKey); message WM_HOTKEY;
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
const
HotKeyID = 1;
procedure TForm1.FormCreate(Sender: TObject);
begin
Win32Check(RegisterHotKey(Handle, HotKeyID, MOD_SHIFT or MOD_CONTROL, Ord('P')));
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
UnregisterHotKey(Handle, HotKeyID);
end;
procedure TForm1.WMHotKey(var Msg: TWMHotKey);
begin
if Msg.HotKey = HotKeyID then
begin
SendMessage(Application.Handle, WM_SYSCOMMAND, SC_RESTORE, 0);
SetForegroundWindow(Application.Handle);
Msg.Result := 0;
end else
inherited;
end;
end.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
Ukradena pamet
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 09.5.1999 22:58:04
"Vodicka, David (CAP, GCF)" wrote:
>
> Zdrav�m f�echny Delfa�e,
>
> Nev� n�kdo, jak zabezpe�it vr�cen� pam�ti po vyvol�n� datab�zov�ho
> dotazu pomoc� TQuery. N� probl�m spo��v� v tom, �e po sekvence
> "Query1.Open; n�co (a nebo taky nic); Query1.Close" p�ijdeme o docela dost
> pam�ti. Dost n�m to vad� zejm�na na aplika�n�m serveru, kde po mnoha
> tis�c�ch dotaz� je ztr�ta pam�ti pom�rn� nep��jemn�.
> Pro p�esnost : p�i prvn�m vyvol�n� Open si to vezme cca 100k, prvn�
> Close vr�ti cca 40, druh� a dal�� si uz berou m�� a vrac� v�c, ale stejn� to
> nevrac� v�echno - a ka�d�ho K pam�ti je �koda. P�i vyvol�n� jin� Query je
> op�t prvn� u�r�n� pam�ti zna�n� ...
Ahoj,
Neprozradil jsi verzi Delphi, ale pokud je to D4 a ve vyslednem datasetu jsou
BLOBy, tak by to treba mohla byt chyba v cacheblobs. Lze to odstranit nastavenim
vlastnosti CacheBlobs na False.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
nepovinny PARAMETR
[*] Petr Kro�a ml. <pkroca(zv)compact(tec)cz> - 9.5.1999 22:59:28
Ahoj,
zajimalo by me, jak se da nadeklarovat procedura ci funkce s nepovinnym
parametrem. Mam tim namysli napr. proceduru
procedure BlockRead(var F: File; var Buf; Count: Integer [; var
AmtTransferred: Integer]);
Zde je tedy promenna AmtTransferred nepovinna. Ale nevim, jak nadeklarovat
svoji vlastni proceduru. Nelze pouzit hranate zavorky, nejde to zkompilovat,
takze jak na to ? V Jave se pouzivaji tzv. pretezovane funkce, je neco
podobneho v Delphi ?
Diky
PK
pocesteni BDE (konkretne 5.01)
[*] Leos Urban <Leos.Urban(zv)aitix(tec)cz> - 9.5.1999 23:01:34
>Ja ale vzdycky argumentuji, ze hlaska "Key violation" je ucetni, ktera
zadava faktury, uplne stejne malo platna, jako "Duplicitni klic". Pujde se
podivat jestli nekdo nestrka do dveri nejake klice z druhe strany.:-))) Znal jsem jednoho, co po dialogu "Stisknete OK pro ulozeni souboru"
hledal na klavesnici cudlik OK. Fakt - nekecam...
Problem je v tom, ze je pro mne lepsi pocestit jednorazove BDE a serverove
hlasky nez poslouchat ze nas system neni cesky.
Jinak absolutne souhlasim ze casto to pocesteni vubec nepomuze.
>Chyby by se mely osetrovat (pokud to jde a pokud mam dost trpelivosti) na
miste sveho
Opet souhlasim, ale v praxi je to casto problem zrealizovat - z casovych,
kapacitnich i financnich duvodu.
Dik.
Leos
nepovinny PARAMETR
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 09.5.1999 23:20:18
"Petr Kro�a ml." wrote:
>
> Ahoj,
> zajimalo by me, jak se da nadeklarovat procedura ci funkce s nepovinnym
> parametrem. Mam tim namysli napr. proceduru
>
> procedure BlockRead(var F: File; var Buf; Count: Integer [; var
> AmtTransferred: Integer]);
>
> Zde je tedy promenna AmtTransferred nepovinna. Ale nevim, jak nadeklarovat
> svoji vlastni proceduru. Nelze pouzit hranate zavorky, nejde to zkompilovat,
> takze jak na to ? V Jave se pouzivaji tzv. pretezovane funkce, je neco
> podobneho v Delphi ?
Ahoj,
V D4 mas jak pretezovani funkci tak implicitni parametry.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************pocesteni BDE (konkretne 5.01)
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 9.5.1999 23:20:19
Puvodni zprava, kterou napsal Leos Urban dne 9 May 99,:
> Mohl bys byt trochu konkretnejsi? Zkousel jsem lokalizator a namatkou
> nekolik DLL v adresari Borland/CommonFiles/BDE mi zobrazilo jen
> VersionInfo. Zadne texty k pocesteni. Pravda byla to trial verze
Protoze ne v kazde DLL jsou nejake resource... To jsou knihovny,
kde jsou pouze funkce... Otevri si tuto knihovnu: idr20009.dll,
tam najdes texty.
> Lokalizatoru ale to by asi nemelo vadit. Mimochodem zitra jej objednavam -
> je to opravdu uzitecny program.
To je fakt rozumne, objednavat muzes 24 hodin denne :)
S pozdravem
Petr Zahradnik, pocitacovy expert
Autorizovany dealer TurboPower Software... knihovny pro Delphi
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon: 047-5500610, telefon/fax: 047-5501627 ===
=== mobilni telefon GSM (hotline): 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================
ICQ: 21215917, PGP vitano
Pruhledny formular
[*] Mgr. Tuser Milan <tuser(zv)eltex(tec)cz> - 10.5.1999 01:53:58
Ahoj vsichni!
Mam nasledujici problem:
Pri spusteni a inicializaci aplikace zobrazuji okno s bitmapou a rad
bych, aby okno ve kterem je bitmapa nebylo videt - tedy aby bitmapa jakoby
lezela primo na plose. Podobne to dela napriklad nove ICQ nebo CPU Idle. Za
kazdy napad dekuji, predefinovani CreateParams a nastaveni WS_EX_Transparent
(ci jak se to k dasu presne jmenuje) u formulare nedava prilis uspokojive
vysledky.
tuser(zv)eltex(tec)cz
mdb, .xls
[*] Martin Lasevic <vyvoj(zv)atlascon(tec)cz> - 10.5.1999 06:33:17
Daji a to pres BDE a ODBC.
Martin
-----Puvodni zprava-----
Od: Mara Toma? [SMTP:tmara(zv)itsys(tec)cz]
Odeslano: 7. kvitna 1999 9:47
Komu: 'delphi-l(zv)fwd(tec)cz'
Poedmit: .mdb, .xls
Halloa ALL!
Mam takovej, asi pitomej, dotaz. Daji se v Delphim pouzival soubory .xls a
.mdb? Nebo je nutne je napred zkonvertovat do jineho formatu?
Dekuju moc.
Tma
JAK OSETRIT ALT+F4
[*] Ing. Miroslav Ondrisek, BONNEL TECHNOLOGIE, s.r.o. <bonnel(zv)telecom(tec)cz> - 10.5.1999 06:57:18
Spise bych rekl, ze je to v udalosti formulare OnCloseQuery, ktera ma
odkazem predany parametr CanClose. Kdyz ho v udalosti nastavis na false,
aplikace se neukonci, kdyz na true, vyvola se jeste udalost OnClose a
aplikace skonci.
Mira
-----P�vodn� zpr�va-----
Od: Kolar Lubor <LuborK(zv)tnet(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 8. kv�tna 1999 21:14
P�edm�t: Re: JAK OSETRIT ALT+F4
Pajo, nic proti, ale tvoje otazky jsou vetsinou znacne primitivni :-).
Napr. v Tform.Close.
Lubor bIRDIE Kolar
====================
GSM Phone: +420-603-410019
ICQ: 18587772
----- P�vodn� zpr�va -----
Od: Paja <delphi4(zv)seznam(tec)cz>
Komu: Delphi <delphi-l(zv)fwd(tec)cz>
Odesl�no: 8. kv�tna 1999 19:10
P�edm�t: JAK OSETRIT ALT+F4
> Nazdar,
>
> Zajimalo by me jestli nekdo nevite jak osetrit stisk a tedy nasledne
> ukonceni ALT+F4
>
> Diky za jakoukoli odpoved.
>
pocesteni BDE (konkretne 5.01)
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 10.5.1999 07:45:46
Leos Urban wrote:
> jak donutim BDE, aby mi vypisovalo ceske popisy chyb?
> Presneji, chtel jsem to pocestit a vubec jsem na disku ty chyby nenasel.
> Treba: Table does not support this operation because it is not uniquely
> indexed. FAR mi pise ze vubec tento retezec na disku nenasel. Diky Leos
Chyby, ktere vraci BDE, jsou ulozeny v adresari BDE, v souboru
idr20009.dll. Muzes je prekryt v try ... except, nebo muzes pocestit
uvedeny soubor (umi to napriklad Lokalizator, pokud mas k
dispozici NT). Ovsem vrele nedoporucuji takto lokalizovany soubor
distribuovat zakaznikum, protoze by to mohlo teoreticky delat
neplechu, pokud zakaznik bude pouzivat jeste dalsi program
vyuzivajici BDE. Krome toho bys porusil autorska prava.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
DBlookupComboBox
[*] Bednarcik Dalibor <d.bednarcik(zv)vpfm(tec)cz> - 10.5.1999 08:33:35
Ahoj
Mam 2 komponenty TEdit a TDBlookupComboBox...
Jak docilit toho aby, pri psani v komp. TEdit se mi nastavoval
TDBLookupComboBox....
Priklad....Do Tedit napisu PL a v DBlookupComboBox. se mi vybere POLSKO...
Predem dik
Dalibor
UNION je super
[*] TUNGLI Jan <tungli(zv)pvt.sk> - 10.5.1999 08:39:30
Na margo debaty okolo UNION.
Ak UNION by nebol potrebny tak ani v standardnom jazyku SQL by neexistoval taky prikaz (aspon podla mna) . Je pravda, ze je potrebny iba zriedkakedy. Ale dokonale navrhnuty datovy model neexistuje lebo je tu cas (= vyvoj) a nepredvidatelne okolnosti a poziadavky.
TUNGLI Jan
tungli(zv)pvt.sk
Pruhledny formular
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 10.5.1999 08:39:42
Ahoj,
jde to tak, ze :
a) udelas ten formular tak veliky, jako je bitmapa,
nastavis mu BordesStyle na bsNone a tim padem nebude
formular pod tim obrazkem videt
b) pokud by jsi chtel, aby byl form skutecne "pruhledny",
tak nastav zase BorderStyle na bsNone a navic jeste
Brush.Style na bsClear (takhle jde udelat treba "elipsoidni"
okno :-)
Dobra.
> ----------------------------------------------------------------------
> --------------------
>
> Pri spusteni a inicializaci aplikace zobrazuji okno s bitmapou a
> rad
> bych, aby okno ve kterem je bitmapa nebylo videt - tedy aby bitmapa
> jakoby
> lezela primo na plose.SQL- docasne tabulky
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 10.5.1999 09:01:56
> -----Original Message-----
> From: honza(zv)haes(tec)cz [mailto:honza(zv)haes(tec)cz]
> Sent: Saturday, May 08, 1999 7:05 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Re: SQL- docasne tabulky
>
>
> [Honza]
> > > Programovani procedur a funkci je neco jineho nez prace s
> > > relacni databazi.
> [Jura]
> > Je to to stejne, potrebujes docasne prostor pro
> > uchovani informaci.
> [Honza]
> Prostoru pro docasne uchovani informaci (ve vztahu ke
> "Klietovi") mam v pameti sveho pocitace dost.
> Kvuli tomu nemusim do databaze ("Server"), ktera by mela
> modelovat realny svet, zanaset balast.
Na klientovi jsou Ti nanic, kdyz s nimi potrebujes delat neco
v databazi.
V jinem mailu pises, ze se poznamky netykaji ulozenych procedur.
Takze je vlastne diskuse bezpredmetna. Ty jsi zasadne proti
docasnym tabulkam a pritom pri pouziti s procedurami
Ti nevadi. To je trochu jako od DJC: Cimrman filozof:
"Autor tedy sam sebe popira. To tenkrat jeste budilo rozpaky,
nemyslete..."
......
> [Honza]
> > > Jak zapises docasnou tabulku do ER-Diagramu?
> > > Jakou Entitu takova tabulka reprezentuje?
> [Jura]
> > Zapisu to jako normalni tabulku.
> > Nektere veci byvaji zavisle na sezeni.
> > Napr. Seznam chyb po validaci editace.
> [Honza]
> Vzdyt mi mluvis z duse: veci zavisle na "sezeni" se tykaji
> Klienta, tedy s databazi ("ktera by mela modelovat realny
> svet") nemaji nic spolecneho.
Co treba editace? Potrebuju editovat nejaka data,
a potom je rozhazet do tabulek, kam patri, udelat kontroly
atp. mam samozrejme jine moznosti, jednou z metod, ktere
pouzivame, jsou aktualizacni procedury s parametry
stejnymi, jako by byly atributy docasne editacni tabulky,
potom lze tuto proceduru opakovane volat pro kazdy
editovany zaznam. Jenomze potrebujes treba udelat
nejake meziradkove kontroly a tam uz je pouziti docasne tabulky
pro editaci nejvyhodnejsi variantou.
Pravda, nektera data nemodeluji realny svet, ale treba proto,
ze modeluji realny formular (ktery ten realny svet nemodeluje).
Priklad:
Rozvrh hodin.
shodneme se asi na tom, ze data by mela byt v nejake tabulce s atributy:
- Predmet
- Trida
- Mistnost
- Ucitel
- Den
- Hodina
mozna jeste nejake dalsi. Potom chces nejakym zpusobem ziskat
zobrazeni tak, jak je zname ze skolnich lavic. Pro tridu na cely tyden
Myslim, ze naplneni docasne tabulky s atributy
- Den
- Predmet1
- Predmet2
- Predmet3
...
- Predmetn
neni zadny bastl.
Jura
----------
Jiri Polak
e-mail:jura.polak(zv)email(tec)cz
jiri.polak(zv)tconsult(tec)cz
web :http://freeweb.coco(tec)cz/jpolak
----------
The only good bug, is a dead bug!AutZ, Was: pocesteni BDE (konkretne 5.01)
[*] Miloslav Skacel <kastner(zv)infos(tec)cz> - 10.5.1999 10:06:28
>Ovsem vrele nedoporucuji takto lokalizovany soubor
>distribuovat zakaznikum, protoze by to mohlo teoreticky delat
>neplechu, pokud zakaznik bude pouzivat jeste dalsi program
>vyuzivajici BDE. Krome toho bys porusil autorska prava.
A podle ktereho zakona?
Z nasledujiciho vyplyva, ze je to snad dokonce povoleno:)
AutZ c.35/1965 Sb. o dilech vedeckych a umeleckych ...
$15 odst 5
"Opravneny uzivatel pocitacoveho programu nemuze byt omezen
ve svem pravu zkoumat pocitacovy program , studovat jej nebo zkouset
jeho fungovani za ucelem zjisteni myslenek a principu, na nichz je zalozen ..."
$15 odst 6
"Opravneny uzivatel muze provest bez souhlasu autora upravy,doplny a zmeny
pocitacoveho
programu... pokud takove zasahy smeruji k oprave zrejme vady nebo jsou v
souladu se zamyslenym ucelem pri jeho operativnim vyuzivani ..."
S pozdravem
Miloslav Skacel
skacel(zv)stereo(tec)cz
http://www.stereo(tec)cz
Syntaxe
[*] delphi(zv)alf.dingo(tec)cz - 10.5.1999 08:20:10 gmt
Ahojte,
prosim, vite nekdo, jak to naspat?
Potrebuji za behu vytvorit v nejake unite objekt TTimer.
V tom problem neni. Problem je v tom, ze nevim, jak priradit
proceduru pro ovladani Udalosti OnTimer.
mam toto:
unit pokus;
interface
uses extctrls;
var
Timer1 : TTimer;
implementation
procedure Timer1Timer(Sender: TObject);
begin
.
end;
begin
Timer1:=TTimer.Create(nil);
Timer1.OnTimer:=Timer1Timer; //<< TOTO POTREBUJE, ALE NEJDE TO!!!
end;
Pokud to provedu napr. uvnitr Objektu TForm, tak to jde.
Jak to udelam v unite mimo objekt, tak se mu to nelibi.
Nevite jak na to?
Je to blbej dotaz, ale prosim, pomozte.
Bob
Syntaxe
[*] Martin Lasevic <vyvoj(zv)atlascon(tec)cz> - 10.5.1999 10:50:27
Problem muze byt ve dvou mistech :
1) Timer1 := TTimer.Create( nil) nahrad alespon Timer1 := TTimer.Create( Application) nebo
Timer1 := TTimer.Create( Form1).
2) Pri prirazeni se zkus jeste odkazat na formular, tj.
begin
Form1.Timer1.OnTimer := Form1.Timer1Timer
end
Preji hezky den .....
============================================
ML Software - Martin Lasevic
Budovatelska 459,
708 00 Ostrava - Poruba
tel.: + 420 (69) 691 85 11, 0603 338 765
mailto:ml_software(zv)email(tec)cz
http://www.mujweb(tec)cz/www/ml_software
ICQ:33630882
============================================
-----Puvodni zprava-----
Od: delphi(zv)alf.dingo(tec)cz [SMTP:delphi(zv)alf.dingo(tec)cz]
Odeslano: 10. kvitna 1999 10:20
Komu: delphi-l(zv)fwd(tec)cz
Poedmit: Syntaxe
Ahojte,
prosim, vite nekdo, jak to naspat?
Potrebuji za behu vytvorit v nejake unite objekt TTimer.
V tom problem neni. Problem je v tom, ze nevim, jak priradit
proceduru pro ovladani Udalosti OnTimer.
mam toto:
unit pokus;
interface
uses extctrls;
var
Timer1 : TTimer;
implementation
procedure Timer1Timer(Sender: TObject);
begin
.
end;
begin
Timer1:=TTimer.Create(nil);
Timer1.OnTimer:=Timer1Timer; //<< TOTO POTREBUJE, ALE NEJDE TO!!!
end;
Pokud to provedu napr. uvnitr Objektu TForm, tak to jde.
Jak to udelam v unite mimo objekt, tak se mu to nelibi.
Nevite jak na to?
Je to blbej dotaz, ale prosim, pomozte.
Bob
Off topic: CBuilder & import DLL
[*] Jan Stuchlik <xstuchli(zv)feld.cvut(tec)cz> - 10.5.1999 10:05:06
Omlouvam se za off-topic, ale uz to resim tyden a ne a ne na to
prijit...
Potrebuji v C builderu naimportovat DLL, ktere je napsane v Delphi,
pripadne v necem uplne jinem ale nema jmena upravena tak, aby jim CB
rozumel.
Napsal jsem DLL v CB i v Delphi, impdef mi vyhazelo pokazde neco jineho
CB: (zv)SayHello$qv (zv)1
D4: SayHello (zv)1
zkousel jsem i implib, ale porad to hazi
'Linker: unresolved external ...'
Prosim poradte mi.
Diky Honza
GREP pro Delphi
[*] Petr Fejfar <callnet(zv)telecom(tec)cz> - 10.5.1999 11:20:33
Jan �ebel�k <honza(zv)haes(tec)cz> wrote:
>> Horsi je to s Replace pres vice souboru. To Delphi nepodporuje, takze se
>> nakonec ke slovu stejne dostane stare dobre ME, ostatne, ja ho pouzivam
>> daleko vice nez integrovany editor.> Replace pres vice souboru je sice myslitelne, ale ve vetsine pripadu je to
trochu harakiri.
> Ja se radsi spolehnu na kompilator a nad kazdou zmenou se zamyslim.
> Vetsinou (alespon u me) nejde o pouhou nahradu, ale take o jistou zmenu
funkcnosti.
Souhlasim, ale napr. kdy prenasis hotovy projekt z platformy W16 na W32, tak
se ti takova funkce vice nez hodi. Ma-li editor dobre undo, tak je celkem
bez rizik napr. pridavani prikazu pred/za nejaky radek, doplnovani/ruseni
parametru funkce, doplnovani/ruseni typecastu apod. Samozrejme mluvim pouze
o regular expression. Pouha substituce textu je skutecne k temer nicemu.
Bye, pf
Syntaxe
[*] Tomas Holan <HOLAN(zv)ksvi.mff.cuni(tec)cz> - 10.5.1999 11:56:41
> procedure Timer1Timer(Sender: TObject);
> begin
> .
> end;
>
> begin
> Timer1:=TTimer.Create(nil);
> Timer1.OnTimer:=Timer1Timer; //<< TOTO POTREBUJE, ALE NEJDE TO!!!
> end;
Problem je v tom, ze ta procedura Timer1Timer
!!! MUSI BYT METODOU OBJEKTU !!!
(Ma jeden (neviditelny) parametr navic).
Tom
Query a Locate
[*] mbartone(zv)Synthesia(tec)cz - 10.5.1999 12:05:30
Ahoj
dotaz se tyka QUERY nad paradoxovou tabulkou.
Lze nejakym zpusobem spojit dve polozky rozdilneho typu do jedne ?
Tak aby slo vyhledavat pres LOCATE.
Nebo lze nejak v LOCATE vyhledat pres vice polozek ?
ulice je string
popisne je integer
select ulice || ' ' || popisne as budova from tabulka
Q1.LOCATE('budova',hled_budova,[loCaseInsensitive, loPartialKey])
nebo lze nejak
select ulice, popisne as budova from tabulka
Q1.LOCATE('ulice;popisne',hled_ul;hled_pop,[loCaseInsensitive, loPartialKey])
Dekuji Milan
BDE 5.0 v Delphi 2
[*] V�clav Rou�ka <roucka(zv)datus(tec)cz> - 10.5.1999 12:07:42
Zdravim vsechny v teto konferenci.
Dokaze mi nekdo s urcitosti rici, zda lze legalne pouzivat BDE 5.0 v Delphi 2 Developer?
Diky
Venca
DBlookupComboBox
[*] Radek Pospisil <radek.pospisil(zv)sprinx(tec)cz> - 10.5.1999 12:27:03
A neni to zbytecne ? DBLookupComboBox ma inkrementalni vyhledavani
implementovane, tak naco jeste editbox ?
Radek P. -----Original Message-----
From: Bednarcik Dalibor [mailto:d.bednarcik(zv)vpfm(tec)cz]
Sent: Monday, May 10, 1999 8:34 AM
To: delphi-l(zv)fwd(tec)cz
Subject: DBlookupComboBox
Ahoj
Mam 2 komponenty TEdit a TDBlookupComboBox...
Jak docilit toho aby, pri psani v komp. TEdit se mi nastavoval
TDBLookupComboBox....
Priklad....Do Tedit napisu PL a v DBlookupComboBox. se mi vybere
POLSKO...
Predem dik
Dalibor
Syntaxe
[*] Martin Lasevic <vyvoj(zv)atlascon(tec)cz> - 10.5.1999 12:28:45
Problem je v tom, ze ta procedura Timer1Timer
!!! MUSI BYT METODOU OBJEKTU !!!
?????
A proc? Tam by melo stacit, kdyz vyhovuje deklaraci odpovidajiciho proceduralniho typu
a je jedno, je-li to metoda objektu nebo jina produra mimo objekt.
Preji hezky den .....
============================================
ML Software - Martin Lasevic
Budovatelska 459,
708 00 Ostrava - Poruba
tel.: + 420 (69) 691 85 11, 0603 338 765
mailto:ml_software(zv)email(tec)cz
http://www.mujweb(tec)cz/www/ml_software
ICQ:33630882
============================================
-----Puvodni zprava-----
Od: Tomas Holan [SMTP:HOLAN(zv)ksvi.mff.cuni(tec)cz]
Odeslano: 10. kvitna 1999 11:57
Komu: delphi-l(zv)fwd(tec)cz
Poedmit: Re: Syntaxe
> procedure Timer1Timer(Sender: TObject);
> begin
> .
> end;
>
> begin
> Timer1:=TTimer.Create(nil);
> Timer1.OnTimer:=Timer1Timer; //<< TOTO POTREBUJE, ALE NEJDE TO!!!
> end;
Problem je v tom, ze ta procedura Timer1Timer
!!! MUSI BYT METODOU OBJEKTU !!!
(Ma jeden (neviditelny) parametr navic).
Tom
Zacatecnicky dotaz
[*] Oldrich Nic student <NICO(zv)feld.cvut(tec)cz> - 10.5.1999 10:30:33 met-1mest
Ahoj!
Jsem zacatecnik v Delphi 3 a potrebuji poradit od zkusenejsich. Mam
hned dva delsi dotazy, a tak vas nejdriv uvedu do problemu.
Aplikace, kterou pisu, bude (kez by) kreslit grafy funkci jedne
realne promenne. Cely graf je pojmut jako trida, ve ktere jsou
promenne take typu trida:
TNastaveni = class
BarvaPozadi: TColor;
end;
TKresli = class
Procedure Pozadi;
TGraf = class
Nastaveni: TNastaveni;
Kresli: TKresli;
constructor Create;
end;
constructor TGraf.Create;
begin
Nastaveni:= TNastaveni.Create;
Kresli:= TKresli.Create;
end;
Doufam, ze je to srozumitelne :)
Pokud chci nastavit barvu pozadi, napisu (Graf je typu TGraf):
Graf.Nastaveni.BarvaPozadi:= clBlue;
Pokud chci ale nakreslit pozadi:
procedure TKresli.Pozadi;
begin
...odsud jiz nemam pristup k promenne BarvaPozadi, tedy
pozadi nemuzu spravne nakreslit.
Lze se nejak dostat k BarvaPozadi, nebo se musi cela TGraf napsat
jinak?
Dotaz dve:
Program ma dovolovat ukladani nekonecne mnoha funkcnich predpisu do
souboru. V programu je seznam funkci reprezentovan spojovym seznamem:
PSeznam = ^TSeznam;
TSeznam = record
Popis: string;
Pozn: string;
...
Dalsi: PSeznam;
end;
Kdyz uzivatel vybere jednu fci ze seznamu (ListBox), hodnoty
promennych Popis, Pozn, ... se zobrazi v EditBoxech txtPopis,
txtPozn, ..., kde je uzivatel muze menit. Je jasne, ze po takove zmene
se musi konkretni text v TextBoxech aktualizovat i ve vnitrnich
promennych. K tomu slouzi spolecna procedura pro vsechny TextBoxy (P
je promenna typu PSeznam):
procedure TextBoxChange(Sender: TObject);
begin
if (Sender as TEdit).Name = 'txtPopis' then
P^.Popis:= (Sender as TEdit).Text;
if (Sender as TEdit).Name = 'txtPozn' then
P^.Pozn:= (Sender as TEdit).Text;
...
end;
Asi sami vidite, ze to neni ono. Pokud pridam jedinou dalsi polozku
do TSeznam (napr. funkcni predpis: Predpis: string), musim menit i
proceduru TextBoxChange. Nejde nejak vyuzit, ze se TextBoxy a
promenne v TSeznam jmenuji podobne: txtPopis a Popis, txtPozn a Pozn?
Vim, ze dopis je ponekud delsi, ale snazil jsem se popsat problem se
mozne nejkratsi cestou.
Predem diky za odpoved,
Olda Nic, nico(zv)feld.cvut(tec)cz
10.5.1999 nepovinny PARAMETR
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 10.5.1999 12:33:58
Petr Vones wrote:
> > zajimalo by me, jak se da nadeklarovat procedura ci funkce s nepovinnym
> > parametrem. Mam tim namysli napr. proceduru
> >
> > procedure BlockRead(var F: File; var Buf; Count: Integer [; var
> > AmtTransferred: Integer]);
> >
> > Zde je tedy promenna AmtTransferred nepovinna. Ale nevim, jak
> > nadeklarovat svoji vlastni proceduru. Nelze pouzit hranate zavorky,
> > nejde to zkompilovat, takze jak na to ? V Jave se pouzivaji tzv.
> > pretezovane funkce, je neco podobneho v Delphi ?
>
> V D4 mas jak pretezovani funkci tak implicitni parametry.
Jenze to je trochu neco jineho. Tato deklarace (tedy s var) dosud
neni v Pascalu mozna. Je to s podivem, protoze nekde uvnitr to
mozne evidentne je. Ale zatim se Inprise neuracil zpristupnit
takovehle deklarace i nam.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Off topic: CBuilder & import DLL
[*] Dalibor Zliechovec <Dalibor.Zliechovec(zv)frequentis.sk> - 10.5.1999 12:38:17
Uz som zabudol preny postup (riesil som to davno a nemam tu zdrojak), ale v
principe:
a. V pascale musis definovat proceduru/funkciu so standardnym volanim (nie
pascalovskym)
b. V C++ musis zas oznamit linkeru, ze pouzivas C konvenciu (extern C) a nie
C++ (C++ "upravuje" mena funkcii)
Dalibor
********************************
Dalibor Zliechovec
Frequentis s.r.o.
dalibor.zliechovec(zv)frequentis.sk
+421 7 64287798
-----Original Message-----
From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
Jan Stuchlik
Sent: Monday, May 10, 1999 11:05 AM
To: delphi-l(zv)fwd(tec)cz
Subject: Off topic: CBuilder & import DLL
Omlouvam se za off-topic, ale uz to resim tyden a ne a ne na to
prijit...
Potrebuji v C builderu naimportovat DLL, ktere je napsane v Delphi,
pripadne v necem uplne jinem ale nema jmena upravena tak, aby jim CB
rozumel.
Napsal jsem DLL v CB i v Delphi, impdef mi vyhazelo pokazde neco jineho
CB: (zv)SayHello$qv (zv)1
D4: SayHello (zv)1
zkousel jsem i implib, ale porad to hazi
'Linker: unresolved external ...'
Prosim poradte mi.
Diky Honza
Syntaxe
[*] Lubo Fule <fule(zv)sct.sk> - 10.5.1999 12:43:40
Problem je zrejme v tom, ze Timer1Timer je metoda ojektu, a teda, ked sa
chces na nu odkazovat mimo daneho objektu, tak musis uviest aj ten objekt:
Timer1.OnTimer:=Form1.Timer1Timer;
Lubo.
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> delphi(zv)alf.dingo(tec)cz
> Sent: Monday, May 10, 1999 10:20 AM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Syntaxe
>
>
> Ahojte,
>
> prosim, vite nekdo, jak to naspat?
>
> Potrebuji za behu vytvorit v nejake unite objekt TTimer.
> V tom problem neni. Problem je v tom, ze nevim, jak priradit
> proceduru pro ovladani Udalosti OnTimer.
>
> mam toto:
>
> unit pokus;
>
> interface
>
> uses extctrls;
>
> var
> Timer1 : TTimer;
>
> implementation
>
> procedure Timer1Timer(Sender: TObject);
> begin
> .
> end;
>
> begin
> Timer1:=TTimer.Create(nil);
> Timer1.OnTimer:=Timer1Timer; //<< TOTO POTREBUJE, ALE NEJDE TO!!!
> end;
>
> Pokud to provedu napr. uvnitr Objektu TForm, tak to jde.
> Jak to udelam v unite mimo objekt, tak se mu to nelibi.
>
> Nevite jak na to?
>
> Je to blbej dotaz, ale prosim, pomozte.
>
> Bob
>
>
nepovinny PARAMETR
[*] Petr Kro�a ml. <pkroca(zv)compact(tec)cz> - 10.5.1999 12:54:41
Aha, nevyjadril jsem se uplne. Mam totiz D3, ale tam by to snad taky melo
nejak jit ne ? Prikladem je onen zminovany BlockRead.
----- Original Message -----
From: Petr Vones <pvones(zv)mbox.vol(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: 9. kv�tna 1999 23:20
Subject: Re: nepovinny PARAMETR
Ahoj,
V D4 mas jak pretezovani funkci tak implicitni parametry.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
Syntaxe
[*] Martin Lasevic <vyvoj(zv)atlascon(tec)cz> - 10.5.1999 13:17:51
To, ze to muze byt i mimo object beru zpet.
Preji hezky den .....
============================================
ML Software - Martin Lasevic
Budovatelska 459,
708 00 Ostrava - Poruba
tel.: + 420 (69) 691 85 11, 0603 338 765
mailto:ml_software(zv)email(tec)cz
http://www.mujweb(tec)cz/www/ml_software
ICQ:33630882
============================================
-----Puvodni zprava-----
Od: Martin Lasevic [SMTP:vyvoj(zv)atlascon(tec)cz]
Odeslano: 10. kvitna 1999 12:29
Komu: 'delphi-l(zv)fwd(tec)cz'
Poedmit: RE: Syntaxe
Problem je v tom, ze ta procedura Timer1Timer
!!! MUSI BYT METODOU OBJEKTU !!!
?????
A proc? Tam by melo stacit, kdyz vyhovuje deklaraci odpovidajiciho proceduralniho typu
a je jedno, je-li to metoda objektu nebo jina produra mimo objekt.
Preji hezky den .....
============================================
ML Software - Martin Lasevic
Budovatelska 459,
708 00 Ostrava - Poruba
tel.: + 420 (69) 691 85 11, 0603 338 765
mailto:ml_software(zv)email(tec)cz
http://www.mujweb(tec)cz/www/ml_software
ICQ:33630882
============================================
-----Puvodni zprava-----
Od: Tomas Holan [SMTP:HOLAN(zv)ksvi.mff.cuni(tec)cz]
Odeslano: 10. kvitna 1999 11:57
Komu: delphi-l(zv)fwd(tec)cz
Poedmit: Re: Syntaxe
> procedure Timer1Timer(Sender: TObject);
> begin
> .
> end;
>
> begin
> Timer1:=TTimer.Create(nil);
> Timer1.OnTimer:=Timer1Timer; //<< TOTO POTREBUJE, ALE NEJDE TO!!!
> end;
Problem je v tom, ze ta procedura Timer1Timer
!!! MUSI BYT METODOU OBJEKTU !!!
(Ma jeden (neviditelny) parametr navic).
Tom
BDE Login & Access Violation
[*] Radek Pospisil <radek.pospisil(zv)sprinx(tec)cz> - 10.5.1999 13:18:42
Preji vsem hezky den,
Setkal se nekdo uz s nasledujicim, problemem :
Delphi 4, BDE ,Sybase SQL, na formulari TDatabase a TQuery.
V Tdatabase.OnLogin nastavuji username a heslo.
Pokud zadam spatne heslo nebo username tak po Query.Open nastane
nekompromisne Access violation. Pokud je heslo a username ok, probehne vse v
poradku. Nepomuze ani blok try ... except.
Diky
Radek P.Query a Locate
[*] David Svoboda <dsvoboda(zv)iol(tec)cz> - 10.5.1999 13:36:32
mbartone(zv)Synthesia(tec)cz wrote:
>
> Ahoj
>
> dotaz se tyka QUERY nad paradoxovou tabulkou.
>
> Lze nejakym zpusobem spojit dve polozky rozdilneho typu do jedne ?
> Tak aby slo vyhledavat pres LOCATE.
> Nebo lze nejak v LOCATE vyhledat pres vice polozek ?
>
> ulice je string
> popisne je integer
>
> select ulice || ' ' || popisne as budova from tabulka
>
> Q1.LOCATE('budova',hled_budova,[loCaseInsensitive, loPartialKey])
>
> nebo lze nejak
>
> select ulice, popisne as budova from tabulka
>
> Q1.LOCATE('ulice;popisne',hled_ul;hled_pop,[loCaseInsensitive, loPartialKey])
>
> Dekuji Milan
Q1.Locate('ulice;popisne', VarArrayOf([Hled_ul,
hled_pop]),[loCaseInsensitive, loPartialKey])
David
nepovinny PARAMETR
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 10.5.1999 13:46:15
No, cetl jsem knizku Mistrovstvi v D3 a tam se o necem
podobnem pise, nevim to presne, ale myslim, ze jsem tam
cetl, ze pomoci nejakeho identifikatoru lze predat temer
cokoli. Doufam, ze se nemylim a do te knihy se podivam
a zitra napisu vice.
Dobra.
BTW: HTML dotaz : jak provedu casove automaticke
presmerovani na jinou stranku ???> ----------------------------------------------------------------------
> ------------
> Od: Zbysek Hlinka[SMTP:zhlinka(zv)login(tec)cz]
> Odesl�no: 10. kv�tna 1999 12:33
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: nepovinny PARAMETR
>
>
> > > zajimalo by me, jak se da nadeklarovat procedura ci funkce s
> nepovinnym
> > > parametrem. Mam tim namysli napr. proceduru
> > >
> > > procedure BlockRead(var F: File; var Buf; Count: Integer [; var
> > > AmtTransferred: Integer]);
> >
> > V D4 mas jak pretezovani funkci tak implicitni parametry.
>
> Jenze to je trochu neco jineho. Tato deklarace (tedy s var) dosud
> neni v Pascalu mozna. Je to s podivem, protoze nekde uvnitr to
> mozne evidentne je. Ale zatim se Inprise neuracil zpristupnit
> takovehle deklarace i nam.
>
> SQL- UNION
[*] Jan Fiala <fiala(zv)infos(tec)cz> - 10.5.1999 13:48:48
-----P�vodn� zpr�va-----
Od: Jan �ebel�k <honza(zv)haes(tec)cz>
P�edm�t: Re: SQL- UNION
>A jsme u toho.
>Databaze (at uz lokalni nebo SQL) by mela byt obrazem relacniho datoveho
modelu.
>Datovy model je obrazem realneho systemu.
>Realny system je jeden.
>Pouze v ramci jedne databaze lze formulovat integritni omezeni (zkus
foreign key do jine databaze), triggery, transakcni zpracovani (s vyjimkou
tzv. two-phase-commit napr. u InterBase, to zase ale nepodporuje BDE.)
>
>Co kdyz se ti rozhodi referencni integrita mezi ostrou databazi a archivem,
co pak s tim?
Predevsim. Puvodni dotaz byl jestli chodi prikaz UNION. Odpovedels bez
ohledu na to, na jake tabulky bude pouzit, ze nechodi.
U lokalni databaze (napr. DBF) zadnou referencni integritu nenastavis. Muzes
si to udelat programove. A potom je lepsi tabulku rozdelit na aktualni data,
se kterymi se pracuje casteji a na archiv, do ktereho uz nesahnu.
>
>
>Kdyz uz neni vyhnuti (prilis mnoho dat), pak bych spise videl 2 databaze
(ostra a archiv) a s kazdou pracoval zvlast.
>Kazda z nich si musi udrzet vlastni integritu.
>
Souhlas. Akorat se bavime kazdy o necem jinem. Puvodni dotaz se tykal (pokud
si dobre vzpominam FoxPro tabulek) a tam rozdil mezi tabulkou a databazi ?
Co potom s dotazem, ve kterem potrebujes vybrat data z obou tabulek ?>>Podobne k tvemu prispevku o temporary
>> tabulkach. Zda se mi vyhodnejsi porizovany doklad pri porizovani dat do
>> temporary tabulky, kterou pak naraz zpracuji, nez to cpat do ostrych dat
a v
>> pripade, ze si to na konci porizovani rozmyslim, tak to z ostrych dat
mazat.
>>
>Transakce: commit a rollback
Opet. u DBF ?
>
>Honza
>=========================================
>= HAES - RNDr. Jan Sebelik
>= http://www.haes(tec)cz
>= Skolici a konzultacni stredisko pro Delphi a Win32
>= Vojtiskova 206
>= 507 81 Lazne Belohrad
>= tel. 0434 692 931, 692 569, 0601 20 30 84
>=========================================tcp component z internet package
[*] Majo Petrik <petrik(zv)gt12.sk> - 10.5.1999 13:53:38
Zdravim!
Nemozte mi niekto poradit ako mam pouzivat TCP component?
Napr. chcem vytvorit program ,ktory sa konektne na druhy
a ten client to konektnutie zahlasi napr v edit1...
Nerozumiem tomu uplne (aspon vsetky moje pokusy zlyhali)
takze dakujem za kazdu pomoc !!!!!
Delphi 4 & Win 2000 ( WinNt 5.0 )
[*] Lukes V�clav <Vaclav.Lukes(zv)pvt(tec)cz> - 10.5.1999 14:22:37
Hi,
instaloval jste pros�m V�s n�kdo Delphi 4 na Win 2000 ?
Pod Win 98 to nainstaluju v pohod� a pod Win 2000 m�m smol�ka.
Va�ek
V�clav Lukes
0603-511247
Vaclav.Lukes(zv)pvt(tec)cz
oracle 8.0
[*] TES s.r.o. <tes(zv)pce(tec)cz> - 10.5.1999 14:29:22
Ahoj,
nesetkal jste se n�kdo s problemem u Oracle 8.0 na Novellu 5.0
pokud je na tabuli primarni klic / varchar/ a jedna z polozek je Blob ??
Pro upresneni D4 CS, SP2, BDE 5.01
Diky Martin
TES spol. s r. o.
email: tes(zv)pce(tec)cz
tel: 040 36979
tel/fax: 040 36992
Pruhledny formular
[*] Majo Petrik <petrik(zv)gt12.sk> - 10.5.1999 14:48:52
to je super vec ale ked ako obrazok pouzijem tjpegimage tak nanho
neviem naniest priesvitnu farbu......
na tbitmap to islo nanesenim sivej farby....
neviete ako s tym vypiect?
On Mon, 10 May 1999, [iso-8859-2] Mal� Dobromil wrote:
> Ahoj,
> jde to tak, ze :
> a) udelas ten formular tak veliky, jako je bitmapa,
> nastavis mu BordesStyle na bsNone a tim padem nebude
> formular pod tim obrazkem videt
> b) pokud by jsi chtel, aby byl form skutecne "pruhledny",
> tak nastav zase BorderStyle na bsNone a navic jeste
> Brush.Style na bsClear (takhle jde udelat treba "elipsoidni"
> okno :-)
> Dobra.
>
> > ----------------------------------------------------------------------
> > --------------------
> >
> > Pri spusteni a inicializaci aplikace zobrazuji okno s bitmapou a
> > rad
> > bych, aby okno ve kterem je bitmapa nebylo videt - tedy aby bitmapa
> > jakoby
> > lezela primo na plose.
> Syntaxe
[*] delphi(zv)htkpro(tec)cz - 10.5.1999 14:54:08
>
> Problem je v tom, ze ta procedura Timer1Timer
>
> !!! MUSI BYT METODOU OBJEKTU !!!
>?????
>
>A proc? Tam by melo stacit, kdyz vyhovuje deklaraci odpovidajiciho
>proceduralniho typu
>a je jedno, je-li to metoda objektu nebo jina produra mimo objekt.
>
To jedno neni. Jakakoliv metoda ma implicitni parametr Self, ktery ukazuje
na instanci objektu, ke ktere patri. Kdezto normalni procedura nic takoveho
nema. Proto nelze michat procedury a metody.
S pozdravem
Jan Kadlecek
nepovinny PARAMETR
[*] Lubos <bruce(zv)pobox.sk> - 10.5.1999 14:57:35
>
> BTW: HTML dotaz : jak provedu casove automaticke
> presmerovani na jinou stranku ???
mrkni na http://www.javasript.sk
/LH
Delphi 4 & Win 2000 ( WinNt 5.0 )
[*] Ivan Turcan <iturcan(zv)gamo.sk> - 10.5.1999 15:11:32
Hi
skusal som , ber win2000 ako beta verziu !
Ivan Turcan
Development specialist
(Delphi,C++ , Assembler, Interbase, Informix, WinBase )
Tel: +421-88-4137 935
e-mail: iturcan(zv)gamo.sk
GAMO a.s.
Slovakia
nepovinny PARAMETR
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 10.5.1999 15:27:40
>BTW: HTML dotaz : jak provedu casove automaticke
>presmerovani na jinou stranku ???<meta http-equiv="refresh" content="120 ; URL=http://www........">
kde 120 je cas v sekundach...
Zdravi
D. Toman
Off topic: CBuilder & import DLL
[*] "Bohumil Mi�ka" <bm(zv)isternet.sk> - 10.5.1999 15:40:07
Ahoj,
problem pravdepodobne bude suvisiet s "overloading" funkcii, ktory je zavedeny
do C++. Vnutorne je to riesene "komolenim" identifikatorov - pridavanim
nejakych znakov za identifikator, aby bolo pri "overloading"u zaistene
ich odlisenie.
Prototyp funkcie treba napisat takto:
extern "C" char *MojaFunc( int i );
Bohus Micka
*********** REPLY SEPARATOR ***********
On 10.5.1999 at 10:05 Jan Stuchlik wrote:
>Omlouvam se za off-topic, ale uz to resim tyden a ne a ne na to
>prijit...
>
>Potrebuji v C builderu naimportovat DLL, ktere je napsane v Delphi,
>pripadne v necem uplne jinem ale nema jmena upravena tak, aby jim CB
>rozumel.
>Napsal jsem DLL v CB i v Delphi, impdef mi vyhazelo pokazde neco jineho
>CB: (zv)SayHello$qv (zv)1
>D4: SayHello (zv)1
>
>zkousel jsem i implib, ale porad to hazi
>'Linker: unresolved external ...'
> Prosim poradte mi.
> Diky Honza
nepovinny PARAMETR (HTML DOTAZ)
[*] Petr Kro�a ml. <pkroca(zv)compact(tec)cz> - 10.5.1999 15:41:46
----- Original Message -----
From: Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz>
To: <delphi-l(zv)fwd(tec)cz>
Sent: 10. kv�tna 1999 13:46
Subject: RE: nepovinny PARAMETR
>BTW: HTML dotaz : jak provedu casove automaticke
>presmerovani na jinou stranku ???
Do hlavicky HTML, mezi tagy <HEAD> </HEAD>
umisti tag
<meta HTTP-EQUIV="Refresh" CONTENT="5; URL=http://www.nikdenic(tec)cz">
5 je doba tusim v sec., nez se to pokusi nahrat jinou stranku.
PK
Jak instalovat Delphi 4 na Win NT
[*] Lukes V�clav <Vaclav.Lukes(zv)pvt(tec)cz> - 10.5.1999 15:55:12
Ahoj,
m��ete mi pros�m n�kdo poradit jak nainstalovat Delphi 4 pod Win NT ? M� se
to absolutn� neda��. Podot�k�m, �e instalace pod Win 98 je bezprobl�mov�.
Kdy� se mi nepoda�ilo Delphi nainstalovat pod Win NT, nainstaloval jsem je
pod Win 98 ( na disku m�m jak Win NT tak i Win 98 ) a myslel jsem si, �e je
budu moci z Win NT spou�t�t. Fajn, Delphi spust�m, ale v n�strojov� li�t�
nen� ani �.
M��ete mi pros�m n�kdo poradit ?
D�ky
Va�ek
V�clav Lukes
0603-511247
Vaclav.Lukes(zv)pvt(tec)cz
Ukradena pamet
[*] Lubor Martinsky <lubor.martinsky(zv)dctrade(tec)cz> - 10.5.1999 15:58:20
Ahoj,
Mame podobny problem, Delphi 4 prof proti SQL 6.5 SP4 na NT 4.0 SP3. Pamet
trvale ubyva.
Budu rad za tip nebo zkusenost.
-----P�vodn� zpr�va-----
Od: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz] za u�ivatele Petr
Vones
Odesl�no: 9. kv�tna 1999 22:58
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: Re: Ukradena pamet
"Vodicka, David (CAP, GCF)" wrote:
>
> Zdrav�m f�echny Delfa�e,
>
> Nev� n�kdo, jak zabezpe�it vr�cen� pam�ti po vyvol�n� datab�zov�ho
> dotazu pomoc� TQuery. N� probl�m spo��v� v tom, �e po sekvence
> "Query1.Open; n�co (a nebo taky nic); Query1.Close" p�ijdeme o docela dost
> pam�ti. Dost n�m to vad� zejm�na na aplika�n�m serveru, kde po mnoha
> tis�c�ch dotaz� je ztr�ta pam�ti pom�rn� nep��jemn�.
> Pro p�esnost : p�i prvn�m vyvol�n� Open si to vezme cca 100k,
prvn�
> Close vr�ti cca 40, druh� a dal�� si uz berou m�� a vrac� v�c, ale stejn�
to
> nevrac� v�echno - a ka�d�ho K pam�ti je �koda. P�i vyvol�n� jin� Query je
> op�t prvn� u�r�n� pam�ti zna�n� ...
Ahoj,
Neprozradil jsi verzi Delphi, ale pokud je to D4 a ve vyslednem datasetu
jsou
BLOBy, tak by to treba mohla byt chyba v cacheblobs. Lze to odstranit
nastavenim
vlastnosti CacheBlobs na False.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
Velikost projektu v Delphi
[*] Lukas Marsalek ** student ** <MARSALEL.vos97(zv)vsps-su(tec)cz> - 10.5.1999 15:15:09
Vazeni,
Jsem zacatecnik a zkousim v D3 nejakou databazicku. Jako podklad
kazdeho okna mam bitmapu, docela velkou, 1.2 MB. Delphi standartne
zaclenuje vsechny obrazky pouzite na formulari do *.dfm souboru. Kdyz
je tech formularu vice, celkem narusta velikost adresare s mym
projektem. Neslo by nejak zaridit, aby Delphi nezaclenovalo do
kazdeho *.dfm souboru tu samou bitmapu ? Ze by si ji treba tahalo z
nejakeho adresare, treba z "Obrazky" ?
A take kdyz se projekt kompiluje do EXE, jsou v tom EXE zahrnuty
vsechny soubory a jeho vysledna velikost je treba v mem pripade kolem
5 MB. Neslo by taky nejak pri kopilaci zaridit, ze by se udelal jenom
maly EXE soubor a zbytek by se natahoval z nejakeho adresare, treba z
toho "Obrazky" ?
Jo jeste neco. Jde nejak programove zjistit, jestli je v mechanice
vlozene Audio CD ? Teda aby program umel treba poznat, ze tam je
datove, nebo ze je mechanika otevrena.
Predem dekuji za odpoved a omluvte moji nezkusenost.
S pozdravem
L. Marsalek
cs klavesnice v Delphi4
[*] Pavel Chaloupka <pavel(zv)mc-club(tec)cz> - 10.5.1999 17:20:40
Zdravim,
v Delphi 2 (a ve vsech win programech) jsem pouzival pri programovani cs klavesnici a nektere znaky jsem psal jako & - pravy alt+V. V delphi 4 to jiz nejde a vyvolavaji se okna delphi. Nevi nekdo jak docilit aby to pracovalo jak ma?
Pavel Chaloupka
E-Mail chaloupka(zv)mboxzn(tec)cz
V�voj SW (Delphi, Java, Linux, Interbase)Velikost projektu v Delphi
[*] Majo Petrik <petrik(zv)gt12.sk> - 10.5.1999 17:28:05
On Mon, 10 May 1999, Lukas Marsalek ** student ** wrote:
> Vazeni,
>
> Jsem zacatecnik a zkousim v D3 nejakou databazicku. Jako podklad
> kazdeho okna mam bitmapu, docela velkou, 1.2 MB.
|
--->nemas tjpeg
komponent?
mozem ti ich poslat
(myslim ze praca s jpeg by bola jednoduchsia:)))
velkost tvojich suborov sa zmensi mnohonasobne!!!
>Delphi standartne
> zaclenuje vsechny obrazky pouzite na formulari do *.dfm souboru. Kdyz
> je tech formularu vice, celkem narusta velikost adresare s mym
> projektem. Neslo by nejak zaridit, aby Delphi nezaclenovalo do
> kazdeho *.dfm souboru tu samou bitmapu ? Ze by si ji treba tahalo z
> nejakeho adresare, treba z "Obrazky" ?
> A take kdyz se projekt kompiluje do EXE, jsou v tom EXE zahrnuty
> vsechny soubory a jeho vysledna velikost je treba v mem pripade kolem
> 5 MB. Neslo by taky nejak pri kopilaci zaridit, ze by se udelal jenom
> maly EXE soubor a zbytek by se natahoval z nejakeho adresare, treba z
> toho "Obrazky" ?
> Jo jeste neco. Jde nejak programove zjistit, jestli je v mechanice
> vlozene Audio CD ? Teda aby program umel treba poznat, ze tam je
> datove, nebo ze je mechanika otevrena.
> Predem dekuji za odpoved a omluvte moji nezkusenost.
>
> S pozdravem
> L. Marsalek
>
ked si nebudes natahovat do timage obrazky priamo ale az pocas spustenia
programu tak by to slo ...napr. image1.loadimage('obrazok.bmp') v
tform.create evente....nepovinny PARAMETR
[*] roman.vasicek(zv)email(tec)cz - 10.5.1999 17:58:30
Nazdarek
> BTW: HTML dotaz : jak provedu casove automaticke
> presmerovani na jinou stranku ???
Napriklad pomoci tagu META
<META HTTP-EQUIV="REFRESH" CONTENT="10; URL=/htbin/Count.cgi?display=clock">
Pokud neni zadano URL, nacte se znovu ta sama stranka (zavisi na pripadnem nastaveni BASE)
<META HTTP-EQUIV="REFRESH" CONTENT="5">
Phoenix
+-----
| Roman Vasicek - Phoenix
| E-mail: roman.vasicek(zv)email(tec)cz
| WWW: http://roman.manes.skm.vutbr(tec)cz/
--- CREATED BY ATC O..R..G..A..N..I..Z..E..R
--- http://email(tec)cz <--- Get Your Free Email
ekvivalent MEMAVAIL
[*] Petr Kro�a ml. <pkroca(zv)compact(tec)cz> - 10.5.1999 18:27:26
Ahoj !
Existuje nejaky ekvivalent k drivejsim funkcim z BP MemAvail a MaxAvail ?
Nejde mi ani tak o zjisteni velikosti volne pameti, ale spis o moznost
zjisteni, zda se veskera alokovana pamet spravne vratila systemu po ukonceni
procedury.
V BP jsem to delal totiz pomoci porovnani MemAvail pred a po pouziti
procedury. Pokud vysledek nebyl stejny, znamenalo to, ze jsem nekde udelal
chybu a zapomnel vratit kus alokovane pameti. Totez jsem chtel nyni pouzit i
v Delphi, ale MemAvail se nekona.
Dik za odpoved
PK
Presun formulare na formular
[*] Oldrich Nic <NICO(zv)feld.cvut(tec)cz> - 10.5.1999 16:28:15 met-1mest
Kazde okno ma ctverici udaju charakterizujici jeho pozici a velikost:
|-------------------------- <--monitor
Top| | |
|-| ----- |-|
| | | | |Height
| | |<--Okno | |
| ----- |-|
| |
-------------------------
|----|---|
Left Width
Takze, kdyz se budou shodovat udaje Left a Top, obe okna maji stejny
horni levy roh, kdyz se bude shodovat i Width a Height, jsou stejna...
Olda Nic, nico(zv)feld.cvut(tec)cz
Jak instalovat Delphi 4 na Win NT
[*] Oldrich Nic <NICO(zv)feld.cvut(tec)cz> - 10.5.1999 16:31:10 met-1mest
Zkus specifikovat dalsi parametry pocitace, na kterym mas NT. Me to
chodi OK.
Oldrich Nic, nico(zv)feld.cvut(tec)cz
Syntaxe
[*] Tomas Holan <HOLAN(zv)ksvi.mff.cuni(tec)cz> - 10.5.1999 18:56:45
> Problem je zrejme v tom, ze Timer1Timer je metoda ojektu, a teda, ked sa
> chces na nu odkazovat mimo daneho objektu, tak musis uviest aj ten objekt:
>
> Timer1.OnTimer:=Form1.Timer1Timer;
Ale ne, metoda objektu ma o jeden parametr vic, nez se deklaruje
(tam se predava Self - pointer na objekt).
Taky mi to nechodilo a taky jsem se na tom cyklil,
nez jsem si poradne precetl definici typu
type TNotifyEvent = procedure (Sender: TObject) of object;
To "of object" opravdu znamena, ze to musi byt metoda objektu.
Viz vyse a ...
Tom
tcp component z internet package
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 10.5.1999 18:58:05
Majo Petrik wrote:
>
> Zdravim!
> Nemozte mi niekto poradit ako mam pouzivat TCP component?
> Napr. chcem vytvorit program ,ktory sa konektne na druhy
> a ten client to konektnutie zahlasi napr v edit1...
> Nerozumiem tomu uplne (aspon vsetky moje pokusy zlyhali)
> takze dakujem za kazdu pomoc !!!!!
Ahoj,
Podivej se do adresare DelphiX\Demos\Internet, tam mas priklady.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************
nepovinny PARAMETR
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 10.5.1999 18:58:34
Zbysek Hlinka wrote:
>
> Petr Vones wrote:
>
> > > zajimalo by me, jak se da nadeklarovat procedura ci funkce s nepovinnym
> > > parametrem. Mam tim namysli napr. proceduru
> > >
> > > procedure BlockRead(var F: File; var Buf; Count: Integer [; var
> > > AmtTransferred: Integer]);
> > >
> > > Zde je tedy promenna AmtTransferred nepovinna. Ale nevim, jak
> > > nadeklarovat svoji vlastni proceduru. Nelze pouzit hranate zavorky,
> > > nejde to zkompilovat, takze jak na to ? V Jave se pouzivaji tzv.
> > > pretezovane funkce, je neco podobneho v Delphi ?
> >
> > V D4 mas jak pretezovani funkci tak implicitni parametry.
>
> Jenze to je trochu neco jineho. Tato deklarace (tedy s var) dosud
> neni v Pascalu mozna. Je to s podivem, protoze nekde uvnitr to
> mozne evidentne je. Ale zatim se Inprise neuracil zpristupnit
> takovehle deklarace i nam.
Ahoj,
Ono "funkce" jako BlockRead, Read, Write, Str apod. nejsou vlastne uplne
ciste funkce, ale spise neco mezi funkci a prikazem jazyka. Jde to ale
resit pomoci pretezovani, napriklad:
SomeProcedure(A, B: Integer; var X: Integer [; var Y: Integer]);
bude vypadat v D4 takhle:
procedure SomeProcedure(A, B: Integer; var X: Integer); overload;
begin
X := A + B;
end;
procedure SomeProcedure(A, B: Integer; var X: Integer; var Y: Integer); overload;
begin
X := A + B;
Y := A - B;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
X, Y: Integer;
begin
SomeProcedure(10, 2, X);
ShowMessageFmt('%d', [X]);
SomeProcedure(10, 2, X, Y);
ShowMessageFmt('%d %d', [X, Y]);
end;
V Delphi3 by to slo ponekud neobratne resit pomoci predavani ukazatelu:
procedure SomeProcedureD3(A, B: Integer; var X: Integer; Y: PInteger);
begin
X := A + B;
if Assigned(Y) then Y^ := A - B;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
X, Y: Integer;
begin
SomeProcedureD3(10, 2, X, nil);
ShowMessageFmt('%d', [X]);
SomeProcedureD3(10, 2, X, (zv)Y);
ShowMessageFmt('%d %d', [X, Y]);
end;
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
************************ekvivalent MEMAVAIL
[*] Petr Fejfar <callnet(zv)telecom(tec)cz> - 10.5.1999 20:18:53
Petr Kro�a ml. <pkroca(zv)compact(tec)cz> wrote:>Existuje nejaky ekvivalent k drivejsim funkcim z BP MemAvail a MaxAvail ?
Hi,
ja k podobnym ucelum monitoruji hodnoty v tHeapStatus, ktery lze ziskat
volanim GetHeapStatus(). Podrobnosti viz help.
bye, pf
Otoceni labelu
[*] Pavel Malinsk� <spiderland(zv)seznam(tec)cz> - 10.5.1999 21:36:05
Ahoj,
nevzpominate si, prosim, nekdo, jak
otocit label napr o 90 stupnu. Pripadne text
vypsat pomoci DrawText nebo TextOut.
Potreboval bych to ve dvou stylech
a/ cely text otocit o 90 stupnu
b/ vypsat text po jednotlivych znacich
pod sebou (de facto zalomeni za kazdym znakem)
Mam dojem, ze uz o tom zde byla rec,
ale nemuzu to najit...:-(
S pozdravem a diky
==================================
> Pavel Malinsky; spiderland(zv)seznam(tec)cz <
>================================<
> ...The Truth Is Out There... <
==================================
GSM: 0602 652 203
Instalator - zadarmo
[*] Jaro <jaro(zv)sinea(tec)cz> - 10.5.1999 21:43:22
Tak je to tam.
Na www.sinea(tec)cz na strance Download na konci seznamu
Mnoho stesti
Jaro
>Vzhledem k velkemu zajmu to vyvesim na nas web.
>Az to tam bude, tak dam jeste ECHO
>Jaro
>
>-----P�vodn� zpr�va-----
>Od: Jaro <jaro(zv)sinea(tec)cz>
>Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
>Datum: 6. kv�tna 1999 22:37
>P�edm�t: Instalator - zadarmo
>
>
>>Probehla tu diskuse o instalacnich programech.
>>Napadla me jedna moznost.
>>Drive jsme vytvorili vlastni instalacni program.
>>Pote, co jsme lokalizovali IS, jsme jej opustili.
>>Neumel sice instalovat BDE, ale byl velmi jednoduchy,
>>umel svazky disket a definice instalace se provedla
>>jednoduse popisem v textovem souboru.
>>
>>Pokud by byl zajem o tento jednoduchy instalator, mohl bych
>>ho uvolnit k bezplatnemu uzivani a to vcetne zdrojovych
>>souboru. Necht si ho kazdy upravi dle svych potreb.
>>Zajemci mohou napsat na jaro(zv)sinea(tec)cz
>>Pokud bude zajem, pridam ho na nas web k volnemu
>>stazeni.
>>Jaro
>>
>>
>>-----P�vodn� zpr�va-----
>>Od: Jaro <jaro(zv)sinea(tec)cz>
>>Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
>>Datum: 6. kv�tna 1999 2:34
>>P�edm�t: Re: instalator Youseful 4.0
>>
>>
>>>To je pravda.
>>>Jaro
>>>
>>>
>>>>>Apropos: co mas proti Installshield-u ?
>>>>>Mas ho na CD s Delphi a lokalizovat se ho take podarilo.
>>>>>Ja ho pouzivam jiz treti rok a vyhovuje mi.
>>>>
>>>>
>>>>Proti installshieldu nemam nic. Asi bychom ale potrebovali
>>>Professional
>>>>verzi, ktera umi skripty. Nebo Express umi zadat behem instalace v
>>>>dialogovem okne napr. nazev SQL serveru pro nastaveni BDE?
>>>>A protoze Profi verze neni nejlevnejsi, rad bych poznal, co se
>>obecne
>>>>pouziva.
>>>>
>>>>Leos
>>>>
>>>
>>
>Jak instalovat Delphi 4 na Win NT
[*] Pavel Skalicky <P.Skalicky(zv)sh.cvut(tec)cz> - 10.5.1999 22:46:18
Musis Delphi pod WinNT pouzivat pouze pod tim uzivatelem, ktery Delphi
instaloval. Mel jsem stejny problem a instaloval jsem je nekolikrat, nez mne to
trklo.
Pavel
/---==ooOOoo==---=oOo=---==ooOOoo==---
|
| Pavel SKALICKY - student FEL CVUT
| e-mail : P.Skalicky(zv)sh.cvut(tec)cz
| wintalk : Pavel(zv)pts.sh.cvut(tec)cz
| ICQ : 38169741
|
\---==ooOOoo==---=oOo=---==ooOOoo==---
pocesteni BDE (konkretne 5.01)
[*] Jaro <jaro(zv)sinea(tec)cz> - 10.5.1999 22:53:13
>Ja ale vzdycky argumentuji, ze hlaska "Key violation" je ucetni,
ktera zadava faktury, uplne stejne malo platna, jako "Duplicitni
klic". Pujde se podivat jestli nekdo nestrka do dveri nejake klice z
druhe strany.
-----------
Jo, ale je tu psychologicky efekt. Zatimco u hlasky "Duplicitni klic"
si mozna ta ucetni uvedomi, ze dela neco spatne, tak hlasku ""Key
violation" automaticky povazuje za nedoladenou chybu programu, nad
nicim nepremysli a vyhazuje pocitac i s ucetnictvim oknem.
>
>Chyby by se mely osetrovat (pokud to jde a pokud mam dost
trpelivosti) na miste sveho vzniku. Pak by nemel byt problem zahlasit
"faktura s timto cislem uz existuje".
------------
To je vzdy nejlepsi reseni, ale malokdy se podari osetrit vsechny
mozne situace.
Jaro
Query a Locate
[*] Jaro <jaro(zv)sinea(tec)cz> - 10.5.1999 23:07:07
> Lze nejakym zpusobem spojit dve polozky rozdilneho typu do jedne ?
Zajiste. Udelej si kalkulacni polozku treba: Ulice1: string;
Ulice1 := ulice + ' ' + IntToStr(Popisne);
> Tak aby slo vyhledavat pres LOCATE.
> Nebo lze nejak v LOCATE vyhledat pres vice polozek ?
To lze take, treba
Query1.Locate('ulice;popisne',
VarArrayOf([Hled_ul,hled_pop]),[loCaseInsensitive, loPartialKey]);
> ulice je string
> popisne je integer
Mimochodem, jak zapises cislo popisne 23/II, kdyz je to Integer ?
Jaro
Delphi 4 & Win 2000 ( WinNt 5.0 )
[*] Jaro <jaro(zv)sinea(tec)cz> - 10.5.1999 23:09:32
Kde jsi vzal Win2000 ?
Jaro
-----P�vodn� zpr�va-----
Od: Lukes V�clav <Vaclav.Lukes(zv)pvt(tec)cz>
Komu: 'delphi-l(zv)fwd(tec)cz' <delphi-l(zv)fwd(tec)cz>
Datum: 10. kv�tna 1999 15:54
P�edm�t: Delphi 4 & Win 2000 ( WinNt 5.0 )>
>Hi,
>
>instaloval jste pros�m V�s n�kdo Delphi 4 na Win 2000 ?
>Pod Win 98 to nainstaluju v pohod� a pod Win 2000 m�m smol�ka.
>
>
>Va�ek
>
>
>
>
>V�clav Lukes
>
>0603-511247
>Vaclav.Lukes(zv)pvt(tec)cz
>JAK OSETRIT ALT+F4
[*] Paja <delphi4(zv)seznam(tec)cz> - 10.5.1999 23:18:32
Nazdar,
a hned na zacatku te musim upozornit ze jsi se spletl, mozna jsem primitivni
ale jak zavrit aplikaci to vim ja jen chci dosahnout toho aby se ta aplikace
prave nezavrela. To znamena ze chci a by pri stisku ALT+F4 se treba napsalo
"zadny takovy" a ne aby se aplikace ukoncila. Dalsi dotaz je tedy(protoze
jsem primitiv tak to nevim) jak disablovat Close(tedy krizek v hornim pravem
rohu okna(ne jak ho schovat ale disablovat)), tak snad si to pochopil.
Diky za odpoved Paja(primitiv)
-----P�vodn� zpr�va-----
Od: Kolar Lubor <LuborK(zv)tnet(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 8. kv�tna 1999 21:30
P�edm�t: Re: JAK OSETRIT ALT+F4
>Pajo, nic proti, ale tvoje otazky jsou vetsinou znacne primitivni :-).
Napr. v Tform.Close.
>Lubor bIRDIE Kolar
>====================
>GSM Phone: +420-603-410019
>ICQ: 18587772
>----- P�vodn� zpr�va -----
>Od: Paja <delphi4(zv)seznam(tec)cz>
>Komu: Delphi <delphi-l(zv)fwd(tec)cz>
>Odesl�no: 8. kv�tna 1999 19:10
>P�edm�t: JAK OSETRIT ALT+F4
>
>
>> Nazdar,
>>
>> Zajimalo by me jestli nekdo nevite jak osetrit stisk a tedy nasledne
>> ukonceni ALT+F4
>>
>> Diky za jakoukoli odpoved.
>>
>
>
JAK OSETRIT ALT+F4
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 10.5.1999 23:49:20
Puvodni zprava, kterou napsal Paja dne 10 May 99,:
> a hned na zacatku te musim upozornit ze jsi se spletl, mozna jsem
> primitivni ale jak zavrit aplikaci to vim ja jen chci dosahnout toho aby
> se ta aplikace prave nezavrela. To znamena ze chci a by pri stisku ALT+F4
No tak se jeste chvili divej na ty udalosti hlavniho formulare,
az Te trkne ta druha udalost, ve ktere je take obsazeno slovo Close.
S pozdravem
Petr Zahradnik, pocitacovy expert
Autorizovany dealer TurboPower Software... knihovny pro Delphi
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon: 047-5500610, telefon/fax: 047-5501627 ===
=== mobilni telefon GSM (hotline): 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================
ICQ: 21215917, PGP vitano
JAK OSETRIT ALT+F4
[*] Jan Fiala <fiala(zv)infos(tec)cz> - 11.5.1999 06:21:28
-----P�vodn� zpr�va-----
Od: Paja <delphi4(zv)seznam(tec)cz>>Nazdar,
>a hned na zacatku te musim upozornit ze jsi se spletl, mozna jsem
primitivni
>ale jak zavrit aplikaci to vim ja jen chci dosahnout toho aby se ta
aplikace
>prave nezavrela. To znamena ze chci a by pri stisku ALT+F4 se treba napsalo
>"zadny takovy" a ne aby se aplikace ukoncila. Dalsi dotaz je tedy(protoze
>jsem primitiv tak to nevim) jak disablovat Close(tedy krizek v hornim
pravem
>rohu okna(ne jak ho schovat ale disablovat)), tak snad si to pochopil.
>
>Diky za odpoved Paja(primitiv)
>
V hlavnim formulari v udalosti OnCloseQuery je parametr CanClose. pokud jej
nastavis na False, aplikace se neukonci, zadny dialog se neobjevi. Muzes si
tam dat treba CanClose := Muzu_Koncit, kde Muzu_Koncit je public promenna,
kterou si na True programove nastavis, az te program prestane bavit. Pokud
tam das neco jako :
CanClose := (MessageDlg('Ukoncit ?', mtQuestion, [mbYes, mbNo])=mrYes)
Tak mas ukonceni s dotazem.
===============================
ing. Jan Fiala fiala(zv)infos(tec)cz
Prog-Soft s.r.o. Plzen
INFOS - informacni system pro napojare
===============================SQL- docasne tabulky
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 11.5.1999 07:12:29
> -----Original Message-----
> From: honza(zv)haes(tec)cz [mailto:honza(zv)haes(tec)cz]
> Sent: Sunday, May 09, 1999 10:27 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Re: SQL- docasne tabulky
>
>
> > >[Honza]
> > >> > Programovani procedur a funkci je neco jineho nez prace s
> > >> > relacni databazi.
> [Jaro]
> > Nevim, proc by to melo byt neco jineho. I tady lze dodrzet relacni
> > model.
> [Honza]
> Pokud si vzpominam, tak tam slo o tvrzeni, ze docasne tabulky
> hraji stejnou roli jako lokalni promenne v pascalovskych
> funkcich. Alespon tak jsem to pochopil.
Ne, pochopils to spatne. To bylo pouze tvrzeni na stejne urovni.
Tys tvrdil, ze docasne tabulky jsou zbytecnost. To tvrzeni ma stejnou
hodnotu jako tvrzeni, ze lokalni promenne jsou zbytecnost. Teda - je to
blbost.
> > >[Honza]
> > >Prostoru pro docasne uchovani informaci (ve vztahu ke
> "Klietovi") mam
> > v pameti sveho pocitace dost.
> [ Jaro]
> > Zpravidla jde o to, ze pokud existuje dalsi zpracovani, tak
> ne serveru
> > to probiha mnohem rychleji.
> [Honza]
> To dozajista ano. Ulozene procedury mam taky rad.
> Ale pokud si vzpominam, tak tam slo o to, ze si nekdo do
> pomocnych tabulek uklada seznam chyb pri validaci zaznamu.
>
Podle Tve reakce soudim, ze predpokladas validace na klientovi.
Asi nemas zkusenosti s rozsahlymi C/S aplikacemi - ono by
skolitelum neskodilo nejaky cas programovat :-)
(Tim Te nechci hanet, je ale pravda, ze mi nektere Tve nazory
nepripadaji moc prakticke a myslim si, ze je to prave tim,
zes nevyvijel a nenasazoval u zakaznika nejaky rozsahly IS).
Architektura C/S poskytuje volnost volby, kam umistime
aplikacni logiku. Programatori vyuzivajici jednoduche
databaze moznost volby prakticky nemaji - vetsinu aplikacni logiky
musi soustredit na klienty. Naopak pri pouziti lepsiho databazoveho stroje
je v drtive vetsine pripadu (se kterymi jsem se setkal) vyhodnejsi
nacpat pokud mozno vsechno do databazoveho serveru a klienty pouzivat
predevsim k prezentaci dat. Proto i validace by mely probihat
na serveru (vzdyt jsou navic castecne realizovany pomoci constraints).
No a v tom pripade potrebujes po dojeti validace dostat seznam chyb na
klienta.
Jeste k validacim - nekdy, aby to bylo jeste horsi, validace nemuzes mit
na klientovi vubec. To je v pripadech, kdy potrebujes zjistovat nejake dalsi
udaje v databazi a tech dat, ktera musis projit, je hodne. Kdybys to
provadel
na klientovi, musel bys prenaset velke mnozstvi dat.
Jura
----------
Jiri Polak
e-mail:jura.polak(zv)email(tec)cz
jiri.polak(zv)tconsult(tec)cz
web :http://freeweb.coco(tec)cz/jpolak
----------
The only good bug, is a dead bug!AutZ, Was: pocesteni BDE (konkretne 5.01)
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 11.5.1999 07:53:20
Miloslav Skacel wrote:
> >Ovsem vrele nedoporucuji takto lokalizovany soubor
> >distribuovat zakaznikum, protoze by to mohlo teoreticky delat
> >neplechu, pokud zakaznik bude pouzivat jeste dalsi program
> >vyuzivajici BDE. Krome toho bys porusil autorska prava.
>
> A podle ktereho zakona?
> Z nasledujiciho vyplyva, ze je to snad dokonce povoleno:)
Pokud to budes delat pouze pro sebe, tak ano. Pokud bys to siril
dale, tak uz ne.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Jak instalovat Delphi 4 na Win NT
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 11.5.1999 07:53:21
Lukes V�clav wrote:
> m��ete mi pros�m n�kdo poradit jak nainstalovat Delphi 4 pod Win NT ? M�
> se to absolutn� neda��. Podot�k�m, �e instalace pod Win 98 je
> bezprobl�mov�. Kdy� se mi nepoda�ilo Delphi nainstalovat pod Win NT,
> nainstaloval jsem je pod Win 98 ( na disku m�m jak Win NT tak i Win 98 ) a
> myslel jsem si, �e je budu moci z Win NT spou�t�t. Fajn, Delphi spust�m,
> ale v n�strojov� li�t� nen� ani �.
To je pochopitelne, kdyz nemas ani n v registrech NT.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
ekvivalent MEMAVAIL
[*] Karel Kral <kral(zv)purus(tec)cz> - 11.5.1999 08:23:00
K tomu, co potrebujes, je vhodne AllocMemSize, celkova velikost
alokovane pameti. Je to sice opak MemAvail, ale pro tvoje ucely je to
ono.
"Petr Kro�a ml." wrote:
>
> Ahoj !
> Existuje nejaky ekvivalent k drivejsim funkcim z BP MemAvail a MaxAvail ?
>
> Nejde mi ani tak o zjisteni velikosti volne pameti, ale spis o moznost
> zjisteni, zda se veskera alokovana pamet spravne vratila systemu po ukonceni
> procedury.
> V BP jsem to delal totiz pomoci porovnani MemAvail pred a po pouziti
> procedury. Pokud vysledek nebyl stejny, znamenalo to, ze jsem nekde udelal
> chybu a zapomnel vratit kus alokovane pameti. Totez jsem chtel nyni pouzit i
> v Delphi, ale MemAvail se nekona.
>
> Dik za odpoved
>
> PK
--
______________________________________________________
Karel Kral, informatik
Purus, s.r.o., Cezavy 627, 664 56 Blucina
Tel: 05/47235000, 0602/552432, Fax: 05/47231203
E-Mail: mailto:kral(zv)purus(tec)cz, WWW: http://www.purus(tec)cz
______________________________________________________
cs klavesnice v Delphi4
[*] Pavel Fiser <fiser(zv)iol(tec)cz> - 11.5.1999 08:41:03
Jestli chces, poslu ti programatorskou klavesnici, kde je kompletni
ceske rozlozeni a amer.znaky se pisou AltGr a puv.klavesa (napr. &:
AltGr+7; ': AltGr+�...).
Mam ji pro Win95 i WinNT.
Zdar
Pavel Chaloupka p�e:
> Zdravim, v Delphi 2 (a ve vsech win programech) jsem pouzival pri
> programovani cs klavesnici a nektere znaky jsem psal jako & - pravy
> alt+V. V delphi 4 to jiz nejde a vyvolavaji se okna delphi. Nevi nekdo
> jak docilit aby to pracovalo jak ma? Pavel Chaloupka
> E-Mail chaloupka(zv)mboxzn(tec)cz
> V�voj SW (Delphi, Java, Linux, Interbase)
Delphi 4 & Win 2000 ( WinNt 5.0 )
[*] Pavel Cisar <pcisar(zv)aktis(tec)cz> - 11.5.1999 09:01:01
Haj hou!
Jednak se prodava Beta3-Release candidate 1 (ale nevim, zda i u nas) a
druhak je to v kazdem MSDN prof. uz asi od lonskeho podzimka (a v kazdem
update je nova varze).
>Kde jsi vzal Win2000 ?
>Jaro
checkbox - Enter m�sto Tab
[*] Bardon <ineqsw(zv)ova.pvtnet(tec)cz> - 11.5.1999 09:12:36
Prosim, poradte mi nejaky chytry zpusob, jak to udelat, aby se mi pro stisku klavesy Enter na checkboxu choval formular tak, jako kdybych stisknul tabulator - to jest posunul se na dalsi polozku. Zkousel jsem OnKeyDown a OnKeyPress a vubec se mi to tam nedostane, asi to odchytava uz formular.
Diky predem
QReport TQRDBText a AutoStretch
[*] V�clav Nov�k����)^����hq�'z�� - 11.5.1999 09:45:39
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
Vazeni kolegove,
znate nekdo tento problem a jak ho vyresit ?
Mam na QReportu v bandu Detail komponentu TQRDBText pro tisk memo pole
z MSSQL. Komponenta ma vlastnost AutoStretch, protoze text byva promenlive
delky 1 - 5 radek. Funguje to takto : Na Preview vidim text vzdy spravne v cele
delce, po vytisteni se nekdy ztrati posledni radek. Proc je rozdil mezi Preview a
Print ?
Dekuji za radu jak toto vyresit
Vaclav Novak
Problem s ToolHelp funkcemi na NT
[*] Milan Sorm <xsorm(zv)informatics.muni(tec)cz> - 11.5.1999 10:01:10
Sun, May 09, 1999 ve 10:56:52PM +0200 Petr Vones napsal:
# Milan Sorm wrote:
# > Nevite, jak napsat program, ktery by pracoval pod oboji, tj. kde v NT najit
# > ty funkce ?
#
# Ahoj,
#
# Toolhelp funkce nejsou implementovany v NT4, podle MSDN vsak maji byt v
# NT5. Misto nich lze v NT4 pouzit knihovnu PSAPI, ale neobsahuji presne
# tytez funkce.
#
Diky. A nevis nahodou, jestli lze rozpoznat, jestli bezim pod NT/ci nebezim
pod NT ? Mam to resit vyjimkou, ze kdyz selze ToolHelp, nasadim neco jineho?
diky moc,
m.s.Instalator - zadarmo
[*] Zdenek Bohm <bohm(zv)gacc(tec)cz> - 11.5.1999 11:03:26
Zdar vsem,
par poznamek k instalatoru. Vypada to dobre, bohuzel neni to pouzitelne, tak jak to je, ale je to
treba trochu upravit (tak treba - (zv)NAZEV1 - je celkem kratky, takze delsi nazev programu se tam
proste nevejde).
Zacnu tedy kompilovat - Delphi (v1.0) nenajde komponentu TPlovouciPanel + nekolik dalsich, bohuzel
neni soucasti zdrojaku, kde ji najdu?
Poznamka 2 - soucasti programu je popis v DOC. Podrobny a dobre vysvetlujici. Bohuzel vsak jenom
funkci programu, pokud ho clovek vezme tak jak byl napsan a prelozen, tak mu staci. Pokud se ale
rozhodnete program nejak upravovat, musite se spolehnout pouze na to, ze pochopite, co tim autor
myslel a kde to vzal (TPlovouciPanel...)
Zdar Zdenek
P.S. Konecne hodnoceni - doporucuju vsem, kteri delaji nejake aplikace, ktere je potreba nejak
reprezentativne nainstalovat a nechce se jim travit svuj cas navrhem vlastnich instalaku. Uvital
bych jen, kdyby autor podrobnej popsal co a odkud je potreba sehnat (to jako ktere komponenty),
popr. to tam rovnou pribalil.checkbox - Enter misto Tab
[*] Martin Lasevic <vyvoj(zv)atlascon(tec)cz> - 11.5.1999 11:03:30
Ahoj Vlastiku,
zkus nastavit na formu property KeyPreview na False a pak ty klavesy primo
odchytit na
OnKeyPress a OnKeyDown na komponenti. Mozna by to mohlo zabrat.
Preji hezky den .....
============================================
ML Software - Martin Lasevic
Budovatelska 459,
708 00 Ostrava - Poruba
tel.: + 420 (69) 691 85 11, 0603 338 765
mailto:ml_software(zv)email(tec)cz
http://www.mujweb(tec)cz/www/ml_software
ICQ:33630882
============================================
-----Puvodni zprava-----
Od: Bardon
Odeslano: 11. kvitna 1999 9:13
Komu: 'delphi-l(zv)fwd(tec)cz'
Poedmit: checkbox - Enter misto Tab
Prosim, poradte mi nejaky chytry zpusob, jak to udelat, aby se mi pro
stisku klavesy Enter na checkboxu choval formular tak, jako kdybych
stisknul tabulator - to jest posunul se na dalsi polozku. Zkousel jsem
OnKeyDown a OnKeyPress a vubec se mi to tam nedostane, asi to odchytava uz
formular.
Diky predem
QReport TQRDBText a AutoStretch - upresneni
[*] V�clav Nov�k����)^����hq�'z�� - 11.5.1999 11:18:21
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
Vazeni kolegove,
navazuji na predchozi dotaz stejneho Predmetu, je to malinko jinak -
ten TQRDBText jsem obvinil krive, on to dela dobre, ten co blbne a
urezava obcas posledni radek, ale az na tiskarne, je TQRDBRichText.
Ted bych rekl, ze je to chyba QuickReportu. Co Vy na to ?
Vaclav Novak
checkbox - Enter m�sto Tab
[*] Polak Jiri <Jiri.Polak(zv)tconsult(tec)cz> - 11.5.1999 11:19:27
> -----Original Message-----
> From: /O=INEQ SOFTWARE
> S.R.O./OU=INEQ_SW/CN=RECIPIENTS/CN=BARDON On Behalf Of Bardon
> Sent: Tuesday, May 11, 1999 9:13 AM
> To: 'delphi-l(zv)fwd(tec)cz'
> Subject: checkbox - Enter m�sto Tab
>
> Prosim, poradte mi nejaky chytry zpusob, jak to udelat, aby
> se mi pro stisku klavesy Enter na checkboxu choval formular
> tak, jako kdybych stisknul tabulator - to jest posunul se na
> dalsi polozku. Zkousel jsem OnKeyDown a OnKeyPress a vubec se
> mi to tam nedostane, asi to odchytava uz formular.
>
> Diky predem
Ja odchytavam enter v KeyUp na DBGridu a v pohode to funguje.
Napadaji mne tri otazky:
Neodchytava to formular proto, ze tam mas treba default button?
Co takhle dat tam default button a v jeho OnClick si to ridit?
Musel bys ale pamatovat na naposledy focusovany control,
v tom clicku by uz byl focusovan Button.
V pripade Delphi 4 bych se zkusil podivat na Action -
- nevim, jestli muze mit hotkey Enter
Jura
----------
Jiri Polak
e-mail:jura.polak(zv)email(tec)cz
jiri.polak(zv)tconsult(tec)cz
web :http://freeweb.coco(tec)cz/jpolak
----------
The only good bug, is a dead bug!Delphi 4 & Win 2000 ( WinNt 5.0 )
[*] Zdenek Drvota <drvota(zv)zds(tec)cz> - 11.5.1999 10:58:47
> From: "Jaro" <jaro(zv)sinea(tec)cz>
> Kde jsi vzal Win2000 ?
> Jaro
Microsoft rozdaval CD Windows NT 5 server Beta 2 En
(pozdeji prejmenovany na 2000) zcela zdarma (!)
a legalne (!) v zime VAPum, bylo mozno si o ne napsat
na Softmail.
Pokud vim, nyni je mozne si objednat Beta 3 CD
(za nejake $$) z USA pres www.microsoft.com,
nebo dokonce primo stahnout :-(
O distribuci u nas jsem zatim konkretni info
neslysel. Vi nekdo jiny?
-----------------------------------------------
Ing. Zdenek Drvota e-mail:drvota(zv)zds(tec)cz
director
ZDS, spol. s r.o.
Hronovicka 708 tel:+420-40-6613756
530 02 Pardubice fax:+420-40-6613756
Czech Republic http://www.zds(tec)cz
e-mail:info(zv)zds(tec)cz
Internet proti monopolu http://www.bojkot(tec)cz
SQL- docasne tabulky
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 11.5.1999 11:59:23
Polak Jiri wrote:
> > [Honza]
> > To dozajista ano. Ulozene procedury mam taky rad.
> > Ale pokud si vzpominam, tak tam slo o to, ze si nekdo do
> > pomocnych tabulek uklada seznam chyb pri validaci zaznamu.
>
> Podle Tve reakce soudim, ze predpokladas validace na klientovi.
> Asi nemas zkusenosti s rozsahlymi C/S aplikacemi - ono by
> skolitelum neskodilo nejaky cas programovat :-)
Ja napriklad predevsim programuji, a vedle toho take skolim. Jenze
pak to dopada treba tak, ze prijde na skoleni byvaly ucitel a ma
hromady stiznosti na pedagogickou uroven lektora. :-))
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
nepovinny PARAMETR
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 11.5.1999 11:59:22
Petr Vones wrote:
> > Jenze to je trochu neco jineho. Tato deklarace (tedy s var) dosud
> > neni v Pascalu mozna. Je to s podivem, protoze nekde uvnitr to
> > mozne evidentne je. Ale zatim se Inprise neuracil zpristupnit
> > takovehle deklarace i nam.
>
> Ono "funkce" jako BlockRead, Read, Write, Str apod. nejsou vlastne uplne
> ciste funkce, ale spise neco mezi funkci a prikazem jazyka. Jde to ale
> resit pomoci pretezovani, napriklad:
Jiste, ale az od D4. Ovsem nelze tak rozumne resit neco jako
Write, kde mohou byt libovolne parametry v temer libovolnem
poctu. :-)
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Delphi 4 & Win 2000 ( WinNt 5.0 )
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 11.5.1999 11:59:22
Jaro wrote:
> Kde jsi vzal Win2000 ?
Beta verze se poflakuji leckdes, ja jsem si jednu napriklad prinesl
ze seminare v Belohradu.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Otoceni labelu
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 11.5.1999 11:59:22
Pavel Malinsk� wrote:
> nevzpominate si, prosim, nekdo, jak
> otocit label napr o 90 stupnu. Pripadne text
> vypsat pomoci DrawText nebo TextOut.
> Potreboval bych to ve dvou stylech
> a/ cely text otocit o 90 stupnu
> b/ vypsat text po jednotlivych znacich
> pod sebou (de facto zalomeni za kazdym znakem)
> Mam dojem, ze uz o tom zde byla rec,
> ale nemuzu to najit...:-(
Takto maluji text do elipsy, takze si to preber:
procedure TDonutForm.TitleBar(Act: Boolean);
var
TF : TLogFont;
N, X, Y : Integer;
W2,H2:integer;
Prus:TPrusecik;
Fi,FiTec:double;
begin
if (CapY=0) or not fCaptionVisible then Exit;
// Nevypisuje se v dob� n�vrhu
if not (csDesigning in ComponentState) then
with Canvas do
begin
Brush.Style := bsSolid;
Brush.Color := TitlColors[Act];
// Nastaven� kresl�c� oblasti
PaintRgn(Handle, rTitleBar);
Brush.Color := TitlColors[Act];
Font.Name := 'Arial';
Font.Size := 12;
Font.Color := TxtColors[Act];
Font.Style := [fsBold];
// Zji�t�n� informac� o fontu
GetObject(Font.Handle, SizeOf(TLogFont), (zv)TF);
W2:=(Width div 2);
H2:=(Height div 2);
Fi:=H2/(-W2+5);
for N:=1 to Length(Caption) do
begin
// Pr�se��k na velk� elipse
Prus:=GetPrusecik(W2-3, H2-3, FI);
X:=W2+Prus.X;
Y:=H2-Prus.Y;
// Sm�rnice kolm� na te�nu v bod� velk�ho pr�se��ku
FiTec:=(Sqr(H2-3)*Prus.X) / (Sqr(W2-3)*Prus.Y);
// Nastaven� sklonu znaku
TF.lfEscapement:=Round(ArcTan(-FiTec) * 1800 / pi);
Font.Handle:=CreateFontIndirect(TF);
// Vyps�n� znaku
TextOut(X, Y, Caption[N]);
// Pr�se��k na mal� elipse, z�klad pro polohu dal��ho
// znaku
Prus:=GetPrusecik(W2-CapY, H2-CapY, Fi);
X:=Prus.X+Round(Cos(ArcTan(1/Fi)) *
TextWidth(Caption[N]));
Y:=Prus.Y-Round(Sin(ArcTan(1/Fi)) *
TextWidth(Caption[N]));
Fi:=Y/X;
end;
Font.Name := 'MS Sans Serif';
Font.Size := 8;
Font.Color := clWindowText;
Font.Style := [];
end;
end;
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz, localizator(zv)localizator.com
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
nepovinny PARAMETR
[*] Mal� Dobromil <dodo(zv)rak.pr.ds.mfcr(tec)cz> - 11.5.1999 12:19:59
Takze, jaxem slibil, tak posilam citaci z knihy Mistrovsvi
v Delphi 3.
Cituji :
Otevrene pole typu array of const
Syntakticka konstrukce typu array of const umoznuje snadne
predavani otevreneho pole hodnot vice nez jednoho typu,
a to typove relativne bezpecnym zpusobem.
const param1 : array of const; //sem se da predat temer cokoliv
Pomoci tohoto mehanismu muzeme nyni nadeklarovat rutinu,
ktera prijima LIBOVOLNY POCET POLOZEK RUZNEHO TYPU.
Kompilator totiz konstrukci array of const vzdy zpracovava
ekvivalentne poli typu array of TVarRec. Typ TVarRec je
specialni typ zaznamu, ktery definuje jednotka system.
Uvnitr samotne rutiny se pak k jednotlivym prvkum pole typu
array of const pristupuje pomoci typu TVarRec. Jednoduchy
typ kazdeho z parametru, ktere se v poli predavaji, zjistite
z polozky TVarRec.VType
Toliko citace. Nevim, jak dalece Ti toto pomuze vyresit
Tvuj problem, ale alespon ocen, ze jsem se snazil :-)
Doufam, ze me ted nakladatel zazaluje za poruseni
autorskeho zakona.
Dobra.
> > > zajimalo by me, jak se da nadeklarovat procedura ci funkce s
> nepovinnym
> > > parametrem. Mam tim namysli napr. proceduru
> > >
> > > procedure BlockRead(var F: File; var Buf; Count: Integer [; var
> > > AmtTransferred: Integer]);
> > >
> > > Zde je tedy promenna AmtTransferred nepovinna. Ale nevim, jak
> > > nadeklarovat svoji vlastni proceduru. Nelze pouzit hranate
> zavorky,
> > > nejde to zkompilovat, takze jak na to ? V Jave se pouzivaji tzv.
> > > pretezovane funkce, je neco podobneho v Delphi ?
>
> checkbox- enter misto tab
[*] M�ra Tom� <tmara(zv)itsys(tec)cz> - 11.5.1999 12:38:53
Do "OnKeyPress" das: if key=#13 then
Nazev_Pole.SetFocus;
P.S. akorat je na pytel to pouzivat v "Memo"...
ByE... InitiateSystemShutdown
[*] hrenovcik(zv)ns.basl.sk - 11.5.1999 13:22:10
Cavte !
Neviete niekto preco mi to vyhadzuje hlasku -
"Tato funkce je pristupna pouze v rezimu Win32 "
Mam W95 4.00.950 a D3.
InitiateSystemShutdown(nil,nil,0,True,True);
ShowMessage(SysErrorMessage(GetLastError));
Diky.
Peter