Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Prestupne roky (was RE: Vypocet dna)
[*] Radek Docekal <proj(zv)zvt.csas(tec)cz> - 28.7.1998 08:22:30
No protoze to je _cca_ 365.25, kazdych 100 roku se to musi korigovat (neni
prestupny rok) a protoze ani toto neni uplne presne, jeste kazdych 400 zase
_je_ prestupny.
S pozdravem
Radek Docekal
<proj(zv)zvt.csas(tec)cz> ICQ: 9008367
-----Original Message-----
From: Dobromil Mal� <Dobromil.Maly(zv)rak.pr.ds.mfcr(tec)cz>
To: 'DELPHI Distribution List' <delphi(zv)pinknet(tec)cz>
Date: 28. �ervence 1998 8:08
Subject: RE: Prestupne roky (was RE: Vypocet dna)
No , jsem rad, ze muj "odhad" je spravny, ale rok preci trva 365,25 dnu
(cca) a proto, aby se ty ctvrtiny "vyrovnaly", je kazdy ctvrty rok delsi o
jeden cely den. Tak proc tomu tak neni i v roce 1900, 1800 (?) ...
Zkusim se na to zeptat nejakych odborniku ...
(mozna, ale, ze uz je toto tema trochu off topic)
----------
Od: Zdenek Prantl[SMTP:prantl(zv)ptc.pvt(tec)cz]
Odesl�no: 27. �ervence 1998 9:56
Komu: 'DELPHI Distribution List'
P�edm�t: Prestupne roky (was RE: Vypocet dna)
> -----Original Message-----
> From: dodo(zv)rak.pr.ds.mfcr(tec)cz [SMTP:dodo(zv)rak.pr.ds.mfcr(tec)cz] On Behalf Of
> Dobromil Mal�
> Sent: Monday, July 27, 1998 8:22 AM
> Subject: RE: Vypocet dna
>
> Kdyz uz mluvime o datumech, je znamo (alespon me), ze je kazdy ctvrty rok
> prestupny, ale podle funkci v Delphi, a uz jsem to zahledl i jinde je napr
> rok 1896 normalne prestupny, rok 1904 taky, ale rok 1900 uz ne, vite o tom
> nekdo neco blizsiho ???
>
> V podstate se to chova tak, ze je prestupny kazdy rok ktery splnuje (rok
mod 400=0) a (rok
> mod 4=0) ale vyjimkou tech, ktere jsou (rok mod 100=0), tedy 100,200,300,
> 500,600,700, 900,1000,1100, 1300, ....
Uhodil jsi hlavickou o hrebicek. 8-). Algoritmus pro vypocet prestupneho
roku
je nasledovny:
1) rok je prestupny pokud letopocet je delitelny ctyrmi (s vyjimkou bodu 2)
2) pokud je letopocet delitelny 100 (a samozrejme take 4), tak rok neni
prestupny (s vyjimkou bodu 3)
3) pokud je letopocet delitelny 400 (a samozrejme take 4), tak rok je
prestupny.
Uz bohuzel nevim, kde jsem to vycetl, ale je to tak.
Zd.Prestupne roky (was RE: Vypocet dna)
[*] Pavel <kopr(zv)applet(tec)cz> - 28.7.1998 08:47:26
I rok 2000 by m�l b�t p�estupn�.
Ale ve v�ech opera�n�ch syst�mech je chyba a vykazuje v roce 2000 u �horu 29 dn�.
Je to ale chyba, proto�e v letech 1900, 2000 atd. je vyj�mka.
Je to jak�si storo�n� vyrovn�n� t�ch p�esdtupn�ch rok�
�au Pavel
----------
Odes�latel: Dobromil Mal� <Dobromil.Maly(zv)rak.pr.ds.mfcr(tec)cz>
Komu: 'DELPHI Distribution List' <delphi(zv)pinknet(tec)cz>
P�edm�t: RE: Prestupne roky (was RE: Vypocet dna)
Datum: 28. �ervence 1998 9:59
No , jsem rad, ze muj "odhad" je spravny, ale rok preci trva 365,25 dnu (cca) a proto, aby se ty ctvrtiny "vyrovnaly", je kazdy ctvrty rok delsi o jeden cely den. Tak proc tomu tak neni i v roce 1900, 1800 (?) ...
Zkusim se na to zeptat nejakych odborniku ...
(mozna, ale, ze uz je toto tema trochu off topic)
----------
Od: Zdenek Prantl[SMTP:prantl(zv)ptc.pvt(tec)cz]
Odesl�no: 27. �ervence 1998 9:56
Komu: 'DELPHI Distribution List'
P�edm�t: Prestupne roky (was RE: Vypocet dna)
> -----Original Message-----
> From: dodo(zv)rak.pr.ds.mfcr(tec)cz [SMTP:dodo(zv)rak.pr.ds.mfcr(tec)cz] On Behalf Of
> Dobromil Mal�
> Sent: Monday, July 27, 1998 8:22 AM
> Subject: RE: Vypocet dna
>
> Kdyz uz mluvime o datumech, je znamo (alespon me), ze je kazdy ctvrty rok
> prestupny, ale podle funkci v Delphi, a uz jsem to zahledl i jinde je napr
> rok 1896 normalne prestupny, rok 1904 taky, ale rok 1900 uz ne, vite o tom
> nekdo neco blizsiho ???
>
> V podstate se to chova tak, ze je prestupny kazdy rok ktery splnuje (rok
mod 400=0) a (rok
> mod 4=0) ale vyjimkou tech, ktere jsou (rok mod 100=0), tedy 100,200,300,
> 500,600,700, 900,1000,1100, 1300, ....
Uhodil jsi hlavickou o hrebicek. 8-). Algoritmus pro vypocet prestupneho roku
je nasledovny:
1) rok je prestupny pokud letopocet je delitelny ctyrmi (s vyjimkou bodu 2)
2) pokud je letopocet delitelny 100 (a samozrejme take 4), tak rok neni
prestupny (s vyjimkou bodu 3)
3) pokud je letopocet delitelny 400 (a samozrejme take 4), tak rok je
prestupny.
Uz bohuzel nevim, kde jsem to vycetl, ale je to tak.
Zd.
----------
Prestupne roky (was RE: Vypocet dna)
[*] Marcel Telka <marcel(zv)vadium.sk> - 28.7.1998 08:58:52
Pretoze rok netrva 365,25 dni ale len <priblizne> 365,25 dni.
Myslim, ze presnejsie je to 365,24?? dni.
Ak by bol prestupny kazdy stvrty rok, potom by za 100 rokov bolo 36525 dni.
Ale kedze za 100 rokov musi byt 36524,?? dni, tak kazdych 100 rokov
nie je prestupny rok.
Ale kedze je tam to ??, tak to vychadza, ze este sa to musi upravit kazdych
400 rokov.
(Tym, ze vtedy JE prestupny rok). Po takychto zlozitych upravach je chyba
(pretoze rok
nema presne 365,2425 dni) taka mala, ze je v sucastnosti zanedbatelna.
Uvidime, co si o velkosti tejto chyby budu mysliet ludia o tisic rokov, ked
sa
vsetko bude merat s ovela vacsou presnostou :-)
Ahoj
M.T.
-----Original Message-----
From: Dobromil Mal� <Dobromil.Maly(zv)rak.pr.ds.mfcr(tec)cz>
To: 'DELPHI Distribution List' <delphi(zv)pinknet(tec)cz>
Date: 28. j�l 1998 9:43
Subject: RE: Prestupne roky (was RE: Vypocet dna)
No , jsem rad, ze muj "odhad" je spravny, ale rok preci trva 365,25 dnu
(cca) a proto, aby se ty ctvrtiny "vyrovnaly", je kazdy ctvrty rok delsi o
jeden cely den. Tak proc tomu tak neni i v roce 1900, 1800 (?) ...
Zkusim se na to zeptat nejakych odborniku ...
(mozna, ale, ze uz je toto tema trochu off topic)
----------
Od: Zdenek Prantl[SMTP:prantl(zv)ptc.pvt(tec)cz]
Odesl�no: 27. �ervence 1998 9:56
Komu: 'DELPHI Distribution List'
P�edm�t: Prestupne roky (was RE: Vypocet dna)
> -----Original Message-----
> From: dodo(zv)rak.pr.ds.mfcr(tec)cz [SMTP:dodo(zv)rak.pr.ds.mfcr(tec)cz] On Behalf Of
> Dobromil Mal�
> Sent: Monday, July 27, 1998 8:22 AM
> Subject: RE: Vypocet dna
>
> Kdyz uz mluvime o datumech, je znamo (alespon me), ze je kazdy ctvrty rok
> prestupny, ale podle funkci v Delphi, a uz jsem to zahledl i jinde je napr
> rok 1896 normalne prestupny, rok 1904 taky, ale rok 1900 uz ne, vite o tom
> nekdo neco blizsiho ???
>
> V podstate se to chova tak, ze je prestupny kazdy rok ktery splnuje (rok
mod 400=0) a (rok
> mod 4=0) ale vyjimkou tech, ktere jsou (rok mod 100=0), tedy 100,200,300,
> 500,600,700, 900,1000,1100, 1300, ....
Uhodil jsi hlavickou o hrebicek. 8-). Algoritmus pro vypocet prestupneho
roku
je nasledovny:
1) rok je prestupny pokud letopocet je delitelny ctyrmi (s vyjimkou bodu 2)
2) pokud je letopocet delitelny 100 (a samozrejme take 4), tak rok neni
prestupny (s vyjimkou bodu 3)
3) pokud je letopocet delitelny 400 (a samozrejme take 4), tak rok je
prestupny.
Uz bohuzel nevim, kde jsem to vycetl, ale je to tak.
Zd.RX Library ???
[*] Marcel Telka <marcel(zv)vadium.sk> - 28.7.1998 09:01:27
Najlepsie asi bude pozriet sa priamo na rx.demo.ru,
presnejsie na http://rx.demo.ru/files/index.html
Ahoj
M.T.
-----Original Message-----
From: Ing. Miroslav Ond��ek <bonnel(zv)telecom(tec)cz>
To: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
Date: 28. j�l 1998 8:52
Subject: Re: RX Library ???>Sorry, ale na tomto FTP serveru neni zcela nic. Nebo jsem slepy ?
>
>Mira
>
>-----P�vodn� zpr�va-----
>Od: RADIK(zv)p15.monet(tec)cz <RADIK(zv)p15.monet(tec)cz>
>Komu: delphi(zv)pinknet(tec)cz <delphi(zv)pinknet(tec)cz>
>Datum: 27. �ervence 1998 17:58
>P�edm�t: RE: RX Library ???
>
>
>ftp://ftp.officeauto.com/pub/rxlib/rxhlp10.zip
>
>Ales
>----------
>Od: Petr Vales
>Komu: 'delphi(zv)pinknet(tec)cz'
>P�edm�t: RX Library ???
>Datum: 27. �ervenec 1998 13:14
>
>Ahoj vsichni,
>
>nevite prosim negdo, kde bych nasel nejakej
>help a podrobnej popis funkci k RX library ???
>
>Diik
>Vypocet dna
[*] Ing. Jaroslav Jahoda <Jaroslav.Jahoda(zv)lesprojekt(tec)cz> - 28.7.1998 09:02:22
> >> Ano, kazdy stvrty rok je priestupnym, ale kazdy 400-sty nie,
> teda
> >> napr. rok 2000 nebude priestupny. Aspon podla mojich
> astronomickych
> >> znalosti ...
>
> >Ale kdepak, rok 2000 BUDE prestupny, protoze kazdy 4. JE
> prestupny,
> >ovsem kazdy 100. NENI prestupny, ale zase kazdy 400. JE
> prestupny...
>
> Souhlasim. Pokud jsou fce od Boland� skutecne spravne, tak
> kutecne
>
> LeapYear:=( (Year mod 4=0) and (Year mod 100<>0) ) or (Year mod
> 400=0)
>
> a dikky panu Mgr. Petru Kellnerovi uz vim i proc.
>
> Howg . . .
>
Nesouhlasim, ty roky jsou 4, 100, a 4000 a ne jak
uvadite 400. Takze rok 2000 nebude prestupny. Vsak uvidite.
Howg.
Ing. Jaroslav Jahoda
Lesprojekt-Sluzby s.r.o.
Nabrezni 1326
Brandys nad Labem 250 01
tel. +420 202 800152, fax. +420 202 800161
email: jahoda(zv)lesprojekt(tec)cz
http://www.lesprojekt(tec)cz/
testy databazi - http://www.lesprojekt(tec)cz/delphi/Vypocet dna
[*] Marcel Telka <marcel(zv)vadium.sk> - 28.7.1998 09:09:45
>>Ano, kazdy stvrty rok je priestupnym, ale kazdy 400-sty nie, teda
>>napr. rok 2000 nebude priestupny. Aspon podla mojich astronomickych
>>znalosti ...
>
>
>Mas to pomotany. Prave rok 2000 prestupny bude.
>
>Viz nize. To nas ucili na VSDS v Ziline (ale to uz je hodne dlouho)
>
>// Funkce zjist�, zda je zadan� rok prestupn� ci nikoliv
>
>function LongYear(Year: word): boolean;
>begin
> if (Year / 100) = Int(Year / 100) then
> begin
> if (Year / 400) = Int(Year / 400) then
> Result := True
> else
> Result := False;
> end
> else
> if (Year / 4) = Int(Year / 4) then
> Result := True
> else
> Result := False;
>end;
Musim priznat, ze ma tento styl programovania vcelku zaujal :-).
Co tak nahradit konstrukciu:
if A = B then
Result := True
else
Result := False;
konstrukciou:
Result := A = B;
pripadne (aby to bolo jasnejsie):
Result := (A = B);
Alebo to cele zapisat radsej takto (uz som to sem pisal):
function LongYear(Year: Word): Boolean;
begin
Result := ((Year mod 4 = 0) and (Year mod 100 <> 0)) or (Year mod 400 =
0);
end;
Ahoj
M.T.
>
>
>Bye Ludan
>ludan(zv)bluerose(tec)cz
>
>Instalace RX
[*] Hojda Pavel <hojda(zv)mmp.plzen-city(tec)cz> - 28.7.1998 09:36:43
Cau,
nevite nekdo, proc po naistalovani RX komponent presne podle
navodu a po novem spusteni D3 se komponenty neukazou a vypise to
nasledujici chybovou hlasku :
Can't load package c:\....\Dclrxctl.dpl (Dclrxdb.dpl, Dclrxtls.dpl).
Tyto soubory tam vsak jsou.
Pavel
Vypocet dna
[*] Dobromil Mal� <Dobromil.Maly(zv)rak.pr.ds.mfcr(tec)cz> - 28.7.1998 09:40:39
Ale rok 1600 BYL p�estupn�, alespon podle fc� Borlandu.
----------
Od: Ing. Jaroslav Jahoda[SMTP:Jaroslav.Jahoda(zv)lesprojekt(tec)cz]
Odesl�no: 28. �ervence 1998 9:02
Komu: DELPHI Distribution List
P�edm�t: RE: Vypocet dna
> >> Ano, kazdy stvrty rok je priestupnym, ale kazdy 400-sty nie,
> teda
> >> napr. rok 2000 nebude priestupny. Aspon podla mojich
> astronomickych
> >> znalosti ...
>
> >Ale kdepak, rok 2000 BUDE prestupny, protoze kazdy 4. JE
> prestupny,
> >ovsem kazdy 100. NENI prestupny, ale zase kazdy 400. JE
> prestupny...
>
> Souhlasim. Pokud jsou fce od Boland� skutecne spravne, tak
> kutecne
>
> LeapYear:=( (Year mod 4=0) and (Year mod 100<>0) ) or (Year mod
> 400=0)
>
> a dikky panu Mgr. Petru Kellnerovi uz vim i proc.
>
> Howg . . .
>
Nesouhlasim, ty roky jsou 4, 100, a 4000 a ne jak
uvadite 400. Takze rok 2000 nebude prestupny. Vsak uvidite.
Howg.
Ing. Jaroslav Jahoda
Lesprojekt-Sluzby s.r.o.
Nabrezni 1326
Brandys nad Labem 250 01
tel. +420 202 800152, fax. +420 202 800161
email: jahoda(zv)lesprojekt(tec)cz
http://www.lesprojekt(tec)cz/
testy databazi - http://www.lesprojekt(tec)cz/delphi/Vypocet dna
[*] Mgr. Petr Kellner <kellner(zv)praktik(tec)cz> - 28.7.1998 09:41:47
>Ano, kazdy stvrty rok je priestupnym, ale kazdy 400-sty nie, teda
>napr. rok 2000 nebude priestupny. Aspon podla mojich astronomickych
>znalosti ...
s temi stymi letopocty je to presne obracene, XX00 je prestupny je-li delitelny 400, tedy 2000 bude prestupny, viz muj predchozi prispevek
Mgr. Petr Kellner
Praktik SW, spol. s r.o. Dom� : Na Z�kop� 27
V. Outraty 7, Prost�jov, 796 00 Olomouc, 773 00
Tel : 0508/365583 Tel : 068/5314129
Fax : 0508/365512 Tel : 0603/457623
e-mail: kellner(zv)praktik(tec)cz pekol(zv)praktik(tec)cz
Web: www.praktik(tec)cz
e-mail pro velmi kr�tk� zpr�vy: kellner.mobil(zv)sms.paegas(tec)cz
Omezeni SQL ?
[*] Jiri Sladek <chmelar(zv)oasanet(tec)cz> - 28.7.1998 09:50:02
Zdravim All.
Shanim informace o syntaxi a omezenich jazyka SQL. Myslim toho SQL, ktere se pouziva v komponente TQuery (dotaz do *.DB souboru). Delam v Delphi 1.
Konkretne potrebuju vedet:
1. Jak udelat LEFT JOIN - pro prevzeti udaje z ciselniku, treba nazvu partnera
ale - kdyz chybi partner v ciselniku, aby nechybela veta ve vystupu
ale - kdyz je 'duplicita v ciselniku', aby byla jen jedna veta ve vystupu (pripad - dodavka chmele ma vice laboratornich vysledku, brat jen prvni nebo posledni vysledek)
ale - aby slo udelat LEFT JOIN kaskadove, treba RadFakt -> HlavFakt -> CiselnikOdberatelu
ale - aby sly udelat treba tri LEFT JOINY do jednoho souboru a nedelalo to kraviny. Priklad -
Faktura -> NazOdberatele
Faktura -> NazPrijemce
Faktura -> NazKonecnehoPrijemce
2. Existuje nejaky popis omezeni SQL ?
Kdyz jsem vytvoril nejaky slozitejsi dotaz, treba vyse zminene tri LEFT JOINY paralelne, tak to hlasilo nejake blaboly, ze je nejaky chybny obraz, nebo co.
Kdyz napisu trochu delsi vyraz, tak taky dostanu nejake debilni chybove hlaseni.
3. Kdyz delam v SQL 'pocitane udaje', muzu tam pouzit nejake vetveni, rozhodovani apod ?
Neco jako prikaz CASE v jinych jazycich ?
4. Da se dosahnout toho, aby vyraz nula deleno nulou vratil nulu a ne NULL ?
Priklad: 0 / 0 + 10 / 1 = NULL
Mne by se libilo spis 0 / 0 + 10 / 1 = 10
Pozn. Vim, ze deleni nulou nema smysl, nulou nelze delit. Jenomze - jsou pripady, kdy klesne mnozstvi nektereho zbozi na sklade na nulu, a ja pocitam, rekneme, prumernou cenu. Pocitam tedy (NulovaCena / NuloveMnozstvi) a s vysledkem delam dalsi operace. Treba pricitam dalsi (nenulove) zbozi apod.
Jo, neslo by to deleni nejak zapodminkovat ? Neco jako:
if Mnozstvi=0 then Vysledek :=0 else Vysledek:=Cena/Mnozstvi
Diky. Jirka
chmelar(zv)oasanet(tec)cz
Vypocet dna
[*] Zdenek Prantl <prantl(zv)ptc.pvt(tec)cz> - 28.7.1998 09:54:53
> -----Original Message-----
> From: Ing. Jaroslav Jahoda [SMTP:Jaroslav.Jahoda(zv)lesprojekt(tec)cz]
> Sent: Tuesday, July 28, 1998 9:02 AM
> Subject: RE: Vypocet dna
>
> Nesouhlasim, ty roky jsou 4, 100, a 4000 a ne jak
> uvadite 400. Takze rok 2000 nebude prestupny. Vsak uvidite.
>
> Howg.
>
> Ing. Jaroslav Jahoda
TRY
A neuvidim, neuvidim ... 8-)
Klidne se vsadim o nejakou dobrou flasku, ze 2000 je prestupny rok.
EXCEPT
ON FlameWar DO
SendMailToNull;
END
Zd.Instalace RX
[*] Zdenek Prantl <prantl(zv)ptc.pvt(tec)cz> - 28.7.1998 10:00:35
> -----Original Message-----
> From: Hojda Pavel [SMTP:hojda(zv)mmp.plzen-city(tec)cz]
> Sent: Tuesday, July 28, 1998 9:37 AM
> Subject: Instalace RX
>
> Cau,
> nevite nekdo, proc po naistalovani RX komponent presne podle
> navodu a po novem spusteni D3 se komponenty neukazou a vypise to
> nasledujici chybovou hlasku :
> Can't load package c:\....\Dclrxctl.dpl (Dclrxdb.dpl, Dclrxtls.dpl).
> Tyto soubory tam vsak jsou.
>
> Pavel
Jiz tady bylo probirano. Je treba DPL soubory dat nekam, kde je najde system
(nejlepe do adresare WINDOWS, nebo do promenne PATH v AUTOEXEC.BAT uvest
cestu k nim). Ostatne je to popsane i read.me u RX library.
Zd. Vypocet dna
[*] Marek.Voldan(zv)iccc(tec)cz - 28.7.1998 10:00:21
> >> Ano, kazdy stvrty rok je priestupnym, ale kazdy 400-sty nie,
> teda
> >> napr. rok 2000 nebude priestupny. Aspon podla mojich
> astronomickych
> >> znalosti ...
>
> >Ale kdepak, rok 2000 BUDE prestupny, protoze kazdy 4. JE
> prestupny,
> >ovsem kazdy 100. NENI prestupny, ale zase kazdy 400. JE
> prestupny...
>
> Souhlasim. Pokud jsou fce od Boland? skutecne spravne, tak
> kutecne
>
> LeapYear:=( (Year mod 4=0) and (Year mod 100<>0) ) or (Year mod
> 400=0)
>
> a dikky panu Mgr. Petru Kellnerovi uz vim i proc.
>
> Howg . . .
>
Nesouhlasim, ty roky jsou 4, 100, a 4000 a ne jak
uvadite 400. Takze rok 2000 nebude prestupny. Vsak uvidite.
Howg.
Ing. Jaroslav Jahoda
Lesprojekt-Sluzby s.r.o.
Nabrezni 1326
Brandys nad Labem 250 01
tel. +420 202 800152, fax. +420 202 800161
email: jahoda(zv)lesprojekt(tec)cz
http://www.lesprojekt(tec)cz/
testy databazi - http://www.lesprojekt(tec)cz/delphi/
Instalace RX
[*] Marek.Voldan(zv)iccc(tec)cz - 28.7.1998 10:00:25
Cau,
nevite nekdo, proc po naistalovani RX komponent presne podle
navodu a po novem spusteni D3 se komponenty neukazou a vypise to
nasledujici chybovou hlasku :
Can't load package c:\....\Dclrxctl.dpl (Dclrxdb.dpl, Dclrxtls.dpl).
Tyto soubory tam vsak jsou.
Pavel
Vypocet dna
[*] Marek.Voldan(zv)iccc(tec)cz - 28.7.1998 10:00:24
>>Ano, kazdy stvrty rok je priestupnym, ale kazdy 400-sty nie, teda
>>napr. rok 2000 nebude priestupny. Aspon podla mojich astronomickych
>>znalosti ...
>
>
>Mas to pomotany. Prave rok 2000 prestupny bude.
>
>Viz nize. To nas ucili na VSDS v Ziline (ale to uz je hodne dlouho)
>
>// Funkce zjist?, zda je zadan? rok prestupn? ci nikoliv
>
>function LongYear(Year: word): boolean;
>begin
> if (Year / 100) = Int(Year / 100) then
> begin
> if (Year / 400) = Int(Year / 400) then
> Result := True
> else
> Result := False;
> end
> else
> if (Year / 4) = Int(Year / 4) then
> Result := True
> else
> Result := False;
>end;
Musim priznat, ze ma tento styl programovania vcelku zaujal :-).
Co tak nahradit konstrukciu:
if A = B then
Result := True
else
Result := False;
konstrukciou:
Result := A = B;
pripadne (aby to bolo jasnejsie):
Result := (A = B);
Alebo to cele zapisat radsej takto (uz som to sem pisal):
function LongYear(Year: Word): Boolean;
begin
Result := ((Year mod 4 = 0) and (Year mod 100 <> 0)) or (Year mod 400 =
0);
end;
Ahoj
M.T.
>
>
>Bye Ludan
>ludan(zv)bluerose(tec)cz
>
>
Vypocet dna
[*] Marcel Telka <marcel(zv)vadium.sk> - 28.7.1998 10:00:21
Nesuhlasim. 4, 100 a 400.
Viz:
http://cis.bentley.edu/students/parry_ryan/javascript/LeapYear.HTML :
BEGIN
N <- 0 IF I mod 4="0" THEN N <- 1 ENDIF IF I mod 100="0" THEN N <- 0
ENDIF IF I mod 400="0" THEN N <- 1 ENDIF END
http://www.mssc.edu/pages/chfeb29/leapyear.htm :
...Because one year is actually 365.242199 days, ...
http://alfin.mine.utsunomiya-u.ac.jp/~niy/algo/l/leapYear.html :
int leapYear(int year)
{
return year % 4 == 0 && year % 100 != 0 || year % 400 == 0;
}
http://www.tincan.org/~steves/ewu/cscd225/leapyear.shtml : <<<< vela
dalsich odkazov
Leap=(!(Year%4)&&((Year%100)||!(Year%400)))..... atd ..... atd ..... (vyhladane cez altavistu <leapyear>)
Ahoj
M.T.
-----Original Message-----
From: Ing. Jaroslav Jahoda <Jaroslav.Jahoda(zv)lesprojekt(tec)cz>
To: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
Date: 28. j�l 1998 10:42
Subject: RE: Vypocet dna
>
>> >> Ano, kazdy stvrty rok je priestupnym, ale kazdy 400-sty nie,
>> teda
>> >> napr. rok 2000 nebude priestupny. Aspon podla mojich
>> astronomickych
>> >> znalosti ...
>>
>> >Ale kdepak, rok 2000 BUDE prestupny, protoze kazdy 4. JE
>> prestupny,
>> >ovsem kazdy 100. NENI prestupny, ale zase kazdy 400. JE
>> prestupny...
>>
>> Souhlasim. Pokud jsou fce od Boland� skutecne spravne, tak
>> kutecne
>>
>> LeapYear:=( (Year mod 4=0) and (Year mod 100<>0) ) or (Year mod
>> 400=0)
>>
>> a dikky panu Mgr. Petru Kellnerovi uz vim i proc.
>>
>> Howg . . .
>>
> Nesouhlasim, ty roky jsou 4, 100, a 4000 a ne jak
>uvadite 400. Takze rok 2000 nebude prestupny. Vsak uvidite.
>
> Howg.
>
>Ing. Jaroslav Jahoda
>Lesprojekt-Sluzby s.r.o.
>Nabrezni 1326
>Brandys nad Labem 250 01
>tel. +420 202 800152, fax. +420 202 800161
>email: jahoda(zv)lesprojekt(tec)cz
>http://www.lesprojekt(tec)cz/
>testy databazi - http://www.lesprojekt(tec)cz/delphi/
>Instalace RX
[*] Vojt�ch Albrecht <supervisor(zv)unicontrols(tec)cz> - 28.7.1998 10:04:07
Zkus nakopirovat soubory do BIN adresare
Vojtech Albrecht
supervisor(zv)unicontrols(tec)cz
----------
Od: Hojda Pavel[SMTP:hojda(zv)mmp.plzen-city(tec)cz]
Odesl�no: 28. �ervence 1998 9:36
Komu: 'delphi(zv)pinknet(tec)cz'
P�edm�t: Instalace RX
Cau,
nevite nekdo, proc po naistalovani RX komponent presne podle
navodu a po novem spusteni D3 se komponenty neukazou a vypise to
nasledujici chybovou hlasku :
Can't load package c:\....\Dclrxctl.dpl (Dclrxdb.dpl, Dclrxtls.dpl).
Tyto soubory tam vsak jsou.
Pavel
Vypocet dna
[*] Mgr. Petr Kellner <kellner(zv)praktik(tec)cz> - 28.7.1998 10:10:22
Nesouhlasim, ty roky jsou 4, 100, a 4000 a ne jak
uvadite 400. Takze rok 2000 nebude prestupny. Vsak uvidite.
Howg.
Ing. Jaroslav Jahoda
Lesprojekt-Sluzby s.r.o.
Nabrezni 1326
Brandys nad Labem 250 01
tel. +420 202 800152, fax. +420 202 800161
email: jahoda(zv)lesprojekt(tec)cz
Rad se s vami i vsadim, docela me bavi, kdyz se zakladne-skolni znalosti lidem z hlavy vykouri, navrhnete o co byste se vsadil, prijmu jakykoliv navrh. Mimochodem me napada, ze by se to mohlo poslat do TV prima jako namet pro Jirku Krampola. Prece "Nikdo neni dokonaly", ja bych napr. tezko daval dokupy vsech 7 padu.
Mgr. Petr Kellner
Praktik SW, spol. s r.o. Dom� : Na Z�kop� 27
V. Outraty 7, Prost�jov, 796 00 Olomouc, 773 00
Tel : 0508/365583 Tel : 068/5314129
Fax : 0508/365512 Tel : 0603/457623
e-mail: kellner(zv)praktik(tec)cz pekol(zv)praktik(tec)cz
Web: www.praktik(tec)cz
e-mail pro velmi kr�tk� zpr�vy: kellner.mobil(zv)sms.paegas(tec)cz
Prestupne roky (was RE: Vypocet dna)
[*] Mgr. Petr Kellner <kellner(zv)praktik(tec)cz> - 28.7.1998 10:32:20
-----P�vodn� zpr�va-----
Od: Marcel Telka [SMTP:marcel(zv)vadium.sk]
Odesl�no: 28. �ervence 1998 8:59
Komu: DELPHI Distribution List
P�edm�t: Re: Prestupne roky (was RE: Vypocet dna)
Pretoze rok netrva 365,25 dni ale len <priblizne> 365,25 dni.
Myslim, ze presnejsie je to 365,24?? dni.
Ak by bol prestupny kazdy stvrty rok, potom by za 100 rokov bolo 36525 dni.
Ale kedze za 100 rokov musi byt 36524,?? dni, tak kazdych 100 rokov
nie je prestupny rok.
Ale kedze je tam to ??, tak to vychadza, ze este sa to musi upravit kazdych
400 rokov.
(Tym, ze vtedy JE prestupny rok). Po takychto zlozitych upravach je chyba
(pretoze rok
nema presne 365,2425 dni) taka mala, ze je v sucastnosti zanedbatelna.
Konecne hlava otevrena, je to presne tak ani hodnota 365,2425 neni uplne presna, ale ta chyba je velmi mala (uz presne nevim), ale rekneme ze by se kvuli ni muselo napr. v r. 3000 vyjimecne administrativne 1 den pridat ci ubrat - to by se dalo prezit, a neni nutno pro to delat nejakou dalsi reformu kalendare.
Mgr. Petr Kellner
Praktik SW, spol. s r.o. Dom� : Na Z�kop� 27
V. Outraty 7, Prost�jov, 796 00 Olomouc, 773 00
Tel : 0508/365583 Tel : 068/5314129
Fax : 0508/365512 Tel : 0603/457623
e-mail: kellner(zv)praktik(tec)cz pekol(zv)praktik(tec)cz
Web: www.praktik(tec)cz
e-mail pro velmi kr�tk� zpr�vy: kellner.mobil(zv)sms.paegas(tec)cz
TrayIcon
[*] Rudolf �edrla <vasbosk(zv)bosnet(tec)cz> - 28.7.1998 10:33:34
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
Ahoj vsichni,
nechytl jsem celou diskusi o pouziti TrayIcon.
Potrebuji udelat program, ktery po startu prejde do seznamu ikon (prava cast system. listy) a nebude mit tlacitko v systemove liste.
Mam nekolik komponent ( napr. z RXlib) umoznujicich umisteni teto ikony, ale neumim poradne skryt hlavni formular a zakazat tlacitko na system. liste.
Rad bych aby ikona reagovala na prave tlacitko mysi a tak nabidla popup menu.
mate-li nekdo help k RX lib, poslete mi ho prosim nebo sdelte, kde ho lze najit.
(na ftp://ftp.officeauto.com/pub/rxlib/rxhlp10.zip jsem se vubec nedostal, proste se tam nepripojim). Moc dekuji za jakoukoliv pomoc.
Sedrla
Instalace RX
[*] Martin Nedopil <nedopil(zv)eskon(tec)cz> - 28.7.1998 10:34:04
Const
DPL = DLL
begin
if not FileExistsOnPath(AnyRxLib.DPL) then ShowMessage('DPL not
found on path.'+
' Check your PATH variable in AutoExec.Bat' +
' or move this DPL into Windows System directory.');
end.
Martin
> nevite nekdo, proc po naistalovani RX komponent presne podle
>navodu a po novem spusteni D3 se komponenty neukazou a vypise to
>nasledujici chybovou hlasku :
>Can't load package c:\....\Dclrxctl.dpl (Dclrxdb.dpl, Dclrxtls.dpl).
>Tyto soubory tam vsak jsou.
>
>Pavel
Pocet prvkov v mnozine
[*] Mgr. Petr Kellner <kellner(zv)praktik(tec)cz> - 28.7.1998 10:35:47
-----P�vodn� zpr�va-----
Od: V�t�zslav Gazda [SMTP:softda(zv)mbox.vol(tec)cz]
Odesl�no: 27. �ervence 1998 15:05
Komu: DELPHI Distribution List
P�edm�t: Re: Pocet prvkov v mnozine
TTest = (ts1,ts2,ts3,ts4,ts5);
function CountOfTest;
var
oTest:TTest;
begin
oTest := High(oTest);
Result := Ord(oTest) + 1;
end;
Mily Vito,
tvuj TTest neni bohuzel mnozina, ale vyctovy typ, zkus taky treba zalovit ve skolnich znalostech, jak bys takhle vyjadril mnozinu, ktera by obsahovala 2 jabka a 3 hrusky, a o radek niz bys potreboval pridat jeste 8 svestek?
Mgr. Petr Kellner
Praktik SW, spol. s r.o. Dom� : Na Z�kop� 27
V. Outraty 7, Prost�jov, 796 00 Olomouc, 773 00
Tel : 0508/365583 Tel : 068/5314129
Fax : 0508/365512 Tel : 0603/457623
e-mail: kellner(zv)praktik(tec)cz pekol(zv)praktik(tec)cz
Web: www.praktik(tec)cz
e-mail pro velmi kr�tk� zpr�vy: kellner.mobil(zv)sms.paegas(tec)cz
Insert do InterBase
[*] TUNGLI Jan <tungli(zv)pvt.sk> - 28.7.1998 10:37:30
[P��loha v souboru: func.zip]
Toto je sprava vo viacer}ch hastiach vo formate MIME.
Posielam aj zdrojaky aj dll.
Neviem ci vies co a ako treba urobit preto ti pisem:
1. je potrebne FUNC.DLL umiestnit do adresara windows
2. je potrebne spustit FUNC.SQL script na interbase.
Tungli
----------
> Od: Jan Macej <jasencak(zv)ssl.sk>
> Pre: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
> Predmet: Re: Insert do InterBase
> D�tum: 28. j�l 1998 8:14
>
> Keby si mi poslal, tak by to bolo super. Diky
>
> Jan Macej
>
> ----------
> > Odes�latel: TUNGLI Jan <tungli(zv)pvt.sk>
> > Komu: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
> > P�edm�t: RE: Insert do InterBase
> > Datum: 27. j�l 1998 14:52
> >
> > Treba urobit taku funkciu ako UDF cez DLL
> > ked chces tak ti moyem poslat alebo prihlas sa na interbase stranku a tam naides plno.
> > Tungli
> > ----------
> > > Od: Jan Macej <jasencak(zv)ssl.sk>
> > > Pre: delphi(zv)pinknet(tec)cz
> > > Predmet: Insert do InterBase
> > > D�tum: 27. j�l 1998 8:08
> > >
> > > Zdravim vsetkych
> > >
> > > Mam viacej tabuliek InterBase s polozkou remark
> > > v hlavnej tabulke HLAVNA je remark varchar[40]
> > > DHUHA tabulka remark varchar[10]
> > > TRETIA tabulka remark varchar[20]
> > > a o co mi ide: potrebujem urobit
> > > SQL> insert into druha(remark) select remark from
> > > hlavna
> > > SQL> insert into tretia(remark) select remark from
> > > hlavna
> > >
> > > ale samozrejme ak je remark v HLAVNEJ > 10 tak mi to vyhadzuje STRING TRUNCATION
> > > Ja ale chcem aby to skratil a nespekuloval.
> > >
> > > Existuje najaka funkcia ako substring pre IB, alebo ako to spravit cez SQL?
> > >
> > > Jan Macej
> > >
>
Instalace DAO ?
[*] Jiri Szopa <jiri.szopa(zv)email(tec)cz> - 28.7.1998 10:37:29
Mam D3, BDE4.51, W95, Office97 prof.
Kdyz chci pristupovat do k accesove databazi prez native link
hlasi
General SQL error.
The Jet VBA file (VBAJET.DLL for 16-bit versions, or VBAJET32.DLL for 32-bit versions) failed to initialize when called. Try
Alias
Alias: TiskA
Daotest od E.Salaje mi hlasi, ze nemam nainstalovane DAO. Mel jsem za to,
ze se s Office instaluje automaticky.
Stahl jsem si DAO35_redist, je to jen seznam dll, bez popisu instalace.
1. Proc se mi korektne nezaregistrovalo DAO ?
2. Jak instalovat DAO na pocitaci bez Office ?
-------------------------------------------
Ing. Jiri Szopa
tel.: +420 659 713393
fax.: +420 659 713392
email: jiri.szopa(zv)email(tec)cz
dotaz
[*] pacak(zv)pepa(tec)cz (PePa spol. s r.o. ) - 28.7.1998 11:00:44
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
Pros�m o radu.
Cht�l bych um�stit ve W95 ikonu na li�tu vedle hodin a znaku n�rodn� kl�vesnice. Jak to lze prov�st v Delphi.
D�kuji p�edem za zaslan� rady.
Moje adresa j virt(zv)email(tec)cz Ji�� Virt
Vypocet dna
[*] Dobromil Mal� <Dobromil.Maly(zv)rak.pr.ds.mfcr(tec)cz> - 28.7.1998 11:02:23
>----------
>Od: Zdenek Prantl[SMTP:prantl(zv)ptc.pvt(tec)cz]
>Odesl�no: 28. �ervence 1998 9:54
>Komu: 'DELPHI Distribution List'
>P�edm�t: RE: Vypocet dna
>> -----Original Message-----
>> From: Ing. Jaroslav Jahoda [SMTP:Jaroslav.Jahoda(zv)lesprojekt(tec)cz]
>> Sent: Tuesday, July 28, 1998 9:02 AM
>> Subject: RE: Vypocet dna
>>
>> Nesouhlasim, ty roky jsou 4, 100, a 4000 a ne jak
>> uvadite 400. Takze rok 2000 nebude prestupny. Vsak uvidite.
>>
>> Howg.
>>
>> Ing. Jaroslav Jahoda
>TRY
> A neuvidim, neuvidim ... 8-)
> Klidne se vsadim o nejakou dobrou flasku, ze 2000 je prestupny rok.
>EXCEPT
> ON FlameWar DO
> SendMailToNull;
>END
Zd.
Ja se nebudu vsazet o "dobrou flasku", ale vsadil bych se o "flasku neceho dobreho"
:-)
Vypocet dna
[*] TUNGLI Jan <tungli(zv)pvt.sk> - 28.7.1998 11:38:34
Myslim si ze uz bolo dost tejto debaty. Ked niekto ma este problemy tak prosim:
Delphi dodava komponentu CALENDAR a aj zdrojak Calendar.pas
Tam mozete vsetko vycitat, je tam aj funcia IsLeapYear.
Tungli
----------
> Od: Zdenek Prantl <prantl(zv)ptc.pvt(tec)cz>
> Pre: 'DELPHI Distribution List' <delphi(zv)pinknet(tec)cz>
> Predmet: RE: Vypocet dna
> D�tum: 28. j�l 1998 9:54
>
> > -----Original Message-----
> > From: Ing. Jaroslav Jahoda [SMTP:Jaroslav.Jahoda(zv)lesprojekt(tec)cz]
> > Sent: Tuesday, July 28, 1998 9:02 AM
> > Subject: RE: Vypocet dna
> >
> > Nesouhlasim, ty roky jsou 4, 100, a 4000 a ne jak
> > uvadite 400. Takze rok 2000 nebude prestupny. Vsak uvidite.
> >
> > Howg.
> >
> > Ing. Jaroslav Jahoda
>
> TRY
> A neuvidim, neuvidim ... 8-)
> Klidne se vsadim o nejakou dobrou flasku, ze 2000 je prestupny rok.
> EXCEPT
> ON FlameWar DO
> SendMailToNull;
> END
> Zd.Vypinatelne columns - jeste jednou
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 28.7.1998 11:48:32
Pavel Kral wrote:
> Ahoj,
> vim, ze uz se to tady resilo, ale odpoved nebyla uspokojiva.
> Nepodarilo se nekomu udelat naslednika DBGrid, ktery by umel za behu
> vypinat zobrazeni sloupcu? Pripadne jak to dodelat?
A zkousel sis natahnout do gridu fieldy, a pak na ne delat
Visible:=true/false?
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Omezeni SQL ?
[*] Pavel Cisar <pcisar(zv)aktis(tec)cz> - 28.7.1998 11:52:27
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
Hledej "Local SQL Help" v instalaci Delphi (nevim jak D1, ale D2,3... to ma mezi ostatnimi helpy). Tam je presny popis toho, co lze provadet za SQL nad DBF a DB.
Zdravim All.
Shanim informace o syntaxi a omezenich jazyka SQL. Myslim toho SQL, ktere se pouziva v komponente TQuery (dotaz do *.DB souboru). Delam v Delphi 1.
TrayIcon
[*] Milan Valenta <valenta(zv)telecom(tec)cz> - 28.7.1998 12:57:19
Hi,
Na strankach fy. Sinea (www.sinea(tec)cz) je volne k stazeni komponenta
TTrayIconSinea. Je soucasti baliku komponent.
S pozdravem
Ing. Milan VALENTA
Horni Slavkov
POZOR!!! ZMENA E-MAILOVE ADRESY!!!
e-mail: valenta(zv)telecom(tec)cz
----------
> Odes�latel: peca(zv)email(tec)cz
> Komu: delphi(zv)pinknet(tec)cz
> P�edm�t: Re: TrayIcon
> Datum: 27. �ervence 1998 16:04
>
> je nato primo free (? share ?)) komponenta TrayIcon
>
>
> >> nevite prosim negdo, jak dostat jednoduse program do
> >> taskbaru jako trayIcon ???
>
> -----------------
> Petr Palicka
> peca(zv)email(tec)cz
> palicka(zv)aginfo(tec)cz
> -----------------
> POMOC ODBC
[*] rk0w <rk0w(zv)rk.cesnet(tec)cz> - 28.7.1998 14:16:16
Zdar Delf�ni,
op�t zkou��m hodit udi�ku.
Zlat� rybko kde jsi ???
M�m prosbu, prot�ebuju od n�koho zjistit fintu jak na��tat data z paradoxov�ch tabulek ver. 5.0(D2) do M$Office 95 ver. 7.0. M�j ODBC driver je asi starej. Dejte mi typ jak jinak nebo kde se�enu instalaci vy��� verze ODBC.
Roszynec Ji��
admin IT
e-mail: rk0w(zv)rk.cesnet(tec)cz
tel.zam.: 0445/336220
tel.dom�: 0445/23962
P.S. Tis�cer� d�ky
Vypocet dna
[*] Mgr. Petr Kellner <kellner(zv)praktik(tec)cz> - 28.7.1998 14:17:39
-----P�vodn� zpr�va-----
Od: Marcel Telka [SMTP:marcel(zv)vadium.sk]
Odesl�no: 28. �ervence 1998 10:00
Komu: DELPHI Distribution List
P�edm�t: Re: Vypocet dna
Viz:
.... atd ..... atd ..... (vyhladane cez altavistu <leapyear>)
no vida, jen vedet, kde hledat, takze uz muzete rozlevat ty dobre flasky a jejich obsahy. Mmj. jsem si sedl a spocital, ze chyba gregorianskeho kalendare se bude bude muset korigovat za 3322 let od reformy, tedy nekdy kolem roku 5000.
Mgr. Petr Kellner
Praktik SW, spol. s r.o. Dom� : Na Z�kop� 27
V. Outraty 7, Prost�jov, 796 00 Olomouc, 773 00
Tel : 0508/365583 Tel : 068/5314129
Fax : 0508/365512 Tel : 0603/457623
e-mail: kellner(zv)praktik(tec)cz pekol(zv)praktik(tec)cz
Web: www.praktik(tec)cz
e-mail pro velmi kr�tk� zpr�vy: kellner.mobil(zv)sms.paegas(tec)cz
RX Library Help & description ???
[*] Petr Vales <Petr.Vales(zv)gopas(tec)cz> - 28.7.1998 14:39:04
Na teto adrese [http://rx.demo.ru/files/index.html]
je pouze rusky help :((
Rusky uz neumim.
Nevite prosim negdo o anglickem popisu teto knihovny ???
> ----------
> Od: Marcel Telka[SMTP:marcel(zv)vadium.sk]
> Odesl�no: Tuesday, July 28, 1998 9:01 AM
> Komu: DELPHI Distribution List
> Predmet: Re: RX Library ???
>
> Najlepsie asi bude pozriet sa priamo na rx.demo.ru,
> presnejsie na http://rx.demo.ru/files/index.html
>
> Ahoj
>
> M.T.
>
> -----Original Message-----
> From: Ing. Miroslav Ondr�sek <bonnel(zv)telecom(tec)cz>
> To: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
> Date: 28. j�l 1998 8:52
> Subject: Re: RX Library ???
>
>
> >Sorry, ale na tomto FTP serveru neni zcela nic. Nebo jsem slepy ?
> >
> >Mira
> >
> >-----Puvodn� zpr�va-----
> >Od: RADIK(zv)p15.monet(tec)cz <RADIK(zv)p15.monet(tec)cz>
> >Komu: delphi(zv)pinknet(tec)cz <delphi(zv)pinknet(tec)cz>
> >Datum: 27. cervence 1998 17:58
> >Predmet: RE: RX Library ???
> >
> >
> >ftp://ftp.officeauto.com/pub/rxlib/rxhlp10.zip
> >
> >Ales
> >----------
> >Od: Petr Vales
> >Komu: 'delphi(zv)pinknet(tec)cz'
> >Predmet: RX Library ???
> >Datum: 27. cervenec 1998 13:14
> >
> >Ahoj vsichni,
> >
> >nevite prosim negdo, kde bych nasel nejakej
> >help a podrobnej popis funkci k RX library ???
> >
> >Diik
> >
> Instalace RX
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 28.7.1998 14:42:37
> nevite nekdo, proc po naistalovani RX komponent presne podle
> navodu a po novem spusteni D3 se komponenty neukazou a vypise to
> nasledujici chybovou hlasku :
> Can't load package c:\....\Dclrxctl.dpl (Dclrxdb.dpl, Dclrxtls.dpl).
> Tyto soubory tam vsak jsou.
Protoze nemas runtime packages (R...) v \windows\system - dej je tam
a bude to chodit...
*** POZOR, DOCHAZI KE ZMENE TELEFONNICH A FAXOVYCH CISEL ***
*** T A T O Z M E N A J E J I Z K O N E C N A ! ***
S pozdravem
Petr Zahradnik, pocitacovy expert
==============================================================
=== 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 ===
==============================================================Vypocet dna
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 28.7.1998 14:42:37
> Nesouhlasim, ty roky jsou 4, 100, a 4000 a ne jak
> uvadite 400. Takze rok 2000 nebude prestupny. Vsak uvidite.
Trvam na tom, ze rok 2000 BUDE prestupny, to cislo je opravdu 400.
Ted to tady testuji s pomoci knihovny SysTools od TurboPower,
ktera je k tomu take udelana a souhlasi to, tedy prestupne
roky jsou 2000, 2400 i 2800.
*** POZOR, DOCHAZI KE ZMENE TELEFONNICH A FAXOVYCH CISEL ***
*** T A T O Z M E N A J E J I Z K O N E C N A ! ***
S pozdravem
Petr Zahradnik, pocitacovy expert
==============================================================
=== 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 ===
==============================================================TrayIcon
[*] Marcel Telka <marcel(zv)vadium.sk> - 28.7.1998 14:51:48
Pozri si archiv konferencie (www.delphi(tec)cz).
Ahoj
M.T.
-----Original Message-----
From: Rudolf �edrla <vasbosk(zv)bosnet(tec)cz>
To: delphi(zv)pinknet(tec)cz <delphi(zv)pinknet(tec)cz>
Date: 28. j�l 1998 15:47
Subject: TrayIcon
Ahoj vsichni,
nechytl jsem celou diskusi o pouziti TrayIcon.
Potrebuji udelat program, ktery po startu prejde do seznamu ikon (prava cast system. listy) a nebude mit tlacitko v systemove liste.
Mam nekolik komponent ( napr. z RXlib) umoznujicich umisteni teto ikony, ale neumim poradne skryt hlavni formular a zakazat tlacitko na system. liste.
Rad bych aby ikona reagovala na prave tlacitko mysi a tak nabidla popup menu.
mate-li nekdo help k RX lib, poslete mi ho prosim nebo sdelte, kde ho lze najit.
(na ftp://ftp.officeauto.com/pub/rxlib/rxhlp10.zip jsem se vubec nedostal, proste se tam nepripojim).
Moc dekuji za jakoukoliv pomoc.
Sedrla
TrayIcon
[*] Pavel Kral <kral(zv)afx(tec)cz> - 28.7.1998 14:59:00
Pro skryti tlacitka aplikace z listy je treba skryt okno aplikace, tedy
ShowWindow(Application.Handle,sw Hide);
Help k RXLib mam akorat v rustine a nevim presne, kde jsem ho nasel, snad na http://rx.demo.ru
TrayIcon z RXLib umi priradit popup menu.
Cau Pavel
-----Original Message-----
From: Rudolf �edrla <vasbosk(zv)bosnet(tec)cz>
To: delphi(zv)pinknet(tec)cz <delphi(zv)pinknet(tec)cz>
Date: 28. �ervence 1998 13:51
Subject: TrayIcon
Ahoj vsichni,
nechytl jsem celou diskusi o pouziti TrayIcon.
Potrebuji udelat program, ktery po startu prejde do seznamu ikon (prava cast system. listy) a nebude mit tlacitko v systemove liste.
Mam nekolik komponent ( napr. z RXlib) umoznujicich umisteni teto ikony, ale neumim poradne skryt hlavni formular a zakazat tlacitko na system. liste.
Rad bych aby ikona reagovala na prave tlacitko mysi a tak nabidla popup menu.
mate-li nekdo help k RX lib, poslete mi ho prosim nebo sdelte, kde ho lze najit.
(na ftp://ftp.officeauto.com/pub/rxlib/rxhlp10.zip jsem se vubec nedostal, proste se tam nepripojim).
Moc dekuji za jakoukoliv pomoc.
Sedrla
Prestupne roky (was RE: Vypocet dna)
[*] Dalibor Honus <dhonus(zv)logis(tec)cz> - 28.7.1998 15:01:18
> Konecne hlava otevrena, je to presne tak ani hodnota 365,2425 neni uplne presna, ale ta chyba je velmi mala (uz presne nevim), ale rekneme ze by se kvuli ni muselo napr. v r. 3000 vyjimecne administrativne 1 den pridat ci ubrat - to by se dalo prezit, a neni nutno pro to delat nejakou dalsi reformu kalendare.
V roce 3000 at si klidne pridaji 10 dni. Mne to bude tak jedno.
:)
dhonus(zv)logis(tec)cz
POMOC ODBC
[*] Reiniger Milan <Reiniger(zv)mmp.plzen-city(tec)cz> - 28.7.1998 15:10:10
Sezen si MSDN od M$, tam je neco, cemu rikaji Data Access Pack. Tam je
relativne nove ODBC. Mozna, ze je to i TechNetu.
Nebo si tedko objednej MS SQL 7 beta 3 (je to asi i zadarmo) a tam je
odbc vubec nejnovejsi (3.50 a 3.70).
Taky, kdyz si instalujes M$ Office, tak je tam volba, jestli chces
nainstalovat ODBC. To asi v tvem pripade bude nejsnazsi a nejrychlejsi.
S pozdravem
Milan Reiniger
Skroupova 5, c.dv. 92,
tel.: 019/703 5053
reiniger(zv)mmp.plzen-city(tec)cz
http://info.plzen-city(tec)cz
> -----P�vodn� zpr�va-----
> Od: rk0w [SMTP:rk0w(zv)rk.cesnet(tec)cz]
> Odesl�no: 28. �ervence 1998 14:16
> Komu: Pinknet konference Delphi
> P�edm�t: POMOC ODBC
>
> Zdar Delf�ni,
>
> op�t zkou��m hodit udi�ku.
> Zlat� rybko kde jsi ???
>
> M�m prosbu, prot�ebuju od n�koho zjistit fintu jak na��tat data z
> paradoxov�ch tabulek ver. 5.0(D2) do M$Office 95 ver. 7.0. M�j ODBC
> driver je asi starej. Dejte mi typ jak jinak nebo kde se�enu instalaci
> vy��� verze ODBC.
>
>
> Roszynec Ji��
> admin IT
>
> e-mail: rk0w(zv)rk.cesnet(tec)cz
> tel.zam.: 0445/336220
> tel.dom�: 0445/23962
>
>
> P.S. Tis�cer� d�ky
prenositelnost mezi SQL servery
[*] Ing.Rostislav Podmanicky <rosta(zv)trias92(tec)cz> - 28.7.1998 15:22:57
Zdravim,
-----P�vodn� zpr�va-----
Od: Pavel Cisar [SMTP:pcisar(zv)aktis(tec)cz]
Odesl�no: 24. �ervence 1998 10:53
Komu: DELPHI Distribution List
P�edm�t: Re: prenositelnost mezi SQL servery
>>Haj hou!
>>
>>logiku. Veskera data a kod zavysla na konkretnim SQL serveru jsou pak
>>zapouzdrena v techto objektech a pri adaptaci na novy server staci prepsat
>>jen tyto objekty. Osobne pouziti datasetu povazuji za mene nez idealni, ale
>>lze timto spusobem dosahnou slusnych vysledku.
Co tedy povazujes za lepsi (idealni) nez pouziti datasetu ??
S pozdravem
Rosta Podmanicky
rosta(zv)trias92(tec)cz
---------------------------------------------------------------------------------------
Trias 92 spol. s r.o. tel: +42 433 24 378
Informacni systemy fax: +42 433 23 134
Sv.Cecha 253
506 01 Jicin E-mail: trias92(zv)trias92(tec)cz
Czech Republic http://www.trias92(tec)cz
--------------------------------------------------------------------------------------
Vypinatelne columns - jeste jednou
[*] Pavel Kral <kral(zv)afx(tec)cz> - 28.7.1998 15:28:52
jasne ze zkousel, ale kdyz jsou vytvorene Columns, tak vypinani
pres vlastnost Field.visible nefunguje.
Ani bych columns nepotreboval, kdyby normalne fungovalo nastavovani
sirek sloupcu pres vlastnost Field.DisplayWidth. Buhvi proc si tam
grid priradi jakousi sirku, i kdyz ve Watch window vidim, ze ma spravnou
velikost. Bud to neumim spravne pouzit nebo jsou columns v DBGridu
hruby nedodelek. Ale stravil jsem na tom hruzu casu a asi nejsem sam.
Pavel
-----Original Message-----
From: Zbysek Hlinka <zhlinka(zv)login(tec)cz>
To: delphi(zv)pinknet(tec)cz <delphi(zv)pinknet(tec)cz>
Date: 28. �ervence 1998 15:06
Subject: Re: Vypinatelne columns - jeste jednou
Pavel Kral wrote:
> Ahoj,
> vim, ze uz se to tady resilo, ale odpoved nebyla uspokojiva.
> Nepodarilo se nekomu udelat naslednika DBGrid, ktery by umel za behu
> vypinat zobrazeni sloupcu? Pripadne jak to dodelat?
A zkousel sis natahnout do gridu fieldy, a pak na ne delat
Visible:=true/false?
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Vypinatelne columns - jeste jednou
[*] Pavel Kral <kral(zv)afx(tec)cz> - 28.7.1998 15:30:07
Diky, zkusim to.
-----Original Message-----
From: Petr Vones <pvones(zv)mbox.vol(tec)cz>
To: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
Date: 27. �ervence 1998 22:42
Subject: Re: Vypinatelne columns - jeste jednou
>Ahoj,
>
>zkousel jsem to takhle ale neni to uplne hotove, ber to spise jen jako
namet:
>
>type
> TForm1 = class(TForm)
> DBGrid1: TDBGrid;
> DataSource1: TDataSource;
> Table1: TTable;
> Panel1: TPanel;
> Button1: TButton;
> DBNavigator1: TDBNavigator;
> procedure Button1Click(Sender: TObject);
> procedure FormCreate(Sender: TObject);
> procedure FormDestroy(Sender: TObject);
> private
> FSaveColumns: TDBGridColumns;
> public
> procedure HideOrShow(Grid: TDBGrid; Column: TColumn);
> end;
>
>var
> Form1: TForm1;
>
>implementation
>
>{$R *.DFM}
>
>procedure TForm1.HideOrShow(Grid: TDBGrid; Column: TColumn);
>var
> TempColumns: TDBGridColumns;
> I: Integer;
> LastSelected: TField;
>begin
> TempColumns := TDBGridColumns.Create(Grid, TColumn);
> try
> Grid.Perform(WM_SETREDRAW, 0, 0);
> try
> LastSelected := Grid.SelectedField;
> if FSaveColumns.Count > 0 then
> begin // Show
> Grid.Columns.Assign(FSaveColumns);
> FSaveColumns.Clear;
> end else
> begin // Hide
> FSaveColumns.Assign(Grid.Columns);
> with Grid.Columns do
> begin
> for I := 0 to Count - 1 do
> if Items[I] <> Column then
> begin
> TempColumns.Add;
> TempColumns.Items[TempColumns.Count - 1].Assign(Items[I]);
> end;
> Assign(TempColumns);
> end;
> end;
> Grid.SelectedField := LastSelected;
> finally
> Grid.Perform(WM_SETREDRAW, 1, 0);
> Grid.Invalidate;
> end;
> finally
> TempColumns.Free;
> end;
>end;
>
>
>procedure TForm1.Button1Click(Sender: TObject);
>begin
> HideOrShow(DBGrid1, DBGrid1.Columns[2]);
> DBGrid1.SetFocus;
>end;
>
>procedure TForm1.FormCreate(Sender: TObject);
>begin
> FSaveColumns := TDBGridColumns.Create(DBGrid1, TColumn);
>end;
>
>procedure TForm1.FormDestroy(Sender: TObject);
>begin
> FSaveColumns.Free;
>end;
>
>end.
>
> Petr Vones, amatresky programator
>
>
>
Instalace DAO ?
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 28.7.1998 15:49:06
> Mam D3, BDE4.51, W95, Office97 prof.
> Kdyz chci pristupovat do k accesove databazi prez native link
> hlasi
Mas v BDE nastavenu spravnou DLL pro Access97? Jsou tam dve,
jedna pro Access95 a druha pro Access97 - musis vybrat tuhle:
IDDA3532.DLL - ta je pro Access97.
*** POZOR, DOCHAZI KE ZMENE TELEFONNICH A FAXOVYCH CISEL ***
*** T A T O Z M E N A J E J I Z K O N E C N A ! ***
S pozdravem
Petr Zahradnik, pocitacovy expert
==============================================================
=== 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 ===
==============================================================Vypinatelne columns - jeste jednou
[*] Mirek �ipel <miroslav.cipel(zv)oku-tu(tec)cz> - 28.7.1998 16:40:07
A zkousel jsi fieldy smazat a pridat je ty ktere potrebujes
DBGrid1.Columns.Clear;
DBGrid1.Columns.Add.FieldName :=
DataModule1.TableCiselnik.Fields[i].FieldName;
M.
-----P�vodn� zpr�va-----
Od: Pavel Kral <kral(zv)afx(tec)cz>
Komu: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
Datum: 28. �ervence 1998 16:25
P�edm�t: Re: Vypinatelne columns - jeste jednou
>jasne ze zkousel, ale kdyz jsou vytvorene Columns, tak vypinani
>pres vlastnost Field.visible nefunguje.
>Ani bych columns nepotreboval, kdyby normalne fungovalo nastavovani
>sirek sloupcu pres vlastnost Field.DisplayWidth. Buhvi proc si tam
>grid priradi jakousi sirku, i kdyz ve Watch window vidim, ze ma spravnou
>velikost. Bud to neumim spravne pouzit nebo jsou columns v DBGridu
>hruby nedodelek. Ale stravil jsem na tom hruzu casu a asi nejsem sam.
>
>Pavel
>
>-----Original Message-----
>From: Zbysek Hlinka <zhlinka(zv)login(tec)cz>
>To: delphi(zv)pinknet(tec)cz <delphi(zv)pinknet(tec)cz>
>Date: 28. �ervence 1998 15:06
>Subject: Re: Vypinatelne columns - jeste jednou
>
>
>Pavel Kral wrote:
>
>> Ahoj,
>> vim, ze uz se to tady resilo, ale odpoved nebyla uspokojiva.
>> Nepodarilo se nekomu udelat naslednika DBGrid, ktery by umel za behu
>> vypinat zobrazeni sloupcu? Pripadne jak to dodelat?
>
>A zkousel sis natahnout do gridu fieldy, a pak na ne delat
>Visible:=true/false?
>
>
>S pozdravem
>
>Zbysek Hlinka
>E-mail: zhlinka(zv)login(tec)cz
>Tel.: 02/795 29 56; GSM: 0603 551 282
>Krystofova 1016, 149 00 Praha 4
>CZ
>
>
>
>
>
StringGrid
[*] Peter SIMKOVIC <simkovic(zv)vadium.sk> - 28.7.1998 16:49:38
Ahoj,
nebude mi vediet niekto z Vas poradit s dvoma malymi problamami? Ide mi
o nasledovne:
1) ako je mozne ulozit obsah StringGrid do nejakeho suboru a nasledovne ho
aj z toho suboru nacitat naspat (napriklad po stlaceni tlacitka)
2) ako sa daju v StringGrid -e polozky triedit (napr: na podnet cez nejake
tlacitko alebo ListBox alebo ...)
Dakujem
SIMKOVIC Peter
simicek(zv)vadium.sk
simkovic(zv)vadium.sk
http://www.vadium.sk/simi
and web admin of:
www.drazba.sk
Editace HTML V Delphi
[*] peca(zv)email(tec)cz - 28.7.1998 16:58:26
neni nahodou v prikladech k delphi
konvertor rtf > html ???
pokud ne tak to bylo na nejakym chip-cd
urcite to mam doma
>> Zdravim Delphisty
>>
>> Potreboval bych v jedne aplikaci editovat jednoduche
>> HTML (bez tabulek, pouze fonty, barvy, zarovnani).
>> Mate nekdo napad na nejakou komponentu???
viz vyse
>> Nemate nekdo zkusenosti (nebo nejaky priklad) ovladani
>> FrontPage
>> pres OLE Automation???
bohuzel
>> Milos
-----------------
Petr Palicka
peca(zv)email(tec)cz
palicka(zv)aginfo(tec)cz
-----------------
InstallShield
[*] Martin Sasek <sasek(zv)ujep(tec)cz> - 28.7.1998 18:03:45
Preji dobry den,
mam malou prosbu. Nainstaloval jsem si InstallShield (Profesional) a
jsem z nej trochu zmatenej. Muzete mi nekdo jednoduse popsat jak ho donutim
aby mi k instalaci pripojil aktualni BDE. Vim ze to nejak jde, ale nevim
jak.
Diky
Martin Sasek
POcet prvkov v mnozine
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 28.7.1998 19:25:21
Martin O�en� wrote:
>
> Potrebujem zistit pocet prvkov v premennej typu set.
> Vsetky kombinacie Ord, High a inych funkcii, na ktore
> som prisiel mi zlyhali.
> Nema s tym niekto nahodou skusenosti ?
>
Ahoj,
melo by to jit takhle:
type
TMySet = set of Char;
function NumberOfElements(P: Pointer; Size: Integer): Integer;
var
Data: packed array[1..32] of Byte;
D, I: Integer;
begin
CopyMemory((zv)Data, P, Size);
Result := 0;
for D := 1 to Size do
for I := 1 to 8 do
begin
Inc(Result, Data[D] and $01);
Data[D] := Data[D] shr 1;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
MySet: TMySet;
begin
MySet := ['0', '1', '2', '3', 'A', #254];
ShowMessage(IntToStr( NumberOfElements((zv)MySet, Sizeof(MySet)) ));
MySet := MySet - ['2', '3'];
ShowMessage(IntToStr( NumberOfElements((zv)MySet, Sizeof(MySet)) ));
MySet := [#0, #255];
ShowMessage(IntToStr( NumberOfElements((zv)MySet, Sizeof(MySet)) ));
MySet := [#0..#255];
ShowMessage(IntToStr( NumberOfElements((zv)MySet, Sizeof(MySet)) ));
MySet := [];
ShowMessage(IntToStr( NumberOfElements((zv)MySet, Sizeof(MySet)) ));
end;
Petr Vones, amatersky programator
Animace
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 28.7.1998 20:04:49
Dobromil Mal� wrote:
>
> >> Stanislav Cerny wrote:
> >>
> >> Ahoj vsichni,
> >> v programu aktivuji vetsi pocet datadazi, tato operace trva delsi
> >> dobu a tak jsem ji chtel uzivateli zprijemnit pohledem na animovany
> >> GIF, pouzil jsem kompoventu z Rx, ale pri aktivaci tabulek se temner
> >> nehejbe. Nepomaha refresh ani update.
> >> Co delat?
>
> >Ahoj,
>
> >Patrne to bude tim ze komponenta z RxLib pouziva pro casovani prekreslovani
> >jednotlivych snimku Timer, ktery je aktivovan pomoci zprav Windows ktere
> >se pri otevirani tabulek nezpracovavaji. Resenim by patrne bylo pouziti
> >nejake jine komponenty (ci jeji uprava) tak aby bezela jako thread.
> Pokud je to skutecne tak, pak by se mohlo mezi otviranim jednotlivych
> databazi (ci tabulek) volat Application.ProcessMessages.
Ahoj,
to tezko, pak by jsi mel jen par snimku. Navic pouzivani Application.ProcessMessages
povazuju za krajne nevhodny zpusob k reseni cehokoliv. Myslim ze multithreading ve
Windows neni spatna vec, tak pro jej nevyuzit. Pravda je ze s thready v D2 jsem mel
problemy ale v D3 to uz dost prepracovali a fungovalo to bez problemu.
Petr Vones, amatersky programator
POcet prvkov v mnozine
[*] Michal Brabec <mbrabec(zv)ciglersw(tec)cz> - 28.7.1998 20:20:58
Panove vy se toho asembleru nejak bojite. Vzdyt to prece de vyresit tak
hrozne jednoduse. V tom pascalu to sice je udelany rychle ale ta rychlost
provadeni kodu! Radeji si to poradne odzkousej, psal jsem to dost narychlo
primo do mailu.
function NumberOfSetElements(ASet : pointer) : byte; assembler;
asm
push edi
push ebx
push cx
push dx
mov edi, ASet
mov (zv)Result, 0
mov cx, 8
(zv)BegLoop1:
mov dx, cx
mov ebx, [edi]
mov cx, 32
(zv)BegLoop2:
shr ebx, 1
jnc (zv)EndLoop2
inc (zv)Result
(zv)EndLoop2:
loop (zv)BegLoop2
mov cx, dx
add edi, 4
loop (zv)BegLoop1
pop dx
pop cx
pop ebx
pop edi
end;
Michal Brabec.
CIGLER SOFTWARE, tr. Gen. Piky 9, 613 00 BRNO, CR
tel:+420-5-526045, fax:45223890, http://www.ciglersw(tec)cz
> -----Original Message-----
> From: Petr Vones [mailto:pvones(zv)mbox.vol(tec)cz]
> Sent: Tuesday, July 28, 1998 7:25 PM
> To: DELPHI Distribution List
> Subject: Re: POcet prvkov v mnozine
>
>
> Martin O�en� wrote:
> >
> > Potrebujem zistit pocet prvkov v premennej typu set.
> > Vsetky kombinacie Ord, High a inych funkcii, na ktore
> > som prisiel mi zlyhali.
> > Nema s tym niekto nahodou skusenosti ?
> >
>
> Ahoj,
>
> melo by to jit takhle:
>
> type
> TMySet = set of Char;
>
> function NumberOfElements(P: Pointer; Size: Integer): Integer;
> var
> Data: packed array[1..32] of Byte;
> D, I: Integer;
> begin
> CopyMemory((zv)Data, P, Size);
> Result := 0;
> for D := 1 to Size do
> for I := 1 to 8 do
> begin
> Inc(Result, Data[D] and $01);
> Data[D] := Data[D] shr 1;
> end;
> end;
>
> procedure TForm1.Button1Click(Sender: TObject);
> var
> MySet: TMySet;
> begin
> MySet := ['0', '1', '2', '3', 'A', #254];
> ShowMessage(IntToStr( NumberOfElements((zv)MySet, Sizeof(MySet)) ));
>
> MySet := MySet - ['2', '3'];
> ShowMessage(IntToStr( NumberOfElements((zv)MySet, Sizeof(MySet)) ));
>
> MySet := [#0, #255];
> ShowMessage(IntToStr( NumberOfElements((zv)MySet, Sizeof(MySet)) ));
>
> MySet := [#0..#255];
> ShowMessage(IntToStr( NumberOfElements((zv)MySet, Sizeof(MySet)) ));
>
> MySet := [];
> ShowMessage(IntToStr( NumberOfElements((zv)MySet, Sizeof(MySet)) ));
> end;
>
> Petr Vones, amatersky programator
>
>Insert do InterBase
[*] Miroslav BALAZ <mibainfo(zv)internet.sk> - 28.7.1998 20:40:53
Myslim, ze principialne existuju dve moznosti pre SQL:
1. CAST( Field as VARCHAR(10) ), alebo CAST( Field as CHAR(10) ), kde
Field moze
byt aj Tvoj Subselect - to by mala byt SQL92 syntax
2. SUBSTRING() - funkcia je popisana v Local SQL - ci to ide aj v IB som
netestoval - pozrel som navod IB - nie je to tam, takze zostava prva
moznost
S pozdravom
Miro
>Zdravim vsetkych
>
>Mam viacej tabuliek InterBase s polozkou remark
>v hlavnej tabulke HLAVNA je remark varchar[40]
>DHUHA tabulka remark varchar[10]
>TRETIA tabulka remark varchar[20]
>a o co mi ide: potrebujem urobit
>SQL> insert into druha(remark) select remark from
>hlavna
>SQL> insert into tretia(remark) select remark from
>hlavna
>
>ale samozrejme ak je remark v HLAVNEJ > 10 tak mi to vyhadzuje STRING
TRUNCATION
>Ja ale chcem aby to skratil a nespekuloval.
>
>Existuje najaka funkcia ako substring pre IB, alebo ako to spravit cez SQL?
>
>Jan Macej
>Delphi 4 - recenze dotaz
[*] Peter SIMKOVIC <simkovic(zv)vadium.sk> - 28.7.1998 21:32:57
At 17:36 27.7.1998 +0200, you wrote:
>>Zbysek Hlinka wrote:
>>> Tak mam takovy neblahy pocit, ze Borland pred nami cosi tajil. Obavam
>>> se, ze to v recenzi rozmaznu.
>>
Mal som to (Delphi4) moznost vidiet v akcii a musim ti povedat ze Borland
(ale teraz uz Inpise) si dal konecne zalezat.
>>Pravda je ze v helpech asi maji stale co dohanet, treba to co bylo
>>u Delphi 2.0 byla katastrofa.....
Helpy su celkom fajn, (cca 50MB alebo tak nejako)
>No mozna byla, ale mrknete se treba na TOPSPEED modulu a teprve poznate,
>jakej to poklad mate doma....
>>
>>> BTW - jestli je tam seznam zkratek nejak prehledne usporadan, mozna
>>> by nebylo od veci to poslat sem, nebo to dat na FAQ.
>> ^^^
>>No, je to 16k HTML stranka takze bych to sem asi neposilal, ale kde
>>jsou FAQ ?
>Adresuuuu prosim!
>>
>>
>> Petr Vones, amatersky programator
>>
>>
> bye Aleq
>
SIMKOVIC Peter
simicek(zv)vadium.sk
simkovic(zv)vadium.sk
http://www.vadium.sk/simi
and web admin of:
www.drazba.sk
Delphi 4 - klav. kombinace
[*] Michal Kara <lemming(zv)atrey.karlin.mff.cuni(tec)cz> - 28.7.1998 21:46:37
> > Jojo, ja si nechavam buhviodkud posilat e-mailem Delphi typy - a v nich
> > se
> > takovehle uzitecne "detaily" dosti casto vyskytuji.
> >
> > Michal Kara alias lemming
> >
> Nemohl bys nam poslat link ? Dik
>
www.zdtips.com
Michal Kara alias lemming
POcet prvkov v mnozine
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 28.7.1998 21:49:15
Michal Brabec wrote:
>
> Panove vy se toho asembleru nejak bojite. Vzdyt to prece de vyresit tak
> hrozne jednoduse. V tom pascalu to sice je udelany rychle ale ta rychlost
> provadeni kodu! Radeji si to poradne odzkousej, psal jsem to dost narychlo
> primo do mailu.
Ahoj,
ale nebojime, neboj. Jeste za dob ZX Specter jsem tak psal tisiciradkove
programy ... :-)
Jiste ze je to tak rychlejsi, ale snazil jsem se o neco jako nazornost
a jiste uznas ze z toho paskalskeho kodu je to asi citelnejsi. Navic od
dob 16bit prekladacu tech duvodu pro optimalizaci pomoci zapisu v assembleru
ponekud ubylo a clovek k tomu pristupuje mene casteji nez drive. Dival ses
nekdy jak se to prelozi, obcas to neni vubec spatne.....
Tady jsem pro ukazku dopsal prelozeny kod z casti toho prikladu (muzou
tam byt chyby). Pripada ti to pro tento ucel jako prilis neefektivni ?
> > function NumberOfElements(P: Pointer; Size: Integer): Integer;
> > var
> > Data: packed array[1..32] of Byte;
> > D, I: Integer;
> > begin
push ebx
push esi
push edi
add esp,-$20
mov ebx,edx
> > CopyMemory((zv)Data, P, Size);
mov edx,esp
mov ecx,ebx
xchg eax,edx
call copymemory
> > Result := 0;
xor esi, esi
> > for D := 1 to Size do
mov edi,ebx
test edi,edi
jle +$27
mov eax,esp
> > for I := 1 to 8 do
> > begin
mov edx,$08
> > Inc(Result, Data[D] and $01);
mov cl,[eax]
mov ebx,ecx
and bl,$01
and edx,$0ff
add esi,ebx
> > Data[D] := Data[D] shr 1;
and ecx,$FF
shr ecx,1
mov [eax],cl
> > end;
dec dx
jnz -$1c
inc eax
> > end;
dec edi
jnz -$25
mov eax,esi
add esp,$20
pop edi
pop esi
pop ebx
ret
pokud se to jeste trochu prepise:
function NumberOfElements(P: Pointer; Size: Integer): Integer;
var
Data: packed array[1..32] of Byte;
D, I, N: Integer;
begin
CopyMemory((zv)Data, P, Size);
Result := 0;
xor esi,esi
for D := 1 to Size do
begin
test ebx,ebx
jle $1a
mov ecx,esp
N := Data[D];
xor edx,edx
mov dl,[ecx]
for I := 1 to 8 do
mov eax,8
begin
if N and $01 <> 0 then Inc(Result);
test dl,1
jz +1
inc esi
N := N shr 1;
shr edx,1
end;
dec eax
jnz -$b
end;
inc ecx
dec ebx
jnz -$18
end;
mov eax,esi
Petr Vones, amatersky programator
Delphi 4 - klav. kombinace
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 28.7.1998 22:19:57
Ale� Berka wrote:
> > > Jsou tam i dalsi zajimave kl.zkratky, treba Ctrl+Shift+U(I). Taky
> jsem
> > > nevedel ze Delphi editor umi i sloupcove bloky pomoci mysi kdyz pri
> > > oznacovani drzis Alt.
> > >
> > Jojo, ja si nechavam buhviodkud posilat e-mailem Delphi typy - a v nich
> > se
> > takovehle uzitecne "detaily" dosti casto vyskytuji.
> >
> > Michal Kara alias lemming
> >
> Nemohl bys nam poslat link ? Dik
Ahoj,
je to tam kde by to clovek nejmene cekal, primo na Borlandu :-)
V Developer support jsou stranky pro jednotlive produkty. Z toho
asi nejzajimavejsi jsou:
Delphi TI (tam jsou mimo jine ty kl.zkratky v TI3341)
http://www.inprise.com/devsupport/delphi/ti_list/
Delphi FAQ
http://www.inprise.com/devsupport/delphi/qanda/
BDE API Examples (Pack, Reindex, Restructure, Options atd....)
http://www.inprise.com/devsupport/bde/bdeapiex/
BDE TI
http://www.inprise.com/devsupport/bde/ti_list/
BDE FAQ
http://www.inprise.com/devsupport/bde/qanda/
Pokud nektera z techto stranek obsahuje odkazy tak se tam nabizi i
komplet v ZIP archivu ke stazeni pro offline prohlizeni.
Petr Vones, amatersky programator
Finito RX English Help
[*] Petr Vales <Petr.Vales(zv)gopas(tec)cz> - 29.7.1998 03:47:36
[P��loha v souboru: rx-doc.rar]
This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
Zdravim vsechny,
obdrzel sem anglicky popis RX library, takze pokud ho
negdo potrebuje ?
S pozdravem Petr Vales
16bit vs 32bit
[*] Petr Vales <Petr.Vales(zv)gopas(tec)cz> - 29.7.1998 04:40:53
Ahoj vsichni,
mam takovy problem.
Pokud mam 16bitovy program, ktery bezi na 32bit platforme (Win32s),
da se z 16bit programu volat 32bit funkce (DLL rozhrani) ???
Diik za kazdou odpoved
ShellExecute
[*] Petr Vales <Petr.Vales(zv)gopas(tec)cz> - 29.7.1998 06:03:59
Ahoj vsichni,
chtel bych se zeptat, zda funkce ShellExecute dokaze
volat interni funkce systemu...napr. "rename a.a b.b".
Jestli to neni tato...nevite prosim nekdo o jinem
reseni ??
Diik
Editace HTML V Delphi
[*] voltrr1.epr(zv)mail.cez(tec)cz - 29.7.1998 06:28:38
Nova zprava:
Nazdar,pokud potrebujes opravdu pouze zakladni formatovani je asi
nejjednodussi udelat si RichText editor (priklad jev Delphi) a pak
konvertovat z toho TRichEditu do HTML. Je to pomerne snadne (sam sem to
delal) a navic muzes pouzit jen ten format kterej potrebujes.Radek Voltr
---------------------------------------------------------------
Puvodni zprava:
Zdravim Delphisty
Potreboval bych v jedne aplikaci editovat jednoduche
HTML (bez tabulek, pouze fonty, barvy, zarovnani).
Mate nekdo napad na nejakou komponentu???
Nemate nekdo zkusenosti (nebo nejaky priklad) ovladani FrontPage
pres OLE Automation???
Milos
Pridani Field
[*] Milan Fiedler <milanf(zv)rts(tec)cz> - 29.7.1998 07:55:30
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
Ahoj lidi,
nev�te nekdo jak pridat Field do tabulky aniz bych prepsal existujici zaznamy v tabulce, at to zkousim jak to zkousim tak se mi vzdy smazou zaznamy
diky
Milan Fiedler
Vypinatelne columns - jeste jednou
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 29.7.1998 08:07:02
Pavel Kral wrote:
> jasne ze zkousel, ale kdyz jsou vytvorene Columns, tak vypinani
> pres vlastnost Field.visible nefunguje.
>
> Pavel
>
> -----Original Message-----
> From: Zbysek Hlinka <zhlinka(zv)login(tec)cz>
>
> A zkousel sis natahnout do gridu fieldy, a pak na ne delat
> Visible:=true/false?
To fakt nechapu, asi delas neco spatne. Jeste extra kvuli tobe
jsem to zkousel,a funguje to naprosto bezvadne - tedy doufam, ze
mam na mysli totez, co ty. Tady jsou zdrojaky:
unit vymazu;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls,
Forms, Db,
Grids, DBGrids, DBTables, StdCtrls;
type
TForm1 = class(TForm)
Button2: TButton;
Button1: TButton;
DataSource1: TDataSource;
Tab: TTable;
DBGrid1: TDBGrid;
TabLAST_NAME: TStringField;
TabFIRST_NAME: TStringField;
TabACCT_NBR: TFloatField;
TabADDRESS_1: TStringField;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
public
end;
but=class(TButton)
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
{ TForm1 }
procedure TForm1.Button1Click(Sender: TObject);
begin
TabFirst_Name.Visible:=false;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
TabFirst_Name.Visible:=true;
end;
end.
----
object Form1: TForm1
Left = 220
Top = 184
Width = 466
Height = 356
Caption = 'Form1'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
PixelsPerInch = 96
TextHeight = 13
object Button2: TButton
Left = 16
Top = 48
Width = 81
Height = 25
Caption = 'Button2'
TabOrder = 0
OnClick = Button2Click
end
object Button1: TButton
Left = 24
Top = 8
Width = 75
Height = 25
Caption = 'Button1'
TabOrder = 1
OnClick = Button1Click
end
object DBGrid1: TDBGrid
Left = 80
Top = 104
Width = 320
Height = 120
DataSource = DataSource1
TabOrder = 2
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
end
object DataSource1: TDataSource
DataSet = Tab
Left = 120
Top = 16
end
object Tab: TTable
Active = True
DatabaseName = 'DBDEMOS'
TableName = 'CLIENTS.DBF'
Left = 160
Top = 16
object TabLAST_NAME: TStringField
FieldName = 'LAST_NAME'
end
object TabFIRST_NAME: TStringField
FieldName = 'FIRST_NAME'
end
object TabACCT_NBR: TFloatField
FieldName = 'ACCT_NBR'
end
object TabADDRESS_1: TStringField
FieldName = 'ADDRESS_1'
end
end
end
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Vypocet dna
[*] Dobromil Mal� <Dobromil.Maly(zv)rak.pr.ds.mfcr(tec)cz> - 29.7.1998 08:32:09
>----------
>Od: Mgr. Petr Kellner[SMTP:kellner(zv)praktik(tec)cz]
>Odesl�no: 28. �ervence 1998 10:10
>Komu: 'DELPHI Distribution List'
>P�edm�t: RE: Vypocet dna
>Rad se s vami i vsadim, docela me bavi, kdyz se zakladne-skolni znalosti lidem z hlavy vykouri, >navrhnete o co byste se vsadil, prijmu jakykoliv navrh. Mimochodem me napada, ze by se to mohlo >poslat do TV prima jako namet pro Jirku Krampola. Prece "Nikdo neni dokonaly", ja bych napr. tezko daval >dokupy vsech 7 padu.
Tech padu je ve skutecnosti osm a jsou to :
1. -ny
2. -naty
3. -ity
4. -icity
5. -icny(-ecny (od vajecny) )
6. -ovy
7. -isty
8. -icely
>Mgr. Petr Kellner
>Praktik SW, spol. s r.o. Dom� : Na Z�kop� 27
>V. Outraty 7, Prost�jov, 796 00 Olomouc, 773 00
>Tel : 0508/365583 Tel : 068/5314129
>Fax : 0508/365512 Tel : 0603/457623
>e-mail: kellner(zv)praktik(tec)cz pekol(zv)praktik(tec)cz
>Web: www.praktik(tec)cz
>e-mail pro velmi kr�tk� zpr�vy: kellner.mobil(zv)sms.paegas(tec)cz
Vypocet dna
[*] mstevlik(zv)gamo.sk - 29.7.1998 08:44:32
Tie pady su fakt OK, ale nie su to tieto?
1.Nominativ, 2.Genitiv, 3.Dativ, 5. ...neviem..., 4.Akuzativ, 6.Lokal,
7.Instrumental
ODBC Api a SQLPrimarykeys()
[*] Radim Kunz <rkunz(zv)ova(tec)comp(tec)cz> - 29.7.1998 08:45:27
Ahoj
Neni tu nekdo, kdo se zabyva ODBC Api ?
Zkousel jsem funkci SQLPrimarykeys. Funguje na vsech databazich
krome Interbase. Na Interbazi mi vraci primarni klice vicekrat,
s nesmyslnymi KEY_SEQ. Nektere KEY_SEQ maji dokonce hodnotu 0,
coz by nemely.
Nevi nekdo, co s tim ?
Radim Kunz
Vypinatelne columns - jeste jednou
[*] Jozef Strnadik <strnadik(zv)mbox.mrp(tec)cz> - 29.7.1998 08:45:24
> A zkousel sis natahnout do gridu fieldy, a pak na ne delat
> Visible:=true/false?
To fakt nechapu, asi delas neco spatne. Jeste extra kvuli tobe
jsem to zkousel,a funguje to naprosto bezvadne - tedy doufam, ze
mam na mysli totez, co ty.
[[JS]]
toto funguje, ale skus si otvorit Columns Editor, pridaj si niekolko stlpcov a potom skus Filed.Visible := True/False
TDBGrid ma totiz nieco take ako
type TDBGridColumnsState = (csDefault, csCustomized);
property State: TDBGridColumnsState;
ked State = csDefault potom Field.Visible funguje ale ked je State = csCustomized t.j. stlpce do gridu pridas cez Columns Editor vtedy to nefunguje.Vypinatelne columns - jeste jednou
[*] Pavel Kral <kral(zv)afx(tec)cz> - 29.7.1998 08:54:41
-----Original Message-----
From: Zbysek Hlinka <zhlinka(zv)login(tec)cz>
To: delphi(zv)pinknet(tec)cz <delphi(zv)pinknet(tec)cz>
Date: 29. �ervence 1998 8:08
Subject: Re: Vypinatelne columns - jeste jednou
Pavel Kral wrote:
> jasne ze zkousel, ale kdyz jsou vytvorene Columns, tak vypinani
> pres vlastnost Field.visible nefunguje.
>
> Pavel
>
> -----Original Message-----
> From: Zbysek Hlinka <zhlinka(zv)login(tec)cz>
>
> A zkousel sis natahnout do gridu fieldy, a pak na ne delat
> Visible:=true/false?
To fakt nechapu, asi delas neco spatne. Jeste extra kvuli tobe
jsem to zkousel,a funguje to naprosto bezvadne - tedy doufam, ze
mam na mysli totez, co ty. Tady jsou zdrojaky:
----------
Asi su uplne blby, ono to fakt funguje, ale v me aplikaci se to tvarilo,
ze ne.
Diky za snahu a za trpelivost.
Pavel
StringGrid
[*] Zdenek Prantl <prantl(zv)ptc.pvt(tec)cz> - 29.7.1998 08:58:04
> -----Original Message-----
> From: Peter SIMKOVIC [SMTP:simkovic(zv)vadium.sk]
> Sent: Tuesday, July 28, 1998 4:50 PM
> Subject: StringGrid
>
> Ahoj,
>
> nebude mi vediet niekto z Vas poradit s dvoma malymi problamami? Ide mi
> o nasledovne:
>
> 1) ako je mozne ulozit obsah StringGrid do nejakeho suboru a nasledovne ho
> aj z toho suboru nacitat naspat (napriklad po stlaceni tlacitka)
funkce ulozi StringGrid do textoveho souboru po radkach, jednotlive udaje
jsou oddeleny tabelatorem (lze to potom nacist treba i do Excelu). Load by
byl podobny, pres ReadLn a rozsekani stringu podle tabelatoru. To hotove
nemam, protoze to nepouzivam. Snad to pomuze.
function ExportTXT(sName : string; var StringGrid1 : TStringGrid): boolean;
var
fText : TextFile;
i, j : integer;
begin
WHILE Pos(' ', sName)<>0 DO
Delete(sName,Pos(' ', sName),1);
SaveDialog1.FileName:=sName;
IF SaveDialog1.Execute THEN
BEGIN
Screen.Cursor := crHourGlass;
{$I-}
AssignFile(fText,SaveDialog1.FileName);
FileMode :=2;
Rewrite(fText);
FOR j:= 0 TO StringGrid1.RowCount-1 DO
BEGIN
FOR i := 0 TO StringGrid1.ColCount-1 DO
BEGIN
IF i < (StringGrid1.ColCount-1) THEN
Write(fText,StringGrid1.Cells[i,j]+Chr(9))
ELSE
Writeln(fText,StringGrid1.Cells[i,j]);
END;
END;
CloseFile(fText);
{$I+}
IF IOResult<>0 THEN
{Tady nejake chybove hlaseni}
ELSE
{Vse probehlo OK};
Screen.Cursor := crDefault;
Oznam.ShowModal;
END;
end;
>
> 2) ako sa daju v StringGrid -e polozky triedit (napr: na podnet cez nejake
> tlacitko alebo ListBox alebo ...)
Priklad trideni StrinGridu podle nulteho sloupce pomoci Qsortu:
procedure TForm1.Button1Click(Sender: TObject);
begin
Qsort1(1,StringGrid1.RowCount-1)
end;
procedure TForm1.QSort1(Lo,Hi: integer);
procedure sort(l,r: integer);
var
i,j,k: integer;
x: string;
y: string;
begin
i:=l; j:=r;
x:=StringGrid1.Cells[0,(l+r) DIV 2];
repeat
while StringGrid1.Cells[0,i] < x do i:=i+1;
while x < StringGrid1.Cells[0, j] do j:=j-1;
if i<=j then
begin
FOR k := 0 TO StringGrid1.ColCount-1 DO
BEGIN
y:=StringGrid1.Cells[k,i];
StringGrid1.Cells[k,i]:=StringGrid1.Cells[k,j];
StringGrid1.Cells[k, j]:=y;
END;
i:=i+1; j:=j-1;
end;
until i>j;
if l<j then sort(l,j);
if i<r then sort(i,r);
end;
begin {quicksort};
sort(Lo,Hi);
end;
Pozor trideni ma vsak hacek. Pokud budou ve StringGridu cisla, je treba ten
QSort prepsat na trideni cisel (Tzn. delat StrToInt nebo StrToFloat). Takto
to tridi stringy a potom by to bylo treba serazene '1','11','2','23',....
A pokud tam bude cestina, tak je treba si napsat porovnavaci funkci na
stringy (protoze ma cestina 'ch' a nabodenicka).
Zd.TrayIcon
[*] Vladimir Tucan <tucanv(zv)darvis(tec)cz> - 29.7.1998 09:05:45
Schovat aplikaci z taskbaru lze nasledovne:
ShowWindow (Application.Handle, SW_HIDE);
a musi se to volat i pri minimalizaci, obnoveni, ... jinak se znovu
objevi.
Zdravi
Vlada Tucan
e-mail: tucanv(zv)darvis(tec)cz
-----Puvodni zprava-----
Od: Rudolf ?edrla [SMTP:vasbosk(zv)bosnet(tec)cz]
Odeslano: 28. eervence 1998 10:34
Komu: delphi(zv)pinknet(tec)cz
Poedmit: TrayIcon
Ahoj vsichni,
nechytl jsem celou diskusi o pouziti TrayIcon.
Potrebuji udelat program, ktery po startu prejde do seznamu ikon (prava
cast system. listy) a nebude mit tlacitko v systemove liste.
Mam nekolik komponent ( napr. z RXlib) umoznujicich umisteni teto ikony,
ale neumim poradne skryt hlavni formular a zakazat tlacitko na system.
liste.
Rad bych aby ikona reagovala na prave tlacitko mysi a tak nabidla popup
menu.
mate-li nekdo help k RX lib, poslete mi ho prosim nebo sdelte, kde ho lze
najit.
(na ftp://ftp.officeauto.com/pub/rxlib/rxhlp10.zip jsem se vubec nedostal,
proste se tam nepripojim). Moc dekuji za jakoukoliv
pomoc.
Sedrla <<Soubor:
ATT00004.html>>
TrayIcon
[*] V�t�zslav Gazda������u��n�?��? - 29.7.1998 09:15:52
Protoze, se tady stale objevuje stejny problem ohledne ikony vedle hodin a
skryti tlacitka aplikace na TaskBaru, upravil jsem svou komponentu TryIcon.
Tato komponenta umi zobrazit ikonu vedle hodin, ikona muze mit plovouci
napovedu, umi zobrazit PopupMenu na leve i prave tlacitko a nyni umi take
skryt tlacitko aplikace na TaskBaru. Komponenta obsahuje take udalosti pro
mys. Novou verzi si muzete stahnout na me strance komponent
http://www.tda(tec)cz/vita/ .
Vita
POcet prvkov v mnozine
[*] Michal Brabec <mbrabec(zv)ciglersw(tec)cz> - 29.7.1998 09:35:23
Nebojim, ja mam jenom strach.
Tomu rikas optimalne prelozeny kod? Ale ten druhej pokus byl dobrej. Delat
optimalizaci prelozenyho kodu jiz ve zdrojaku pascalu, to klobouk dolu. Neco
takovyho se dela v C, ne?
CIGLER SOFTWARE, tr. Gen. Piky 9, 613 00 BRNO, CR
tel:+420-5-526045, fax:45223890, http://www.ciglersw(tec)cz
> -----Original Message-----
> From: Petr Vones [mailto:pvones(zv)mbox.vol(tec)cz]
> Sent: Tuesday, July 28, 1998 9:49 PM
> To: DELPHI Distribution List
> Subject: Re: POcet prvkov v mnozine
>
>
> Michal Brabec wrote:
> >
> > Panove vy se toho asembleru nejak bojite. Vzdyt to prece de vyresit tak
> > hrozne jednoduse. V tom pascalu to sice je udelany rychle ale
> ta rychlost
> > provadeni kodu! Radeji si to poradne odzkousej, psal jsem to
> dost narychlo
> > primo do mailu.
>
> Ahoj,
>
> ale nebojime, neboj. Jeste za dob ZX Specter jsem tak psal tisiciradkove
> programy ... :-)
>
> Jiste ze je to tak rychlejsi, ale snazil jsem se o neco jako nazornost
> a jiste uznas ze z toho paskalskeho kodu je to asi citelnejsi. Navic od
> dob 16bit prekladacu tech duvodu pro optimalizaci pomoci zapisu v
> assembleru
> ponekud ubylo a clovek k tomu pristupuje mene casteji nez drive.
> Dival ses
> nekdy jak se to prelozi, obcas to neni vubec spatne.....
>
> Tady jsem pro ukazku dopsal prelozeny kod z casti toho prikladu (muzou
> tam byt chyby). Pripada ti to pro tento ucel jako prilis neefektivni ?
>
> > > function NumberOfElements(P: Pointer; Size: Integer): Integer;
> > > var
> > > Data: packed array[1..32] of Byte;
> > > D, I: Integer;
> > > begin
> push ebx
> push esi
> push edi
> add esp,-$20
> mov ebx,edx
> > > CopyMemory((zv)Data, P, Size);
> mov edx,esp
> mov ecx,ebx
> xchg eax,edx
> call copymemory
> > > Result := 0;
> xor esi, esi
> > > for D := 1 to Size do
> mov edi,ebx
> test edi,edi
> jle +$27
> mov eax,esp
> > > for I := 1 to 8 do
> > > begin
> mov edx,$08
> > > Inc(Result, Data[D] and $01);
> mov cl,[eax]
> mov ebx,ecx
> and bl,$01
> and edx,$0ff
> add esi,ebx
> > > Data[D] := Data[D] shr 1;
> and ecx,$FF
> shr ecx,1
> mov [eax],cl
> > > end;
> dec dx
> jnz -$1c
> inc eax
> > > end;
> dec edi
> jnz -$25
> mov eax,esi
> add esp,$20
> pop edi
> pop esi
> pop ebx
> ret
>
>
> pokud se to jeste trochu prepise:
>
> function NumberOfElements(P: Pointer; Size: Integer): Integer;
> var
> Data: packed array[1..32] of Byte;
> D, I, N: Integer;
> begin
> CopyMemory((zv)Data, P, Size);
> Result := 0;
> xor esi,esi
> for D := 1 to Size do
> begin
> test ebx,ebx
> jle $1a
> mov ecx,esp
> N := Data[D];
> xor edx,edx
> mov dl,[ecx]
> for I := 1 to 8 do
> mov eax,8
> begin
> if N and $01 <> 0 then Inc(Result);
> test dl,1
> jz +1
> inc esi
> N := N shr 1;
> shr edx,1
> end;
> dec eax
> jnz -$b
> end;
> inc ecx
> dec ebx
> jnz -$18
> end;
> mov eax,esi
>
>
> Petr Vones, amatersky programator
>
>
>POcet prvkov v mnozine
[*] Mgr. Petr Kellner <kellner(zv)praktik(tec)cz> - 29.7.1998 09:55:44
-----P=F9vodn=ED zpr=E1va-----
Od: Petr Vones [SMTP:pvones(zv)mbox.vol(tec)cz]
Odesl=E1no: 28. =E8ervence 1998 21:49
Komu: DELPHI Distribution List
P=F8edm=ECt: Re: POcet prvkov v mnozine
Michal Brabec wrote:
>=20
> Panove vy se toho asembleru nejak bojite. Vzdyt to prece de vyresit =
tak
> hrozne jednoduse.=20
ale nebojime, neboj. Jeste za dob ZX Specter jsem tak psal tisiciradkove
programy ... :-) =20
No, zaprve bych se ptal autora puvodniho dotazu, jak moc to chce mit =
rychle a zadruhe jak moc to chce mit nazorne, event. za treti jak moc =
univerzalni. Opravdu bych se primlouval k tomu, ze pokud se nekdo pta na =
tak pomerne trivialni vec, pak bych mu neradil zdrojakem v ASM, z toho =
urcite prilis rychle nezmoudri. No a ted k te nazornosti a =
univerzalnosti, nesnazil bych se predpokladat ze je to zrovna Set of =
Char v D nebo BP ci TP, a tudiz ze jeho reprezentace ze je 32 bytu za =
sebou (co kdyz nekdo bude chtit nejake set of LongInt a napise si k vuli =
tomu vlastni reprezentaci mnoziny-i kdyz nevim na co by to chtel).=20
Takze uplne obecne a nazorne pro autora puvodniho dotazu:
(je mi jasne za ve skutecnosti to dela zhruba totez co ve vasich ASM a =
pretypovavacich prikladech)
type
TZakladni=3D(Prvek1,...,PrvekN);
TMnozina=3Dset of TZakladni;
function VratPocetPrvku/(const AMnozina:TMnozina):Word;
var
Index:TZakladni;
Out:Word;
begin
Out:=3D0;
for Index:=3DPrvek1 to PrvekN do
if Index in AMnozina then Inc(Out);
VratPocetPrvku:=3DOut;
end;
Myslim, ze tohle pochopi kazdy beloch, ale pokud jsem to spravne =
pochopil, pak puvodni autor asi chtel nejaky jednoduchy vzorec, kterym =
to spocte natosup, ale pak jsme mu asi meli trochu objasnit, jak te =
mnozina v pameti reprezentovana a proc to tudiz tak jednoduse nejde.
Mgr. Petr Kellner
Praktik SW, spol. s r.o. Dom=F9 : Na Z=E1kop=EC 27
V. Outraty 7, Prost=ECjov, 796 00 Olomouc, 773 00
Tel : 0508/365583 Tel : 068/5314129 =20
Fax : 0508/365512 Tel : 0603/457623
e-mail: kellner(zv)praktik(tec)cz pekol(zv)praktik(tec)cz
Web: www.praktik(tec)cz
e-mail pro velmi kr=E1tk=E9 zpr=E1vy: kellner.mobil(zv)sms.paegas(tec)cz
=09
Vypocet dna
[*] Marcel Telka <marcel(zv)vadium.sk> - 29.7.1998 09:56:35
5. Vokativ
Ahoj
M.T.
>Tie pady su fakt OK, ale nie su to tieto?
>1.Nominativ, 2.Genitiv, 3.Dativ, 5. ...neviem..., 4.Akuzativ, 6.Lokal,
>7.Instrumental
>
>Vypocet dna
[*] Martin Nedopil <nedopil(zv)eskon(tec)cz> - 29.7.1998 10:02:01
5. Vokativ ?
>Tie pady su fakt OK, ale nie su to tieto?
>1.Nominativ, 2.Genitiv, 3.Dativ, 5. ...neviem..., 4.Akuzativ, 6.Lokal,
>7.Instrumental
>
<none>
[*] Burger Tom� <tomasb(zv)manwe.mius(tec)cz> - 29.7.1998 10:02:41
Takhle ne!
See http://www.delphi(tec)cz/
Tomas
On Friday, July 24, 1998 5:30 PM, Martin Seget
[SMTP:mseget(zv)profuturo(tec)cz] wrote:
> help
Omluva...
[*] Burger Tom� <tomasb(zv)manwe.mius(tec)cz> - 29.7.1998 10:05:24
Mili delphini,
poslal jsem ted dve nadavky nesikovnym "unsubkrabakum" - a poslal jsem
je bohuzel do konference...
Vratil jsem se ted z dovolene a jeste jsem se nedostal uplne do
rutiny...
Jeste jednou se omlouvam.
Tomas
Tomas Burger
--------------------------------------
Tomas.Burger(zv)mius(tec)cz
Tomas.Burger(zv)sms.paegas(tec)cz
http://www.mius(tec)cz/; http://www.delphi(tec)cz/
http://www.sever(tec)cz/; http://www.teplice(tec)cz/
ICQ: 3908757
--------------------------------------
Insert do InterBase
[*] Jan Macej <jasencak(zv)ssl.sk> - 29.7.1998 10:15:13
Tak s tym CAST( Field as VARCHAR(10) ), alebo CAST( Field as CHAR(10) ) sa to chova uplne rovnako ako aj bez toho, cize "general SQL error string trunc."
Avsak Jan TUNGLI mi poslal DLL za co mu som velmi zauzlovany a co hned skusam. Ak je takto mozne dodefinovat do SQL hocijaku svoju, hoc aj hlupu funkciu, tak je to super.
A este jedna otazka: to DLL taha IB server, nie klient(vsak unho to nie je definovane)?
Vdaka Jan Macej
----------
> Odes�latel: Miroslav BALAZ <mibainfo(zv)internet.sk>
> Komu: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
> P�edm�t: RE: Insert do InterBase
> Datum: 28. j�l 1998 20:40
>
> Myslim, ze principialne existuju dve moznosti pre SQL:
>
> 1. CAST( Field as VARCHAR(10) ), alebo CAST( Field as CHAR(10) ), kde
> Field moze
> byt aj Tvoj Subselect - to by mala byt SQL92 syntax
>
> 2. SUBSTRING() - funkcia je popisana v Local SQL - ci to ide aj v IB som
> netestoval - pozrel som navod IB - nie je to tam, takze zostava prva
> moznost
>
>
> S pozdravom
> Miro
>
> >Zdravim vsetkych
> >
> >Mam viacej tabuliek InterBase s polozkou remark
> >v hlavnej tabulke HLAVNA je remark varchar[40]
> >DHUHA tabulka remark varchar[10]
> >TRETIA tabulka remark varchar[20]
> >a o co mi ide: potrebujem urobit
> >SQL> insert into druha(remark) select remark from
> >hlavna
> >SQL> insert into tretia(remark) select remark from
> >hlavna
> >
> >ale samozrejme ak je remark v HLAVNEJ > 10 tak mi to vyhadzuje STRING
> TRUNCATION
> >Ja ale chcem aby to skratil a nespekuloval.
> >
> >Existuje najaka funkcia ako substring pre IB, alebo ako to spravit cez SQL?
> >
> >Jan Macej
> >
> Presnejsie, chyba vo W95?
[*] TUNGLI Jan <tungli(zv)pvt.sk> - 29.7.1998 10:48:39
Presnejsi popis problemu>
Ked mam minimalizovany DELPHI2 a spustim program Internet Mail a vykonam odstranenie vsetkych vymazanych listov potom sa stane zaujimava vec.
Po uzatvoreni Internet Mail kontrolujem applikacie v pameti (pomocou CTRL-ALT-DEL) tak aplikacia nazvom Explorer je tam dvakrat.
Vadi mi to hlavne preto lebo potom nie je mozne korektne ukoncit Windows95.
Je to iba u mna alebo funguje to vsade tak?
TUNGLI Jan
tungli(zv)pvt.sk
Oznaceni zaznamu v gridu
[*] Hojda Pavel <hojda(zv)mmp.plzen-city(tec)cz> - 29.7.1998 10:54:35
Cau,
nevite nekdo, jak oznacit zanamy v gridu jinou barvou (celou
radku)?
Pavel
DataChange owerride
[*] TUNGLI Jan <tungli(zv)pvt.sk> - 29.7.1998 10:55:42
Potrebujem v komponente ktora je odvodena oad TDataSource
prepisat (override) OnDataChange udalost. Neviete ako sa vola tato udalost a ako to mozem
prepisat?
Nieco take:
public
procedure DoDataChange; owerride;
...
TUNGLI Jan
tungli(zv)pvt.sk
POcet prvkov v mnozine
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 29.7.1998 10:56:34
>Nebojim, ja mam jenom strach.
kdo se boji nesmi do lesa...
>Tomu rikas optimalne prelozeny kod? Ale ten druhej pokus byl dobrej.
Delat
>optimalizaci prelozenyho kodu jiz ve zdrojaku pascalu, to klobouk dolu.
Neco
>takovyho se dela v C, ne?
napsat program v pascalu tak, aby to kompilator dobre prelozil je podle
Tebe blba idea? Pokud clovek vi co a jak se preklada, usetris nejen na
case ale casto i na delce programu. Nektere zmeny ve zdrojacich nemusi
byt na ukor citelnosti programu - naopak - v BP treba platilo, ze
duslednym pouzivanim povelu "with" pri praci s promennymi typu Record
byl vysledny kod kratsi a hlavne rychlejsi....
Diky tomu casto nemusis sahat po kodu v ASM...
Zdravi
D. Toman
Pridani Field
[*] Jiri Sladek <chmelar(zv)oasanet(tec)cz> - 29.7.1998 11:13:30
Pokud se jedna o rucni rozsireni struktury *.DB souboru, tak to jde udelat programem Database Desktop.
-----Original Message-----
From: Milan Fiedler <milanf(zv)rts(tec)cz>
To: Konference <delphi(zv)pinknet(tec)cz>
Date: 29. �ervence 1998 8:00
Subject: Pridani Field
Ahoj lidi,
nev�te nekdo jak pridat Field do tabulky aniz bych prepsal existujici zaznamy v tabulce, at to zkousim jak to zkousim tak se mi vzdy smazou zaznamy
diky
Milan Fiedler
Funkce pro adresar
[*] Rudolf �edrla <vasbosk(zv)bosnet(tec)cz> - 29.7.1998 12:03:59
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
Ahoj vsichni,
pomozte mi, prosim.
Kdyz spustim muj program udelany v delphi, potrebuji nacist do nejake promenne path k tomuto programu. Lze to nejakou funkci? Diky Ruda
Oznaceni zaznamu v gridu
[*] mstevlik(zv)gamo.sk - 29.7.1998 12:05:07
Pouzi RxDBGrid z RxLibrary
SQL Update
[*] mstevlik(zv)gamo.sk - 29.7.1998 12:22:38
Nazdarek, tak opat otravujem ...
Mam dve tabulky T02_0 a T02_0New a potrebujem pomocou SQL prikazov
(najlepsie jedneho) napisat toto
Vstupna tabulky:
T02_0: T02_0New:
Kod Meno Mesto Aktivny Kod Meno
Mesto
1 aa aaa true 1 cc ccc
2 bb bbb false 2 dd ddd
A pozadovany vysledok:
T02_0:
Kod Meno Mesto Aktivny
1 cc ccc true
2 dd ddd false
Potreboval by som to napisat asi takto:
Update T02_0 (Meno, Mesto)
Select Meno ,Mesto From T02_0New
Where T02_0.Kod=T02_0New.Kod
Vopred dik
Majkl
Vypinatelne columns - jeste jednou
[*] Dobromil Mal� <Dobromil.Maly(zv)rak.pr.ds.mfcr(tec)cz> - 29.7.1998 12:36:21
----------
Od: Pavel Kral[SMTP:kral(zv)afx(tec)cz]
Odesl=E1no: 28. =E8ervence 1998 15:28
Komu: DELPHI Distribution List
P=F8edm=ECt: Re: Vypinatelne columns - jeste jednou
jasne ze zkousel, ale kdyz jsou vytvorene Columns, tak vypinani
pres vlastnost Field.visible nefunguje.
Zkousel jsem DBGrid1.Columns[2].Width:=3D0; funguje to, (neni videt), =
ale to asi neni ono, ze (?)
Ani bych columns nepotreboval, kdyby normalne fungovalo nastavovani
sirek sloupcu pres vlastnost Field.DisplayWidth. Buhvi proc si tam
grid priradi jakousi sirku, i kdyz ve Watch window vidim, ze ma spravnou
velikost. Bud to neumim spravne pouzit nebo jsou columns v DBGridu
hruby nedodelek. Ale stravil jsem na tom hruzu casu a asi nejsem sam.
Pavel
-----Original Message-----
From: Zbysek Hlinka <zhlinka(zv)login(tec)cz>
To: delphi(zv)pinknet(tec)cz <delphi(zv)pinknet(tec)cz>
Date: 28. =E8ervence 1998 15:06
Subject: Re: Vypinatelne columns - jeste jednou
Pavel Kral wrote:
> Ahoj,
> vim, ze uz se to tady resilo, ale odpoved nebyla uspokojiva.
> Nepodarilo se nekomu udelat naslednika DBGrid, ktery by umel za behu
> vypinat zobrazeni sloupcu? Pripadne jak to dodelat?
A zkousel sis natahnout do gridu fieldy, a pak na ne delat
Visible:=3Dtrue/false?
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
Funkce pro adresar
[*] mstevlik(zv)gamo.sk - 29.7.1998 12:39:05
Cesta := ExtractFilePath(Application.Exename);
Funkce pro adresar
[*] Vojt�ch Albrecht <supervisor(zv)unicontrols(tec)cz> - 29.7.1998 12:42:01
Presne teda nevim ale zkus
startdir := ParamStr(0) ;
to by melo vratit celou cestu k souboru
Vojtech Albrecht
supervisor(zv)unicontrols(tec)cz
----------
Od: =?iso-8859-2?Q?Rudolf_=A9edrla?=[SMTP:vasbosk(zv)bosnet(tec)cz]
Odesl�no: 29. �ervence 1998 12:03
Komu: Delphi
P�edm�t: Funkce pro adresar
<<Soubor: ATT00035.txt>><<Soubor: ATT00036.html>>Funkce pro adresar
[*] Jiri Sladek <chmelar(zv)oasanet(tec)cz> - 29.7.1998 12:45:03
cesta := paramstr(0);
Pouzivam to v Delphi1, nevim zda to funguje jinde.
-----Original Message-----
From: Rudolf Cedrla <vasbosk(zv)bosnet(tec)cz>
To: Delphi <delphi(zv)pinknet(tec)cz>
Date: 29. �ervence 1998 12:32
Subject: Funkce pro adresar
Ahoj vsichni,
pomozte mi, prosim.
Kdyz spustim muj program udelany v delphi, potrebuji nacist do nejake promenne path k tomuto programu. Lze to nejakou funkci?
Diky Ruda
Funkce pro adresar
[*] Zdenek Prantl <prantl(zv)ptc.pvt(tec)cz> - 29.7.1998 12:47:09
> -----Original Message-----
> From: Rudolf �edrla [SMTP:vasbosk(zv)bosnet(tec)cz]
> Sent: Wednesday, July 29, 1998 12:04 PM
> Subject: Funkce pro adresar
>
> Ahoj vsichni,
> pomozte mi, prosim.
> Kdyz spustim muj program udelany v delphi,� potrebuji nacist do nejake
> promenne path k tomuto programu. Lze to nejakou funkci?
var
sAdresar: string;
begin
GetDir(0,sAdresar);
IF (Length(sAdresar)>0)AND(Copy(sAdresar,Length(sAdresar),1)<>'\') THEN
sAdresar := sAdresar+'\' ;
...
Zd.StringGrid
[*] PETER SUVAK<suvak(zv)pbko.sk> - 29.7.1998 12:51:42
simkovic(zv)vadium.sk on 28.07.98 15:49:38
Please respond to delphi(zv)pinknet(tec)cz
To: delphi(zv)pinknet(tec)cz
cc: (bcc: PETER SUVAK/PBKO/SK)
Subject: StringGrid
Ahoj,
nebude mi vediet niekto z Vas poradit s dvoma malymi problamami? Ide mi
o nasledovne:
1) ako je mozne ulozit obsah StringGrid do nejakeho suboru a nasledovne ho
aj z toho suboru nacitat naspat (napriklad po stlaceni tlacitka)
2) ako sa daju v StringGrid -e polozky triedit (napr: na podnet cez nejake
tlacitko alebo ListBox alebo ...)
===========================================================================
===========================================================================
Obidva problemy riesi komponenta StringAlignGrid, ktoru najdes na adrese
http://www.westend.de/~hoerstemeier, alebo Ti ju
mozem poslat. Je to skutocne vydarena komponenta a je free aj so zdrojakom.
Z mnozstva properties a metod vyberam aspon
AlignCell[Col, Row], AlignRow[Row], ColorCell[Col, Row], CellFont[Col,
Row], SelectedColorCell[Col, Row],
SaveToFile, LoadFromFile, SortColumn atd, ved uvidis.
Peter
==================================================================
Ing. Peter Suvak
office:
Priemyselna banka, a.s. Kosice
Sturova 27, Kosice
tel.: 095 / 6804 282
fax: 095 / 6804 510
E-mail: suvak(zv)pbko.sk
home:
Slobody 13
040 11 Kosice
tel.: 095 / 643 61 40
mobil: 0903 610 901
==================================================================
Vypocet dna
[*] Dobromil Mal� <Dobromil.Maly(zv)rak.pr.ds.mfcr(tec)cz> - 29.7.1998 12:52:15
----------
Od: mstevlik(zv)gamo.sk[SMTP:mstevlik(zv)gamo.sk]
Odesl�no: 29. �ervence 1998 8:44
Komu: DELPHI Distribution List
P�edm�t: RE: Vypocet dna
Tie pady su fakt OK, ale nie su to tieto?
1.Nominativ, 2.Genitiv, 3.Dativ, 5. ...neviem..., 4.Akuzativ, 6.Lokal,
7.Instrumental ^^^^Stativ
DataChange owerride
[*] Jozef Strnadik <strnadik(zv)mbox.mrp(tec)cz> - 29.7.1998 13:05:18
Udalost OnDataChange je volana z procedur:
procedure TDataSource.SetState(Value: TDataSetState);
procedure TDataSource.DataEvent(Event: TDataEvent; Info: Longint);
Kedze tieto procedury nie su virtualne a este k tomu su privatne asi sa Ti ich nepodari prepisat. Odkial a kedy su volane SetState a DataEvent som neskumal.
Jozef Strnadik
E-mail: strnadik(zv)mbox.mrp(tec)cz
-----P�vodn� zpr�va-----
Od: TUNGLI Jan [SMTP:tungli(zv)pvt.sk]
Odesl�no: 29. j�l 1998 10:56
Komu: DELPHI Distribution List
P�edm�t: DataChange owerride
Potrebujem v komponente ktora je odvodena oad TDataSource
prepisat (override) OnDataChange udalost. Neviete ako sa vola tato udalost a ako to mozem
prepisat?
Nieco take:
public
procedure DoDataChange; owerride;
..
TUNGLI Jan
tungli(zv)pvt.sk
Vypinatelne columns - jeste jednou
[*] Pavel Kral <kral(zv)afx(tec)cz> - 29.7.1998 13:06:30
-----Original Message-----
[[JS]]
toto funguje, ale skus si otvorit Columns Editor, pridaj si niekolko stlpcov
a potom skus Filed.Visible := True/False
TDBGrid ma totiz nieco take ako
type TDBGridColumnsState = (csDefault, csCustomized);
property State: TDBGridColumnsState;
ked State = csDefault potom Field.Visible funguje ale ked je State =
csCustomized t.j. stlpce do gridu pridas cez Columns Editor vtedy to
nefunguje.
-------------
tak v tom je teda zakopany pes. Takze to budu muset delat pres vytvareni a
ruseni sloupcu za behu. To je hruza.
Vsem dekuji
Pavel
DBLookupComboBox
[*] Lukes V�clav <lukes(zv)msm.pvt(tec)cz> - 29.7.1998 13:07:52
Poradi mi n�kdo, jak nastavit v�DBLookupComboBoxu pocatecni hodnotu ?
Diky.
Vasek
lukes(zv)msm.pvt(tec)cz <mailto:lukes(zv)msm.pvt(tec)cz> Instalace DAO ?
[*] Jiri Szopa <prosys(zv)grendel(tec)cz> - 29.7.1998 13:10:27
>
> Mam D3, BDE4.51, W95, Office97 prof.
> Kdyz chci pristupovat do k accesove databazi prez native link
> hlasi
>
> General SQL error.
> The Jet VBA file (VBAJET.DLL for 16-bit versions, or VBAJET32.DLL for 32-bit versions) failed to initialize when called. Try
> Alias
> Alias: TiskA
>
> Daotest od E.Salaje mi hlasi, ze nemam nainstalovane DAO. Mel jsem za to,
> ze se s Office instaluje automaticky.
> Stahl jsem si DAO35_redist, je to jen seznam dll, bez popisu instalace.
>
> 1. Proc se mi korektne nezaregistrovalo DAO ?
> 2. Jak instalovat DAO na pocitaci bez Office ?
> -------------------------------------------
>Mas v BDE nastavenu spravnou DLL pro Access97? Jsou tam dve,
>jedna pro Access95 a druha pro Access97 - musis vybrat tuhle:
>IDDA3532.DLL - ta je pro Access97.
Nepomaha ani jedno ani druhe
Funkce pro adresar
[*] Jiri Szopa <prosys(zv)grendel(tec)cz> - 29.7.1998 13:13:24
Ahoj vsichni,
pomozte mi, prosim.
Kdyz spustim muj program udelany v delphi, potrebuji nacist do nejake promenne path k tomuto programu. Lze to nejakou funkci? Diky Ruda
ExtractFilePath(Application.ExeName)
-------------------------------------------
Ing. Jiri Szopa
tel.: +420 659 713393
fax.: +420 659 713392
email: jiri.szopa(zv)email(tec)cz
Oznaceni zaznamu v gridu
[*] Pavel Kral <kral(zv)afx(tec)cz> - 29.7.1998 13:17:17
Jestli chces vybarvit radek v TStringGrid, muzes pouzit taky
komponentu TStringAligGrid, ktera umi nastavit spoustu vlastnosti
pro radky, sloupce, jednotlive bunky.
Nasel jsem ji tusim na DSP, pripadne muzu poslat.
Jinak si muzes napsat vlastni proceduru pro vykreslovani bunky v
udalosti onDrawCell pripadne OnDrawDataCell pro DBGrid.
Neni to az takova hruza, jak to zpocatku vypada.
Pro DBGrid musis vykreslit vsechny bunky. Muzu poslat priklad.
Mimochodem, kdo pouzivate RxDBGrid z RXLibrary, nestava se vam
pri krokovani, ze haze hrozne chyby neco jako Invalid Floating Poin op.
kdyz je prirazena procedura udalosti OnDrawDataCell ?
-----Original Message-----
From: mstevlik(zv)gamo.sk <mstevlik(zv)gamo.sk>
To: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
Date: 29. �ervence 1998 12:52
Subject: Re: Oznaceni zaznamu v gridu
>Pouzi RxDBGrid z RxLibrary
>
>
>
Funkce pro adresar
[*] Pavel Kral <kral(zv)afx(tec)cz> - 29.7.1998 13:19:01
Ja to delam funkci
ExtractFilePath(Paramstr(0))
Pavel
-----Original Message-----
From: Rudolf �edrla <vasbosk(zv)bosnet(tec)cz>
To: Delphi <delphi(zv)pinknet(tec)cz>
Date: 29. �ervence 1998 12:27
Subject: Funkce pro adresar
Ahoj vsichni,
pomozte mi, prosim.
Kdyz spustim muj program udelany v delphi, potrebuji nacist do nejake promenne path k tomuto programu. Lze to nejakou funkci?
Diky Ruda
Cesta Path
[*] Milan Fiedler <milanf(zv)rts(tec)cz> - 29.7.1998 13:20:10
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
S := ParamStr(0); //Cestu k aktu�ln�mu souboru v �etn� souboru
S := ExtractFilePath(ParamStr(0)); // pouze cesta bez souboru
Milan Fiedler
milanf(zv)rts(tec)cz
Ahoj vsichni,
pomozte mi, prosim.
Kdyz spustim muj program udelany v delphi, potrebuji nacist do nejake promenne path k tomuto programu. Lze to nejakou funkci?
Diky Ruda
SQL, prace s vyrazy
[*] Jiri Sladek <chmelar(zv)oasanet(tec)cz> - 29.7.1998 13:44:39
Zdravim All, mam maly dotaz.
V dotazu SQL pouzivam vyrazy, napriklad:
JCENA * MNOZSTVI AS CENA
Je mozne s ten udaj CENA pouzit pro dalsi vypocet ? Napriklad:
Cena * ProcDPH / 100 AS DPHkc
Diky, Jirka.
Funkce pro adresar
[*] Kelle Ondrej <Kelleon(zv)nnsk.sk> - 29.7.1998 13:58:36
ExtractFilePath(Application.ExeName)
Ondrej Kelle
kelleon(zv)nnsk.sk
> -----Original Message-----
> From: Rudolf �edrla [SMTP:vasbosk(zv)bosnet(tec)cz]
> Sent: Wednesday, July 29, 1998 12:04 PM
> To: Delphi
> Subject: Funkce pro adresar
>
> Ahoj vsichni,
> pomozte mi, prosim.
> Kdyz spustim muj program udelany v delphi,� potrebuji nacist do nejake
> promenne path k tomuto programu. Lze to nejakou funkci?
> �
> �
> ��������������������������������������� Diky Ruda
Funkce pro adresar
[*] voltrr1.epr(zv)mail.cez(tec)cz - 29.7.1998 13:59:00
Nova zprava:
var
Path,ExePath:String;beginExePath:=Paramstr(0);Path:=ExtractFilePath(ExePath
);end;v ExePath mas cestu vcetne .exe souboru , v Path mas cestu k adresari
v kterem je exacRadek Voltr
---------------------------------------------------------------
Puvodni zprava:
Ahoj vsichni,
pomozte mi, prosim.
Kdyz spustim muj program udelany v delphi, potrebuji nacist do nejake
promenne path k tomuto programu. Lze to nejakou funkci?
Diky Ruda
Funkce pro adresar
[*] Rul��ek Daniel <dan.r(zv)avizo(tec)cz> - 29.7.1998 14:02:40
Zkus
��� ExtractFilePath(Application.ExeName)
�
����������� Dan
�
-----Original Message-----
From: Rudolf �edrla [mailto:vasbosk(zv)bosnet(tec)cz]
Sent: Wednesday, July 29, 1998 12:04 PM
To: Delphi
Subject: Funkce pro adresar
Ahoj vsichni,
pomozte mi, prosim.
Kdyz spustim muj program udelany v delphi,� potrebuji nacist do nejake
promenne path k tomuto programu. Lze to nejakou funkci?
�
�
��������������������������������������� Diky Ruda
TAB a PageControl + BDE, IB
[*] Marek Repisk� <mrepisky zl(zv)zsnp.sk> - 29.7.1998 14:08:26
Nazdar!
Chcem sa spytat:
Da sa nejako osetrit prepinanie poli cez TAB v PageControl (D3)? Tak
aby to po stlaceni TAB preslo z jedneho pola(pole=componenta) na dalsie pole,
ak je pole posledne na TabSheete tak aby to preslo na prve pole nasledujuceho TabSheedu. Proste mat nad tym kontrolu. Robim ta zatial asi takto:
procedure TForm1.Edit4Exit(Sender: TObject); {Edit4 je na TabSheet1}
begin
PageControl1.ActivePage:=TabSheet2;
Edit5.SetFocus; {Edit5 je na TabSheet2}
end;
Pri pouzivani klavesi TAB je to OK, ale pri skakani s myskou to robi neplechu.
Skusal som OnKeyDown,Press,Up ale tie sa pri TABe vobec nevolaju.
Ak ste uz niekto nieco take robili, alebo viete ako na to, tak, prosim napiste.
Dakujem.
P.S.: Doteraz som sa marne trapil s vytvorenim aliasu z InstallShieldu na IB
databazu. Uz to vzdavam. Asi sa budem drzat rady z konferencie a alias budem
vytvarat len programovo. Vdaka za vsetky rady, ktore ste mi poslali, ale ja
to rozchodit asi nedokazem :-((
S pozdravom
Marek Repisky
mrepisky_zl(zv)zsnp.sk
Oznaceni zaznamu v gridu
[*] Marek Repisk� <mrepisky zl(zv)zsnp.sk> - 29.7.1998 14:12:52
Mohlo by to ist cez udalost OnDrawCell. Vyfarbujem takto text v bunkach.
S pozdravom
Marek Repisky
mrepisky_zl(zv)zsnp.sk
----------
> Odes�latel: Hojda Pavel <hojda(zv)mmp.plzen-city(tec)cz>
> Komu: 'delphi(zv)pinknet(tec)cz'
> P�edm�t: Oznaceni zaznamu v gridu
> Datum: 29. j�l 1998 10:54
>
> Cau,
> nevite nekdo, jak oznacit zanamy v gridu jinou barvou (celou
> radku)?
>
> Pavel
Funkce pro adresar
[*] Pavel Zichovsky <zichovsky(zv)jesnem(tec)cz> - 29.7.1998 14:22:31
> Ahoj vsichni,
> pomozte mi, prosim.
> Kdyz spustim muj program udelany v delphi, potrebuji nacist do nejake =
> promenne path k tomuto programu. Lze to nejakou funkci?
Psal jsem si to kdysi jeste pro TurboPascal, ale funguje to i v Delphi.
function cestakprogramu:string; {Vrati adresar s .EXE programem (bez lomitka na konci)}
var cst:string;
begin
cst:=paramstr(0);
while not (cst[length(cst)]='\') do
delete(cst,length(cst),1);
delete(cst,length(cst),1);{pokud chces na konci lomitko (\), zrus tento radek}
cestakprogramu:=cst;
end;
S pozdravem
Pavel "Zizi" Zichovsky <zichovsky(zv)jesnem(tec)cz>
mobil: pavel.zichovsky(zv)sms.paegas(tec)cz (120 znaku)
ICQ: 13484112
PGP podporovano a vitano
menu ve stylu D4
[*] Miloslav Skacel <skacel(zv)kjsoft(tec)cz> - 29.7.1998 15:35:52
Ahoj,
nevite nekdo jak jednoduse udelat (main) menu ve stylu D4 v MDI aplikaci?
Zkusil jsem sestavu CoolBar-ToolBar-ToolButton-DropdownMenu. ToolButton pro
kazdou polozku menu.
Ma to tyto nedostatky:
- automaticky se neotvira vedlejsi menu pri pohybu mysi nebo stisku sipka ->
<-. Pri potrebe otevrit vedlejsi
menu je treba na nej klepnout.
- pri maximalizaci MDIChild vznikne pod titulkem misto pro tl.
Maximize,Minimize pro MDIChil okno
a teprve pod nim je menu.
Diky za rady.
S pozdravem,
Miloslav Skacel
skacel(zv)kjsoft(tec)cz
http://www.kjsoft(tec)cz
Pridani Field
[*] Miroslav BALAZ <mibainfo(zv)internet.sk> - 29.7.1998 15:42:21
Spr_va vo form_te MIME rozdelen_ na viac _ast_.
Pomocou TQuery:
ALTER TABLE "X:\path\xxx.DB" Add
"X:\PATH\xxxDB"."Meno Noveho Char pola" CHAR(10),
"X:\PATH\xxxDB"."Meno Noveho Integer pola" Integer
kde
"X:\path\xxx.DB" reprezentuje Full File Name a sucasne
moze sluzit aj ako alias. ALIAS je trba vtedy, ked nazvy poli
su rezervovane slova, alobo su v nich medzery, alebo pouzivas
rozsirene ASCII znaky - /nad 128/
PS: nezabudni pouzit ExecSQL / nie open ! /
Miro
-----P�vodn� spr�va-----
Od: Milan Fiedler <milanf(zv)rts(tec)cz>
Pre: Konference <delphi(zv)pinknet(tec)cz>
D�tum: 29. j�l 1998 08:05
Predmet: Pridani Field
Ahoj lidi,
nev�te nekdo jak pridat Field do tabulky aniz bych prepsal existujici zaznamy v tabulce, at to zkousim jak to zkousim tak se mi vzdy smazou zaznamy
diky
Milan Fiedler
Delphi 4 - recenze dotaz
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 29.7.1998 15:48:50
=?iso-8859-2?B?QWxluSBCZXJrYQ wrote:
> Jo a kdyz uz se tu psalo o te recenzi, kde ji najdeme ? Je v elektronicke
> podobe ?
Vyjde v SWN, predpokladam ze v rijnu nebo v listopadu. Text mam
odevzdat do konce srpna. Jestli ma nekdo nejake dotazy, ktere
budu schopen odpovedet, nebo nejake zkusenosti z vlastniho
provozu, budu rad. Nyni mam verzi Professional, behem srpna pak
verzi C/S.
Jinak text recenze nezverejnim, to by se redakci pranic nelibilo.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
DBLookupComboBox
[*] svatos(zv)af(tec)czu(tec)cz - 29.7.1998 16:07:06 met
> Poradi mi n kdo, jak nastavit v�DBLookupComboBoxu pocatecni hodnotu ?
Ahojdy !
Myslim, ze tak, ze nastavis hodnotu Fieldu v DataSoursu ...
Svatos Hynek
svatos(zv)af(tec)czu(tec)cz
Finito RX English Help
[*] Petr Vales <Petr.Vales(zv)gopas(tec)cz> - 29.7.1998 16:27:05
sorry,
priste si dam bacha
> ----------
> Od: Pavel Kral[SMTP:kral(zv)afx(tec)cz]
> Odesl�no: Thursday, July 30, 1998 8:06 AM
> Komu: DELPHI Distribution List
> Predmet: Re: Finito RX English Help
>
> Dekuji za ten popis, presto je lepsi takove soubory neposilat primo do
> konference,
> spravce je z toho dost nervozni (ani se mu nedivim).
> myslim, ze pro ten ucel byl zrizen FTP server
> Adresa: ftp://ftp.mlp(tec)cz/pub/misc/delphi/konference
>
> Diky Pavel
>
> -----Original Message-----
> From: Petr Vales <Petr.Vales(zv)gopas(tec)cz>
> To: 'delphi(zv)pinknet(tec)cz' <delphi(zv)pinknet(tec)cz>
> Date: 29. cervence 1998 19:03
> Subject: Finito RX English Help
>
>
> >Zdravim vsechny,
> >
> >obdrzel sem anglicky popis RX library, takze pokud ho
> >negdo potrebuje ?
> >
> >
> >
> >S pozdravem Petr Vales
> >
> >
>
> POcet prvkov v mnozine
[*] Michal Brabec <mbrabec(zv)ciglersw(tec)cz> - 29.7.1998 16:27:26
Ja samozrejme nemam nic proti optimalizaci zdojaku jen jsem se na timto
pokusem pousmal. Ja jen tvrdim, ze kdyz chcu udelat neco co prochazi datovou
strukturu v pameti a neco s ni dela je vzdy lepsi sahnout po assembleru.
Samozrjeme pokud me na rychlosti nezalezi a nebo by to bylo prilis slozity
tak to delam v pascalu.
A navic i ten druhej pokus nebyl zrovna nejlepsi co se tyce prekladu i kdyz
byl lepsi nez ten prvni. Prece jen v assembleru udelam jenom to chci, pascal
tam prelozi spoustu balastu navic, ktery potrebuje pro obecny pouzivani atd.
Ale uz dost na toto tema, venujme se spise vlastnimu problemu.
Michal Brabec.
CIGLER SOFTWARE, tr. Gen. Piky 9, 613 00 BRNO, CR
tel:+420-5-526045, fax:45223890, http://www.ciglersw(tec)cz
> -----Original Message-----
> From: Dalibor Toman [mailto:dtoman(zv)fortech(tec)cz]
> Sent: Wednesday, July 29, 1998 10:57 AM
> To: DELPHI Distribution List
> Subject: Re: POcet prvkov v mnozine
>
>
>
>
> >Nebojim, ja mam jenom strach.
>
> kdo se boji nesmi do lesa...
>
> >Tomu rikas optimalne prelozeny kod? Ale ten druhej pokus byl dobrej.
> Delat
> >optimalizaci prelozenyho kodu jiz ve zdrojaku pascalu, to klobouk dolu.
> Neco
> >takovyho se dela v C, ne?
>
> napsat program v pascalu tak, aby to kompilator dobre prelozil je podle
> Tebe blba idea? Pokud clovek vi co a jak se preklada, usetris nejen na
> case ale casto i na delce programu. Nektere zmeny ve zdrojacich nemusi
> byt na ukor citelnosti programu - naopak - v BP treba platilo, ze
> duslednym pouzivanim povelu "with" pri praci s promennymi typu Record
> byl vysledny kod kratsi a hlavne rychlejsi....
> Diky tomu casto nemusis sahat po kodu v ASM...
>
> Zdravi
> D. Toman
>
>
>Funkce pro adresar
[*] Michal Brabec <mbrabec(zv)ciglersw(tec)cz> - 29.7.1998 16:34:34
Cau
zkus taky jeste ExtractFilePath(Application.ExeName - toto je cesta i se
jmenem souboru). Ten ParamStr(0) sice funguje (v Delphi1 urcite, dal uz taky
nevim), ale napr. vim, ze BP7 mela s tim problemy a pokud jsi to spustil s
prostredi tak ParamStr(0) vratil cestu na prekladac).
Michal Brabec, mailto:michal(zv)ciglersw(tec)cz
--------------------------------------------------------------
C I G L E R S O F T W A R E, tr. Gen. Piky 9, 613 00 Brno
obchodni oddeleni : 05-526045, mailto:ciglersw(zv)ciglersw(tec)cz
technicka podpora : 05-45222242, mailto:hotline(zv)ciglersw(tec)cz
fax : 05-520764, 45223890
home page : http://www.ciglersw(tec)cz
-----Original Message-----
From: Jiri Sladek [mailto:chmelar(zv)oasanet(tec)cz]
Sent: Wednesday, July 29, 1998 12:45 PM
To: DELPHI Distribution List
Subject: Re: Funkce pro adresar
cesta := paramstr(0);
Pouzivam to v Delphi1, nevim zda to funguje jinde.
-----Original Message-----
From: Rudolf Cedrla <vasbosk(zv)bosnet(tec)cz>
To: Delphi <delphi(zv)pinknet(tec)cz>
Date: 29. �ervence 1998 12:32
Subject: Funkce pro adresar
Ahoj vsichni,
pomozte mi, prosim.
Kdyz spustim muj program udelany v delphi, potrebuji nacist do nejake
promenne path k tomuto programu. Lze to nejakou funkci? Diky Ruda
RX Help
[*] Petr Vales <Petr.Vales(zv)gopas(tec)cz> - 29.7.1998 17:15:48
[P��loha v souboru: rx-doc.rar]
This message is in MIME format. Since your mail reader does not understand
this format, some or all of this message may not be legible.
Zde je...mnoho uspechu v programovani
> ----------
> Od: Maros Klaco[SMTP:klaco(zv)mtf.stuba.sk]
> Odesl�no: Thursday, July 30, 1998 11:59 AM
> Komu: DELPHI Distribution List
> Predmet: Re: RX Help
>
> Ahoj,
> tiez by som mal zaujem.
> Dik.
>
>
> > obdrzel sem anglicky popis RX library, takze pokud ho
> > negdo potrebuje ?
>
> --
> Maros
> mailto:klaco(zv)mtf.stuba.sk
>
> STU MtF Trnava
> Katedra Aplikovanej Informatiky a Automatizacie
> Hajdoczyho 1
> Trnava 917 24
> Tel.: 0805/27455
> Fax : 0805/27454
>
> Vypinatelne columns - jeste jednou
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 29.7.1998 17:19:19
Pavel Kral wrote:
>
> -----Original Message-----
> ked State = csDefault potom Field.Visible funguje ale ked je State =
> csCustomized t.j. stlpce do gridu pridas cez Columns Editor vtedy to
> nefunguje.
>
> -------------
> tak v tom je teda zakopany pes. Takze to budu muset delat pres vytvareni a
> ruseni sloupcu za behu. To je hruza.
Ahoj,
Nedavno (tusim v pondeli) jsem sem posilal priklad jak presne tohle resit.
Neni to sice uplne idelani, ale funguje to. Podivej se do archivu konference.
Petr Vones, amatersky programator
DataChange owerride
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 29.7.1998 17:25:02
TUNGLI Jan wrote:
>
> Potrebujem v komponente ktora je odvodena oad TDataSource
> prepisat (override) OnDataChange udalost. Neviete ako sa vola tato udalost a ako to mozem
> prepisat?
>
Ahoj,
To pujde asi tezko. Zkus popsat k cemu to potrebujes.
Petr Vones, amatersky programator
StringGrid
[*] mstevlik(zv)gamo.sk - 29.7.1998 17:26:16
Poprosim o tu komponentu
mstevlik(zv)gamo.sk
Oznaceni zaznamu v gridu
[*] mstevlik(zv)gamo.sk - 29.7.1998 17:28:10
Tu chybu som este nevidel a pouzivam RxDBGrid (ani pri krokovani)
Funkce pro adresar
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 29.7.1998 18:43:52
> pomozte mi, prosim.
> Kdyz spustim muj program udelany v delphi, potrebuji nacist do nejake =
> promenne path k tomuto programu. Lze to nejakou funkci?
Cesta := ExtractFilePath(Application.ExeName);
nebo
Cesta := ExtractFilePath(ParamStr(0));
*** POZOR, DOCHAZI KE ZMENE TELEFONNICH A FAXOVYCH CISEL ***
*** T A T O Z M E N A J E J I Z K O N E C N A ! ***
S pozdravem
Petr Zahradnik, pocitacovy expert
==============================================================
=== 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 ===
==============================================================Presnejsie, chyba vo W95?
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 29.7.1998 18:55:55
TUNGLI Jan wrote:
>
> Presnejsi popis problemu>
>
> Ked mam minimalizovany DELPHI2 a spustim program Internet Mail a vykonam odstranenie vsetkych vymazanych listov potom sa stane zaujimava vec.
> Po uzatvoreni Internet Mail kontrolujem applikacie v pameti (pomocou CTRL-ALT-DEL) tak aplikacia nazvom Explorer je tam dvakrat.
> Vadi mi to hlavne preto lebo potom nie je mozne korektne ukoncit Windows95.
> Je to iba u mna alebo funguje to vsade tak?
Ahoj,
je to tak vsude. Staci spustit Internet Mail nebo News. Kdyz se podivas do zastupce
tak tam vlastne otviraji tohle:
C:\WINDOWS\EXPLORER.EXE /root,C:\WINDOWS\Internet Mail.{89292102-4755-11cf-9DC2-00AA006C2B84}
Ale pri zavirani Windows me to zadne problemy nedela (Win95 OSR2, IE 3.02 CZ). Petr Vones, amatersky programator
TAB a PageControl + BDE, IB
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 29.7.1998 19:15:36
Marek Repisk� wrote:
>
> Nazdar!
>
> Chcem sa spytat:
> Da sa nejako osetrit prepinanie poli cez TAB v PageControl (D3)? Tak
> aby to po stlaceni TAB preslo z jedneho pola(pole=componenta) na dalsie pole,
> ak je pole posledne na TabSheete tak aby to preslo na prve pole nasledujuceho TabSheedu. Proste mat nad tym kontrolu. Robim ta zatial asi takto:
>
> procedure TForm1.Edit4Exit(Sender: TObject); {Edit4 je na TabSheet1}
> begin
> PageControl1.ActivePage:=TabSheet2;
> Edit5.SetFocus; {Edit5 je na TabSheet2}
> end;
>
> Pri pouzivani klavesi TAB je to OK, ale pri skakani s myskou to robi neplechu.
> Skusal som OnKeyDown,Press,Up ale tie sa pri TABe vobec nevolaju.
>
> Ak ste uz niekto nieco take robili, alebo viete ako na to, tak, prosim napiste.
Ahoj,
slo by to udelat takhle, u kazdeho TabSheetu nastav OnExit na TabSheet1Exit.
type
TWinControlHack = class(TWinControl);
procedure TForm1.TabSheet1Exit(Sender: TObject);
var
Shift: Boolean;
begin
Shift := GetKeyState(VK_SHIFT) and $80 <> 0;
if (GetKeyState(VK_TAB) and $80 <> 0) and (GetKeyState(VK_CONTROL) and $80 = 0) then
begin
PageControl1.SelectNextPage(not Shift);
with TWinControlHack(PageControl1.ActivePage) do
begin
SelectFirst;
if Shift then SelectNext(ActiveControl, False, True);
end;
end;
end;
Petr Vones, amatersky programator
Finito RX English Help
[*] Michal Brabec <mbrabec(zv)ciglersw(tec)cz> - 29.7.1998 19:33:20
Proc proboha posilate ty nekolika tunovy fily mailem. Kazdy nema pevnou
linku a telekom je drahej. Naco nam tady tusim Ales Zeleny (doufam ze jsem
se nespletl a nekoho neurazil, jestli to byl nekdo jiny tak se mu hluboce
omlouvam) zrizoval ftp server na tyto ucely.
ftp://ftp.mlp(tec)cz/pub/misc/delphi/konference.
Pro cteni lze pouzit normalni pristup anonymous.
Pro zapis je treba se prihlasit jako
username: delphi
password: borland
Michal Brabec.
CIGLER SOFTWARE, tr. Gen. Piky 9, 613 00 BRNO, CR
tel:+420-5-526045, fax:45223890, http://www.ciglersw(tec)cz
> -----Original Message-----
> From: Petr Vales [mailto:Petr.Vales(zv)gopas(tec)cz]
> Sent: Wednesday, July 29, 1998 3:48 AM
> To: 'delphi(zv)pinknet(tec)cz'
> Subject: Finito RX English Help
>
>
> Zdravim vsechny,
>
> obdrzel sem anglicky popis RX library, takze pokud ho
> negdo potrebuje ?
>
>
> S pozdravem Petr Vales
>
>Help
[*] Jaroslav Posp�il <Jaroslav.Pospisil(zv)gopas(tec)cz> - 29.7.1998 19:51:54
Zdravim vsechny,
Prosim Vas, nevite nekdo, jak nastavit "GetOpenFileName" ve
Windows 3.1 SDK pouze pro vyber adresaru ? Myslim, ze jsem tuto
moznost nekde videl, ale nenasel jsem to. Nebo nejaky jiny jednoduchy
zpusob vyhledani a nastaveni adresare.
Diky Jarda.Instalace DAO ?
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 29.7.1998 20:09:16
> >Mas v BDE nastavenu spravnou DLL pro Access97? Jsou tam dve,
> >jedna pro Access95 a druha pro Access97 - musis vybrat tuhle:
> >IDDA3532.DLL - ta je pro Access97.
>
> Nepomaha ani jedno ani druhe
Tuhle mi prestal chodit Access 97, kdyz jsem myslim neco
nainstaloval, snad BDE4.51, tak jsem musel Access 97
preinstalovat. Zkusil jsi to?
*** POZOR, DOCHAZI KE ZMENE TELEFONNICH A FAXOVYCH CISEL ***
*** T A T O Z M E N A J E J I Z K O N E C N A ! ***
S pozdravem
Petr Zahradnik, pocitacovy expert
==============================================================
=== 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 ===
==============================================================Finito RX English Help
[*] Petr Vales <Petr.Vales(zv)gopas(tec)cz> - 29.7.1998 20:46:27
Dekuji mnohokrat za manual "jak zachazet s mailerem"
Je zrejmy autoruv talent a proto mu doporucuji publikovat
v nekterych pocitacovych magazinech, kde by jiste nasel
uplatneni.
==========================================
Petr Vales - neexpert a absolutni nula co se tyce majlovani
> ----------
> Od: Radek Bartik[SMTP:bartik(zv)nemhoro(tec)cz]
> Odesl�no: Thursday, July 30, 1998 7:26 PM
> Komu: DELPHI Distribution List
> Predmet: Re: Finito RX English Help
>
> >sorry,
> >
> >priste si dam bacha
> >
> K tomu 'dat si bacha' je jeste potreba umet delat s mailerem.
> Veskera posta z konference ma uvedeno v hlavicce Reply-To: DELPHI
> Distribution List <delphi(zv)pinknet(tec)cz>, coz znamena, ze pokud date
> Reply (nebo pro nekoho cesky odpovedet) a nezmenite adresata, odesle
> se odpoved do konference !!!
> Pokud chcete zaslat odpoved pouze autorovi zpravy, je nutne nejdrive
> zjistit jeho adresu - treba tak, ze se podivate do zdroje zpravy,
> naleznete radek zacinajici From: a za nim je uvedena adresa
> odesilatele (pro mene znale je to takoveto s tim (zv) uprostred). Pak
> staci dat Reply, prepsat cilovou adresu na adresu nalezenou za From: v
> puvodni zprave a odeslat. Ten komu je mail urceny bude spokojen a lide
> v konferenci take.
> Podobny postup bych doporucil i pro zpravy typu 'Ja chci taky', 'Mohu
> taky poprosit' a pod., ktere patri take spise autorovi prispevku nez
> do konference.
>
> Radek
> menu ve stylu D4
[*] Michal Leinweber <M.Leinweber(zv)sh.cvut(tec)cz> - 29.7.1998 21:38:58
> nevite nekdo jak jednoduse udelat (main) menu ve stylu D4 v MDI aplikaci?
> Zkusil jsem sestavu CoolBar-ToolBar-ToolButton-DropdownMenu.
> ToolButton pro
> kazdou polozku menu.
> Ma to tyto nedostatky:
> - automaticky se neotvira vedlejsi menu pri pohybu mysi nebo
> stisku sipka ->
> <-. Pri potrebe otevrit vedlejsi
> menu je treba na nej klepnout.
Toto vyresite prekvapive jednoduse - Nastavenim property Grouped u vsech
ToolButton na true.
> - pri maximalizaci MDIChild vznikne pod titulkem misto pro tl.
> Maximize,Minimize pro MDIChil okno
> a teprve pod nim je menu.
Tak s tim Vam nepomohu, treba konretne v Delphi IDE tohle resit nemuseli
protoze to neni MDI aplikace, ale zase na druhou stranu v Officech to
funguje i kdyz ne idealne. Jestli ste si vsim tak pokud v Excelu vezmete
Menu a date ho do okynka tak pak ikony maximalizovaneho okna sou porad v tom
okynku od menu.
McLEI
Finito RX English Help
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 29.7.1998 21:53:32
Petr Vales wrote:
>
> Zdravim vsechny,
>
> obdrzel sem anglicky popis RX library, takze pokud ho
> negdo potrebuje ?
Dik, ale jako mail do konference by to nemuselo mit zrovna 213 kB ... :-) Petr Vones, amatersky programator
Animace
[*] Stanislav Cerny <s.cerny(zv)mod(tec)cz> - 29.7.1998 21:57:29
diky za namety,
nemate nahodou nekdo praktickou ukazku pouziti
tridy TTHread respektive vytvoreni potomka a jeho
aplikaci na VCL kompomentu. Mam Mistrovstvi v Delphi 2
kde je sice uk�zka, ale nejsem z ni moc moudrej.
Standa C.
-----P�vodn� zpr�va-----
Od: Petr Vones <pvones(zv)mbox.vol(tec)cz>
Komu: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
Datum: 28. �ervence 1998 22:55
P�edm�t: Re: Animace
Dobromil Mal� wrote:
>
> >> Stanislav Cerny wrote:
> >>
> >> Ahoj vsichni,
> >> v programu aktivuji vetsi pocet datadazi, tato operace trva delsi
> >> dobu a tak jsem ji chtel uzivateli zprijemnit pohledem na animovany
> >> GIF, pouzil jsem kompoventu z Rx, ale pri aktivaci tabulek se temner
> >> nehejbe. Nepomaha refresh ani update.
> >> Co delat?
>
> >Ahoj,
>
> >Patrne to bude tim ze komponenta z RxLib pouziva pro casovani
prekreslovani
> >jednotlivych snimku Timer, ktery je aktivovan pomoci zprav Windows ktere
> >se pri otevirani tabulek nezpracovavaji. Resenim by patrne bylo pouziti
> >nejake jine komponenty (ci jeji uprava) tak aby bezela jako thread.
> Pokud je to skutecne tak, pak by se mohlo mezi otviranim jednotlivych
> databazi (ci tabulek) volat Application.ProcessMessages.
Ahoj,
to tezko, pak by jsi mel jen par snimku. Navic pouzivani
Application.ProcessMessages
povazuju za krajne nevhodny zpusob k reseni cehokoliv. Myslim ze
multithreading ve
Windows neni spatna vec, tak pro jej nevyuzit. Pravda je ze s thready v D2
jsem mel
problemy ale v D3 to uz dost prepracovali a fungovalo to bez problemu.
Petr Vones, amatersky programator
Vypinatelne columns - jeste jednou
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 29.7.1998 22:14:41
Jozef Strnadik wrote:
> type TDBGridColumnsState = (csDefault, csCustomized);
> property State: TDBGridColumnsState;
>
> ked State = csDefault potom Field.Visible funguje ale ked je State =
> csCustomized t.j. stlpce do gridu pridas cez Columns Editor vtedy to
> nefunguje.
>
Hm, v takovem pripade je asi dobre zvazit, zda neni rozumnejsi
tuto cestu opustit.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
DataChange owerride
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 29.7.1998 22:14:39
TUNGLI Jan wrote:
> Potrebujem v komponente ktora je odvodena oad TDataSource
> prepisat (override) OnDataChange udalost. Neviete ako sa vola tato udalost
> a ako to mozem prepisat?
>
V takovych pripadech to resim vzdy tak, ze se podivam do
zdrojaku, kde se prislusna udalost vola, a tu metodu potom prepisu.
S pozdravem
Zbysek Hlinka
E-mail: zhlinka(zv)login(tec)cz
Tel.: 02/795 29 56; GSM: 0603 551 282
Krystofova 1016, 149 00 Praha 4
CZ
ShellExecute
[*] peterrus(zv)intesys(tec)cz (Peter Rus) - 29.7.1998 22:14:23
Ahoj,
nevim, jestli je tohle to, co hledas, ale zkus to takhle :
command.com /c rename a.a b.b
V dosu to fungovalo, ve Windows zustal zachovan parametr /c, takze by to
snad mohlo i bezet jak ma.
Hodne stesti,
Peter Rus ml.
mailto:peterrus(zv)intesys(tec)cz
--------
Petr Vales wrote:
>
> Ahoj vsichni,
>
> chtel bych se zeptat, zda funkce ShellExecute dokaze
> volat interni funkce systemu...napr. "rename a.a b.b".
>
> Jestli to neni tato...nevite prosim nekdo o jinem
> reseni ??
>
> Diik
Rozlisovacka
[*] delphi(zv)post.sk - 29.7.1998 23:36:28
Zdravim vsetkych ......
Mam taky malicky problemik , potreboval by som za behu programu menit rozlisovacku - zatial mam taky dojem ze to idem iba po restarte - ked ju zmenim v registroch - ale samozrejem ze sa to da aj inak ...........
Takze ?
s pozdravom Delphi :)))
----------------------------------------
WWW.POST.SK - e-mail pre kazdeho zadarmo
Umi nekdo nacist BOOT sektor v Delphi 1 ?
[*] Pavel Sevcik <peth222(zv)yahoo(tec)com> - 30.7.1998 04:39:40 -0700 (pdt)
Zkousel jsem snad vse ale nejak to neslo, ani pres ASM. Nevite
prosimvas nekdo jak na to ?
_________________________________________________________
DO YOU YAHOO!?
Get your free (zv)yahoo.com address at http://mail.yahoo.com
TAB a PageControl
[*] Marek Repisk� <mrepisky zl(zv)zsnp.sk> - 30.7.1998 06:24:14
WAV !!!
To je ono!!
Vdaka!
S pozdravom
Marek Repisky
mrepisky_zl(zv)zsnp.sk
----------
Odes�latel: Petr Vones <pvones(zv)mbox.vol(tec)cz>
Komu: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
P�edm�t: Re: TAB a PageControl + BDE, IB
Datum: 29. j�l 1998 19:15
> Chcem sa spytat:
> Da sa nejako osetrit prepinanie poli cez TAB v PageControl(D3)? Tak
> aby to po stlaceni TAB preslo z jedneho pola(pole=componenta) na dalsie pole,
> ak je pole posledne na TabSheete tak aby to preslo na prve pole nasledujuceho
> TabSheetu. Proste mat nad tym kontrolu ...
Ahoj,
slo by to udelat takhle, u kazdeho TabSheetu nastav OnExit na TabSheet1Exit.
type
TWinControlHack = class(TWinControl);
procedure TForm1.TabSheet1Exit(Sender: TObject);
var
Shift: Boolean;
begin
Shift := GetKeyState(VK_SHIFT) and $80 <> 0;
if (GetKeyState(VK_TAB) and $80 <> 0) and (GetKeyState(VK_CONTROL) and $80 = 0) then
begin
PageControl1.SelectNextPage(not Shift);
with TWinControlHack(PageControl1.ActivePage) do
begin
SelectFirst;
if Shift then SelectNext(ActiveControl, False, True);
end;
end;
end;
Petr Vones, amatersky programator
----------
Finito RX English Help - mozno riesenie
[*] Marek Repisk� <mrepisky zl(zv)zsnp.sk> - 30.7.1998 06:45:49
Nazdar,
mozno by bolo dobre dat informaciu o ftp://ftp.mlp(tec)cz/pub/misc/delphi/konference,
ale aj o http://www.delphi(tec)cz, do uvitacieho mailu "Welcome to list 'delphi'".
S pozdravom
Marek Repisky
mrepisky_zl(zv)zsnp.sk
----------
> Odes�latel: Michal Brabec <mbrabec(zv)ciglersw(tec)cz>
> Komu: DELPHI Distribution List <delphi(zv)pinknet(tec)cz>
> P�edm�t: RE: Finito RX English Help
> Datum: 29. j�l 1998 19:33
>
> Proc proboha posilate ty nekolika tunovy fily mailem. Kazdy nema pevnou
> linku a telekom je drahej. Naco nam tady tusim Ales Zeleny (doufam ze jsem
> se nespletl a nekoho neurazil, jestli to byl nekdo jiny tak se mu hluboce
> omlouvam) zrizoval ftp server na tyto ucely.
>
> ftp://ftp.mlp(tec)cz/pub/misc/delphi/konference.
>
> Pro cteni lze pouzit normalni pristup anonymous.
> Pro zapis je treba se prihlasit jako
> username: delphi
> password: borland
> Povinne pole
[*] Petr Vales <Petr.Vales(zv)gopas(tec)cz> - 30.7.1998 06:52:33
To by jsi musel mit ceskej preklad BDE.
A co udalost Table1.OnPostError ???> ----------
> Od: dodo(zv)rak.pr.ds.mfcr(tec)cz[SMTP:dodo(zv)rak.pr.ds.mfcr(tec)cz] za Dobromil
> Mal�[SMTP:Dobromil.Maly(zv)rak.pr.ds.mfcr(tec)cz]
> Odesl�no: Friday, July 31, 1998 12:54 PM
> Komu: 'DELPHI Distribution List'
> Predmet: Povinne pole
>
> Nezlobte se na mne, ze stale otravuju, s databazemi teprve
> zacinam :-) , mam formular, na nem spoustu DBEdit-u a chci aby vsechny
> polozky byly vyplnene, muzu to kontrolovat v Table1.BeforePost, ale to
> bych se picnul, tak jsem v DB Desktop-u nastavil "Required Field" na
> true. To je ono, udela se vyjimka, ale potreboval bych, aby mi to
> hlasilo cesky a ne
> "Field 'Prijmeni' must have a value" !
>
> Dik za jakoukoli odpoved.
>
> Dobromil Maly
> mailto:dodo(zv)rak.pr.ds.mfcr(tec)cz
>
> Pridani field
[*] Milan Fiedler <milanf(zv)rts(tec)cz> - 30.7.1998 07:28:11
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
V rucnim pridani pres Data Desktop to je mi jasne to je bezproblemove, ale jedna se mi o toto, mam tabulku u zakaznika doslo k oprave tabulky *.db, *.dbf a potreboval bych pridat pole nejakym programkem pri pridani UpDate, jestli neco na toto existuje aby se neprepsaly stavajici data v tabulce, nebo jestli nemate nekdo skusenosti jak to udelat.
dik
Milan Fiedler
milanf(zv)post(tec)cz
Pokud se jedna o rucni rozsireni struktury *.DB souboru, tak to jde udelat programem Database Desktop.
Ahoj lidi,
nev�te nekdo jak pridat Field do tabulky aniz bych prepsal existujici zaznamy v tabulce, at to zkousim jak to zkousim tak se mi vzdy smazou zaznamy
diky
Milan Fiedler
SQL, prace s vyrazy
[*] TUNGLI Jan <tungli(zv)pvt.sk> - 30.7.1998 07:49:04
Nie, aspon nie v SQL dotaze.
Tungli
----------
Od: Jiri Sladek <chmelar(zv)oasanet(tec)cz>
Pre: delphi <delphi(zv)pinknet(tec)cz>
Predmet: SQL, prace s vyrazy
D�tum: 29. j�l 1998 13:44
Zdravim All, mam maly dotaz.
V dotazu SQL pouzivam vyrazy, napriklad:
JCENA * MNOZSTVI AS CENA
Je mozne s ten udaj CENA pouzit pro dalsi vypocet ? Napriklad:
Cena * ProcDPH / 100 AS DPHkc
Diky, Jirka.
RX Help
[*] Milan Fiedler <milanf(zv)rts(tec)cz> - 30.7.1998 07:55:37
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
Mohu poprosit o ten help
diky moc
Milan Fiedler
milanf(zv)rts(tec)cz
Zdravim vsechny,
obdrzel sem anglicky popis RX library, takze pokud ho
negdo potrebuje ?
S pozdravem Petr Vales
Finito RX English Help
[*] Pavel Kral <kral(zv)afx(tec)cz> - 30.7.1998 08:06:06
Dekuji za ten popis, presto je lepsi takove soubory neposilat primo do
konference,
spravce je z toho dost nervozni (ani se mu nedivim).
myslim, ze pro ten ucel byl zrizen FTP server
Adresa: ftp://ftp.mlp(tec)cz/pub/misc/delphi/konference
Diky Pavel
-----Original Message-----
From: Petr Vales <Petr.Vales(zv)gopas(tec)cz>
To: 'delphi(zv)pinknet(tec)cz' <delphi(zv)pinknet(tec)cz>
Date: 29. �ervence 1998 19:03
Subject: Finito RX English Help
>Zdravim vsechny,
>
>obdrzel sem anglicky popis RX library, takze pokud ho
>negdo potrebuje ?
>
>
>S pozdravem Petr Vales
>
>
DBTreeView
[*] Milan Fiedler <milanf(zv)rts(tec)cz> - 30.7.1998 08:42:32
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
Nevite nekdo o komponente DBTreeView, nebo neco podobneho pro Delphi 2
diky
Milan Fiedler
milaf(zv)rts(tec)cz
Finito RX English Help
[*] psoft <psoft(zv)kosice.telecom.sk> - 30.7.1998 08:43:44
> Zdravim vsechny,
>
> obdrzel sem anglicky popis RX library, takze pokud ho
> negdo potrebuje ?
Tento tyzden dakujem uz asi 3x za nieco, co som nechcel, ale musel
som to prijat. Uz mam pomaly pocit, ze skoro nikto nevie citat, inac
by si precital pravidla v tejto skupine a hadam ich aspon sem=tam
dodrziaval ...
Este raz dakujem.
> ''''
> (O O)
> +-------------oOO------(_)--------------------+
> | PSOFT, ing.Peter Cirip |
> | Sibirska 18, 080 01 Presov, Slovensko |
> | Mobil : 0903 601 068 091/723 104 |
> | E-mail: psoft(zv)ke.telecom.sk |
> | WEB : http://www.ke.telecom.sk/psoft/ |
> +-------------------------------oOO-----------+
> |__|__|
> || ||
> ooO Ooo
> TListView - chyba
[*] V�t�zslav Gazda������u��n�?��? - 30.7.1998 08:51:04
Zjistil jsem jednu zavaznou chybu v komponente TListView. Uvedu zde
jednoduchy priklad, na kterem si to muzete overit.
Vytvoril jsem si komponentu, ktera dedi z TListView. Do sekce Published jsem
nadefinoval jednu vlastnost typu Boolean. Nainstaloval jsem komponentu a
vlozil na formular. Tu nadefinovanou vlastnost jsem v ObjectInspectoru
nastavil na TRUE. Po spusteni aplikace vracela tato vlastnost spravne
hodnotu TRUE. Pokud jsem vsak v ObjectInspectoru pridal polozky a nastavil
vlastnost MultiSelect na TRUE, po spusteni aplikace vracela moje vlastnost
hodnotu False i kdyz v ObjectInspectoru byla nastavena na TRUE.
Chyba se projevuje i takto. V ObjectInspectoru jsem pridal polozky,
vlastnost MultiSelect jsem nastavil na TRUE, moji vlastnost jsem nastavil na
TRUE. Ulozil jsem project zavrel ho a znovu otevrel. Po opetovnem otevreni
moje vlastnost v ObjectInspectoru jiz obsahovala hodnotu FALSE.
Chyba se neprojevi pokud v ObjectInspectoru nepridam zadne polozky nebo
vlastnost MultiSelect nastavim na False.
Z toho vyplyva, ze pokud si vytvorite potomka z TListView a pridate mu nove
vlastnosti, tak za urcitych podminek, ktere jsem popsal vyse nejdou nastavit
v ObjectInspectoru.
Vita
FTP
[*] Dobromil Mal� <Dobromil.Maly(zv)rak.pr.ds.mfcr(tec)cz> - 30.7.1998 08:54:42
Kdyz uz tu zminujete ftp server pro tuto konferenci, pouzivam IE4.0 a nemuzu se tam dostat z duvodu Permission denied.
Help . . .
----------
Od: Michal Brabec[SMTP:mbrabec(zv)ciglersw(tec)cz]
Odesl�no: 29. �ervence 1998 19:33
Komu: DELPHI Distribution List
P�edm�t: RE: Finito RX English Help
Proc proboha posilate ty nekolika tunovy fily mailem. Kazdy nema pevnou
linku a telekom je drahej. Naco nam tady tusim Ales Zeleny (doufam ze jsem
se nespletl a nekoho neurazil, jestli to byl nekdo jiny tak se mu hluboce
omlouvam) zrizoval ftp server na tyto ucely.
ftp://ftp.mlp(tec)cz/pub/misc/delphi/konference.
Pro cteni lze pouzit normalni pristup anonymous.
Pro zapis je treba se prihlasit jako
username: delphi
password: borland
Michal Brabec.DDE
[*] Patrik Plachy <plachy(zv)obis(tec)cz> - 30.7.1998 09:00:01
Zdravim lidi okolo DELPHI !
Mam problem s DDE komunikaci v D3. Potrebuji komunikovat
s WORDEM. V D1 jsem to resil jednoduchym klientem:
/*************************************************
function OpenDDE : Boolean;
/*************************************************
function OpenDDE;
var
S : Array[0..255] of Char;
begin
WorkingDlg.Show; /**** WorkingDlg je formular pro
informaci uzivatele, co prave dela aplikace
WorkingDlg.LStatus.Caption:='Hled�m Microsoft Word ...';
WorkingDlg.Refresh;
DDE:=TDDEClientConv.Create(nil);
DDE.ConnectMode:=ddeManual;
DDE.SetLink('WinWord','System');
Application.ProcessMessages;
if Not DDE.OpenLink then
begin
WorkingDlg.LStatus.Caption:='Spou�t�m Microsoft Word ...';
WorkingDlg.Refresh;
StrPCopy(S,WordPath);
WinExec(S,SW_SHOWMINIMIZED);
end;
DDE.CloseLink;
DDE.SetLink('WinWord','System');
Application.ProcessMessages;
if DDE.OpenLink then
Result:=True
else
begin
MessageDlg('Nelze nav�zat DDE komunikaci !',mtError,[mbOk],0);
Result:=False;
end;
end;
/***********************************************
a naslednym zapisem po otevreni kanalu:
/**********************************************
procedure WriteDDE (Prikaz : String);
/**********************************************
procedure WriteDDE;
var
N : Array[0..255] of Char;
begin
StrPCopy(N,'['+Prikaz+']');
While Not
DDE.ExecuteMacro(N,True) do begin
Application.ProcessMessages;
end;
end;
/*******************************************
vsimnete si druhe hodnoty u DDE.ExecuteMacro - je TRUE, potrebuji totiz
cekat dokud WORD
dany prikaz nezpracuje, kvuli oboustrane komunikaci. V D1 vse behalo
jako po dratkach,
ale u D3 se WORD rozhodne zpracovat jen jeden prikaz a klient v D3 uz
dalsi nezpracuje
jelikost neustale ceka az bude WORD/OK.
V D3 jsem to rozresil pro Excel tim zpusobem, ze volam fci:
DDE.RequestData('Status');
Ta vraci v Excelu hodnotu 'Ready' , coz staci pro ziskani stavu
aplikace a nasledne cekani dokud nebude Excel/Ready.
Bohuzel jsem zatim nenasel ekvivalenci ve WORDu, nebo jine reseni.
Pri patrani na Inetu se vetsinou pouzivaji fce s honotou FALSE,
jelikoz jejich aplikace nedelaji oboustranou komunikaci a nezajima je
zda-li
WORD uz zpracoval 1/makro nebo 2/makro. Ja se bez toho neobejdu,
jelikoz mam pozdejsi vazbu na Oracle a pokud nezjistim,kdy WORD skoncil,
lezou mi tam nesmysly.
Predem dekuji za jakoukoliv radu , ci napad.
S pozdravem Patrik Plachy
plachy(zv)obis(tec)cz
OBIS s.r.o. ORACLE BAP
----------------------
HELP
[*] mstevlik(zv)gamo.sk - 30.7.1998 09:07:05
Nazdar, opat otrvujem,
Rad by som do mojej aplikacie vlozil help, nemam ani zdania ako sa to
robi.
Vie mi niekto poradit?
Majkl
Vypinatelne columns - jeste jednou
[*] Jozef Strnadik <strnadik(zv)mbox.mrp(tec)cz> - 30.7.1998 09:09:51
> type TDBGridColumnsState = (csDefault, csCustomized);
> property State: TDBGridColumnsState;
>
> ked State = csDefault potom Field.Visible funguje ale ked je State =
> csCustomized t.j. stlpce do gridu pridas cez Columns Editor vtedy to
> nefunguje.
>
> -------------
> tak v tom je teda zakopany pes. Takze to budu muset delat pres vytvareni a
> ruseni sloupcu za behu. To je hruza.
[[JS]]
Vyjadril som sa nepresne, ked pridavas stlpce cez Columns Editor, alebo ked ich vytvaras sam programovo vtedy je DBGrid.Columns.State = csCustomized (kolekcia Columns obsahuje objekty TColumn), ked ich nepridas cez editor ani dynamicky su stlpce vytvorene automaticky a vtedy DBGrid.Columns.State = csDefault (kolekciaColumns obsahuje objekty TPassthroughColumn). Prave to ze v jednom pripade Columns obsahuje objekty TPassthroughColumn a v druhom TColumn je pricinou toho, ze Field.Visible raz funguje a raz nie.
Hm, v takovem pripade je asi dobre zvazit, zda neni rozumnejsi tuto cestu opustit.
[[JS]]
Staci, ze potrebujem zmenit zahlavie stlpca v DBGride (to potrebujem vzdy) a uz musim pouzit Columns Editor => v mojom pride je State = csCustomized => Field.Visible := True/False je nepouzitelne.
Pouzitelne riesenie uviedol P.Vones (pondelok 27.7.) vid. procedure HideOrShow; funguje vyborne.
Jozef Strnadik
E-mail: strnadik(zv)mbox.mrp(tec)cz
FTP
[*] Radek Bartik <bartik(zv)nemhoro(tec)cz> - 30.7.1998 09:28:56
Pro pristup k FTP serveru je potreba pouzit adresu
ftp://ftp.mlp(tec)cz/misc/delphi/konference ,
tj bez toho uvodniho /pub. Pak to funguje.
Radek
-----P�vodn� zpr�va-----
Od: Dobromil Mal� <Dobromil.Maly(zv)rak.pr.ds.mfcr(tec)cz>
Komu: 'DELPHI Distribution List' <delphi(zv)pinknet(tec)cz>
Datum: 30. �ervence 1998 9:11
P�edm�t: FTP
Kdyz uz tu zminujete ftp server pro tuto konferenci, pouzivam IE4.0 a nemuzu se tam dostat z duvodu Permission denied.
Help . . .
FTP
[*] Michal Brabec <mbrabec(zv)ciglersw(tec)cz> - 30.7.1998 09:28:54
[P��loha v souboru: winmail.dat]
Na to je jedna jedina rada. Nepouzivej produkty od Majkrosrotu jako je IE4,
protoze on stejne neumi upload a neumi se nastavit primo na prislusny
adresar na serveru podle hesla (coz je mozna taky problem, ze te nemuze
pripojit, protoze se nastavi do nejakyho rootu kam nema pristup - i kdyz ted
jsem to vyzkousel pres IE4 a pripojil mne, takze nevim.). Pouzivej nejaky
soft primo na ftp, nebo netscape, nebo Windows commander (i ten se umi
pripojit).
Michal Brabec, mailto:michal(zv)ciglersw(tec)cz
--------------------------------------------------------------
C I G L E R S O F T W A R E, tr. Gen. Piky 9, 613 00 Brno
obchodni oddeleni : 05-526045, mailto:ciglersw(zv)ciglersw(tec)cz
technicka podpora : 05-45222242, mailto:hotline(zv)ciglersw(tec)cz
fax : 05-520764, 45223890
home page : http://www.ciglersw(tec)cz
> -----Original Message-----
> From: Dobromil Mal� [mailto:dodo(zv)rak.pr.ds.mfcr(tec)cz]
> Sent: Thursday, July 30, 1998 8:55 AM
> To: 'DELPHI Distribution List'
> Subject: FTP
>
> Kdyz uz tu zminujete ftp server pro tuto konferenci, pouzivam
> IE4.0 a nemuzu se tam dostat z duvodu Permission denied.
> Help . . .
>
> ----------
> Od: Michal Brabec[SMTP:mbrabec(zv)ciglersw(tec)cz]
> Odesl�no: 29. �ervence 1998 19:33
> Komu: DELPHI Distribution List
> P�edm�t: RE: Finito RX English Help
>
> Proc proboha posilate ty nekolika tunovy fily mailem. Kazdy nema pevnou
> linku a telekom je drahej. Naco nam tady tusim Ales Zeleny (doufam ze jsem
> se nespletl a nekoho neurazil, jestli to byl nekdo jiny tak se mu hluboce
> omlouvam) zrizoval ftp server na tyto ucely.
>
> ftp://ftp.mlp(tec)cz/pub/misc/delphi/konference.
>
> Pro cteni lze pouzit normalni pristup anonymous.
> Pro zapis je treba se prihlasit jako
> username: delphi
> password: borland
>
>
> Michal Brabec.
>HELP
[*] Michal Brabec <mbrabec(zv)ciglersw(tec)cz> - 30.7.1998 09:38:58
Podivej se na http://www.devgr.com. Je tam Helpdesigner, pomoci kteryho
helpy udelas docela snadno a v programu se potom na jednotlivy stranky
dostanes pres jejich cisla, ktery bud nastavis do HelpContext property nebo
zavolas Application.HelpContext(Cislo). Jinak to de misto toho Helpdesigneru
delat ve wordu, kde si to ulozis jako rtf, ale to presne nevim jak (musi se
tam davat do textu nejaky znacky atd.)
Michal Brabec.
CIGLER SOFTWARE, tr. Gen. Piky 9, 613 00 BRNO, CR
tel:+420-5-526045, fax:45223890, http://www.ciglersw(tec)cz
> -----Original Message-----
> From: mstevlik(zv)gamo.sk [mailto:mstevlik(zv)gamo.sk]
> Sent: Thursday, July 30, 1998 9:07 AM
> To: delphi(zv)pinknet(tec)cz
> Subject: HELP
>
>
> Nazdar, opat otrvujem,
> Rad by som do mojej aplikacie vlozil help, nemam ani zdania ako sa to
> robi.
> Vie mi niekto poradit?
> Majkl
>
>
>