Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Posilani obrazku
[*] Jirka Novacek <jnovacek(zv)telecom(tec)cz> - 4.10.1998 19:55:28
Ahoj Delfini!
Mam n�sledujici problem. Potrebuji napsat program, ktery bude na jednom
pocitaci v siti (IntraNetWare) snimat obrazovku a na druhe pocitaci bude
zase program, ktery to dokaze zobrazovat. Vubec nevim jak zacit. Budu vdecny
za kazdou radu.
Dik Jirka
<jnovacek(zv)telecom(tec)cz>
Posilani obrazku
[*] RADIK(zv)p15.monet(tec)cz - 4.10.1998 20:44:00
To uz tu nedavno bylo. To jsem mlcel. Ted mi to nedalo a kouknul jsem do
helpu......
Ve Win32 API Helpu je v casti Bitmaps zalozka Capturing an Image a tam
je priklad
jak sejmout obsah obrazovky. Staci to prevest do Delphi.... Pak to treba
sejvni do bmp a na druhe strane otevri.....
Pokud si dobre pamatuju, tak nejaky priklad na snimani obrazovky v
Delphi je v TI's nebo Q&A na inprise.com (myslim ze to bylo v
souvislosti se screensaverem).
Ales
----------
Od: Jirka Novacek
Komu: Delphi konference
P�edm�t: Posilani obrazku
Datum: 4. listopad 1998 19:55
Ahoj Delfini!
Mam n�sledujici problem. Potrebuji napsat program, ktery bude na jednom
pocitaci v siti (IntraNetWare) snimat obrazovku a na druhe pocitaci bude
zase program, ktery to dokaze zobrazovat. Vubec nevim jak zacit. Budu
vdecny
za kazdou radu.
Dik Jirka
<jnovacek(zv)telecom(tec)cz>
disketa - Driveready
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 04.10.1998 22:06:07
> Antonin Blatny wrote:
>
> Ahoj vsichni,
> pred par dny se tady mluvilo na podobne tema, ale presto se ptam jeste vice
> konkretneji. Potreboval bych ve W95 a D2 pomoci nejake funkce rozlisit
> pripady, kdy:
> a) v disketove jednotce neni disketa
> b) v jednotce sice disketa je, ale neni naformatovana.
> V uvedenych pripadech se funkce jako DirectoryExists chovaji stejne. Existuje
> nejaka blize urcujici chybova zprava?
Ahoj,
Tyto stavy muzes rozlisit pomoci hodnoty kterou ti vrati funkce GetLastError.
Vyznam techto konstant najdes ve Win32API helpu pod heslem "Numerical List of
Error Codes"
procedure TForm1.Button1Click(Sender: TObject);
begin
SetLastError(0);
if Integer(GetFileAttributes('A:')) = -1 then
ShowMessage(SysErrorMessage(GetLastError));
end;
--
Petr Vones, amatersky programator
ShellExecute, ShellExecuteEx
[*] Ing. Zdenek Sraier <sraierzd(zv)czn(tec)cz> - 4.10.1998 23:29:46
Musis pouzit
Uses ShellApi
S pozdravem Zdenek
--------------------------------------- E-Mail -------------------------
| Zdenek Sraier | sraierzd(zv)czn(tec)cz (jednou denne) |
| o__o | zdenek.sraier(zv)sms.paegas(tec)cz (max 160 zn. kdykoliv) |
| ( o o) |--------------------- WWW --------------------------|
| (. .) | http://users(tec)czn(tec)cz/~sraierzd/ |
------------------------------------------------------------------------
| WWW Stranky Potapecske (SP) HTTP://www.byll(tec)cz/scuba/ |
------------------------------------------------------------------------
----------
> Odes�latel: Ing. Miroslav Ond��ek <bonnel(zv)telecom(tec)cz>
>
> Dodnes jsem zil v tom, ze nasledujicim prikazem mohu z Delphi 3 zavolat
> default mail klienta
>
> ShellExecute(Handle, nil, 'mailto:adresa(zv)neco(tec)cz', nil, nil, SW_SHOWNORMAL)
>
> Ovsem jake bylo me prekvapeni, kdyz Delphi 3 (Professional) odmitaji tuto
> funkci jako neznamy prikaz (undeclared identifier), stejne jako
> ShellExecuteEx. Obe funkce jsou pritom popisovany ve Win32Api.HLP a ostatni
> API volani (napr messageDlg apod.) projdou bez problemu.
> Na vyse zminene funkce nejde ani CodeCompletion a ParametersCompletion.
> Proste se D3 chovaji, jako by tyto API funkce neexistovaly.
> V cem delam chybu ?
> Diky za pripadne odpovedi.
> S pozdravem
> Ing. Miroslav Ond��ek
> Bonnel Technologie, s.r.o.
>
> E-mail:
> bonnel-ondrisek(zv)telecom(tec)cz - v�voj software
>
> internet: http://www.bonnel-tech.com
> PGP podporov�no - ve�ejn� kl�� na na�� homepage
>
> Vychozi tiskarna
[*] Pavel Malinsk� <Spider(zv)atlas(tec)cz> - 4.10.1998 23:46:02
Ahoj,
mozna banalni dotaz, ale nevim jak nato.
Jak lze zjistit zda je na pocitaci (NT 3.51)
na nemz poustim svou aplikaci nastavena vychozi
tiskarna, a kdyz ano tak jaka. V NT 3.51
totiz muze byt nainstalovano vice tiskaren,
ale zadna nemusi byt nastavena jako vychozi.
Snad je tomu dotazu rozumet.
Potrebuju to v D1. S pozdravem a diky
=============================
> Pavel Malinsky; Spider(zv)atlas(tec)cz <
>===========================<
> ...The Truth Is Out There... <
=============================Internet proti monopolu
[*] Adam AHA Hauner <aha(zv)pinknet(tec)cz> - 5.10.1998 06:26:05
Dobry den,
doufam, ze se nebudete zlobit, pokud prave ted pouziji tuto konferenci
k sireni zpravy o protestni akci "Internet proti monopolu".
Spolecnost SPT TELECOM, a.s., ktera ma v soucasne dobe v nasi zemi
garantovane monopolni postaveni, se rozhodla pro zmenu tarifu od 1. ledna
nadchazejiciho roku. Ac sama spolecnost hodnoti jako prumerne zdrazeni
o cca 3%, prevazne jde ale o zlevneni mezinarodnich hovoru vyvazne
_vyraznym_ zdrazeni tarifu lokalnich (jak hovoru, tak pevnych linek).
Pokud s timto postupem SPT TELECOM, ktery jde ve sve podstate proti
rozvoji ceskeho Internetu a proti jeho siroke dostupnosti, nesouhlasite,
mate moznost se pripojit k protestni akci, ktere se ucastni nejen nejvetsi
ceske servery (Neviditelny pes, Mobil server, Seznam, PinkNet, atd.).
Prubezne zpravodajstvi, dokumenty, ikonu, bannery hledejte na serveru
http://www.bojkot(tec)cz/
Dekuji za pozornost a verim ve vasi podporu
Adam Hauner
--=[ AHA ]=[ aha(zv)pinknet(tec)cz ]=[ ICQ 3443338 ]=[ http://www.alenka(tec)cz ]=--
Vyvijeni komponent + Co nam Inprise taji ?
[*] Marian Jonas <jonas(zv)jia(tec)czn(tec)cz> - 5.10.1998 07:02:16
>> podrobnosti lze najit v Delphi\Source\Toolsapi\Dsgnintf.Pas nebo
>> v napovede pod heslem TPropertyEditor, bohuzel jsem nikde nenasel
>> Property Editor pro FieldName :-((
>
>To je prave to, co nekterym z nas Inprise zatajil. Napriklad v Delphi 2 Dev
je
>jeho plny zdrojovy kod.
>
>--
> Petr Vones, amatersky programator
Je tam i kod pro registraci komponent a property editoru ?
Marian Jonas
Vyvijeni komponent + Co nam Inprise taji ?
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 5.10.1998 08:17:59
David Navara wrote:
> > > vlastnost DataSource a pokud ji najde tak pomoci
> > > DataSource.DataSet.GetFieldNames(List) vyplni seznam ktery ti pak
> > > nabizi Object Inspector.
>
> To je presne, co jsem hledal. Ale nejak mi ze zdrojaku nedoslo, KTERA
> funkce VYPLNI seznam, ktery pak nabizi ObjInspector. Nebo jak se
> registruji property editory?
>
Prohledni si dsgnintf.pas a demo propedit. Na vysvetlovani je to
slozitejsi, to muze byt pripad od pripadu ruzne.
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
Predefinovani funkce klaves
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 5.10.1998 08:18:00
Zdenek Haringer wrote:
> Potreboval bych, aby kdyz uzivatel stiskne napr. na DBEditu sipku dolu,
> misto tabulatoru, se presunul kurzor na nasledujici DBEdit. Zkousel jsem
>
> procedure TMyDBEdit.EditKeyDown(Sender: TObject; var Key: Word;
> Shift: TShiftState);
> var W: TWinControl;
> begin
> if Key = 40 then
> begin
> W:=Sender as TWincontrol;
> W:=FindNextControl(W,True,True,True);
> end;
> W.SetFocus;
> end;
>
W:=Self.FindNext...
Resp. self musi byt form.
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
GetModuleUsage-Vojtech Albrecht
[*] pacak(zv)pepa(tec)cz (PePa spol. s r.o. ) - 5.10.1998 08:29:27
-----P�vodn� zpr�va-----
Od: Vojtech Albrecht <supervisor(zv)unicontrols(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 4. listopadu 1998 17:56
P�edm�t: RE: GetModuleUsage
Podivej se na http://members.xoom.com/VASoftware/Vlastnit_tvorba.htm je
tam komponeta ktera to umi a je to Free
----------
Od: PePa spol. s r.o. [SMTP:pacak(zv)pepa(tec)cz]
Odesl�no: 4. listopadu 1998 13:38
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: GetModuleUsage
<<Soubor: ATT00005.txt>><<Soubor: ATT00006.html>>
D�ky za odpoved,ale komponenta z t� str�nky nejde st�hnout.P�e to,�e
str�nka neexistuje.Ale presto d�ky.
Jirka Virt
Online dokumentace
[*] Jan Fiala <jan.fiala(zv)iname(tec)com> - 5.10.1998 10:35:28
Pokousel se nekdo nainstalovat Acrobat Readera z Delphi CD na W98 ?
Kupodivu to po me chce nejaky heslo. Kdyz jsem po nejakem patral na CD,
bohuzel jsem zadne nenasel.
-----------------------------------------------------------------
ing. Jan Fiala jan.fiala(zv)iname.com
Prog-Soft s.r.o.
INFOS - informa�n� system pro n�poj��e
---------------------------------------------------------------
TDatabase.Params
[*] Flaska Jakub <jakub.flaska(zv)zps.skoda-auto(tec)cz> - 5.10.1998 10:56:08
Zdravicko...
1. Nevite nekdo, jake vsechny parametry mohou byt v TDatabase.Params? (v
helpu jsem to nenasel)
2. Nevite nekdo, jak nastavit parametr PATH na adresar, v jehoz nazvu
jsou mezery? (uvozovky ani apostrofy nepomahaji) :-(((
Dekuji za vsechny konstruktivni odpovedi. F.WINEXEC
[*] Ing. J�n Kuch�r�����!j��G - 5.10.1998 11:25:09
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
Caute
Mam nasledovny problem ako mam povedat D3 ze chcem spustit nejaky program s urcitym suborom. Priklad winexec('pkzip.exe '+buff, ws showmaximized);, kde
buff je stringova premenna s roznou hodnotou, ktora sa meni pocas programu, napriklad buff:='archiv', 'sklad'....atd.
Dik
Ing. J�n Kuch�r
Katedra inv�ci� a rein�inieringu
SjF TU Ko�ice
Letn� 9
040 01 Ko�ice
E-mail : kuchar(zv)tuke.sk TDatabase.Params
[*] Zdenek Petruj <zpetruj(zv)zebra(tec)cz> - 5.10.1998 11:48:03
A v helpu BDE ses dival - to zalezi na typu databaze
S pozdravem
Zdenek Petruj
____________________________
adress: Zebra systems, s.r.o.
Spartakovcu 3
708 00 Ostrava - Poruba
Czech republic
____________________________
tel./fax.: +420-(0)69-6912961
+420-(0)69-6912963
e-mail: zpetruj(zv)zebra(tec)cz
internet: http://www.zebra(tec)cz
> -----P�vodn� zpr�va-----
> Od: Flaska Jakub [SMTP:jakub.flaska(zv)zps.skoda-auto(tec)cz]
> Odesl�no: 5. November 1998 10:56
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: TDatabase.Params
>
> Zdravicko...
>
> 1. Nevite nekdo, jake vsechny parametry mohou byt v TDatabase.Params?
> (v
> helpu jsem to nenasel)
> 2. Nevite nekdo, jak nastavit parametr PATH na adresar, v jehoz nazvu
> jsou mezery? (uvozovky ani apostrofy nepomahaji) :-(((
>
> Dekuji za vsechny konstruktivni odpovedi. F.TDatabase.Params
[*] Flaska Jakub <jakub.flaska(zv)zps.skoda-auto(tec)cz> - 5.10.1998 12:41:59
Zdravicko...
Omlouvam se, s temi mezerami v PATH to byl ulet, chyba byla v nastaveni
BDE u paradoxu na verzi 4 a ne ze vadily mezery, ale prilis dlouha
cesta. Ovsem prvni dotaz zustava. :-)
Dekuji za vysliseni, F.
> -----P�vodn� zpr�va-----
> Od: Flaska Jakub [SMTP:jakub.flaska(zv)zps.skoda-auto(tec)cz]
> Odesl�no: �tvrtek, listopad 05, 1998 10:56
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: TDatabase.Params
>
> Zdravicko...
>
> 1. Nevite nekdo, jake vsechny parametry mohou byt v TDatabase.Params?
> (v
> helpu jsem to nenasel)
> 2. Nevite nekdo, jak nastavit parametr PATH na adresar, v jehoz nazvu
> jsou mezery? (uvozovky ani apostrofy nepomahaji) :-(((
>
> Dekuji za vsechny konstruktivni odpovedi. F.Blikajici text
[*] Dobromil Mal� <Dobromil.Maly(zv)rak.pr.ds.mfcr(tec)cz> - 5.10.1998 12:50:40
Dej si tam Timer a v Timer1OnTimer
si s tim labelem udelej co chces, treba
to muzes zvetsovat, ruzne prebarvovat, ...
----------
Od: TP+[SMTP:tpplus(zv)zasova(tec)cz]
Odesl�no: 4. listopadu 1998 12:29
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: Blikajici text
Nazdarek,
rad bych se zeptal, jak udelat "blikajici" text (ekvivalent stareho "blink"
z pascalu).
Diky
Baluch
TP+TDatabase.Params
[*] Ivo Herles <ivo.herles(zv)pvt(tec)cz> - 5.10.1998 12:54:23
Co takhle dvojklik na komponente a tlacitko Default.
S pozdravem,
Ivo HERLES
PVT, a. s., o. z. Chomutov
e-Mail: ivo.herles(zv)pvt(tec)cz
tel.: 0396/619216
-----P�vodn� zpr�va-----
Od: Flaska Jakub <jakub.flaska(zv)zps.skoda-auto(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 5. listopadu 1998 11:19
P�edm�t: TDatabase.Params
>Zdravicko...
>
>1. Nevite nekdo, jake vsechny parametry mohou byt v TDatabase.Params? (v
>helpu jsem to nenasel)
>2. Nevite nekdo, jak nastavit parametr PATH na adresar, v jehoz nazvu
>jsou mezery? (uvozovky ani apostrofy nepomahaji) :-(((
>
>Dekuji za vsechny konstruktivni odpovedi. F.
TreeView
[*] Krayzel Libor <Libor.Krayzel(zv)czech-tv(tec)cz> - 5.10.1998 12:55:58
Zdravim,
mam dvouurovnovy strom v TreeView. Jak zjistit, na ktere urovni zrovna
jsem?
.........................................................
. Libor Krayzel .
. Czech Television, Studio Ostrava .
. Dvorakova 18, 702 00 Ostrava .
. Telephone: 069-6201375 .
. URL: http://webhost(tec)cz/elka .
. E-mail: mailto:Libor.Krayzel(zv)czech-tv(tec)cz .
. Fidonet: mailto:libor_krayzel(zv)p5.f59.n421.z2.fido(tec)cz .
. E-mail2: mailto:sovtop(zv)email(tec)cz .
.........................................................
Online dokumentace
[*] RADIK(zv)p15.monet(tec)cz - 5.10.1998 12:57:00
Chce ho Acrobat Reader nebo ten text? Nektere texty mohou byt heslovane,
pokud se nepletu...
Ales
----------
Od: Jan Fiala
Komu: Delphi forum
P�edm�t: Online dokumentace
Datum: 5. listopad 1998 10:35
Pokousel se nekdo nainstalovat Acrobat Readera z Delphi CD na W98 ?
Kupodivu to po me chce nejaky heslo. Kdyz jsem po nejakem patral na CD,
bohuzel jsem zadne nenasel.
-----------------------------------------------------------------
ing. Jan Fiala jan.fiala(zv)iname.com
Prog-Soft s.r.o.
INFOS - informa�n� system pro n�poj��e
---------------------------------------------------------------
WINEXEC
[*] Martin Fron�k <FRONEK(zv)ZZNSLANY.CZ> - 5.10.1998 13:01:03
Za prve bys nemel pouzivat WINEXEC ale CREATEPROCESS
Pokud pouzijes CREATEPROCESS, tak tam mas primo oddeleny argument od
jmena APP.......
Martin Fron�k
ZZN Slan� a.s.
Pra�sk� 1579, 274 49, Slan�
tel. +420-314-522986
e-mail: fronek(zv)zznslany(tec)cz
> -----P�vodn� zpr�va-----
> Od: Ing. J�n Kuch�r [SMTP:kuchar(zv)tuke.sk]
> Odesl�no: 05. listopadu 1998 11:25
> Komu: Delphi
> P�edm�t: WINEXEC
>
> Caute
> �
> Mam nasledovny problem ako mam povedat D3 ze chcem spustit nejaky
> program s urcitym suborom. Priklad winexec('pkzip.exe '+buff,
> ws_showmaximized);, kde
> buff je stringova premenna s roznou hodnotou, ktora sa meni pocas
> programu, napriklad buff:='archiv', 'sklad'....atd.
> ����������������������������������������������������������������������
> ����������������������������� Dik
>
> Ing. J�n Kuch�r
> Katedra inv�ci� a rein�inieringu
> SjF TU Ko�ice
> Letn� 9
> 040 01 Ko�ice
> E-mail : kuchar(zv)tuke.sk <mailto:kuchar(zv)tuke.sk> TDatabase.Params
[*] RADIK(zv)p15.monet(tec)cz - 5.10.1998 13:02:00
ad 2. - Dej tam zkraceny nazev pro dos....
Ales
----------
Od: Flaska Jakub
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: TDatabase.Params
Datum: 5. listopad 1998 10:56
Zdravicko...
1. Nevite nekdo, jake vsechny parametry mohou byt v TDatabase.Params? (v
helpu jsem to nenasel)
2. Nevite nekdo, jak nastavit parametr PATH na adresar, v jehoz nazvu
jsou mezery? (uvozovky ani apostrofy nepomahaji) :-(((
Dekuji za vsechny konstruktivni odpovedi. F.Delphi3 UDP ...
[*] Hric Jan <JHRIC(zv)duro.upjs.sk> - 5.10.1998 13:13:56 nft-dft
Este len zacinam s Delphi , takze sorry ked moje otazky budu hlupe.
Chcel by som pouzit komponent UDP a poslat pole bajtov.
Lenze metoda SendData(..) komponentu UDP ma paramter typu
OleVariant a ja potrebujem poslat pole bajtov.
Vedel by mi niekto pomoct ?
Jano.vyrazy MATCHES / LIKE
[*] Dobromil Mal� <Dobromil.Maly(zv)rak.pr.ds.mfcr(tec)cz> - 5.10.1998 13:19:36
Ahoj, mam zase mindrak ...
..chci z databaze vytahnout data a pouzit pritom wildcards
Vite jak na to ? Napr. Vsechny zaznamy, ktere zacinaji na "D"
informix online ma vyraz "matches"
select prijmeni, jmeno
from Tab1
where Prijmeni matches "D*" {dokonce u umi i dve hvezdicky "*str*"}
Drive, v programu paradox se pouzival "zavinac" a "dve tecky"
tedy
select prijmeni, jmeno
from Tab1
where Prijmeni like "D.."
-to je napsano i v helpu, ale jaxi to nevybere nic :-(
Co delam spatne ???
Diky za pomoc.
Pozn.:pisu program v D1 (pro WfW)vyrazy MATCHES / LIKE
[*] Vodnansky David <Vodnansky(zv)allianz(tec)cz> - 5.10.1998 13:37:09
Kdybys uvedl podstane informace - typ databaze bylo by to jednodussi....
SQL syntaxe pouziva bud % (neco jako * v DOSu) nebo _ ( ? v DOSu) a operator
LIKE
takze :
select * from tab1 where prijmeni like "D%" apod.
Pozor na case sensitive !
-----------------------------------------------------
David Vodnansky - database analyst
<mailto: vodnansky(zv)allianz(tec)cz>
-----------------------------------------------------
> -----P�vodn� zpr�va-----
> Od: Windows/Admin/Dodo za u�ivatele Dobromil Mal�
> Odesl�no: 5. listopadu 1998 13:20
> Komu: '- Konf Delphi'
> P�edm�t: vyrazy MATCHES / LIKE
>
> Ahoj, mam zase mindrak ...
> ..chci z databaze vytahnout data a pouzit pritom wildcards
> Vite jak na to ? Napr. Vsechny zaznamy, ktere zacinaji na "D"
>
> informix online ma vyraz "matches"
> select prijmeni, jmeno
> from Tab1
> where Prijmeni matches "D*" {dokonce u umi i dve hvezdicky "*str*"}
>
> Drive, v programu paradox se pouzival "zavinac" a "dve tecky"
> tedy
> select prijmeni, jmeno
> from Tab1
> where Prijmeni like "D.."
>
> -to je napsano i v helpu, ale jaxi to nevybere nic :-(
>
> Co delam spatne ???
>
> Diky za pomoc.
>
> Pozn.:pisu program v D1 (pro WfW)vyrazy MATCHES / LIKE
[*] Dusanic Lubos <lubos(zv)iname(tec)com> - 05.10.1998 13:37:30
Dobromil Mal� wrote:
> Ahoj, mam zase mindrak ...
> ..chci z databaze vytahnout data a pouzit pritom wildcards
> Vite jak na to ? Napr. Vsechny zaznamy, ktere zacinaji na "D"
caves,
v sql databazach je to pomocou "%". takze ak chces vsetky zaznamy zacinajuce
na "D":
select * from table where field like 'D%'
ak pouzijes "%" pred "D", najde to vsetky zaznamy, ktore maju "D" na konci
select * from table where field like '%D'
ak pouzijes "%" aj na zaciatku aj na konci, najdu sa vsetky zaznamy, ktore
obsahuju retazec medzi %..%:
select * from table where field like '%D%'
vot tak.
--
lubos dusanic
mailto:lubos(zv)iname.com
http://www.geocities.com/SiliconValley/Haven/7613
WINEXEC
[*] Ing. J�n Kuch�r�����!j��G - 5.10.1998 13:53:55
ten buff je nejaky subor ktory chcem upravit, spakovat, alebo cokolvek ine s
nim zrobit, nieje to progam ale iba nejaky subor
-----P�vodn� zpr�va-----
Od: Zdenek Petruj <zpetruj(zv)zebra(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 5. november 1998 13:43
P�edm�t: RE: WINEXEC
>Nerozumim vete "chcem spustit nejaky program s urcitym suborom" ??? A co
>je to Buff ??? Je to parametr exe souboru nebo nazev souboru nebo co ???
>
> S pozdravem
> Zdenek Petruj
>____________________________
>adress: Zebra systems, s.r.o.
> Spartakovcu 3
> 708 00 Ostrava - Poruba
> Czech republic
>____________________________
>tel./fax.: +420-(0)69-6912961
> +420-(0)69-6912963
>e-mail: zpetruj(zv)zebra(tec)cz
>internet: http://www.zebra(tec)cz
>
>
>> -----P�vodn� zpr�va-----
>> Od: Ing. J�n Kuch�r [SMTP:kuchar(zv)tuke.sk]
>> Odesl�no: 5. November 1998 11:25
>> Komu: Delphi
>> P�edm�t: WINEXEC
>>
>> Caute
>>
>> Mam nasledovny problem ako mam povedat D3 ze chcem spustit nejaky
>> program s urcitym suborom. Priklad winexec('pkzip.exe '+buff,
>> ws_showmaximized);, kde
>> buff je stringova premenna s roznou hodnotou, ktora sa meni pocas
>> programu, napriklad buff:='archiv', 'sklad'....atd.
>>
>> Dik
>>
>> Ing. J�n Kuch�r
>> Katedra inv�ci� a rein�inieringu
>> SjF TU Ko�ice
>> Letn� 9
>> 040 01 Ko�ice
>> E-mail : kuchar(zv)tuke.sk <mailto:kuchar(zv)tuke.sk>
>Delphi3 UDP ...
[*] Martin Fron�k <FRONEK(zv)ZZNSLANY.CZ> - 5.10.1998 13:58:08
Jiste,
nepouzivej komponentu od Inprise, ale stahni si neco free........je to
mnohem lepsi nez Inprise. Kdyztak muzu neco poslat, jestli chces.
Martin Fron�k
ZZN Slan� a.s.
Pra�sk� 1579, 274 49, Slan�
tel. +420-314-522986
e-mail: fronek(zv)zznslany(tec)cz
> -----P�vodn� zpr�va-----
> Od: Hric Jan [SMTP:JHRIC(zv)duro.upjs.sk]
> Odesl�no: 05. listopadu 1998 14:14
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Delphi3 UDP ...
>
> Este len zacinam s Delphi , takze sorry ked moje otazky budu hlupe.
> Chcel by som pouzit komponent UDP a poslat pole bajtov.
> Lenze metoda SendData(..) komponentu UDP ma paramter typu
> OleVariant a ja potrebujem poslat pole bajtov.
> Vedel by mi niekto pomoct ?
> Jano.Synchronizace pristupu k cizim souborum
[*] Milos Koutny <kou20um(zv)axpsu.fpf.slu(tec)cz> - 5.10.1998 14:01:52
Zdravim,
nedostal jsem se asi dva dny na sit, takze mohu reagovat az ted. Vsem Vam
dekuji za navrhy. Nakonec se mi jevi jako nejschudnesi varianta se
sledovanim posledni zmeny souboru. Jeste jednou diky.
Milos Koutny
NTX indexy
[*] Jezek Petr, Ing. (DELVINA) <PETR(zv)sevis.sk> - 5.10.1998 14:08:53
Mam udelat aplikaci v 16 bitovem Delphi s pristupem na
soubory DBase s .NTX index.soubory (toto nemuzu zmenit).
Pokud napojim TTable na tuto tabulku v nabidce indexu nemam zadny NTX
soubor.
- Nevite jak vyresti tento soubor?
- To v 16 bitovem BDE neni podpora techto indexu?
- Neexistuje nejake lepsi reseni na pristup k temto
souborum v 16 bit. Delphi?
Diky za pomoc
Petr
Sluzba v NT a pouzita pamet
[*] Milos Koutny <kou20um(zv)axpsu.fpf.slu(tec)cz> - 5.10.1998 14:12:12
Zdravim vsechny,
chtel bych se zeptat, jestli by mi nekdo nedokazal vysvetlit ponekud
podivne (alespon pro mne) chovani sluzby v NT.
Vytvoril jsem svou vlastni sluzbu. Image je velky asi 40KB, kodovy segment
20KB, datovy 5KB, konzolova aplikace, zadna pakaz (packages). Sluzba
nedela nic, pouze reaguje na zadosti o spusteni a zastaveni.
Proc, kdyz se sluzba spusti, ukazuje Task Manager pouzitou pamet procesu
1200KB?
Diky
Milos Koutny
kou20um(zv)fpf.slu(tec)cz
vyrazy MATCHES / LIKE
[*] medisoft(zv)uo.fairnet(tec)cz (Medisoft International-Usti) - 5.10.1998 14:16:32
select prijmeni, jmeno
from Tab1
where Prijmeni like "D%"
"%" nahrazuje jakykoliv retezec
" " nahrazuje jakykoliv znak
S pozdravem
Petr Hartman, Medisoft
----------
Od: Dobromil Mal�
Odesl�no: 5. listopadu 1998 14:19
Komu: '- Konf Delphi'
P�edm�t: vyrazy MATCHES / LIKE
Ahoj, mam zase mindrak ...
..chci z databaze vytahnout data a pouzit pritom wildcards
Vite jak na to ? Napr. Vsechny zaznamy, ktere zacinaji na "D"
informix online ma vyraz "matches"
select prijmeni, jmeno
from Tab1
where Prijmeni matches "D*" {dokonce u umi i dve hvezdicky "*str*"}
Drive, v programu paradox se pouzival "zavinac" a "dve tecky"
tedy
select prijmeni, jmeno
from Tab1
where Prijmeni like "D.."
-to je napsano i v helpu, ale jaxi to nevybere nic :-(
Co delam spatne ???
Diky za pomoc.
Pozn.:pisu program v D1 (pro WfW)Modalni x nemodalni
[*] rys(zv)zas-me(tec)cz - 5.10.1998 14:27:54
Dobry den,
nevite nekdo, jak se da zjistit, zda je formular zobrazen jako modalni nebo
nemodalni?
Diky, Karel Rys
TreeView
[*] Zdenek Petruj <zpetruj(zv)zebra(tec)cz> - 5.10.1998 14:28:51
TreeView.Selected.Level
S pozdravem
Zdenek Petruj
____________________________
adress: Zebra systems, s.r.o.
Spartakovcu 3
708 00 Ostrava - Poruba
Czech republic
____________________________
tel./fax.: +420-(0)69-6912961
+420-(0)69-6912963
e-mail: zpetruj(zv)zebra(tec)cz
internet: http://www.zebra(tec)cz
> -----P�vodn� zpr�va-----
> Od: Krayzel Libor [SMTP:Libor.Krayzel(zv)czech-tv(tec)cz]
> Odesl�no: 5. November 1998 12:56
> Komu: '*** Delphi'
> P�edm�t: TreeView
>
> Zdravim,
>
> mam dvouurovnovy strom v TreeView. Jak zjistit, na ktere urovni zrovna
> jsem?
>
> .........................................................
> . Libor Krayzel .
> . Czech Television, Studio Ostrava .
> . Dvorakova 18, 702 00 Ostrava .
> . Telephone: 069-6201375 .
> . URL: http://webhost(tec)cz/elka .
> . E-mail: mailto:Libor.Krayzel(zv)czech-tv(tec)cz .
> . Fidonet: mailto:libor_krayzel(zv)p5.f59.n421.z2.fido(tec)cz .
> . E-mail2: mailto:sovtop(zv)email(tec)cz .
> .........................................................
> TreeView
[*] mdvorak(zv)csas(tec)cz - 5.10.1998 14:33:19
Aktualni uroven lze zjistit pomoci TreeView.Selected.Level .
M. Dvorak
-----Original Message-----
From: Krayzel Libor [mailto:Libor.Krayzel(zv)czech-tv(tec)cz]
Sent: Thursday, November 05, 1998 12:56 PM
To: '*** Delphi'
Subject: TreeView
Zdravim,
mam dvouurovnovy strom v TreeView. Jak zjistit, na ktere urovni zrovna
jsem?
.........................................................
. Libor Krayzel .
. Czech Television, Studio Ostrava .
. Dvorakova 18, 702 00 Ostrava .
. Telephone: 069-6201375 .
. URL: http://webhost(tec)cz/elka .
. E-mail: mailto:Libor.Krayzel(zv)czech-tv(tec)cz .
. Fidonet: mailto:libor_krayzel(zv)p5.f59.n421.z2.fido(tec)cz .
. E-mail2: mailto:sovtop(zv)email(tec)cz .
.........................................................
WINEXEC
[*] Posp�il Tom� <Tomas.Pospisil(zv)pvt(tec)cz> - 5.10.1998 14:38:51
Jestli je to spusteni s parametrem tak skus tohle
WinExec (PChar (S), sw_ShowNormal);
Kde S je tvuj String, ktery si vytvoris podle potreby
napr. 'pkzip.exe buff'
S pozdravem
Tomas Pospisil
PVT, a. s., o. z. Chomutov
Mailto:tomas.pospisil(zv)pvt(tec)cz
tel.: 0396/619215
> -----P�vodn� zpr�va-----
> Od: Ing. J�n Kuch�r [SMTP:kuchar(zv)tuke.sk]
> Odesl�no: 5. listopadu 1998 11:25
> Komu: Delphi
> P�edm�t: WINEXEC
>
> Caute
> �
> Mam nasledovny problem ako mam povedat D3 ze chcem spustit nejaky program
> s urcitym suborom. Priklad winexec('pkzip.exe '+buff, ws_showmaximized);,
> kde
> buff je stringova premenna s roznou hodnotou, ktora sa meni pocas
> programu, napriklad buff:='archiv', 'sklad'....atd.
> ��������������������������������������������������������������������������
> ������������������������� Dik
>
> Ing. J�n Kuch�r
> Katedra inv�ci� a rein�inieringu
> SjF TU Ko�ice
> Letn� 9
> 040 01 Ko�ice
> E-mail : kuchar(zv)tuke.sk <mailto:kuchar(zv)tuke.sk> vyrazy MATCHES / LIKE
[*] Jirka <Juraj.Nagy(zv)nh-trans(tec)cz> - 5.10.1998 14:42:32
V SQL je misto "(zv)" " " (podtrzitko) a misto ".." "%" (procento).
Ten tvuj select bude vypadat takto:
select prijmeni, jmeno
from Tab1
where Prijmeni like "D%"
> -----P�vodn� zpr�va-----
> Od: Dobromil Mal�
> Odesl�no: 5. listopadu 1998 13:20
> Komu: '- Konf Delphi'
> P�edm�t: vyrazy MATCHES / LIKE
>
> Ahoj, mam zase mindrak ...
> ..chci z databaze vytahnout data a pouzit pritom wildcards
> Vite jak na to ? Napr. Vsechny zaznamy, ktere zacinaji na "D"
>
> informix online ma vyraz "matches"
> select prijmeni, jmeno
> from Tab1
> where Prijmeni matches "D*" {dokonce u umi i dve hvezdicky
> "*str*"}
>
> Drive, v programu paradox se pouzival "zavinac" a "dve tecky"
> tedy
> select prijmeni, jmeno
> from Tab1
> where Prijmeni like "D.."
>
> -to je napsano i v helpu, ale jaxi to nevybere nic :-(
>
> Co delam spatne ???
>
> Diky za pomoc.
>
> Pozn.:pisu program v D1 (pro WfW)dotaz
[*] Marek Falan <falan(zv)atlas(tec)cz> - 5.10.1998 14:44:51
Zdravim vsetkych,
Mam tabulku, napr. v Gride. Vo formulary je este tlacitko hladaj.Chcem
zistit ci sa v tabulke nachadza urcity zaznam ale nechcem ho zobrazit.
Nechcem ani zmenit zobrazenie tabulky.Len chcem aby mi do urcitej premennej
zapisal false alebo true. Ako to urobit ?
vdaka za kazdu odpoved
Blikajici text
[*] TP+ <tpplus(zv)zasova(tec)cz> - 5.10.1998 14:48:31
Diky vsem, jsem hloupy ;-(
Jako pako jsem hledal nejakou message ktera tohle dela ;-)
Tom Baluch
TP+
WINEXEC
[*] Zdenek Petruj <zpetruj(zv)zebra(tec)cz> - 5.10.1998 14:57:31
V tom pripade nevim kde mas problem. Pokud chces pouzit WinExec a ne
CreateProcess tak proste napises
winexec(PChar('pkzip.exe '+buff),ws_showmaximized); a pkzip.exe se bude
spoustet s parametrem buff, pokud ti nevadi ze k pkzip nemas cestu. No
ale tak jsi to mel uz napsane v dotazu tak opravdu nechapu co jineho
chces - me tak spousteni externi aplikace s parametrem funguje a nebo
jsem opet nepochopil o co ti jde.
S pozdravem
Zdenek Petruj
____________________________
adress: Zebra systems, s.r.o.
Spartakovcu 3
708 00 Ostrava - Poruba
Czech republic
____________________________
tel./fax.: +420-(0)69-6912961
+420-(0)69-6912963
e-mail: zpetruj(zv)zebra(tec)cz
internet: http://www.zebra(tec)cz
> -----P�vodn� zpr�va-----
> Od: Ing. J�n Kuch�r [SMTP:kuchar(zv)tuke.sk]
> Odesl�no: 5. November 1998 13:54
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: WINEXEC
>
> ten buff je nejaky subor ktory chcem upravit, spakovat, alebo cokolvek
> ine s
> nim zrobit, nieje to progam ale iba nejaky subor
>
> >Nerozumim vete "chcem spustit nejaky program s urcitym suborom" ??? A
> co
> >je to Buff ??? Je to parametr exe souboru nebo nazev souboru nebo co
> ???
> >
> >>
> >> Mam nasledovny problem ako mam povedat D3 ze chcem spustit nejaky
> >> program s urcitym suborom. Priklad winexec('pkzip.exe '+buff,
> >> ws_showmaximized);, kde
> >> buff je stringova premenna s roznou hodnotou, ktora sa meni pocas
> >> programu, napriklad buff:='archiv', 'sklad'....atd.
> >>
> Modalni x nemodalni
[*] Jan Fiala <jan.fiala(zv)iname(tec)com> - 5.10.1998 15:06:48
Zkus se podivat na propety WindowState, zda tam neni wsModal
-----------------------------------------------------------------
ing. Jan Fiala jan.fiala(zv)iname.com
Prog-Soft s.r.o.
INFOS - informa�n� system pro n�poj��e
---------------------------------------------------------------
-----P�vodn� zpr�va-----
Od: rys(zv)zas-me(tec)cz <rys(zv)zas-me(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 5. listopadu 1998 15:38
P�edm�t: Modalni x nemodalni
Dobry den,
nevite nekdo, jak se da zjistit, zda je formular zobrazen jako modalni
nebo
nemodalni?
Diky, Karel Rys
Registrovane pripony
[*] Roman Toda <normex(zv)mail.pvt.sk> - 05.10.1998 15:11:41
Ahoj vsetci.
Ako mozem z programu (D3) spustit inu aplikaciu ked mam len subor ktory
by som chcel tejto aplikacii odovzdat ??
( uzivatel napr. napise 'dokument1.doc' alebo 'a.pdf' stlaci button a
ja spustim Word alebo Acroread)
vopred dakujem.
--
rt
normex(zv)mail.pvt.sk; www.technickenormy.com
Normex - fulltext retrieval information system for technical standard
Sluzba v NT a pouzita pamet
[*] Pavel Cisar <pcisar(zv)aktis(tec)cz> - 5.10.1998 15:12:41
Haj hou!
A coz takhle zaalokovany zasobnik, pokud me pamet neklame, tak je impl. 1MB.
>Vytvoril jsem svou vlastni sluzbu. Image je velky asi 40KB, kodovy segment
>20KB, datovy 5KB, konzolova aplikace, zadna pakaz (packages). Sluzba
>nedela nic, pouze reaguje na zadosti o spusteni a zastaveni.
>
>Proc, kdyz se sluzba spusti, ukazuje Task Manager pouzitou pamet procesu
>1200KB?
HTH
dotaz
[*] Jan Fiala <jan.fiala(zv)iname(tec)com> - 5.10.1998 15:12:10
Zapamatuj si RecNo, proved hledani a vrat se zpatky na RecNo. Da se to
udelat taky pomoci TBookmark.
Pokud nechces menit zobrazeni tabulky, musis udelat pred hledanim
Tabulke.DisableControls a po hledani Tabulka.EnableControls
-----------------------------------------------------------------
ing. Jan Fiala jan.fiala(zv)iname.com
Prog-Soft s.r.o.
INFOS - informa�n� system pro n�poj��e
---------------------------------------------------------------
-----P�vodn� zpr�va-----
Od: Marek Falan <falan(zv)atlas(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 5. listopadu 1998 16:04
P�edm�t: dotaz
Zdravim vsetkych,
Mam tabulku, napr. v Gride. Vo formulary je este tlacitko hladaj.Chcem
zistit ci sa v tabulke nachadza urcity zaznam ale nechcem ho zobrazit.
Nechcem ani zmenit zobrazenie tabulky.Len chcem aby mi do urcitej
premennej
zapisal false alebo true. Ako to urobit ?
vdaka za kazdu odpoved
Registrovane pripony
[*] Jan Fiala <jan.fiala(zv)iname(tec)com> - 5.10.1998 15:12:52
Mel by ti pomoci ShellExecute
-----------------------------------------------------------------
ing. Jan Fiala jan.fiala(zv)iname.com
Prog-Soft s.r.o.
INFOS - informa�n� system pro n�poj��e
---------------------------------------------------------------
-----P�vodn� zpr�va-----
Od: Roman Toda <normex(zv)mail.pvt.sk>
Komu: Delphi-L <delphi-l(zv)fwd(tec)cz>
Datum: 5. listopadu 1998 15:35
P�edm�t: Registrovane pripony
Ahoj vsetci.
Ako mozem z programu (D3) spustit inu aplikaciu ked mam len subor ktory
by som chcel tejto aplikacii odovzdat ??
( uzivatel napr. napise 'dokument1.doc' alebo 'a.pdf' stlaci button a
ja spustim Word alebo Acroread)
vopred dakujem.
--
rt
normex(zv)mail.pvt.sk; www.technickenormy.com
Normex - fulltext retrieval information system for technical standard
NTX indexy
[*] Jan Fiala <jan.fiala(zv)iname(tec)com> - 5.10.1998 15:20:36
Zkontroluj si verzi dBase v BDE. Pokud nepodporuje tvoji verzi dBase, budes
se muset pod�vat po nejake komponente pro pristup k dBase.
-----------------------------------------------------------------
ing. Jan Fiala jan.fiala(zv)iname.com
Prog-Soft s.r.o.
INFOS - informa�n� system pro n�poj��e
---------------------------------------------------------------
-----P�vodn� zpr�va-----
Od: Jezek Petr, Ing. (DELVINA) <PETR(zv)sevis.sk>
Komu: 'delphi-l(zv)fwd(tec)cz' <delphi-l(zv)fwd(tec)cz>
Datum: 5. listopadu 1998 16:12
P�edm�t: .NTX indexy
Mam udelat aplikaci v 16 bitovem Delphi s pristupem na
soubory DBase s .NTX index.soubory (toto nemuzu zmenit).
Pokud napojim TTable na tuto tabulku v nabidce indexu nemam zadny NTX
soubor.
- Nevite jak vyresti tento soubor?
- To v 16 bitovem BDE neni podpora techto indexu?
- Neexistuje nejake lepsi reseni na pristup k temto
souborum v 16 bit. Delphi?
Diky za pomoc
Petr
Sluzba v NT a pouzita pamet
[*] LuborK(zv)tnet(tec)cz (Kolar Lubor) - 05.10.1998 15:30:13
Dne Thu, 5 Nov 1998 14:12:12 +0100 (MET) Milos Koutny napsal:
> Zdravim vsechny,
>
> chtel bych se zeptat, jestli by mi nekdo nedokazal vysvetlit ponekud
> podivne (alespon pro mne) chovani sluzby v NT.
>
> Vytvoril jsem svou vlastni sluzbu. Image je velky asi 40KB, kodovy segment
> 20KB, datovy 5KB, konzolova aplikace, zadna pakaz (packages). Sluzba
> nedela nic, pouze reaguje na zadosti o spusteni a zastaveni.
>
Obavam se ze proto, ze NTcka neumoznuji sdilet DLL (i systemove) v
pameti, takze i pro tu tvoji sluzbu zavedou x systemovejch DLL, zkus se
mrknout na www.sysinternals.com, tak jsou utility, co sledujou, kterej
task ma jaky knihovny a pameti...
Lubor bIRDIE Kolar
====================
GSM Phone: +420-603-410019
ICQ: 18587772
Registrovane pripony
[*] LuborK(zv)tnet(tec)cz (Kolar Lubor) - 05.10.1998 15:30:34
Dne Thu, 05 Nov 1998 15:11:41 +0100 Roman Toda napsal:
> Ahoj vsetci.
>
> Ako mozem z programu (D3) spustit inu aplikaciu ked mam len subor ktory
> by som chcel tejto aplikacii odovzdat ??
> ( uzivatel napr. napise 'dokument1.doc' alebo 'a.pdf' stlaci button a
> ja spustim Word alebo Acroread)
Prikazem ShellExecute, viz help k Win32 API
Lubor bIRDIE Kolar
====================
GSM Phone: +420-603-410019
ICQ: 18587772
WinAmp Plug-in
[*] voborsky(zv)menza.mff.cuni(tec)cz - 5.10.1998 15:43:04
Ahoj. Netusite nekdo, jak vis plug-in do WinAmpa zjistuje jmeno
pisnicky, ktera se prave prehrava? Zdarec.
Lukas
dotaz
[*] Martin Fron�k <FRONEK(zv)ZZNSLANY.CZ> - 5.10.1998 15:50:45
Mas dve moznosti, budto si udelas klon kurzoru tabulky, nebo si otevres
druhou TTable. A jeste treti moznost:
DataSource->DisableControls();
.......vytvoris Bookmark..........
.......hledas........
........vratis se na Bookmark........
DataSource->EnableControls();
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! PETICE PROTI MONOPOLU
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Martin Fron�k
ZZN Slan� a.s.
Pra�sk� 1579, 274 49, Slan�
tel. +420-314-522986
e-mail: fronek(zv)zznslany(tec)cz
> -----P�vodn� zpr�va-----
> Od: Marek Falan [SMTP:falan(zv)atlas(tec)cz]
> Odesl�no: 05. listopadu 1998 14:45
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: dotaz
>
> Zdravim vsetkych,
>
> Mam tabulku, napr. v Gride. Vo formulary je este tlacitko hladaj.Chcem
> zistit ci sa v tabulke nachadza urcity zaznam ale nechcem ho zobrazit.
> Nechcem ani zmenit zobrazenie tabulky.Len chcem aby mi do urcitej
> premennej
> zapisal false alebo true. Ako to urobit ?
>
> vdaka za kazdu odpoved
>
> NTX indexy
[*] Radoslav Balvan <balvanra(zv)datalock.sk> - 05.10.1998 16:19:31
bohuzial v delphi1 som skor pouzival Paradox (tam su *.mdx)
ale podla toho, co som sa dozvedel od Clippristov a teraz
Visual Clippristov tak to, ake indexove subory aplikacia
vytvara, zalezi od nejakeho indexovaca prilepeneho k execku..
v kazdom pripade vraj prakticky nezalezi na tom aky typ pouzijes,
pokial neindexujes aj MEMO polozku, tam je vraj NTX v nevyhode
a este nieco v BDE administratorovskom helpe (ale pre D4) som nasiel
funkciu
C syntax
DBIResult DBIFN DbiOpenIndexTypesList (pszDriverType, phCur);
Delphi syntax
function DbiOpenIndexTypesList (pszDriverType: PChar; var hCur: hDBICur):
DBIResult stdcall;
Description
DbiOpenIndexTypesList creates a table containing a list of all supported
index types for the driver type.
Parameters
pszDriverType Type: pCHAR (Input)
Pointer to the driver type.
phCur Type: phDBICur (Output)
Pointer to the cursor handle.
Completion state
Each of the index type description records can be retrieved using
DbiGetNextRecord. DbiGetCursorProps can be used to allocate the proper
record size. After the record is retrieved, it can be cast with the
IDXType type definition, and used like an IDXType C language structure.
DbiResult return values
DBIERR_NONE The list of all supported index types was returned
successfully.
DBIERR_UNKNOWNTBLTYPE The specified driver type is unknown.
DBIERR_INVALIDHNDL The specified handle is invalid.
See also
DbiGetIndexDesc
z popisu by malo byt jasne o co ide
len neviem ako tuto funkciu volat - to do parametra hCur
treba dat Table1.Handle ?
ak niekto viete ako volat podobne Dbixxx funkcie skuste napisat
dik.
a akurat teraz som nasiel nieco v BDE - online reference (tiez D4)
Driver-Defined Index Requirements
It is important to understand that different drivers support
different types and characteristics of indexes. The following
sections provide a partial list of rules for the different index
types and characteristics supported by each driver:
dBASE
The following rules describe how dBASE supports indexes:
� dBASE supports only expression indexes.
(Single-column indexes are treated as a special case of expression
indexes.)
� dBASE supports two different physical index formats:
.NDX-style and .MDX-style.
� dBASE supports subset indexes in .MDX-style indexes.
� In dBASE, all maintained indexes are .MDX-style indexes.
� dBASE supports FoxPro compressed index .CDX-style indexes.
� dBASE supports Clipper index .NTX-style indexes for importing.
� dBASE does not support primary indexes (or primary keys).
zjavne to BDE dokaze nejako preimportovat (ale bohvie ci aj pouzivat,
skor nie)
--
Maj sa,
R.
Registrovane pripony
[*] Ing. Daniel Ficek <ficek(zv)hstech(tec)cz> - 05.10.1998 16:21:42
Napriklad takto (pokud je pripona souboru opravdu registrovana):
i := ShellExecute(Self.Handle, 'open', PChar('c:\dokumenty\winword.doc'),
nil, PChar('c:\dokumenty'), SW_SHOWNORMAL);
if i <= 32 then
begin
sErr := '';
case i of
0 : sErr := 'Opera�n� syst�m: nedostatek
pam�ti nebo syst�mov�ch zdroj�.';
ERROR_FILE_NOT_FOUND : sErr := 'Soubor nenalezen.';
ERROR_PATH_NOT_FOUND : sErr := 'Cesta nenalezena.';
ERROR_BAD_FORMAT : sErr := 'Chyba v .EXE souboru (nen� ve
form�tu Win32 nebo je po�kozen).';
SE_ERR_ACCESSDENIED : sErr := 'Opera�n� syst�m odm�tl p��stup k
souboru.';
SE_ERR_ASSOCINCOMPLETE : sErr := 'Asociace k souboru nen� kompletn�
nebo je chybn�.';
SE_ERR_DDEBUSY : sErr := 'Nelze ukon�it DDE transakci
proto�e jin� DDE transakce pr�v� prob�h�.';
SE_ERR_DDEFAIL : sErr := 'DDE transakce skon�ila chybou.';
SE_ERR_DDETIMEOUT : sErr := 'DDE transakce nem��e b�t
ukon�ena, proto�e vypr�el timeout.';
SE_ERR_DLLNOTFOUND : sErr := 'Specifikovan� DLL knihovna nebyla
nalezena.';
SE_ERR_NOASSOC : sErr := 'Pro p��ponu souboru nen�
vytvo�ena asociace s ��dnou aplikac�.';
SE_ERR_OOM : sErr := 'Nen� dostatek pam�ti k dokon�en�
operace.';
SE_ERR_SHARE : sErr := 'Syst�mov� chyba sd�len�.';
end;
Application.MessageBox(PChar(sErr), PChar('API Windows: Function
ShellExecute'), MB_OK+MB_ICONERROR);
end;
Ing. Daniel Ficek
Roman Toda wrote:
> Ahoj vsetci.
>
> Ako mozem z programu (D3) spustit inu aplikaciu ked mam len subor ktory
> by som chcel tejto aplikacii odovzdat ??
> ( uzivatel napr. napise 'dokument1.doc' alebo 'a.pdf' stlaci button a
> ja spustim Word alebo Acroread)
> vopred dakujem.
>
> --
> rt
> normex(zv)mail.pvt.sk; www.technickenormy.com
> Normex - fulltext retrieval information system for technical standard
Sluzba v NT a pouzita pamet
[*] Radek KALA <delphi(zv)betacontrol(tec)cz> - 5.10.1998 16:41:04
No a co vzdyt je to Gates.
> Zdravim vsechny,
>
> chtel bych se zeptat, jestli by mi nekdo nedokazal vysvetlit ponekud
> podivne (alespon pro mne) chovani sluzby v NT.
>
> Vytvoril jsem svou vlastni sluzbu. Image je velky asi 40KB, kodovy segment
> 20KB, datovy 5KB, konzolova aplikace, zadna pakaz (packages). Sluzba
> nedela nic, pouze reaguje na zadosti o spusteni a zastaveni.
>
> Proc, kdyz se sluzba spusti, ukazuje Task Manager pouzitou pamet procesu
> 1200KB?
>
> Diky
>
> Milos Koutny
> kou20um(zv)fpf.slu(tec)cz
>
S pozdravem Radek KALA
BetaControl, s.r.o.
Mostecka 15, 614 00
tlf. : + 420 5 4532 1112 / 2413
fax : + 420 5 4521 1501
GSM : + 420 603 85 75 15
dotaz
[*] Radek KALA <delphi(zv)betacontrol(tec)cz> - 5.10.1998 16:41:45
Pouzij TDataSet.LookUp;
> Zdravim vsetkych,
>
> Mam tabulku, napr. v Gride. Vo formulary je este tlacitko hladaj.Chcem
> zistit ci sa v tabulke nachadza urcity zaznam ale nechcem ho zobrazit.
> Nechcem ani zmenit zobrazenie tabulky.Len chcem aby mi do urcitej premennej
> zapisal false alebo true. Ako to urobit ?
>
> vdaka za kazdu odpoved
>
>
>
S pozdravem Radek KALA
BetaControl, s.r.o.
Mostecka 15, 614 00
tlf. : + 420 5 4532 1112 / 2413
fax : + 420 5 4521 1501
GSM : + 420 603 85 75 15
Registrovane pripony
[*] Roman Toda <normex(zv)mail.pvt.sk> - 05.10.1998 18:34:36
Ja blbec som to zle napisal, preto otazku doplnam
> Ako mozem z programu (D3) spustit inu aplikaciu ked mam len
> subor ktory
> by som chcel tejto aplikacii odovzdat ??
> ( uzivatel napr. napise 'dokument1.doc' alebo 'a.pdf'
> stlaci button a
> ja spustim Word alebo Acroread)
>
Potrebujem zistit hlavne co za aplikaciu a odkial mi ten subor spusta a
pre zobrazovanie default ikonu.
sorry a vdaka
--
rt
normex(zv)mail.pvt.sk; www.technickenormy.com
Normex - fulltext retrieval information system for technical standard
Poradi unit v execku
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 5.10.1998 18:39:54
DD,
mam nasledujici problem:
v programu jsou mimo jine dve unity A a B. kazda potrebuje funkce z te
druhe. Potrebuju zajistit aby A byla driv pri vykonavani Initialization nez
B. Delphi se chovaji komicky: Dam-li Build All hodi mi dopredu B, dam-li
compile hodi mi dopredu A
Vi nekdo co s tim ?
Zdravi
D. Toman
Modalni x nemodalni
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 05.10.1998 18:45:07
rys(zv)zas-me(tec)cz wrote:
>
> Dobry den,
>
> nevite nekdo, jak se da zjistit, zda je formular zobrazen jako modalni nebo
> nemodalni?
Ahoj,
Zalezi na tom jakou mas verzi Delphi. V D4 ma TForm vlastnost FormState, pokud
bude obsahovat fsModal tak je dany form modalni.
procedure TForm2.FormShow(Sender: TObject);
const
ModalText: array[Boolean] of String = ('Nemodalni', 'Modalni');
begin
Label1.Caption := ModalText[fsModal in FormState];
end;
Ale napriklad v D2 je tato promenna pouze v sekci private, takze tam je to
uz horsi. Pokud je ale zobrazen modalni dialog, tak je okno hlavni aplikace
nepristupne, toho lze prave vyuzit. Takze by to slo udelat takhle:
procedure TForm2.FormShow(Sender: TObject);
const
ModalText: array[Boolean] of String = ('Nemodalni', 'Modalni');
var
WS: DWORD;
begin
WS := GetWindowLong(Application.MainForm.Handle, GWL_STYLE);
Label1.Caption := ModalText[WS and WS_DISABLED <> 0];
end;
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
* protestni akce *
************************
Vyvijeni komponent + Co nam Inprise taji ?
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 05.10.1998 18:46:06
Marian Jonas wrote:
>
> >> podrobnosti lze najit v Delphi\Source\Toolsapi\Dsgnintf.Pas nebo
> >> v napovede pod heslem TPropertyEditor, bohuzel jsem nikde nenasel
> >> Property Editor pro FieldName :-((
> >
> >To je prave to, co nekterym z nas Inprise zatajil. Napriklad v Delphi 2 Dev
> je
> >jeho plny zdrojovy kod.
> >
> >--
> > Petr Vones, amatersky programator
>
> Je tam i kod pro registraci komponent a property editoru ?
Ano, je tam zdrojovy kod i registrace property editoru.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
* protestni akce *
************************Poradi unit v execku
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 05.10.1998 21:59:37
Dalibor Toman wrote:
> mam nasledujici problem:
>
> v programu jsou mimo jine dve unity A a B. kazda potrebuje funkce z te
> druhe. Potrebuju zajistit aby A byla driv pri vykonavani Initialization nez
> B. Delphi se chovaji komicky: Dam-li Build All hodi mi dopredu B, dam-li
> compile hodi mi dopredu A
>
> Vi nekdo co s tim ?
Ahoj,
a k cemu potrebujes ten presny sled volani initialization ? Neslo by to
vyresit nejakym jinym zpusobem ?
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
* protestni akce *
************************Predefinovani funkce klaves
[*] Petr Ma��k - 5.10.1998 22:04:40
Pro tento ucel pouzivam nasledujici postup:
Na formulari nastavim KeyPreview:=true; a v udalosti OnKeyDown osetrim
pozadovane klavesy
procedure TMujForm.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
case Key of
VK_RETURN:Selectnext(ActiveControl,true,true);
.
.
end;
end;
Metoda Selectnext presune focus z ActiveControl na nasledujici (prvni
parametr true) podle TabOrder s kontrolou zda je TabStop pro control= true-
druhy parametr true pro klavesu ENTER nebo jinou, podle Key. Je to v helpu u
TWinControl.
Petr Ma��k rtepema(zv)mbox.vol(tec)cz
>> -----P�vodn� zpr�va-----
>> Od: Zdenek Haringer [SMTP:milesoft(zv)mi.cesnet(tec)cz]
>> Odesl�no: 04. listopadu 1998 14:30
>> Komu: Dellphi konference
>> P�edm�t: Predefinovani funkce klaves
>>
Praca s interface v D3
[*] Branislav Danko <danko(zv)basl.sk> - 06.10.1998 08:02:31
Nazdar vsetci,
potreboval by som zobrazit do TImageView zobrazit obsah vsetkych
diskov pristupnych z Windows 95 (nazvy + ikony). Zda sa mi ze by sa na
tento ucel dali vhodne vyuzit interfejsy, konkretne IFolderXXX, doteraz
som vsak s nimi nikdy nerobil, aj tato myslienka je len v rovine
teoretickej. Takze ak by vedel niekto poradit pri rieseni konkretneho
problemu, resp. aspon zhruba vysvetlit pracu s interfejsami vo
vseobecnosti, budem mu velmi vdacny (dufam ze to nie je uplne "off
topic").
Brano.MBX soubory
[*] Jan Fiala <jan.fiala(zv)iname(tec)com> - 6.10.1998 08:08:53
Nevite nekdo jak se dostat na MBX soubory, ve kterych uchovava postu MS
Outlook ?
-----------------------------------------------------------------
ing. Jan Fiala jan.fiala(zv)iname.com
Prog-Soft s.r.o.
INFOS - informa�n� system pro n�poj��e
---------------------------------------------------------------
dotaz
[*] Marek Falan <falan(zv)atlas(tec)cz> - 6.10.1998 08:21:58
Zdravim,
Este by som upresnil predosli mail.
Mam tabulku napr. so 4 stlpcami. Chcem pridat novy zaznam. Ale riesim to cez
vlastne dialog. okno. V tom okne su 4 edit polia, ktore nie su napojene na
databazu. Ak napisem do prveho pola text a idem z neho prec chcem v udalosti
zistit ci taka polozka existuje. Ak ano chcem vyzvat uzivatela k zadaniu
inej hodnoty. Predosle riesenia nastavovali kurzor na zaznam ale ako zistim
v programe ci tento zaznam existuje ? Potreboval by som to pre komponentu
TABLE aj pre SQL.
zaciatocnik
vdaka
NTX indexy
[*] RADIK(zv)p15.monet(tec)cz - 6.10.1998 08:38:00
Pokud vim, tak existuji dve nahrady BDE, ktere umi Clipperovske indexy
NTX. Jmenuje se to tusim Halcyon a Apollo. Oboji je komercni. Odkazy
jsou na www.delphi(tec)cz (musim si udelat trosku reklamu). Bohuzel z
podobnych duvodu jake uvadis to musim pouzivat take, testuju Apollo pod
D3, takze pripadne mohu poskytnout nejake zkusenosti.
Ales
----------
Od: Jezek Petr, Ing. (DELVINA)
Komu: 'delphi-l(zv)fwd(tec)cz'
P�edm�t: .NTX indexy
Datum: 5. listopad 1998 14:08
Mam udelat aplikaci v 16 bitovem Delphi s pristupem na
soubory DBase s .NTX index.soubory (toto nemuzu zmenit).
Pokud napojim TTable na tuto tabulku v nabidce indexu nemam zadny NTX
soubor.
- Nevite jak vyresti tento soubor?
- To v 16 bitovem BDE neni podpora techto indexu?
- Neexistuje nejake lepsi reseni na pristup k temto
souborum v 16 bit. Delphi?
Diky za pomoc
Petr
Poradi unit v execku
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 6.10.1998 09:05:07
>a k cemu potrebujes ten presny sled volani initialization ?
napr unita inicializuje nejake sve veci a pri tom potrebuje chybove stavy
logovat do filu - jenze log unita jeste nestihla inicializovat logovaci
funkce...
> Neslo by to vyresit nejakym jinym zpusobem ?
samozrejme, ze slo, uz na tom pracuju. Ale potom pro me ponekud ztraci smysl
inicializacni a finalizacni sekce v unitach. Navic, kdyz si toho clovek
nevsimne, muze se mu stat, ze pri ladeni program funguje, pak spacha build
all pro preklad ostre verze a program se chova uplne jinak.
Pokud z testovacich duvodu potrebuju umistit nejakou knihovnu (detektor
memory leaku, atd) napr jako prvni, pri finalizaci musim si dat pozor aby ta
knihovna neobsahovala odkazy na ostatni knihovny - jinak neni mozne ovlivnit
poradi inicializaci
Zdravi
D. Toman
MBX soubory
[*] Mor�ol Marian <Marian.Morzol(zv)ostrava.aksignal(tec)cz> - 6.10.1998 09:38:10
Na http://www.wotsit.org pod Internet Relates je kratky popis(2k).
> -----P�vodn� zpr�va-----
> Od: Jan Fiala [SMTP:jan.fiala(zv)iname.com]
> Odesl�no: 6. listopadu 1998 8:09
> Komu: Delphi forum
> P�edm�t: .MBX soubory
>
> Nevite nekdo jak se dostat na MBX soubory, ve kterych uchovava postu
> MS
> Outlook ?
>
> -----------------------------------------------------------------
> ing. Jan Fiala jan.fiala(zv)iname.com
> Prog-Soft s.r.o.
> INFOS - informa�n� system pro n�poj��e
> ---------------------------------------------------------------
Archiv konference ?
[*] Va�k�� Martin <MVackar(zv)cpoj(tec)cz> - 6.10.1998 09:47:50
Dobry den,
jsem ucastnikem konference a potreboval bych se podivat do jejiho archivu.
Prosim o adresu a predem dekuji.
Martin Va�k��
mvackar(zv)cpoj(tec)cz
vyrazy MATCHES / LIKE
[*] Dobromil Mal� <Dobromil.Maly(zv)rak.pr.ds.mfcr(tec)cz> - 6.10.1998 09:47:52
Princip je mi jasny :-) , jenom jsem nevedel ty zastupne znaky.
Diky vsem za odpoved. V napovede jsem ale vazne nasel zminku
o ".." a "(zv)".
Jeste jednou diky.
Dobra.>v sql databazach je to pomocou "%". takze ak chces vsetky zaznamy zacinajuce
>na "D": ...WINEXEC
[*] Dobromil Mal� <Dobromil.Maly(zv)rak.pr.ds.mfcr(tec)cz> - 6.10.1998 09:52:29
Takze je to parametr. Tak Ti staci to co jsi uz napsal sam.
Akorat to budes muset asi prevest z pas-stringu pomoci PChar.
Cituji :
Priklad winexec('pkzip.exe '+buff,
ws_showmaximized);, kde
buff je stringova premenna s roznou hodnotou
>ten buff je nejaky subor ktory chcem upravit, spakovat, alebo cokolvek ine s
>nim zrobit, nieje to progam ale iba nejaky subor
...Registrovane pripony
[*] Dobromil Mal� <Dobromil.Maly(zv)rak.pr.ds.mfcr(tec)cz> - 6.10.1998 10:03:02
Pokud je pripona zaregistrovana, tak pomoci ShellExecute
lze spustit prirazenou aplikaci. Pokud bude pripona DOC
prirazena k Word-u spusti se Word a natahne se ten soubor,
pokud bude prirazen napr. WordPad, otevre se ten
ShellExecute(Application.Handle, nil, PChar('Dokument1.DOC',...
----------
Od: Roman Toda[SMTP:normex(zv)mail.pvt.sk]
Odesl�no: 5. listopadu 1998 15:11
Komu: Delphi-L
P�edm�t: Registrovane pripony
Ahoj vsetci.
Ako mozem z programu (D3) spustit inu aplikaciu ked mam len subor ktory
by som chcel tejto aplikacii odovzdat ??
( uzivatel napr. napise 'dokument1.doc' alebo 'a.pdf' stlaci button a
ja spustim Word alebo Acroread)
vopred dakujem.
--
rt
normex(zv)mail.pvt.sk; www.technickenormy.com
Normex - fulltext retrieval information system for technical standard
dotaz
[*] Dobromil Mal� <Dobromil.Maly(zv)rak.pr.ds.mfcr(tec)cz> - 6.10.1998 10:09:51
Dej si tam TQuery a do property SQL dej
select count(*) from T Tab where
Sloupec1=NEJAKA HODNOTA and Sloupec2 LIKE "D%" //uz to viiim :-)))
udelej Open toho Query a potom
NALEZENO:=Query1.Fields[0]>0;
nebo to jde i : select * from ... (to bude stejny)
..zase Query.Open
NALEZENO:=Query1.RecordCount>0;
Ale nevim, jestli pujde ten Query spustit na otevrenou tabulku
----------
Od: Marek Falan[SMTP:falan(zv)atlas(tec)cz]
Odesl�no: 5. listopadu 1998 14:44
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: dotaz
Zdravim vsetkych,
Mam tabulku, napr. v Gride. Vo formulary je este tlacitko hladaj.Chcem
zistit ci sa v tabulke nachadza urcity zaznam ale nechcem ho zobrazit.
Nechcem ani zmenit zobrazenie tabulky.Len chcem aby mi do urcitej premennej
zapisal false alebo true. Ako to urobit ?
vdaka za kazdu odpoved
MBX soubory
[*] Jan Fiala <jan.fiala(zv)iname(tec)com> - 6.10.1998 10:13:32
Diky za informaci. Doufal jsem, ze se na data dostanu pres db ovladac.
-----------------------------------------------------------------
ing. Jan Fiala jan.fiala(zv)iname.com
Prog-Soft s.r.o.
INFOS - informa�n� system pro n�poj��e
---------------------------------------------------------------
-----P�vodn� zpr�va-----
Od: Mor�ol Marian <Marian.Morzol(zv)ostrava.aksignal(tec)cz>
Komu: 'delphi-l(zv)fwd(tec)cz' <delphi-l(zv)fwd(tec)cz>
Datum: 6. listopadu 1998 10:45
P�edm�t: RE: .MBX soubory
Na http://www.wotsit.org pod Internet Relates je kratky popis(2k).
dotaz
[*] Dobromil Mal� <Dobromil.Maly(zv)rak.pr.ds.mfcr(tec)cz> - 6.10.1998 10:32:45
Tyhle kontroly je lepsi delat az po stisknuti tlacitka
"Vlozit", "Ulozit" a podobne, tedy alespon me se to tak
osvedcilo.
A delam to tak, ze nejdrive zkontroluji uplnost udaju,
do Query.SQL dam nejdrive kontrolu existence klicoveho
udaje (napr. select count(*) from T_Tab where klic=Edit1.Text)
spustim Query, zjistim, zda je Query.Fields[0] vetsi nez nula
a pokud ano, tak raise Exception.Create('Tento klic jiz existuje')
pokud je vse OK, tak vymazu puvodni SQL a dam tam "insert into ..."
Pokud to ale chces na Edit1OnExit, tak tu kontrolu muzes udelat tady.
Pro Table tu zrovna ted bylo probirano - disablecontrols, getbookmark,
lookup-porovnani, gotobookmark, enablecontrols.
Zdravim,
Este by som upresnil predosli mail.
Mam tabulku napr. so 4 stlpcami. Chcem pridat novy zaznam. Ale riesim to cez
vlastne dialog. okno. V tom okne su 4 edit polia, ktore nie su napojene na
databazu. Ak napisem do prveho pola text a idem z neho prec chcem v udalosti
zistit ci taka polozka existuje. Ak ano chcem vyzvat uzivatela k zadaniu
inej hodnoty. Predosle riesenia nastavovali kurzor na zaznam ale ako zistim
v programe ci tento zaznam existuje ? Potreboval by som to pre komponentu
TABLE aj pre SQL.
zaciatocnik
vdaka
Archiv konference ?
[*] Dobromil Mal� <Dobromil.Maly(zv)rak.pr.ds.mfcr(tec)cz> - 6.10.1998 10:36:25
www.delphi(tec)cz
----------
Od: Va�k�� Martin[SMTP:MVackar(zv)cpoj(tec)cz]
Odesl�no: 6. listopadu 1998 9:47
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: Archiv konference ?
Dobry den,
jsem ucastnikem konference a potreboval bych se podivat do jejiho archivu.
Prosim o adresu a predem dekuji.
Martin Va�k��
mvackar(zv)cpoj(tec)cz
Tvorba n�pov�dy
[*] Dobromil Mal� <Dobromil.Maly(zv)rak.pr.ds.mfcr(tec)cz> - 6.10.1998 10:41:42
Ahoj,
kdyz se tak vyznas v te tvorbe napovedy, jiste by jsi mohl pomoci.
Na serverech microsoftu byl sveho casu ke stazeni kompilator helpu
pro Win 3.x, pisu ted 16b aplikaci a docela by se mi hodil, jenomze
ted, abych ho mohl stahnout, musim vyplnit nejaky formular, a to se
mi moc nechce. Nevis, kde by se dal sehnat ?
Diky za pomoc
Dobra.Archiv konference ?
[*] RADIK(zv)p15.monet(tec)cz - 6.10.1998 10:57:00
kdyz posles mail na listserv(zv)fwd(tec)cz a do zpravy das text Help, tak ti
prijde zprava s popisem prikazu. A kdyz se soustredis na Index a get,
tak se dostanes i k tomu archivu.
Ales
----------
Od: Va�k�� Martin
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: Archiv konference ?
Datum: 6. listopad 1998 9:47
Dobry den,
jsem ucastnikem konference a potreboval bych se podivat do jejiho
archivu.
Prosim o adresu a predem dekuji.
Martin Va�k��
mvackar(zv)cpoj(tec)cz
WINEXEC
[*] Ing. J�n Kuch�r�����!j��G - 6.10.1998 10:57:41
pr. : buff:='confif.sys';
lenze ten tvoj zapis on prave odmieta, ze vraj to co je v zatvorke
neodpoveda tomu co on pozaduje pre pchar
-----P�vodn� zpr�va-----
Od: Zdenek Petruj <zpetruj(zv)zebra(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 5. november 1998 16:09
P�edm�t: RE: WINEXEC
>V tom pripade nevim kde mas problem. Pokud chces pouzit WinExec a ne
>CreateProcess tak proste napises
>winexec(PChar('pkzip.exe '+buff),ws_showmaximized); a pkzip.exe se bude
>spoustet s parametrem buff, pokud ti nevadi ze k pkzip nemas cestu. No
>ale tak jsi to mel uz napsane v dotazu tak opravdu nechapu co jineho
>chces - me tak spousteni externi aplikace s parametrem funguje a nebo
>jsem opet nepochopil o co ti jde.
>
> S pozdravem
> Zdenek Petruj
>____________________________
>adress: Zebra systems, s.r.o.
> Spartakovcu 3
> 708 00 Ostrava - Poruba
> Czech republic
>____________________________
>tel./fax.: +420-(0)69-6912961
> +420-(0)69-6912963
>e-mail: zpetruj(zv)zebra(tec)cz
>internet: http://www.zebra(tec)cz
>
>
>> -----P�vodn� zpr�va-----
>> Od: Ing. J�n Kuch�r [SMTP:kuchar(zv)tuke.sk]
>> Odesl�no: 5. November 1998 13:54
>> Komu: delphi-l(zv)fwd(tec)cz
>> P�edm�t: Re: WINEXEC
>>
>> ten buff je nejaky subor ktory chcem upravit, spakovat, alebo cokolvek
>> ine s
>> nim zrobit, nieje to progam ale iba nejaky subor
>>
>> >Nerozumim vete "chcem spustit nejaky program s urcitym suborom" ??? A
>> co
>> >je to Buff ??? Je to parametr exe souboru nebo nazev souboru nebo co
>> ???
>> >
>> >>
>> >> Mam nasledovny problem ako mam povedat D3 ze chcem spustit nejaky
>> >> program s urcitym suborom. Priklad winexec('pkzip.exe '+buff,
>> >> ws_showmaximized);, kde
>> >> buff je stringova premenna s roznou hodnotou, ktora sa meni pocas
>> >> programu, napriklad buff:='archiv', 'sklad'....atd.
>> >>
>>
>Velikost souboru/TAnimation
[*] Mor�ol Marian <Marian.Morzol(zv)ostrava.aksignal(tec)cz> - 6.10.1998 11:12:34
1.)Nevite jak zjistit velikost souboru ulozeneho na nejakem serveru
Internetu. Potrebuji to pro zobrazeni prubehu stahovani. Stahuje
protokolem HTTP.
2.) Nevite o nejake komponente TAnimation, ktera zobrazuje stahovani s
Internetu(na jedne stane zemekoule na druhe slozka). V Delphi klasicka
TAnimate neobsahuje tento druh.
Diky vsem za odpovedi.Delphi3 UDP ...
[*] Hric Jan <JHRIC(zv)duro.upjs.sk> - 6.10.1998 11:16:09 nft-dft
Bol by som Ti vdacny , keby si mi nieco trefne poslal .(alebo aspon
napisal adresu , kde by som to mohol stiahnut)
Vdaka...
Jano H.
> From: =?iso-8859-2?Q?Martin_Fron=ECk?= <FRONEK(zv)ZZNSLANY.CZ>
> Jiste,
>
> nepouzivej komponentu od Inprise, ale stahni si neco free........je to
> mnohem lepsi nez Inprise. Kdyztak muzu neco poslat, jestli chces.
>
>
> Martin Fron k
> ZZN Slan a.s.
> Pra ska 1579, 274 49, Slan
> tel. +420-314-522986
> e-mail: fronek(zv)zznslany(tec)cz
>
> > -----P vodni zprava-----
> > Od: Hric Jan [SMTP:JHRIC(zv)duro.upjs.sk]
> > Odeslano: 05. listopadu 1998 14:14
> > Komu: delphi-l(zv)fwd(tec)cz
> > P edm t: Delphi3 UDP ...
> >
> > Este len zacinam s Delphi , takze sorry ked moje otazky budu hlupe.
> > Chcel by som pouzit komponent UDP a poslat pole bajtov.
> > Lenze metoda SendData(..) komponentu UDP ma paramter typu
> > OleVariant a ja potrebujem poslat pole bajtov.
> > Vedel by mi niekto pomoct ?
> > Jano.
> Rodne cislo
[*] Tomas Baloun <baloun(zv)ikos(tec)cz> - 6.10.1998 11:34:33
Ahoj,
nemate prosim nekdo algoritmus na vypocet kontrolni cislice u rodneho cisla
???
Diky
S pozdravem
Tomas Baloun
IKOS Liberec, s.r.o.
28.rijna 278/46
460 07 LIBEREC, CZECH REPUBLIC
tel./fax: +420 48 6131083, 6131082, 485491
http://www.ikos(tec)cz
E-mail: sales(zv)ikos(tec)cz
------------------------------------
-----P�vodn� zpr�va-----
Od: Roman Toda <normex(zv)mail.pvt.sk>
Komu: Delphi-L <delphi-l(zv)fwd(tec)cz>
Datum: 5. listopadu 1998 13:26
P�edm�t: Registrovane pripony
>Ahoj vsetci.
>
>Ako mozem z programu (D3) spustit inu aplikaciu ked mam len subor ktory
>by som chcel tejto aplikacii odovzdat ??
>( uzivatel napr. napise 'dokument1.doc' alebo 'a.pdf' stlaci button a
>ja spustim Word alebo Acroread)
>vopred dakujem.
>
>--
>rt
>normex(zv)mail.pvt.sk; www.technickenormy.com
>Normex - fulltext retrieval information system for technical standard
>
>
>FoxPro indexy
[*] Miroslav Gurica <konbier(zv)psg.sk> - 06.10.1998 11:34:16
Ahoj !
Mam dve otazky do plena :
1/ Pozna niekto strukturu FoxPro indexov IDX, CDX /verzie 1.x , 2.x
.../ resp. kde by sa dali zohnat.
2/ Ma niekto prakticke skusenosti s Halcyon Dataset pre Delphi / DBE
nahrada pre dBase,Fox,Clipper od Griffin Solutions/TDatabase.Params
[*] ALG <agisoft(zv)softhome(tec)net> - 6.10.1998 11:40:38 -0000
Mam takovy poci ze je to jsou to pouze tyto parametry
SERVER NAME=
USER NAME=
OPEN MODE=
SCHEMA CACHE SIZE=
LANGDRIVER=
SQLQRYMODE=
SQLPASSTHRU MODE=
SCHEMA CACHE TIME=
MAX ROWS=
BATCH COUNT=
ENABLE SCHEMA CACHE=
SCHEMA CACHE DIR=
ENABLE BCD=
BLOBS TO CACHE=
BLOB SIZE=
PASSWORD=
...u� jste videli ABIDAS? - 27. - 28. prob�hne koncert v Benatkach nad Jizerou se spratelenou alternativni skupinou 3AKORDY.
Ale� Gregor - agisoft(zv)softhome.net
-----P�vodn� zpr�va-----
Od: Flaska Jakub [SMTP:jakub.flaska(zv)zps.skoda-auto(tec)cz]
Odesl�no: 5. listopadu 1998 11:42
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: RE: TDatabase.Params
Zdravicko...
Omlouvam se, s temi mezerami v PATH to byl ulet, chyba byla v nastaveni
BDE u paradoxu na verzi 4 a ne ze vadily mezery, ale prilis dlouha
cesta. Ovsem prvni dotaz zustava. :-)
Dekuji za vysliseni, F.
> -----P�vodn� zpr�va-----
> Od: Flaska Jakub [SMTP:jakub.flaska(zv)zps.skoda-auto(tec)cz]
> Odesl�no: �tvrtek, listopad 05, 1998 10:56
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: TDatabase.Params
>
> Zdravicko...
>
> 1. Nevite nekdo, jake vsechny parametry mohou byt v TDatabase.Params?
> (v
> helpu jsem to nenasel)
> 2. Nevite nekdo, jak nastavit parametr PATH na adresar, v jehoz nazvu
> jsou mezery? (uvozovky ani apostrofy nepomahaji) :-(((
>
> Dekuji za vsechny konstruktivni odpovedi. F.
WINEXEC
[*] Zdenek Petruj <zpetruj(zv)zebra(tec)cz> - 6.10.1998 12:15:38
To je nejaka blbost a nebo ses nekde seknul v zapisu protoze nasledujici
procedura mi funguje bez problemu. Muzes si to vyzkouset a pak napis kde
mas chybu:
procedure TForm1.Button1Click(Sender: TObject);
var
buff:string;
begin
buff:='Pokus.txt';
winexec(PChar('Notepad.exe '+buff),sw_showmaximized);
end;
S pozdravem
Zdenek Petruj
____________________________
adress: Zebra systems, s.r.o.
Spartakovcu 3
708 00 Ostrava - Poruba
Czech republic
____________________________
tel./fax.: +420-(0)69-6912961
+420-(0)69-6912963
e-mail: zpetruj(zv)zebra(tec)cz
internet: http://www.zebra(tec)cz
> -----P�vodn� zpr�va-----
> Od: Ing. J�n Kuch�r [SMTP:kuchar(zv)tuke.sk]
> Odesl�no: 6. November 1998 10:58
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Re: WINEXEC
>
> pr. : buff:='confif.sys';
>
> lenze ten tvoj zapis on prave odmieta, ze vraj to co je v zatvorke
> neodpoveda tomu co on pozaduje pre pchar
>
> -----P�vodn� zpr�va-----
> Od: Zdenek Petruj <zpetruj(zv)zebra(tec)cz>
> Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
> Datum: 5. november 1998 16:09
> P�edm�t: RE: WINEXEC
>
>
> >V tom pripade nevim kde mas problem. Pokud chces pouzit WinExec a ne
> >CreateProcess tak proste napises
> >winexec(PChar('pkzip.exe '+buff),ws_showmaximized); a pkzip.exe se
> bude
> >spoustet s parametrem buff, pokud ti nevadi ze k pkzip nemas cestu.
> No
> >ale tak jsi to mel uz napsane v dotazu tak opravdu nechapu co jineho
> >chces - me tak spousteni externi aplikace s parametrem funguje a nebo
> >jsem opet nepochopil o co ti jde.
> >
> > S pozdravem
> > Zdenek Petruj
> >____________________________
> >adress: Zebra systems, s.r.o.
> > Spartakovcu 3
> > 708 00 Ostrava - Poruba
> > Czech republic
> >____________________________
> >tel./fax.: +420-(0)69-6912961
> > +420-(0)69-6912963
> >e-mail: zpetruj(zv)zebra(tec)cz
> >internet: http://www.zebra(tec)cz
> >
> >
> >> -----P�vodn� zpr�va-----
> >> Od: Ing. J�n Kuch�r [SMTP:kuchar(zv)tuke.sk]
> >> Odesl�no: 5. November 1998 13:54
> >> Komu: delphi-l(zv)fwd(tec)cz
> >> P�edm�t: Re: WINEXEC
> >>
> >> ten buff je nejaky subor ktory chcem upravit, spakovat, alebo
> cokolvek
> >> ine s
> >> nim zrobit, nieje to progam ale iba nejaky subor
> >>
> >> >Nerozumim vete "chcem spustit nejaky program s urcitym suborom"
> ??? A
> >> co
> >> >je to Buff ??? Je to parametr exe souboru nebo nazev souboru nebo
> co
> >> ???
> >> >
> >> >>
> >> >> Mam nasledovny problem ako mam povedat D3 ze chcem spustit
> nejaky
> >> >> program s urcitym suborom. Priklad winexec('pkzip.exe '+buff,
> >> >> ws_showmaximized);, kde
> >> >> buff je stringova premenna s roznou hodnotou, ktora sa meni
> pocas
> >> >> programu, napriklad buff:='archiv', 'sklad'....atd.
> >> >>
> >>
> >FoxPro indexy
[*] Jan Fiala <jan.fiala(zv)iname(tec)com> - 6.10.1998 12:24:17
Struktura IDX :
Hlavicka
byte popis
----------------------------------------------------------
0-3 ukazatel na korenovy uzel
4-7 ukazatel seznamu volnych uzlu
-1 v pripade, ze neni k dispozici
8-11 delka souboru
12-13 delka klice
14 priznaky: 1 - unikatni index
8 - index s podminkou
15 popis indexu (nevyuzito)
16-235 klicovy vyraz (max. 220 zn.) |ukonceno
236-455 vyraz for (max 22 znaku) |znakem 00
456-511 nevyuzito
Uzly
byte popis
----------------------------------------------
0-1 priznak: 0 - indexovy uzel
1 - korenovy uzel
2 - listovy uzel
2-3 pocet pritomnych klicu
4-7 ukazatel na nejblizsi levy uzel na stejne
urovni, -1 pokud neexistuje
8-11 ukazatel na nejblizsi pravy uzel na stejne
urovni, -1 pokud neexistuje
12-511 max 500 znaku pro klicove hodnoty o delce
klice. Pokud je uzel listovy, potom toto cislo
obsahuje cislo vety v hex. formatu
====================================================
Struktura CDX :
Hlavicka
byte popis
----------------------------------------------------------
0-3 ukazatel na korenovy uzel
4-7 ukazatel seznamu volnych uzlu
-1 v pripade, ze neni k dispozici
8-11 rezervovano
12-13 delka klice
14 priznaky: 1 - unikatni index
8 - index s frazi FOR
32 - kompaktni format indexu
64 - strukturovy format
15 popis indexu (nevyuzito)
16-501 rezervovano
502-503 smer trideni: 0 vzestupne
1 sestupne
504-505 rezervovano
506-507 delka oblasti pro frazi FOR
508-509 rezervovano
510-511 delka oblesti pro klicovy vyraz
512-1023 oblast pro klicovy vyraz
vnitrni uzly kompaktniho indexu
0-512 totozne jako u obycejnych indexu
vnejsi uzly kompaktniho indexu
byte popis
----------------------------------------------------------
0-11 totozne jako u obycejneho indexu
12-13 velikost volneho prostoru v uzlu
14-17 maska cisla vety
18 byte duplikace souctu masky
19 byte klouzavy souctu masky
20 pocet biu pro cislo vety
21 pocet bitu pro duplikacni soucet
22 pocet bitu pro klouzavy (trail) soucet
23 pocet bitu, ktere obsahuji cislo vety,
duplikacni a klouzavy soucet
24-511 indexove klice a informace (komprimovane)
Informace byly cerpany z FoxPro tipy a triky z edice Do kapsy od G-Compu
-----------------------------------------------------------------
ing. Jan Fiala jan.fiala(zv)iname.com
Prog-Soft s.r.o.
INFOS - informacn� system pro n�poj�re
---------------------------------------------------------------
-----P�vodn� zpr�va-----
Od: Miroslav Gurica <konbier(zv)psg.sk>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 6. listopadu 1998 12:45
P�edm�t: FoxPro indexy
Ahoj !
Mam dve otazky do plena :
1/ Pozna niekto strukturu FoxPro indexov IDX, CDX /verzie 1.x , 2.x
.../ resp. kde by sa dali zohnat.
2/ Ma niekto prakticke skusenosti s Halcyon Dataset pre Delphi / DBE
nahrada pre dBase,Fox,Clipper od Griffin Solutions/Registrovane pripony
[*] Jan Fiala <jan.fiala(zv)iname(tec)com> - 6.10.1998 12:26:39
Pro zobrazovani icon by ti mozna stacil priklad z Delphi : VirtualListView.
Nejsem si jisty, zda byl i v Delphi 3.
-----------------------------------------------------------------
ing. Jan Fiala jan.fiala(zv)iname.com
Prog-Soft s.r.o.
INFOS - informa�n� system pro n�poj��e
---------------------------------------------------------------
-----P�vodn� zpr�va-----
Od: Roman Toda <normex(zv)mail.pvt.sk>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 6. listopadu 1998 12:44
P�edm�t: Re: Registrovane pripony
Ja blbec som to zle napisal, preto otazku doplnam
Ako mozem z programu (D3) spustit inu aplikaciu ked mam len
subor ktory
by som chcel tejto aplikacii odovzdat ??
( uzivatel napr. napise 'dokument1.doc' alebo 'a.pdf' stlaci
button a
ja spustim Word alebo Acroread)
Potrebujem zistit hlavne co za aplikaciu a odkial mi ten subor spusta a
pre zobrazovanie default ikonu.
sorry a vdaka
--
rt
normex(zv)mail.pvt.sk; www.technickenormy.com
Normex - fulltext retrieval information system for technical standard
Velikost souboru/TAnimation
[*] Jan Fiala <jan.fiala(zv)iname(tec)com> - 6.10.1998 12:28:07
Ad. 2. Jsou to obycejne AVI soubory. Chce to jen trosku namahy vytvorit si
vlastni.
-----------------------------------------------------------------
ing. Jan Fiala jan.fiala(zv)iname.com
Prog-Soft s.r.o.
INFOS - informa�n� system pro n�poj��e
---------------------------------------------------------------
-----P�vodn� zpr�va-----
Od: Mor�ol Marian <Marian.Morzol(zv)ostrava.aksignal(tec)cz>
Komu: 'delphi-l(zv)fwd(tec)cz' <delphi-l(zv)fwd(tec)cz>
Datum: 6. listopadu 1998 12:46
P�edm�t: Velikost souboru/TAnimation
1.)Nevite jak zjistit velikost souboru ulozeneho na nejakem serveru
Internetu. Potrebuji to pro zobrazeni prubehu stahovani. Stahuje
protokolem HTTP.
2.) Nevite o nejake komponente TAnimation, ktera zobrazuje stahovani s
Internetu(na jedne stane zemekoule na druhe slozka). V Delphi klasicka
TAnimate neobsahuje tento druh.
Diky vsem za odpovedi.Tvorba n�pov�dy
[*] Jan Fiala <jan.fiala(zv)iname(tec)com> - 6.10.1998 12:45:14
Jakykoliv compilator napovedy, ktery jsem videl, mel moznost generovat help
pro Win 3.x. MS HelpWorkShop ma asi 1.5 Mb. Pokud chces, muzu ti ho poslat
-----------------------------------------------------------------
ing. Jan Fiala jan.fiala(zv)iname.com
Prog-Soft s.r.o.
INFOS - informacn� system pro n�poj�re
---------------------------------------------------------------
-----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: 6. listopadu 1998 12:55
P�edm�t: RE: Tvorba n�pov�dy
Ahoj,
kdyz se tak vyznas v te tvorbe napovedy, jiste by jsi mohl pomoci.
Na serverech microsoftu byl sveho casu ke stazeni kompilator helpu
pro Win 3.x, pisu ted 16b aplikaci a docela by se mi hodil, jenomze
ted, abych ho mohl stahnout, musim vyplnit nejaky formular, a to se
mi moc nechce. Nevis, kde by se dal sehnat ?
Diky za pomoc
Dobra.
WINEXEC
[*] svatos(zv)af(tec)czu(tec)cz - 6.10.1998 12:53:53 met
> pr. : buff:='confif.sys';
>
> lenze ten tvoj zapis on prave odmieta, ze vraj to co je v zatvorke
> neodpoveda tomu co on pozaduje pre pchar
Zkus: buff:= 'config.sys';
WinExec((zv)buff[1], ...);
Hynek Svatos
svatos(zv)af(tec)czu(tec)cz
Rodne cislo
[*] Dobromil Mal� <Dobromil.Maly(zv)rak.pr.ds.mfcr(tec)cz> - 6.10.1998 12:54:30
To snad neni az takovy problem. Rodna cisla (po roce 1953 !!!)
jsou desetimistna a delitelna jedenacti => ze prave narozena
dvojcata maji rozdil RC roven jedenacti.
function GetRC(StartRC : LongInt) : LongInt;
begin
Inc(StartRC);
while not (StartRD mod 11=0) do
Inc(StartRC);
Result:=StartRC;
end;
Akorat si musis dat bacha, aby Ti to nepreteklo
pres ty posledni 4 cislice. Treba kontrolou, zda
sesta cislice se stale stejna. Ale to by znamenalo,
ze se ten den narodilo vice nez cca 910 deti.
D.
----------
Od: Tomas Baloun[SMTP:baloun(zv)ikos(tec)cz]
Odesl�no: 6. listopadu 1998 11:34
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: Rodne cislo
Ahoj,
nemate prosim nekdo algoritmus na vypocet kontrolni cislice u rodneho cisla
???
Diky
S pozdravem
Tomas Baloun
IKOS Liberec, s.r.o.
28.rijna 278/46
460 07 LIBEREC, CZECH REPUBLIC
tel./fax: +420 48 6131083, 6131082, 485491
http://www.ikos(tec)cz
E-mail: sales(zv)ikos(tec)cz
------------------------------------
-----P�vodn� zpr�va-----
Od: Roman Toda <normex(zv)mail.pvt.sk>
Komu: Delphi-L <delphi-l(zv)fwd(tec)cz>
Datum: 5. listopadu 1998 13:26
P�edm�t: Registrovane pripony
>Ahoj vsetci.
>
>Ako mozem z programu (D3) spustit inu aplikaciu ked mam len subor ktory
>by som chcel tejto aplikacii odovzdat ??
>( uzivatel napr. napise 'dokument1.doc' alebo 'a.pdf' stlaci button a
>ja spustim Word alebo Acroread)
>vopred dakujem.
>
>--
>rt
>normex(zv)mail.pvt.sk; www.technickenormy.com
>Normex - fulltext retrieval information system for technical standard
>
>
>Registrovane pripony
[*] Dobromil Mal� <Dobromil.Maly(zv)rak.pr.ds.mfcr(tec)cz> - 6.10.1998 13:02:28
Je to v registru, ale jak na to to Ti nepovim. Musis si v
HKEY CLASSES ROOT najit polozku ".DOC" - tam zjistis jmeno
polozky s programem a tam v Shell/OPen je jmeno aplikace
Ja to tam mam takto :
HK C ROOT/.DOC/(vychozi) = Word.Dokument.6
a v HK C ROOT/Word.Dokument.6/Shell/Open/Command
mam (vychozi)= "Cesta a jmeno programu", ktery se spousti.
OK ?
D.
----------
Od: Roman Toda[SMTP:normex(zv)mail.pvt.sk]
Odesl�no: 5. listopadu 1998 18:34
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: Re: Registrovane pripony
<<Soubor: ATT00009.html>>
Ja blbec som to zle napisal, preto otazku doplnam
> Ako mozem z programu (D3) spustit inu aplikaciu ked mam len
> subor ktory
> by som chcel tejto aplikacii odovzdat ??
> ( uzivatel napr. napise 'dokument1.doc' alebo 'a.pdf'
> stlaci button a
> ja spustim Word alebo Acroread)
>
Potrebujem zistit hlavne co za aplikaciu a odkial mi ten subor spusta a
pre zobrazovanie default ikonu.
sorry a vdaka
--
rt
normex(zv)mail.pvt.sk; www.technickenormy.com
Normex - fulltext retrieval information system for technical standard
Rodne cislo
[*] Reiniger Milan <Reiniger(zv)mmp.plzen-city(tec)cz> - 6.10.1998 13:17:40
Na to zadnej algoritmus neni. Driv se udajne nechalo z te koncovky vycist,
jaky mas puvod - delnicky, rolnicky a pod. Myslim a doufam, ze uz se to
dneska tak nedela.
Jedinou kontrolu, co muzes provest je u lidi narozenych v roce 1954 a
cerstvejsich (kdyz maji za lomitkem 4 cifry) je, ze vezmes cely RC a udelas
test modulo 11. Jestli Ti to vyjde beze zbytku, tak je cislo prohlaseno za
platne. U drive narozenych nemuzes udelat naprosto nic.
S pozdravem
Milan Reiniger
Skroupova 5
305 84 Plzen
tel.: 019/7035053
reiniger(zv)mmp.plzen-city(tec)cz
http://info.plzen-city(tec)cz/
-----P�vodn� zpr�va-----
Od: Tomas Baloun [mailto:baloun(zv)ikos(tec)cz]
Odesl�no: 6. listopadu 1998 11:35
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: Rodne cislo
Ahoj,
nemate prosim nekdo algoritmus na vypocet kontrolni cislice u rodneho cisla
???
Diky
S pozdravem
Tomas Baloun
IKOS Liberec, s.r.o.
28.rijna 278/46
460 07 LIBEREC, CZECH REPUBLIC
tel./fax: +420 48 6131083, 6131082, 485491
http://www.ikos(tec)cz
E-mail: sales(zv)ikos(tec)cz
------------------------------------
-----P�vodn� zpr�va-----
Od: Roman Toda <normex(zv)mail.pvt.sk>
Komu: Delphi-L <delphi-l(zv)fwd(tec)cz>
Datum: 5. listopadu 1998 13:26
P�edm�t: Registrovane pripony
>Ahoj vsetci.
>
>Ako mozem z programu (D3) spustit inu aplikaciu ked mam len subor ktory
>by som chcel tejto aplikacii odovzdat ??
>( uzivatel napr. napise 'dokument1.doc' alebo 'a.pdf' stlaci button a
>ja spustim Word alebo Acroread)
>vopred dakujem.
>
>--
>rt
>normex(zv)mail.pvt.sk; www.technickenormy.com
>Normex - fulltext retrieval information system for technical standard
>
>
>Rodne cislo
[*] RADIK(zv)p15.monet(tec)cz - 6.10.1998 13:25:00
Mam pocit ze je to asi tak:
-do roku asi 1953 je RC 9-mistne. Tam kontrola neni.
-od te doby je RC 10-mistne a tam je kontrola. Pokud si to dobre
pamatuji tak musi platit, ze soucet vsech jednotlivych cislic je
delitelny 9. U me to vychazi.....
Ales
----------
Od: Tomas Baloun
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: Rodne cislo
Datum: 6. listopad 1998 11:34
Ahoj,
nemate prosim nekdo algoritmus na vypocet kontrolni cislice u rodneho
cisla
???
Diky
S pozdravem
Tomas Baloun
IKOS Liberec, s.r.o.
28.rijna 278/46
460 07 LIBEREC, CZECH REPUBLIC
tel./fax: +420 48 6131083, 6131082, 485491
http://www.ikos(tec)cz
E-mail: sales(zv)ikos(tec)cz
------------------------------------
-----P�vodn� zpr�va-----
Od: Roman Toda <normex(zv)mail.pvt.sk>
Komu: Delphi-L <delphi-l(zv)fwd(tec)cz>
Datum: 5. listopadu 1998 13:26
P�edm�t: Registrovane pripony
>Ahoj vsetci.
>
>Ako mozem z programu (D3) spustit inu aplikaciu ked mam len subor ktory
>by som chcel tejto aplikacii odovzdat ??
>( uzivatel napr. napise 'dokument1.doc' alebo 'a.pdf' stlaci button a
>ja spustim Word alebo Acroread)
>vopred dakujem.
>
>--
>rt
>normex(zv)mail.pvt.sk; www.technickenormy.com
>Normex - fulltext retrieval information system for technical standard
>
>
>Rodne cislo
[*] pcuhel(zv)deltax(tec)cz - 6.10.1998 13:36:44
Ahoj,
pokud u rodneho cisla dlouheho 11 znaku odstranis lomitko musi byt se
zbytek po
deleni 11 rovnat nule. U cisel ktera maji za lomitkem tri cisla toto
neplati.
Snad to pomuze
Ahoj,
nemate prosim nekdo algoritmus na vypocet kontrolni cislice u rodneho cisla
???
Diky
S pozdravem
Tomas Baloun
IKOS Liberec, s.r.o.
28.rijna 278/46
460 07 LIBEREC, CZECH REPUBLIC
tel./fax: +420 48 6131083, 6131082, 485491
http://www.ikos(tec)cz
E-mail: sales(zv)ikos(tec)cz
------------------------------------
-----P�vodn� zpr�va-----
Od: Roman Toda <normex(zv)mail.pvt.sk>
Komu: Delphi-L <delphi-l(zv)fwd(tec)cz>
Datum: 5. listopadu 1998 13:26
P�edm�t: Registrovane pripony
>Ahoj vsetci.
>
>Ako mozem z programu (D3) spustit inu aplikaciu ked mam len subor ktory
>by som chcel tejto aplikacii odovzdat ??
>( uzivatel napr. napise 'dokument1.doc' alebo 'a.pdf' stlaci button a
>ja spustim Word alebo Acroread)
>vopred dakujem.
>
>--
>rt
>normex(zv)mail.pvt.sk; www.technickenormy.com
>Normex - fulltext retrieval information system for technical standard
>
>
>Rodne cislo
[*] Ale� Kle�ka - 6.10.1998 13:42:17
Ahoj,
obecne plati, ze ( rodne cislo MOD 11 ) = 0, ale bohuzel existuje velky
pocet vyjimek, ktere tuto podmminku nesplnuji. Existuje spousta duplicitnich
rodnych cisel, dokonce existuji i RC, ktera jsou absolutne nespravna napr.
YY0229/XXXX, kde YY neni prestupny rok a pry dokonce YY0230/XXXX (coz je vic
nez fatal error). Pokud bys chtel vedet jeste obecnejsi zasady, ktere se
mely (!!!) dodrzovat pri pridelovani RC, tak se jeste ozvi.
Ale� Kle�ka
{ aklecka(zv)merlin(tec)cz }Rodne cislo
[*] LuborK(zv)tnet(tec)cz (Kolar Lubor) - 06.10.1998 13:43:48
Dne Fri, 6 Nov 1998 11:34:33 +0100 Tomas Baloun napsal:
> Ahoj,
>
> nemate prosim nekdo algoritmus na vypocet kontrolni cislice u rodneho cisla
> ???
Neni problem - cele rodne cislo (brano 10 nebo 9 cislic, samozrejme bez
lomitka) musi bejt delitelny 11 beze zbytku. Nevi nahodou nekdo, jak se
pocita kontroli cislice u bankovnich uctu?
Lubor bIRDIE Kolar
====================
GSM Phone: +420-603-410019
ICQ: 18587772
Sedy text v DBEdit
[*] Pavel Bare� <atoll(zv)telecom(tec)cz> - 6.10.1998 13:56:16
Toto je zpr�va ve form�tu MIME obsahuj�c�n�kolik ��st�.
Nevite nekdo jak obejit zsednuti textu v DBEdit pokud je DISABLE, nebo o nejakekomponente, ktera by tuto
pro mne neprijemnou vlastnost nemela.
dekuji za radu
Pavel Bare�
Atoll s.r.o.
www.atoll(tec)cz
Rodne cislo
[*] Dobromil Mal� <Dobromil.Maly(zv)rak.pr.ds.mfcr(tec)cz> - 6.10.1998 13:57:17
>Driv se udajne nechalo z te koncovky vycist, jaky mas puvod
>- delnicky, rolnicky a pod.
Delas si legraci ? To se mi moc nezda. Navic,
tenkrat si byli preci vsichni rovni... :-)))Ako zachytit Event ?
[*] Hric Jan <JHRIC(zv)duro.upjs.sk> - 6.10.1998 14:13:57 nft-dft
Zacinam v Delphi 3 a potrebujem pomoc.
Ako mam zachytit Event typu(komponentu) , ktory nie je v palete a
ako pre nho napisat novy Event Handler ?
Napr. mam socket1 typu TClientSocket (var socket1:TClientSocket) a
ten ma event OnRead a chcem , aby ked nastane OnRead , sa nieco
udialo napr.ShowMessage('Prislo OnRead !!!');
Ako sa to da urobit ( a do ktorych casti programu co mam napisat ) ?
Prosim o maly priklad v Delphi .
Dakujem . . .
Jano H.Zabava se sdilenim PDX
[*] Jirka <Juraj.Nagy(zv)nh-trans(tec)cz> - 6.10.1998 14:16:09
Pokud se chcete pobavit, zkuste si na siti s cc. 30 stanicemi nahodne
vybrat dve, kde nastavite v BDE Local true na false, jinde na true...
Pri poctive praci uzivatelu za chvili zacne zabava.
P.s.: U mne se to projevilo detektivkou na tema: Kam se ztratilo 65
000 zaznamu z 110 000? Ted to pokracuje dal: Ktere jednoznacne
hodnoty autoinkrementu nejsou jednoznacne?, resp. Ke kteremu zaznamu
s nejednoznacnym autoinkrementem (cizi klic) patri tyhle zanznamy v
podrizenych tabulkach?. Uz treti den se nemuzu vynasmat dosyta...
S pozdravem
J. Nagy
NH-TRANS, spol. s r.o.
Podebradova 28
702 00 Ostrava
e-mail: Juraj.Nagy(zv)nh-trans(tec)cz
dotaz
[*] Radek KALA <delphi(zv)betacontrol(tec)cz> - 6.10.1998 14:38:17
From: Dobromil Mal <Dobromil.Maly(zv)rak.pr.ds.mfcr(tec)cz>
To: "'delphi-l(zv)fwd(tec)cz'" <delphi-l(zv)fwd(tec)cz>
Subject: RE: dotaz
Date sent: Fri, 6 Nov 1998 10:32:45 +-100
Send reply to: delphi-l(zv)fwd(tec)cz
Uz jsem jednou odpovidal a zrejme jsi nepochopil. Nejjednodussi
reseni podle mne je :
Predpokladam ze T je TTable nebo TQuery
Dale prohledavas Field s nazvem Index a je typu Integer.
( Funguje pro libovolne typy)
If VarType( T.LookUp( 'Index' , HledanaHodnota, 'Index' ) = VarNull
Then Neexistuje
Toto proste musi fungovat.> Tyhle kontroly je lepsi delat az po stisknuti tlacitka
> "Vlozit", "Ulozit" a podobne, tedy alespon me se to tak
> osvedcilo.
>
> A delam to tak, ze nejdrive zkontroluji uplnost udaju,
> do Query.SQL dam nejdrive kontrolu existence klicoveho
> udaje (napr. select count(*) from T_Tab where klic=Edit1.Text)
> spustim Query, zjistim, zda je Query.Fields[0] vetsi nez nula
> a pokud ano, tak raise Exception.Create('Tento klic jiz existuje')
> pokud je vse OK, tak vymazu puvodni SQL a dam tam "insert into ..."
>
> Pokud to ale chces na Edit1OnExit, tak tu kontrolu muzes udelat tady.
>
> Pro Table tu zrovna ted bylo probirano - disablecontrols, getbookmark,
> lookup-porovnani, gotobookmark, enablecontrols.
>
>
> Zdravim,
>
> Este by som upresnil predosli mail.
>
> Mam tabulku napr. so 4 stlpcami. Chcem pridat novy zaznam. Ale riesim to cez
> vlastne dialog. okno. V tom okne su 4 edit polia, ktore nie su napojene na
> databazu. Ak napisem do prveho pola text a idem z neho prec chcem v udalosti
> zistit ci taka polozka existuje. Ak ano chcem vyzvat uzivatela k zadaniu
> inej hodnoty. Predosle riesenia nastavovali kurzor na zaznam ale ako zistim
> v programe ci tento zaznam existuje ? Potreboval by som to pre komponentu
> TABLE aj pre SQL.
>
> zaciatocnik
>
> vdaka
>
>
>
>
S pozdravem Radek KALA
BetaControl, s.r.o.
Mostecka 15, 614 00
tlf. : + 420 5 4532 1112 / 2413
fax : + 420 5 4521 1501
GSM : + 420 603 85 75 15
Rodne cislo
[*] Pavel Zichovsky <zichovsky(zv)jesnem(tec)cz> - 6.10.1998 14:43:45
Ahoj,
nemate prosim nekdo algoritmus na vypocet kontrolni cislice u rodneho cisla
???[] Zaklad je celkem snadny, od roku 54 je rc delitelne 11. To funguje skoro vzdycky. Dale u zenskych je mesic zvysen o 50.
Pak existuji specialni typy RC. Nekteri cizinci s trvalym pobytem tady, nebo alespon s pojistenim (zdravotnim),
kteri maji za lomitkem 3 nebo 4 devitky (YYMMRR/999 nebo YYMMRR/9999) podle roku. Tyto cisla pak nemusi byt delitelne 11. U takovych cizincu pak nastupuje ve zdravotnictvi i tzv. cislo pojistence, a to uz je zase neco jineho.
[] Pokud to ma byt aplikace s urcenim pro zdravotnictvi (rozliseni pacienta), pak bych zasadne pouzival cislo pojistence, ty programy, ktere pro zdravotnictvi pocitaji jen s RC jsou vetsinou nepouzitelne.
[]
P. Zichovsky
Jesenicka nemocnice spol. s r.o.
WINEXEC
[*] Tool Tim <tool_tim(zv)tyhan(tec)cz> - 6.10.1998 14:45:39
Tak zkus misto PChar StrPCopy, to by melo zabrat. A nebo si ten string
priprav predem, myslim, �e s tim jsem mel mozna taky nejaky problemy.
Tim
-----P�vodn� zpr�va-----
Od: Ing. J�n Kuch�r <kuchar(zv)tuke.sk>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 6. listopadu 1998 12:54
P�edm�t: Re: WINEXEC
>pr. : buff:='confif.sys';
>
>lenze ten tvoj zapis on prave odmieta, ze vraj to co je v zatvorke
>neodpoveda tomu co on pozaduje pre pchar
>
>-----P�vodn� zpr�va-----
>Od: Zdenek Petruj <zpetruj(zv)zebra(tec)cz>
>Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
>Datum: 5. november 1998 16:09
>P�edm�t: RE: WINEXEC
>
>
>>V tom pripade nevim kde mas problem. Pokud chces pouzit WinExec a ne
>>CreateProcess tak proste napises
>>winexec(PChar('pkzip.exe '+buff),ws_showmaximized); a pkzip.exe se bude
>>spoustet s parametrem buff, pokud ti nevadi ze k pkzip nemas cestu. No
>>ale tak jsi to mel uz napsane v dotazu tak opravdu nechapu co jineho
>>chces - me tak spousteni externi aplikace s parametrem funguje a nebo
>>jsem opet nepochopil o co ti jde.
>>
>> S pozdravem
>> Zdenek Petruj
>>____________________________
>>adress: Zebra systems, s.r.o.
>> Spartakovcu 3
>> 708 00 Ostrava - Poruba
>> Czech republic
>>____________________________
>>tel./fax.: +420-(0)69-6912961
>> +420-(0)69-6912963
>>e-mail: zpetruj(zv)zebra(tec)cz
>>internet: http://www.zebra(tec)cz
>>
>>
>>> -----P�vodn� zpr�va-----
>>> Od: Ing. J�n Kuch�r [SMTP:kuchar(zv)tuke.sk]
>>> Odesl�no: 5. November 1998 13:54
>>> Komu: delphi-l(zv)fwd(tec)cz
>>> P�edm�t: Re: WINEXEC
>>>
>>> ten buff je nejaky subor ktory chcem upravit, spakovat, alebo cokolvek
>>> ine s
>>> nim zrobit, nieje to progam ale iba nejaky subor
>>>
>>> >Nerozumim vete "chcem spustit nejaky program s urcitym suborom" ??? A
>>> co
>>> >je to Buff ??? Je to parametr exe souboru nebo nazev souboru nebo co
>>> ???
>>> >
>>> >>
>>> >> Mam nasledovny problem ako mam povedat D3 ze chcem spustit nejaky
>>> >> program s urcitym suborom. Priklad winexec('pkzip.exe '+buff,
>>> >> ws_showmaximized);, kde
>>> >> buff je stringova premenna s roznou hodnotou, ktora sa meni pocas
>>> >> programu, napriklad buff:='archiv', 'sklad'....atd.
>>> >>
>>>
>>
Rodne cislo
[*] Michal Motalik <motalik(zv)zl.inext(tec)cz> - 6.10.1998 14:46:57
Deleni 11 beze zbytku by melo fungovat i na soucet cisla pred lomitkem a
cisla za lomitkem (az po roce 1953).
Ing. Pavel CABAK
cabak(zv)zl.inext(tec)cz
Sedy text v DBEdit
[*] Dobromil Mal� <Dobromil.Maly(zv)rak.pr.ds.mfcr(tec)cz> - 6.10.1998 14:55:48
Ja davam radeji jen ReadOnly (vyresi se Tvuj problem) a
zaroven muze pak uzivatel zde zadana data "cist", myslim
tim ze kdyz je bude potrebovat, muze je dat do clipboardu.
Ale zase je tu ta nevyhoda, ze pri pouziti tabulatoru sem
taky zavita...
D.
----------
Od: Pavel Bare�[SMTP:atoll(zv)telecom(tec)cz]
Odesl�no: 6. listopadu 1998 13:56
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: Sedy text v DBEdit
<<Soubor: ATT00000.html>>
Nevite nekdo jak obejit zsednuti textu v DBEdit pokud je DISABLE, nebo o nejakekomponente, ktera by tuto
pro mne neprijemnou vlastnost nemela.
dekuji za radu
Pavel Bare�
Atoll s.r.o.
www.atoll(tec)cz
Ako zachytit Event ?
[*] hynek.los.fei(zv)vsb(tec)cz - 6.10.1998 15:00:12
> From: "Hric Jan" <JHRIC(zv)duro.upjs.sk>
> Ako mam zachytit Event typu(komponentu) , ktory nie je v palete a
> Napr. mam socket1 typu TClientSocket (var socket1:TClientSocket) a
> ten ma event OnRead a chcem , aby ked nastane OnRead , sa nieco
> udialo napr.ShowMessage('Prislo OnRead !!!');
> Jano H
zkus si vlozit na prazdny formular komponentu socket z panelu intenet
a vypln event a mrkni se na formular
alespon ja to tak delam :)) bye
Poradte, please, zacatecnikovi
[*] Jirka Mikan <BLIK_sro_MIKAN(zv)pha.pvtnet(tec)cz> - 6.10.1998 15:22:49
Hi, vsichni,
mam tenhle problem. Davam SQL dotaz na tabulku,
ktera ma nazvy nekterych fieldu slozene ze dvou slov
s mezerou a SQL interpreter mi to neche "sezrat".
Kde delam chybu?
Jirka M, BLIK s.r.o.Rodne cislo
[*] Pavel_Fuciman.UNION(zv)union(tec)cz - 6.10.1998 15:51:22
Ahoj,
U bankovnich uctu je to tak:
cislo uctu je deseti mistne nap�. 1234567890 a ty musis posledni cislo (0)
vynasobit 2^0, predposledni(9) 2^1,
treti (8) od konce 2^2 atd. az do zacatku uctu a tyto souciny secist a
vydelit 11 a zbytek musi byt nula.
Rodne cislo (cizinci)
[*] Jan Pihrt <Jan.Pihrt(zv)pvt(tec)cz> - 6.10.1998 15:51:50
>Pak existuji specialni typy RC. Nekteri cizinci s trvalym pobytem tady,
>nebo alespon s pojistenim (zdravotnim),
>kteri maji za lomitkem 3 nebo 4 devitky (YYMMRR/999 nebo YYMMRR/9999)
>podle roku. Tyto cisla pak nemusi byt delitelne 11. U takovych cizincu
>pak nastupuje ve zdravotnictvi i tzv. cislo pojistence, a to uz je zase
>neco jineho.
Uz je to asi trochu off-topic, ale u tech cizincu je to bohuzel
jeste o neco slozitejsi. Podle metodiky VZP platne (tusim) od lonska
se u cizincu s trvalym pobytem v CR nebo zamestnanych na uzemi CR
konstruuje RC takto:
pozice vyznam
od do
===============================================
1 2 rok narozeni
3 4 mesic narozeni (u zen + 50)
5 6 den narozeni + 50
7 8 posledni 2 cisla z kodu zdr.pojistovny
9 9 poradi v ramci dne narozeni (0 az 9)
10 10 kontrolni cislice na modulo 11
Tento udaj se bere ve vyznamu rodneho cisla i cisla pojistence.
Honza
Jan Pihrt
PVT a.s., o.z. Chomutov
Jan.Pihrt(zv)pvt(tec)cz
Rodne cislo a bankovni ucet
[*] LuborK(zv)tnet(tec)cz (Kolar Lubor) - 06.10.1998 16:09:24
Tak jsem to hodil do pascalu a unity, vypada to cca takto (netvrdim, ze
by to neslo lip :-), bugy tam snad nejsou, funguje mi to OK:
Unit Pomocna;
Interface
Uses SysUtils;
// Exportovane funknce
Function Mid(Retezec: String;
Pozice, Pocet: Integer): String;
Function KontrolujUcet(Jaky: String): Boolean;
Function KontrolujRC(Jake: String): Boolean;
Implementation
Function Mid(Retezec: String;
Pozice, Pocet: Integer): String;
Var
vys: String;
Pomocna, k2: Integer;
Begin
Try
If ((Pozice < 1) Or (Pocet < 1)) Then
Result := ''
Else {_ NOT If ((Pozice < 1) Or (Pocet < 1)) Then _}
Begin
If Pozice + Pocet > Length(Retezec) Then
Pocet := Length(Retezec) - Pozice + 1;
If ((Pozice <= Length(Retezec)) And (Pocet > 0)) Then
Begin
If Pocet = 1 Then
Mid := Retezec[Pozice]
Else {_ NOT If Pocet = 1 Then _}
Begin
vys := '';
k2 := Pozice + Pocet - 1;
For Pomocna := Pozice To k2 Do
vys := vys + Retezec[Pomocna];
Mid := vys;
End; {_ NOT If Pocet = 1 Then _}
End {_ If ((Pozice <= Length(Retezec)) And (Pocet > 0)) Then _}
Else {_ NOT If ((Pozice <= Length(Retezec)) And (Pocet > 0)) Then _}
Mid := '';
End; {_ NOT If ((Pozice < 1) Or (Pocet < 1)) Then _}
Except
Result := '';
End; {_ Try _}
End; {_ Function Mid(Retezec: String; _}
Function KontrolujRC(Jake: String): Boolean;
Var
RC: String;
I: Integer;
Begin
Result := False;
Try
RC := '';
For I := 1 To Length(Jake) Do
If Pos(Jake[I], '0123456789') > 0 Then RC := RC + Jake[I];
If Length(RC) = 10 Then
Begin
If (StrToInt(Mid(RC, 1, 9)) Mod 11) = StrToInt(RC[10]) Then Result := True;
End; {_ If Length(RC) = 10 Then _}
Except
Result := False;
End; {_ Try _}
End; {_ Function KontrolujRC(Jake: String): Boolean; _}
Function KontrolujUcet(Jaky: String): Boolean;
Var
Cislice: Array[1..10] Of Integer;
I, Soucet: Integer;
Ucet: String;
Begin
Try
Result := False;
Ucet := '';
I := Pos('/', Jaky);
If I > 0 Then Jaky := Mid(Jaky, 1, I - 1);
For I := 1 To Length(Jaky) Do
If Pos(Jaky[I], '0123456789') > 0 Then Ucet := Ucet + Jaky[I];
If Length(Ucet) <= 10 Then
Begin
While Length(Ucet) < 10 Do
Ucet := Ucet + '0';
Cislice[1] := 6;
Cislice[2] := 3;
Cislice[3] := 7;
Cislice[4] := 9;
Cislice[5] := 10;
Cislice[6] := 5;
Cislice[7] := 8;
Cislice[8] := 4;
Cislice[9] := 2;
Cislice[10] := 1;
Soucet := 0;
For I := 1 To Length(Ucet) Do
Soucet := Soucet + StrToInt(Ucet[I]) * Cislice[I];
If (Soucet Mod 11) = 0 Then
Result := True
Else {_ NOT If (Soucet Mod 11) = 0 Then _}
Result := False;
End; {_ If Length(Ucet) <= 10 Then _}
Except
Result := False;
End; {_ Try _}
End; {_ Function KontrolujUcet(Jaky: String): Boolean; _}
End.
Lubor bIRDIE Kolar
====================
GSM Phone: +420-603-410019
ICQ: 18587772
Sedy text v DBEdit
[*] Martin Fron�k <FRONEK(zv)ZZNSLANY.CZ> - 6.10.1998 16:24:29
Tak bys mohl jeste pridat TabStop=false..........
Martin Fron�k
ZZN Slan� a.s.
Pra�sk� 1579, 274 49, Slan�
tel. +420-314-522986
e-mail: fronek(zv)zznslany(tec)cz
> -----P�vodn� zpr�va-----
> Od: Windows/Admin/Dodo za u�ivatele Dobromil Mal�
> Odesl�no: 06. listopadu 1998 14:56
> Komu: 'delphi-l(zv)fwd(tec)cz'
> P�edm�t: RE: Sedy text v DBEdit
>
> Ja davam radeji jen ReadOnly (vyresi se Tvuj problem) a
> zaroven muze pak uzivatel zde zadana data "cist", myslim
> tim ze kdyz je bude potrebovat, muze je dat do clipboardu.
> Ale zase je tu ta nevyhoda, ze pri pouziti tabulatoru sem
> taky zavita...
>
> D.
>
> ----------
> Od: Pavel Bare�[SMTP:atoll(zv)telecom(tec)cz]
> Odesl�no: 6. listopadu 1998 13:56
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Sedy text v DBEdit
>
> <<Soubor: ATT00000.html>>
> Nevite nekdo jak obejit zsednuti textu v DBEdit pokud je DISABLE, nebo
> o nejakekomponente, ktera by tuto
> pro mne neprijemnou vlastnost nemela.
>
> dekuji za radu
>
> Pavel Bare�
> Atoll s.r.o.
> www.atoll(tec)cz
> Rodne cislo - diky
[*] Tomas Baloun <baloun(zv)ikos(tec)cz> - 6.10.1998 16:30:59
Diky vsem za odpovedi.
Tomas Baloun
IKOS Liberec, s.r.o.
28.rijna 278/46
460 07 LIBEREC, CZECH REPUBLIC
tel./fax: +420 48 6131083, 6131082, 485491
http://www.ikos(tec)cz
E-mail: sales(zv)ikos(tec)cz
------------------------------------
-----P�vodn� zpr�va-----
Od: Kolar Lubor <LuborK(zv)tnet(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz <delphi-l(zv)fwd(tec)cz>
Datum: 6. listopadu 1998 15:11
P�edm�t: Rodne cislo a bankovni ucet
>Tak jsem to hodil do pascalu a unity, vypada to cca takto (netvrdim, ze
>by to neslo lip :-), bugy tam snad nejsou, funguje mi to OK:
>
>Unit Pomocna;
>
>Interface
>Uses SysUtils;
>
>// Exportovane funknce
>Function Mid(Retezec: String;
> Pozice, Pocet: Integer): String;
>Function KontrolujUcet(Jaky: String): Boolean;
>Function KontrolujRC(Jake: String): Boolean;
>
>
>Implementation
>
>Function Mid(Retezec: String;
> Pozice, Pocet: Integer): String;
>Var
> vys: String;
> Pomocna, k2: Integer;
>Begin
> Try
> If ((Pozice < 1) Or (Pocet < 1)) Then
> Result := ''
> Else {_ NOT If ((Pozice < 1) Or (Pocet < 1)) Then _}
> Begin
> If Pozice + Pocet > Length(Retezec) Then
> Pocet := Length(Retezec) - Pozice + 1;
> If ((Pozice <= Length(Retezec)) And (Pocet > 0)) Then
> Begin
> If Pocet = 1 Then
> Mid := Retezec[Pozice]
> Else {_ NOT If Pocet = 1 Then _}
> Begin
> vys := '';
> k2 := Pozice + Pocet - 1;
> For Pomocna := Pozice To k2 Do
> vys := vys + Retezec[Pomocna];
> Mid := vys;
> End; {_ NOT If Pocet = 1 Then _}
> End {_ If ((Pozice <= Length(Retezec)) And (Pocet > 0)) Then _}
> Else {_ NOT If ((Pozice <= Length(Retezec)) And (Pocet > 0)) Then _}
> Mid := '';
> End; {_ NOT If ((Pozice < 1) Or (Pocet < 1)) Then _}
> Except
> Result := '';
> End; {_ Try _}
>End; {_ Function Mid(Retezec: String; _}
>
>Function KontrolujRC(Jake: String): Boolean;
>Var
> RC: String;
> I: Integer;
>Begin
> Result := False;
> Try
> RC := '';
> For I := 1 To Length(Jake) Do
> If Pos(Jake[I], '0123456789') > 0 Then RC := RC + Jake[I];
> If Length(RC) = 10 Then
> Begin
> If (StrToInt(Mid(RC, 1, 9)) Mod 11) = StrToInt(RC[10]) Then Result :=
True;
> End; {_ If Length(RC) = 10 Then _}
> Except
> Result := False;
> End; {_ Try _}
>End; {_ Function KontrolujRC(Jake: String): Boolean; _}
>
>Function KontrolujUcet(Jaky: String): Boolean;
>Var
> Cislice: Array[1..10] Of Integer;
> I, Soucet: Integer;
> Ucet: String;
>Begin
> Try
> Result := False;
> Ucet := '';
> I := Pos('/', Jaky);
> If I > 0 Then Jaky := Mid(Jaky, 1, I - 1);
> For I := 1 To Length(Jaky) Do
> If Pos(Jaky[I], '0123456789') > 0 Then Ucet := Ucet + Jaky[I];
> If Length(Ucet) <= 10 Then
> Begin
> While Length(Ucet) < 10 Do
> Ucet := Ucet + '0';
> Cislice[1] := 6;
> Cislice[2] := 3;
> Cislice[3] := 7;
> Cislice[4] := 9;
> Cislice[5] := 10;
> Cislice[6] := 5;
> Cislice[7] := 8;
> Cislice[8] := 4;
> Cislice[9] := 2;
> Cislice[10] := 1;
> Soucet := 0;
> For I := 1 To Length(Ucet) Do
> Soucet := Soucet + StrToInt(Ucet[I]) * Cislice[I];
> If (Soucet Mod 11) = 0 Then
> Result := True
> Else {_ NOT If (Soucet Mod 11) = 0 Then _}
> Result := False;
> End; {_ If Length(Ucet) <= 10 Then _}
> Except
> Result := False;
> End; {_ Try _}
>End; {_ Function KontrolujUcet(Jaky: String): Boolean; _}
>End.
>
>
>Lubor bIRDIE Kolar
>====================
>GSM Phone: +420-603-410019
>ICQ: 18587772
>Poradte, please, zacatecnikovi
[*] Pavel Cisar <pcisar(zv)aktis(tec)cz> - 6.10.1998 16:32:01
Haj hou!
Skus dat nazev polozky do uvozovek, napr. "moje polozka" (melo by fungovat i
tabulka."moje polozka"). Rovnez bys melmit nastaveny SQLQUERYMODE na zadny
nebo LOCAL v parametrech aliasu.
>mam tenhle problem. Davam SQL dotaz na tabulku,
>ktera ma nazvy nekterych fieldu slozene ze dvou slov
>s mezerou a SQL interpreter mi to neche "sezrat".
>Kde delam chybu?
HTH
Zabava se sdilenim PDX
[*] Martin Fron�k <FRONEK(zv)ZZNSLANY.CZ> - 6.10.1998 16:47:56
No, pokud spravujes sit takhle, tak bys treti den uz letel na
hodinu........a mohl by ses smat, jak chces.......
Martin Fron�k
ZZN Slan� a.s.
Pra�sk� 1579, 274 49, Slan�
tel. +420-314-522986
e-mail: fronek(zv)zznslany(tec)cz
> -----P�vodn� zpr�va-----
> Od: Jirka [SMTP:Juraj.Nagy(zv)nh-trans(tec)cz]
> Odesl�no: 06. listopadu 1998 14:16
> Komu: 'delphi-l(zv)fwd(tec)cz'
> P�edm�t: Zabava se sdilenim PDX
>
> Pokud se chcete pobavit, zkuste si na siti s cc. 30 stanicemi nahodne
> vybrat dve, kde nastavite v BDE Local true na false, jinde na true...
> Pri poctive praci uzivatelu za chvili zacne zabava.
>
> P.s.: U mne se to projevilo detektivkou na tema: Kam se ztratilo 65
> 000 zaznamu z 110 000? Ted to pokracuje dal: Ktere jednoznacne
> hodnoty autoinkrementu nejsou jednoznacne?, resp. Ke kteremu zaznamu
> s nejednoznacnym autoinkrementem (cizi klic) patri tyhle zanznamy v
> podrizenych tabulkach?. Uz treti den se nemuzu vynasmat dosyta...
>
> S pozdravem
>
> J. Nagy
> NH-TRANS, spol. s r.o.
> Podebradova 28
> 702 00 Ostrava
> e-mail: Juraj.Nagy(zv)nh-trans(tec)cz
>
> Sedy text v DBEdit
[*] Dobromil Mal� <Dobromil.Maly(zv)rak.pr.ds.mfcr(tec)cz> - 6.10.1998 17:12:27
No jo, to me nenapadlo. Asi to jde se mnou fakt z kopce...
----------
Od: Martin Fron�k[SMTP:FRONEK(zv)ZZNSLANY.CZ]
Odesl�no: 6. listopadu 1998 16:24
Komu: 'delphi-l(zv)fwd(tec)cz'
P�edm�t: RE: Sedy text v DBEdit
Tak bys mohl jeste pridat TabStop=false..........
Martin Fron�k
ZZN Slan� a.s.
Pra�sk� 1579, 274 49, Slan�
tel. +420-314-522986
e-mail: fronek(zv)zznslany(tec)cz
> -----P�vodn� zpr�va-----
> Od: Windows/Admin/Dodo za u�ivatele Dobromil Mal�
> Odesl�no: 06. listopadu 1998 14:56
> Komu: 'delphi-l(zv)fwd(tec)cz'
> P�edm�t: RE: Sedy text v DBEdit
>
> Ja davam radeji jen ReadOnly (vyresi se Tvuj problem) a
> zaroven muze pak uzivatel zde zadana data "cist", myslim
> tim ze kdyz je bude potrebovat, muze je dat do clipboardu.
> Ale zase je tu ta nevyhoda, ze pri pouziti tabulatoru sem
> taky zavita...
>
> D.
>
> ----------
> Od: Pavel Bare�[SMTP:atoll(zv)telecom(tec)cz]
> Odesl�no: 6. listopadu 1998 13:56
> Komu: delphi-l(zv)fwd(tec)cz
> P�edm�t: Sedy text v DBEdit
>
> <<Soubor: ATT00000.html>>
> Nevite nekdo jak obejit zsednuti textu v DBEdit pokud je DISABLE, nebo
> o nejakekomponente, ktera by tuto
> pro mne neprijemnou vlastnost nemela.
>
> dekuji za radu
>
> Pavel Bare�
> Atoll s.r.o.
> www.atoll(tec)cz
>
Rodne cislo
[*] Ale� Kle�ka - 6.10.1998 17:13:09
Nevim, jak v soucasnosti, ale do nedavne doby prvni dvojcisli za
lomitkem melo byt cislo porodnice.
Mozna se moje nazory, tykajici se RC, zdaji skepticke, ale podle mych
informaci je pouze v stredoceskem kraji ( vcetne Prahy ) cca 20.000 vadnych
RC ( stejna RC pro ruzne lidi, vadny format atd. ). A dokonce znam cloveka,
jehoz RC NESPLNUJE (!!!) podminku MOD 11. Skratka a dobre, kdyz kolega
nedavno tento problem resil, tak mu nezbylo nic jineho, nez kontrolovat:
- ( RC MOD 11 ) = 0
- druhe dvojcisli = mesic narozeni ( u zen + 50 ) => v
intervalech 1..12 a 51..62
-treti dvojcisli = den v mesi
a kdyz tyto podminky nebyly splneny, tak pouze 'vyhodil' okno s upozornenim
a s dotazem jestli je to cislo opravdu spravne vyplnene a pokud uzivatel
odklepl OK, tak mu nezbylo nic jineho nez RC ulozit.
-----Original Message-----
From: Dobromil Mal� <Dobromil.Maly(zv)rak.pr.ds.mfcr(tec)cz>
To: 'delphi-l(zv)fwd(tec)cz' <delphi-l(zv)fwd(tec)cz>
Date: 6. listopadu 1998 16:52
Subject: RE: Rodne cislo
>Driv se udajne nechalo z te koncovky vycist, jaky mas puvod
>- delnicky, rolnicky a pod.
Delas si legraci ? To se mi moc nezda. Navic,
tenkrat si byli preci vsichni rovni... :-)))
Rodne cislo (cizinci)
[*] Pavel Zichovsky <zichovsky(zv)jesnem(tec)cz> - 6.10.1998 18:07:32
> Uz je to asi trochu off-topic, ale u tech cizincu je to bohuzel
> jeste o neco slozitejsi. Podle metodiky VZP platne (tusim) od lonska
Je to od 1.1.1997 (jestli se nepletu ;)))
> se u cizincu s trvalym pobytem v CR nebo zamestnanych na uzemi CR
> konstruuje RC takto:
> Tento udaj se bere ve vyznamu rodneho cisla i cisla pojistence.
POZOR, pouze jako cislo pojistence! Jako rodne cislo se pouziva bud
nahradni rodne cislo, nebo zvlastni rodne cislo (devitky za lomitkem).
Ovsem dle metodiky se pojistovne v davkach predava pouze cislo pojistence,
takze RC slouzi vetsinou jen pro vnitrni potrebu poskytovatelu pece a pro
statistiku UZIS, kde zase chcou rodna cisla. Je v tom celkem chaos.
Uz je to Off, nechme toho (nebo pokracujme soukrome).
Pavel Zichovsky <zichovsky(zv)jesnem(tec)cz>
Spravce informacniho systemu
Jesenicka nemocnice
Lipovska 103, 790 32 Jesenik
----------------------------
PGP podporovano a vitano
Poradi unit v execku
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 06.10.1998 18:55:28
Dalibor Toman wrote:
> samozrejme, ze slo, uz na tom pracuju. Ale potom pro me ponekud ztraci smysl
> inicializacni a finalizacni sekce v unitach. Navic, kdyz si toho clovek
> nevsimne, muze se mu stat, ze pri ladeni program funguje, pak spacha build
> all pro preklad ostre verze a program se chova uplne jinak.
Ahoj,
Ted jsem to zkousel na jednoduche aplikaci se dvema formulari, kazdy volal neco
z toho druheho a v initialization sekci byl messagebox. Potom jsem prehazoval
poradi unitu v projektovem souboru. Chovalo se to v D2 a D4 naprosto stejne,
nezalezelo na tom jestli dam compile nebo build, vzdy to inicializovalo unity
v opacnem poradi nez byly zapsany v projektu.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
* protestni akce *
************************
Registrovane pripony
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 06.10.1998 18:56:21
Roman Toda wrote:
> Potrebujem zistit hlavne co za aplikaciu a odkial mi ten subor spusta a pre
> zobrazovanie default ikonu.
Ahoj,
Pokud jsem to dobre pochopil, tak by to mohlo byt tohle:
uses
ShellAPI;
procedure TForm1.Button1Click(Sender: TObject);
var
FileName, Directory, Exec: array[0..MAX_PATH] of Char;
begin
FileName := 'aaa.txt';
GetCurrentDirectory(MAX_PATH, Directory);
if FindExecutable(FileName, Directory, Exec) > 32 then
ShowMessage(Exec)
else
ShowMessage('Error');
end;
procedure TForm1.Button2Click(Sender: TObject);
var
IconIndex: Word;
Icon: HICON;
begin
IconIndex := 1;
Icon := ExtractAssociatedIcon(HInstance, 'aaa.txt', IconIndex);
if Icon <> 0 then DrawIcon(Image1.Canvas.Handle, 0, 0, Icon);
end;
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
* protestni akce *
************************Poradte, please, zacatecnikovi
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 06.10.1998 18:56:09
Jirka Mikan wrote:
>
> Hi, vsichni,
>
> mam tenhle problem. Davam SQL dotaz na tabulku,
> ktera ma nazvy nekterych fieldu slozene ze dvou slov
> s mezerou a SQL interpreter mi to neche "sezrat".
> Kde delam chybu?
Ahoj,
V pripade pole ktere ma v nazvu mezeru muze syntaxe vypadat takhle (Paradox):
SELECT "pokus.DB"."Last Name"
FROM "pokus.DB"
WHERE ("pokus.DB"."Last Name" = 'Petr')
Muzes pouzit Database Desktop a tam si pomoci QBE vytvorit ten dotaz a podivat
se na nej.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
* protestni akce *
************************
Rodne cislo
[*] Miroslav Suchy <family.suchy(zv)telecom(tec)cz> - 6.10.1998 19:38:04
[P��loha v souboru: rc.zip]
Toto je v�ced�ln� zpr�va form�tu MIME.
V priloze posilam specifikaci RC...
Mirek
----------
Odes�latel: Tomas Baloun <baloun(zv)ikos(tec)cz>
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: Rodne cislo
Datum: 6. listopadu 1998 11:34
Ahoj,
nemate prosim nekdo algoritmus na vypocet kontrolni cislice u rodneho cisla
???
Diky
S pozdravem
Tomas Baloun
IKOS Liberec, s.r.o.
28.rijna 278/46
460 07 LIBEREC, CZECH REPUBLIC
tel./fax: +420 48 6131083, 6131082, 485491
http://www.ikos(tec)cz
E-mail: sales(zv)ikos(tec)cz
------------------------------------
-----P�vodn� zpr�va-----
Od: Roman Toda <normex(zv)mail.pvt.sk>
Komu: Delphi-L <delphi-l(zv)fwd(tec)cz>
Datum: 5. listopadu 1998 13:26
P�edm�t: Registrovane pripony
>Ahoj vsetci.
>
>Ako mozem z programu (D3) spustit inu aplikaciu ked mam len subor ktory
>by som chcel tejto aplikacii odovzdat ??
>( uzivatel napr. napise 'dokument1.doc' alebo 'a.pdf' stlaci button a
>ja spustim Word alebo Acroread)
>vopred dakujem.
>
>--
>rt
>normex(zv)mail.pvt.sk; www.technickenormy.com
>Normex - fulltext retrieval information system for technical standard
>
>
>
----------
Sedy text v DBEdit
[*] Pavel Cink <apscomp(zv)login(tec)cz> - 6.10.1998 19:48:53
A kdyz si nastavis TAB STOP := false;, tak tam pri pouziti tabulatoru nevlezes
a nevlezes a nevlezes...
----------
Odes�latel: Dobromil Mal� <Dobromil.Maly(zv)rak.pr.ds.mfcr(tec)cz>
Komu: 'delphi-l(zv)fwd(tec)cz'
P�edm�t: RE: Sedy text v DBEdit
Datum: 6. listopadu 1998 15:55
Ja davam radeji jen ReadOnly (vyresi se Tvuj problem) a
zaroven muze pak uzivatel zde zadana data "cist", myslim
tim ze kdyz je bude potrebovat, muze je dat do clipboardu.
Ale zase je tu ta nevyhoda, ze pri pouziti tabulatoru sem
taky zavita...
D.
----------
Od: Pavel Bare�[SMTP:atoll(zv)telecom(tec)cz]
Odesl�no: 6. listopadu 1998 13:56
Komu: delphi-l(zv)fwd(tec)cz
P�edm�t: Sedy text v DBEdit
<<Soubor: ATT00000.html>>
Nevite nekdo jak obejit zsednuti textu v DBEdit pokud je DISABLE, nebo o nejakekomponente, ktera by tuto
pro mne neprijemnou vlastnost nemela.
dekuji za radu
Pavel Bare�
Atoll s.r.o.
www.atoll(tec)cz
----------
MSAcces
[*] Miki Vom��ka����h������� - 6.10.1998 20:33:54
Pekny den vsem, pokousim se v D4 pracovat s databazi MSAcces. Vytvoril jsem
si v BDE Administrator Alias MSAcces, ale pri pokusu otevrit databazi
obdrzim chybove hlaseni:
Cannot load an IDAPI service library.
File: IDDA3532.DLL
Alias: MSACCESS
Poradi mi prosim nekdo?
Miki Vomacka
Re[2]:
[*] Hubert <mneu3246(zv)ss1000.ms.mff.cuni(tec)cz> - 6.10.1998 22:23:33
>> Vedla seba, nieco ako dotaz v Accese. Napr mam jednu tabulku kde je
>> polozka cislo cloveka a polozka telefon. V druhej tabulke je polozka cislo
>> cloveka a meno. A ja chcem GRID kde budu vedla seba polozky napr. cislo
>> cloveka, telefon a meno. A chcem aby sa vsetky polozky dali editovat a
>> podla moznosti aby to bolo cez komponentu table, ak sa to neda tak cez
>> SQL.
ZH> select a.cislo, b.telefon, b.jmeno from tab1 a
ZH> left join tab2 b where a.cislo=b.cislo
ZH> Na editovani ale zapomen, to nejde, na Table take zapomen. Jinak
ZH> to musis rozhodit do dvou tabulek a gridu a svazat to pres cislo.
Jenze kdyz se pouzije
select a.cislo, b.telefon, b.jmeno, a.klic, b.klic from tab1 a
inner join tab2 b on a.cislo = b.cislo
tak editace lze.... (je vsak potreba i ty klice obou tabulek)
Re[2]: MS SQL 7.0 a VARCHAR(2000)
[*] Hubert <mneu3246(zv)ss1000.ms.mff.cuni(tec)cz> - 6.10.1998 22:30:02
mSc> Datovy typ VARCHAR(n) muze mit u MS SQL pouze max 255 znaku,
mSc> pokud chces vice musis pouzit datovy typ TEXT (az 2 GB).
mSc> U ORACLE treba existuje VARCHAR2(n) , ktere muze byt libovolne.
u M$ SQL 6.5 je to pravda, ale u M$ SQL 7.0 to je 8.000 znaku
(zajimave cislo co?), viz : http://www.microsoft.com/sql/beta/sqb3tech.asp?A=3&B=3
Rodne cislo
[*] Hubert <mneu3246(zv)ss1000.ms.mff.cuni(tec)cz> - 6.10.1998 22:35:54
TB> Ahoj,
TB> nemate prosim nekdo algoritmus na vypocet kontrolni cislice u rodneho cisla
TB> ???
TB> Diky
No je znama jedna vec. Rodna cisla lidi narozenych od roku 1960 a vyse
maji mit cele rodne cislo delitelne 11. Ale co s tema RC pred rokem
1960 to nevim.
MSAcces
[*] Hubert <mneu3246(zv)ss1000.ms.mff.cuni(tec)cz> - 6.10.1998 22:45:11
MV> Pekny den vsem, pokousim se v D4 pracovat s databazi MSAcces. Vytvoril jsem
MV> si v BDE Administrator Alias MSAcces, ale pri pokusu otevrit databazi
MV> obdrzim chybove hlaseni:
MV> Cannot load an IDAPI service library.
MV> File: IDDA3532.DLL
MV> Alias: MSACCESS
MV> Poradi mi prosim nekdo?
Jakou verzi D4 mas?
Zahada RTTI
[*] Martin Kuska <martin.kuska(zv)amenit(tec)cz> - 06.10.1998 23:50:40
Zdravim.
Nadavno jsem se tu naucil typovou konverzi (nevim, jak jsem bez toho
mohl existovat) a uz jsem zase narazil na podobny problem:
Vytvoril jsem si komponentu umoznujici nastaveni DB filtru, ktera ma
vlastnost DataSet typu TDataSet. Pokud objekt prirazeny vlastnosti
DataSet ma vlastnost SQL, chtel bych tento SQL vyraz modifikovat. Jenze
TDataSet nema vlastnost SQL a ja nevim dopredu, zda pouziju napr TTable
nebo TQuery (pripadne TDAODataset atd.). Lze nejak zjistit, zda objekt v
promenne DataSet ma prislusnou vlastnost? A lze se na ni nejak dostat?
To zas bude nejaka banalita nebo uplny nesmysl ;-)
BTW: Pri hledani reseni jsem v helpu narazil na metody tridy TObject
MethodAddress, MethodName, FieldAddress a ClassInfo a absolutne jsem je
nepochopil. Kdybyste mel nekdo chut a trosku mne osvitil, budu zavazan.
Tesim se..
Pechmen.
--
==============================================================
= Ing. Martin Ku�ka - Amenit s.r.o. =
= Na Valech - budova Dytron, 741 01 Novy Jicin =
= http://www.amenit(tec)cz e-mail: martin.kuska(zv)amenit(tec)cz =
==============================================================
Sedy text v DBEdit
[*] ��ad pr�ce v Teplic�ch - 7.10.1998 11:05:48
-----P�vodn� zpr�va-----
> Nevite nekdo jak obejit zsednuti textu v DBEdit pokud je DISABLE, > Pavel
Bare�
> Atoll s.r.o.
> www.atoll(tec)cz
>
No ja jsem prisel na jednu vec. Zkus si zmenit vlastnost Align u komponenty
DBEdit na Center nebo Right (def. je left)
No a uvidis.
Tonda �elonk
^Jumper^W 95 a NT
[*] Vaclav Sazima <sazima(zv)comp(tec)cz> - 07.10.1998 12:12:03
Ahoj,
potreboval bych poradit, jak poznat, pod jakym OS bezi muj program.
Dekuji
Vaclav Sazima
Zahada RTTI
[*] Martin Kuska <martin.kuska(zv)amenit(tec)cz> - 07.10.1998 15:36:06
> Vytvoril jsem si komponentu umoznujici nastaveni DB filtru, ktera ma
> vlastnost DataSet typu TDataSet. Pokud objekt prirazeny vlastnosti
> DataSet ma vlastnost SQL, chtel bych tento SQL vyraz modifikovat. Jenze
> TDataSet nema vlastnost SQL a ja nevim dopredu, zda pouziju napr TTable
> nebo TQuery (pripadne TDAODataset atd.). Lze nejak zjistit, zda objekt v
> promenne DataSet ma prislusnou vlastnost? A lze se na ni nejak dostat?
>
> BTW: Pri hledani reseni jsem v helpu narazil na metody tridy TObject
> MethodAddress, MethodName, FieldAddress a ClassInfo a absolutne jsem je
> nepochopil. Kdybyste mel nekdo chut a trosku mne osvitil, budu zavazan.
Tak uz dokazu zjistit, zda dany objekt ma urcitou vlastnost. Takhle:
var
PI : PPropInfo;
DataSet: TDataSet;
MOJE_SQL: Text;
begin
DataSet := Query1;
MOJE_SQL := ('SELECT * FROM pracovnici');
PI := GetPropInfo((DataSet.ClassInfo), 'SQL');
if PI <> nil then // Kdyz vlastnost SQL existuje
SetStrProp(DataSet,PI ,MOJE_SQL); // tak provedu toto, coz nefunguje
end;
Tuto vlastnost ale nedokazu zmenit, protoze SQL je typu TStrings a
SetStrProp neucinkuje.
Takze se stale tesim na reseni ;-)
--
==============================================================
= Ing. Martin Ku�ka - Amenit s.r.o. =
= Na Valech - budova Dytron, 741 01 Novy Jicin =
= http://www.amenit(tec)cz e-mail: martin.kuska(zv)amenit(tec)cz =
==============================================================
INIFile - Kde je chyba ?
[*] Vaclav Sazima <sazima(zv)comp(tec)cz> - 07.10.1998 16:41:21
Ahoj,
dokaze mi nekdo vysvetlit nasledujici jev :
ConfigFile := TINIFile.Create (ConfigFileName);
{Show Message ukaze spravne hodnotu 5, ktera je v config filu}
ShowMessage (IntToStr ( ConfigFile.ReadInteger
('GENERAL','IRQ',6)));
{do Create se ale dostane default hodnota 6}
TTXRec := TTTXRec.Create (
ConfigFile.ReadInteger ('GENERAL','BASEADDRESS',$D0000),
ConfigFile.ReadInteger ('GENERAL','IRQ',6));{TTTXRec je potomek TThread}
constructor TTTXRec.Create (BaseAddress,IRQ : integer);
begin
inherited Create (true);
{Pro BaseAddress to plati taky}
Je to napsany v D3.
Dekuji Vaclav Sazima
DBGrid
[*] Katerina Dolezalova studentka FEL <DOLEZAK(zv)feld.cvut(tec)cz> - 7.10.1998 16:51:13 met-1mest
Zdravim,
mam takovy problem.
Zobrazuji v DBGridu polozky databaze pres Table.
A potrebuji v jednom sloupci barevne odlisit ruzne polozky.
V tomto sloupci se vypisuji retezce znaku a ty potrebuji psat kazdy
jinou barvou. Je asi jen 5 moznosti, co ten string obsahuje.
Predem dekuji za odpoved
---------------------------*----*-*-*----*----------------------------
K K DDDDD S pozdravem Katka Dolezalova
K K D D
K K D D email: DOLEZAK(zv)FELD.CVUT.CZ
KK D D DOLEZAK(zv)HWLAB.FELK.CVUT.CZ
K K D D DOLEZAK(zv)CS.FELK.CVUT.CZ
K K D D
K K DDDDD adress and telephone: nepovim :-))
--------------------*--*--*--*--*--*--*--*--*--*----------------------
Zahada RTTI
[*] Lubo Fule <fule(zv)sct.sk> - 7.10.1998 17:33:00
je to celkom jednoduche:
if Dataset is TQuery then with (Dataset as TQuery) do
begin
SQL.Add ... tu uz mozes pouzivat vsetky property aj metody TQuery
beznym sposobom
...
...
...
end;
S pozdravom Lubo Fule
(celkom obycajny programator...:-))
> -----Original Message-----
> From: owner-delphi-l(zv)fwd(tec)cz [mailto:owner-delphi-l(zv)fwd(tec)cz]On Behalf Of
> Martin Kuska
> Sent: Friday, November 06, 1998 11:51 PM
> To: delphi-l(zv)fwd(tec)cz
> Subject: Zahada RTTI
>
>
> Zdravim.
>
> Nadavno jsem se tu naucil typovou konverzi (nevim, jak jsem bez toho
> mohl existovat) a uz jsem zase narazil na podobny problem:
>
> Vytvoril jsem si komponentu umoznujici nastaveni DB filtru, ktera ma
> vlastnost DataSet typu TDataSet. Pokud objekt prirazeny vlastnosti
> DataSet ma vlastnost SQL, chtel bych tento SQL vyraz modifikovat. Jenze
> TDataSet nema vlastnost SQL a ja nevim dopredu, zda pouziju napr TTable
> nebo TQuery (pripadne TDAODataset atd.). Lze nejak zjistit, zda objekt v
> promenne DataSet ma prislusnou vlastnost? A lze se na ni nejak dostat?
>
> To zas bude nejaka banalita nebo uplny nesmysl ;-)
>
> BTW: Pri hledani reseni jsem v helpu narazil na metody tridy TObject
> MethodAddress, MethodName, FieldAddress a ClassInfo a absolutne jsem je
> nepochopil. Kdybyste mel nekdo chut a trosku mne osvitil, budu zavazan.
>
> Tesim se..
>
> Pechmen.
>
> --
> ==============================================================
> = Ing. Martin Ku�ka - Amenit s.r.o. =
> = Na Valech - budova Dytron, 741 01 Novy Jicin =
> = http://www.amenit(tec)cz e-mail: martin.kuska(zv)amenit(tec)cz =
> ==============================================================
>
>
DBGrid
[*] Pavel Kral <kral(zv)afx(tec)cz> - 7.10.1998 17:48:47
Ahoj,
muzes to udelat treba obsluhou udalosti OnDrawColumnCell asi takto:
type
THackDBGrid = class(TCustomDBGrid) // umozni pristup k private metodam
...
implementation
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
var c: TCanvas;
Field: TField;
begin
c:= (Sender as TDBGrid).Canvas;
Field:= Column.Field;
if Field.asString = 'Prvni hodnota' then
begin
c.Font.Color:= clBlue; // prvni barva
c.Font.Style:= [fsItalic];
c.Brush.Color:= clYellow;
end;
if Field.asString = 'Druha hodnota' then
begin
c.Font.Color:= clYellow; // druha barva
c.Font.Style:= [fsBold];
end;
{ ... atd. pro vsechny pripady }
THackDBGrid(Sender as TDBGrid).DefaultDrawColumnCell(Rect, Datacol, Column,
State);
end;
Mimochodem v RXLibrary je komponenta, kde je to vyreseno.
Hodne uspechu preje
Pavel Kral
-----Original Message-----
Zdravim,
mam takovy problem.
Zobrazuji v DBGridu polozky databaze pres Table.
A potrebuji v jednom sloupci barevne odlisit ruzne polozky.
V tomto sloupci se vypisuji retezce znaku a ty potrebuji psat kazdy
jinou barvou. Je asi jen 5 moznosti, co ten string obsahuje.
Predem dekuji za odpoved
---------------------------*----*-*-*----*----------------------------
S pozdravem Katka Dolezalova
Zahada RTTI
[*] Martin Kuska <martin.kuska(zv)amenit(tec)cz> - 07.10.1998 18:06:14
Lubo Fule wrote:
> je to celkom jednoduche:
>
> if Dataset is TQuery then with (Dataset as TQuery) do
> begin
> SQL.Add ... tu uz mozes pouzivat vsetky property aj metody TQuery
> beznym sposobom
> ...
> ...
> ...
> end;
>
> S pozdravom Lubo Fule
> (celkom obycajny programator...:-))
>
>
Diky
, ale ja opravdu nevim, jestli to bude TQuery nebo uplne jiny objekt.
Still waiting Pechmen.
--
==============================================================
= Ing. Martin Ku�ka - Amenit s.r.o. =
= Na Valech - budova Dytron, 741 01 Novy Jicin =
= http://www.amenit(tec)cz e-mail: martin.kuska(zv)amenit(tec)cz =
==============================================================
MS SQL 7.0 a VARCHAR(2000)
[*] Martin Kubecka <martin.kubecka(zv)amenit(tec)cz> - 07.10.1998 18:18:02
Upresnil bych jeste, ze maximalni velikost jednoho zaznamu muze byt 8060 bytu (u MS
SQL 7.0 Beta3).
Mac
Hubert wrote:
>
> u M$ SQL 6.5 je to pravda, ale u M$ SQL 7.0 to je 8.000 znaku
> (zajimave cislo co?), viz : http://www.microsoft.com/sql/beta/sqb3tech.asp?A=3&B=3
--
==============================================================
= Ing. Martin Kubecka - Amenit s.r.o. =
= Na Valech - budova Dytron, 741 01 Novy Jicin =
= telefon/fax: +420 656 706203 mobil: +420 603 265926 =
= http://www.amenit(tec)cz e-mail: martin.kubecka(zv)amenit(tec)cz =
==============================================================
Poradi unit v execku
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 7.10.1998 18:23:44
Petr Vones wrote:
> > samozrejme, ze slo, uz na tom pracuju. Ale potom pro me ponekud ztraci
> > smysl inicializacni a finalizacni sekce v unitach. Navic, kdyz si toho
> > clovek nevsimne, muze se mu stat, ze pri ladeni program funguje, pak
> > spacha build all pro preklad ostre verze a program se chova uplne jinak.
>
> Ted jsem to zkousel na jednoduche aplikaci se dvema formulari, kazdy volal
> neco z toho druheho a v initialization sekci byl messagebox. Potom jsem
> prehazoval poradi unitu v projektovem souboru. Chovalo se to v D2 a D4
> naprosto stejne, nezalezelo na tom jestli dam compile nebo build, vzdy to
> inicializovalo unity v opacnem poradi nez byly zapsany v projektu.
No, a nebude to tak, ze se vezme prvni jednotka z projektu,
projede se uses a inicializuji se vsechny jednotky tam uvedene, a
pak se pokracuje dal v inicializaci jednotky? Aby nedoslo k
zacykleni v pripade vzajemnych odkazu, tak je poradi IMHO
nasledujici:
1. interface - vsechny jednotky v uses
2. telo interface
3. implementation - vsechny jednotky v uses, a je-li v nektere z
nich odkaz zpet, pak se pouzije telo interface
4. telo implementation
Bordel nastava, je-li krizovy odkaz uz v interface.
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
CreateBlobStream
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 7.10.1998 18:23:45
sula milos wrote:
> potreboval bych poradit jak pouzivat fci CreateBlobStream
> staci to nejak takto ?
>
Ja to resim napriklad takto:
..Open
..Insert
BlobS:=TBlobStream.Create(Table1Blobf,bmWrite);
BlobS.Write(Data,Size);
BlobS.Free;
..Post
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
Re[2]:
[*] Zbysek Hlinka <zhlinka(zv)login(tec)cz> - 7.10.1998 18:23:45
Hubert wrote:
> ZH> select a.cislo, b.telefon, b.jmeno from tab1 a
> ZH> left join tab2 b where a.cislo=b.cislo
>
> ZH> Na editovani ale zapomen, to nejde, na Table take zapomen. Jinak ZH>
> to musis rozhodit do dvou tabulek a gridu a svazat to pres cislo.
>
> Jenze kdyz se pouzije
>
> select a.cislo, b.telefon, b.jmeno, a.klic, b.klic from tab1 a
> inner join tab2 b on a.cislo = b.cislo
>
> tak editace lze.... (je vsak potreba i ty klice obou tabulek)
>
Chces rict, ze dovolis uzivateli ovladat a.klic a b.klic (jsou-li tabulky
pres tyto klice svazany)? To snad ani ne. :-)
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
DBGrid
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 07.10.1998 19:55:14
Pavel Kral wrote:
>
> Ahoj,
> muzes to udelat treba obsluhou udalosti OnDrawColumnCell asi takto:
>
> type
> THackDBGrid = class(TCustomDBGrid) // umozni pristup k private metodam
^^^^^^^
Ahoj,
Jen pro upresneni, k protected metodam. Pristup k private je pomerne slozitejsi,
ale pomoci urcitych necistych praktik take mozny :-)
.
.
.
.
> THackDBGrid(Sender as TDBGrid).DefaultDrawColumnCell(Rect, Datacol, Column,
Metoda DefaultDrawColumnCell je v D2 i D4 definovana v public sekci TDBGrid,
takze k ni muzes pristupovat normalne. Potom, pokud ji volas pri kazdem
vykreslovani, tak by bylo vhodne nastavit u DBGridu DefaultDrawing na False.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
* protestni akce *
************************
W 95 a NT
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 07.10.1998 20:04:17
Vaclav Sazima wrote:
>
> Ahoj,
> potreboval bych poradit, jak poznat, pod jakym OS bezi muj program.
Ahoj,
v SysUtils mas globalni promennou Win32Platform, blizsi popis najdes v helpu.
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
* protestni akce *
************************Re[4]:
[*] Hubert <mneu3246(zv)ss1000.ms.mff.cuni(tec)cz> - 7.10.1998 20:22:16
>> ZH> select a.cislo, b.telefon, b.jmeno from tab1 a
>> ZH> left join tab2 b where a.cislo=b.cislo
>>
>> ZH> Na editovani ale zapomen, to nejde, na Table take zapomen. Jinak ZH>
>> to musis rozhodit do dvou tabulek a gridu a svazat to pres cislo.
>>
>> Jenze kdyz se pouzije
>>
>> select a.cislo, b.telefon, b.jmeno, a.klic, b.klic from tab1 a
>> inner join tab2 b on a.cislo = b.cislo
>>
>> tak editace lze.... (je vsak potreba i ty klice obou tabulek)
>>
ZH> Chces rict, ze dovolis uzivateli ovladat a.klic a b.klic (jsou-li tabulky
ZH> pres tyto klice svazany)? To snad ani ne. :-)
Samozrejme ze uzivatel nebude menit klice. Ne vse co je v SELECTU se
pak zobrazi v gridu. Finta je v tom, ze ty klice jsou potreba pro
update. A jelikoz se povoli editovat jenom pole a.cislo, b.telefon,
b.jmeno, neni pak co resit :-)
Re[2]: Vesela prihoda s CD-ROMkou (off topic)
[*] Hubert <mneu3246(zv)ss1000.ms.mff.cuni(tec)cz> - 7.10.1998 20:29:33
>> monitor byl cernej. No tak jsem se pustil do prace.
>> Sehnal jsem si krizovej sroubovak, otevrel kejs, vytah elektriku z
>> cdromky, ksandu. No ... a jeto. Stouchnul jsem do mysi, abych udelal
>> misto na stole ..... dopr**le. Nastartoval hadr, mrkly na mne NTycka a
>> ja se malem pos**l. Nastesti se teda nic nestalo, ale mel jsem nahnano.
>> Vrazil jsem zrovna 25k do apgrejdu z 386 na Pentyjum. :-))
PZ> Me se tohle stat nemuze, protoze v pocitaci mam vetrak, ktery
PZ> se porad toci :-)))
Mne taky ne. Protoze kdyz lezu do kompu a je nahodou zapnutej, tak
dostanu peknou pecku. :-))
Vesela prihoda s CD-ROMkou (off topic)
[*] Jan Jurenka <honza(zv)way(tec)cz> - 07.10.1998 21:45:24
> >> monitor byl cernej. No tak jsem se pustil do prace.
> >> Sehnal jsem si krizovej sroubovak, otevrel kejs, vytah elektriku z
> >> cdromky, ksandu. No ... a jeto. Stouchnul jsem do mysi, abych udelal
> >> misto na stole ..... dopr**le. Nastartoval hadr, mrkly na mne NTycka a
> >> ja se malem pos**l. Nastesti se teda nic nestalo, ale mel jsem nahnano.
> >> Vrazil jsem zrovna 25k do apgrejdu z 386 na Pentyjum. :-))
>
> PZ> Me se tohle stat nemuze, protoze v pocitaci mam vetrak, ktery
> PZ> se porad toci :-)))
PZ: Ja tam mam taky vetrak, ale nevim, proc by to melo nejak ovlivnit,
to co se mi stalo?? ;-)> Mne taky ne. Protoze kdyz lezu do kompu a je nahodou zapnutej, tak
> dostanu peknou pecku. :-))
Co je to za komp??? ,;-I
Zahada RTTI
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 07.10.1998 22:14:48
Martin Kuska wrote:
>
> Zdravim.
>
> Nadavno jsem se tu naucil typovou konverzi (nevim, jak jsem bez toho
> mohl existovat) a uz jsem zase narazil na podobny problem:
>
> Vytvoril jsem si komponentu umoznujici nastaveni DB filtru, ktera ma
> vlastnost DataSet typu TDataSet. Pokud objekt prirazeny vlastnosti
> DataSet ma vlastnost SQL, chtel bych tento SQL vyraz modifikovat. Jenze
> TDataSet nema vlastnost SQL a ja nevim dopredu, zda pouziju napr TTable
> nebo TQuery (pripadne TDAODataset atd.). Lze nejak zjistit, zda objekt v
> promenne DataSet ma prislusnou vlastnost? A lze se na ni nejak dostat?
>
> To zas bude nejaka banalita nebo uplny nesmysl ;-)
Ahoj,
Co treba takhle:
uses
TypInfo;
function DatasetSQLProperty(Dataset: TDataSet): TStrings;
var
PropInfo: PPropInfo;
begin
Result := nil;
if Dataset <> nil then
begin
PropInfo := GetPropInfo(Dataset.ClassInfo, 'SQL');
if (PropInfo <> nil) and (PropInfo^.PropType^.Kind = tkClass) and
(GetTypeData(PropInfo^.PropType^)^.ClassType.InheritsFrom(TStrings)) then
Result := TStrings(GetMethodProp(Dataset, PropInfo).Code);
end;
end;
--
Internet proti monopolu. Petr Vones, amatersky programator
* http://www.bojkot(tec)cz *
* protestni akce *
************************Zahada RTTI
[*] Martin Kuska <martin.kuska(zv)amenit(tec)cz> - 07.10.1998 22:57:26
Petr Vones wrote:
> Ahoj,
>
> Co treba takhle:
>
> uses
> TypInfo;
>
> function DatasetSQLProperty(Dataset: TDataSet): TStrings;
> var
> PropInfo: PPropInfo;
> begin
> Result := nil;
> if Dataset <> nil then
> begin
> PropInfo := GetPropInfo(Dataset.ClassInfo, 'SQL');
> if (PropInfo <> nil) and (PropInfo^.PropType^.Kind = tkClass) and
> (GetTypeData(PropInfo^.PropType^)^.ClassType.InheritsFrom(TStrings)) then
> Result := TStrings(GetMethodProp(Dataset, PropInfo).Code);
> end;
> end;
Heureka!! No konecne. Vedel jsem ze amater nezklame ;-)
Sice mi jde z tech ^ hlava kolem, ale funguje to sqjele.
Diky.
--
==============================================================
= Ing. Martin Ku�ka - Amenit s.r.o. =
= Na Valech - budova Dytron, 741 01 Novy Jicin =
= http://www.amenit(tec)cz e-mail: martin.kuska(zv)amenit(tec)cz =
==============================================================
Levnejsi Internet
[*] Martin Kukacka <CUCKOO(zv)ddm.jhrnet(tec)cz> - 8.10.1998 01:43:49 met-1mest
Moc se omlouvam, ze toto tema zatahuju do konference o Delphi ...
ale tyka se nas VSECH
Urcite chcete podstatne snizit sve vydaje za Internet, zatimco
monopolni firma TELECOM nas hodla pripravit o dalsi penize navic...
Pokuste se tomu zabranit i VY ...
Pokud ste tak jeste neucinili podivte se urcite na www.bojkot(tec)cz
Cuckoo
Re[2]: Vesela prihoda s CD-ROMkou (off topic)
[*] Hubert <mneu3246(zv)ss1000.ms.mff.cuni(tec)cz> - 8.10.1998 08:41:58
>> >> monitor byl cernej. No tak jsem se pustil do prace.
>> >> Sehnal jsem si krizovej sroubovak, otevrel kejs, vytah elektriku z
>> >> cdromky, ksandu. No ... a jeto. Stouchnul jsem do mysi, abych udelal
>> >> misto na stole ..... dopr**le. Nastartoval hadr, mrkly na mne NTycka a
>> >> ja se malem pos**l. Nastesti se teda nic nestalo, ale mel jsem nahnano.
>> >> Vrazil jsem zrovna 25k do apgrejdu z 386 na Pentyjum. :-))
>>
>> PZ> Me se tohle stat nemuze, protoze v pocitaci mam vetrak, ktery
>> PZ> se porad toci :-)))
JJ> PZ: Ja tam mam taky vetrak, ale nevim, proc by to melo nejak ovlivnit,
JJ> to co se mi stalo?? ;-)>> Mne taky ne. Protoze kdyz lezu do kompu a je nahodou zapnutej, tak
>> dostanu peknou pecku. :-))
JJ> Co je to za komp??? ,;-I
Je to oby PC-cko. Oby minitower, ale jednou jsem potreboval vymenit ve
zdroji vetrak (samozrejme jsem ho menil sam) a od ty doby to nejak
probiji :-))
Total off topic: INTERNET PROTI MONOPOLU
[*] Pavel Serbajlo <serb(zv)mikulov.sol(tec)cz> - 8.10.1998 09:43:58
Pro vsechny DIAL-UPisty,
Pokud o tom jeste nevite, tak se podivejte na stranky www.bojkot(tec)cz
a pridejte svuj podpis pod petici proti TELE KOMU i vy. Cim vice lidi, tim vetsi sance na uspech akce.
On to vlastne nebyl zase takovy off topic, tyka se to velke vetsiny z nas.
Autor: Serbajlo Pavel
e-mail: serb(zv)mikulov.sol(tec)cz
ICQ: 20849973
www: www.memamstranky(tec)cz
Vesela prihoda s CD-ROMkou (off topic)
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 8.10.1998 13:00:59
> > >> monitor byl cernej. No tak jsem se pustil do prace.
> > >> Sehnal jsem si krizovej sroubovak, otevrel kejs, vytah elektriku z
> > >> cdromky, ksandu. No ... a jeto. Stouchnul jsem do mysi, abych udelal
> > >> misto na stole ..... dopr**le. Nastartoval hadr, mrkly na mne NTycka a
> > >> ja se malem pos**l. Nastesti se teda nic nestalo, ale mel jsem nahnano.
> > >> Vrazil jsem zrovna 25k do apgrejdu z 386 na Pentyjum. :-))
> >
> > PZ> Me se tohle stat nemuze, protoze v pocitaci mam vetrak, ktery
> > PZ> se porad toci :-)))
>
> PZ: Ja tam mam taky vetrak, ale nevim, proc by to melo nejak ovlivnit,
> to co se mi stalo?? ;-)
Je to velmi proste - kdyz sundam plech meho toweru, vidim a slysim,
ze se vetrak toci, dostanu napad - pred upravami vypnout pocitac ;-)))
S pozdravem
Petr Zahradnik, pocitacovy expert
Autorizovany dealer TurboPower Software... knihovny pro Delphi
==============================================================
=== Petr Zahradnik - Computer Laboratory ===
=== Obvodova 740/14, PO BOX 15, 400 07 Usti nad Labem 7 ===
=== telefon: 047-5500610, telefon/fax: 047-5501627 ===
=== mobilni telefon GSM (hotline): 0602-409601 ===
=== http://www.clexpert(tec)cz/ clexpert(zv)clexpert(tec)cz ===
==============================================================
ICQ: 21215917
DBGrid
[*] Pavel Kral <kral(zv)afx(tec)cz> - 8.10.1998 14:35:17
>> type
>> THackDBGrid = class(TCustomDBGrid) // umozni pristup k private
metodam
> ^^^^^^^
>Ahoj,
>
>Jen pro upresneni, k protected metodam. Pristup k private je pomerne
slozitejsi,
>ale pomoci urcitych necistych praktik take mozny :-)
>
Sem s nimi...
Pavel