Archív konference Delphi
Zpět na výběr roku archívu nebo přejít na fulltextové vyhledávání v konferenci.
Posuvnik v TreeView
[*] Svehla Jaroslav <svehla(zv)spelza(tec)cz> - 7.4.2003 13:46:27
Ahoj,
nevite nekdo jak zakazat posuvniky v TTreeView a taky zda jde zmenit barva
tech propojek mezi uzly (krome pouziti vlastniho vykreslovani)?
Jara
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.461 / Virov� b�ze: 260 - datum vyd�n�: 10.3.2003
Poskodenie databazy Firebird
[*] Roland Turcan <rolo(zv)sedas.sk> - 07.4.2003 13:38:59
Hello Delphi CZ konferencia!
I. cast (ako program bezi):
1. Uzivatel da pokyn na novy zaznam do TABLE1
2. Zahajim transakciu
3. Insertnem
4. After insert trigger spusti zalogovanie do replikacneho logu
5. Commitnem.
6. Uzivatel da prikaz na pridanie zaznamu do TABLE2, ktora je detailom
TABLE1
7. Zahajim transakciu
8. insertnem
9. After insert trigger spusti zalogovanie do replikacneho logu
10. Commitnem.
11. Ak este chce pridat dalsi record do TABLE2, vratime sa na bod 7
II. cast (nastala takato situacia):
1. V replikacnom logu je diera so chybajucimi 4 zaznamami (bude to
jeden chybajuci z TABLE1 a tri z TABLE2)
2. Vytvoril sa zaznam v TABLE2 ktory ukazuje na zaznam v TABLE1 ktory
nie je ani vytvoreny ani zalogovany, a je zalogovany v replogu ako dalsi po
styroch chybajucich
3. Vsetko fungovalo este 10 dni, ale uz v poriadku.
4. Zasekla sa databaza, nebolo sa k nej mozne sa ani pripojit, ani
zalohovat.
5. Skusal som ich navigovat podla dokumentu z IBPhoenix "Diagnosing and Repairing InterBase
Database Corruption" ale "GFIX -v -full" robilo 4 hodiny, CPU=100%
zataze a nic sa nevypisovalo.
6. Poslali mi databazu a mne sa ju podarilo zazalohovat a obnovit bez
aktivnych indexov.
7. Zmazal som zaznam ktory bol hlaseny ako chybny koli FOREIGN KEY
violation
8. Presypal som data do novej tabulky.
III. cast (popis stroja)
Celeron 900, 128MB, 10GB HDD, FireBird 1.0.2.908,Windows XP Pro.
FireBird ma Forced write = true
ALE NEMAJU zalozny zdroj!!!! (toto bude IMHO strojca problemu)
IV. cast (moja uvaha)
Podla mna aj napriek tomu ze forced writes je zapnute, server nepise
vsetko okamzite, alebo ta fronta ktora ma na starosti zapis do
databazy nie je vykonavana v poradi ako udava TRANSACTION_ID. Inac by
nemalo nastat, ze sa zapisal zaznam ktory bol vytvoreny z neskorsej
transakcii ako ten MASTER.
GFIX som spustil na vikend na mojom PC a dnes som prisiel a Windows mi
pisal ze nemam dost miesta na disku C. GFIX stale bezi, IBServer na
95-100% a nasiel som "interbase.log" velky 5GB!. A v nom pisane stale
toto iste:
SERVER (Server) Sat Apr 05 00:58:52 2003
Database: F:\POBOCKA.FDB
Index 1 is corrupt on page 511 in table SYS$REP (133)
SERVER (Server) Sat Apr 05 00:58:52 2003
Database: F:\POBOCKA.FDB
Index 1 is corrupt on page 511 in table SYS$REP (133)
SERVER (Server) Sat Apr 05 00:58:52 2003
Database: F:\POBOCKA.FDB
Index 1 is corrupt on page 511 in table SYS$REP (133)
SERVER (Server) Sat Apr 05 00:58:52 2003
Database: F:\POBOCKA.FDB
Index 1 has orphan child page at page 511 in table SYS$REP (133)
SERVER (Server) Sat Apr 05 19:06:04 2003
Database: E:\POBOCKA.FDB
Index 1 is corrupt on page 2094 in table SYS$REP (133)
SERVER (Server) Sat Apr 05 19:06:04 2003
Database: E:\POBOCKA.FDB
Page 2094 doubly allocated
SERVER (Server) Sat Apr 05 19:06:04 2003
Database: E:\POBOCKA.FDB
Index 1 is corrupt on page 2094 in table SYS$REP (133)
Bol by niekedy GFIX skoncil?
--
Best regards, TRoland
Lokalizace aplikace
[*] tomas.andrasko(zv)volny(tec)cz - 07.4.2003 13:53:00
Dobry den,
chystam se provadet lokalizaci nasich aplikaci a nez se rozhodnu,
zda pouzit nastroje nabizene v Delphi (D5), rad bych znal mozna
uskali, ktera z toho plynou.
Chtel bych pouzit pomucku v D5 (Project\Languages), zda se mi, ze
toto je schudna cesta. Primarne je vse v cestine, lokalizace bude
slovenska, do budoucna asi i nemecka a anglicka.
Pokud to spravne chapu, lze tento postup pouzit i na projekt,
ktery je dosud "zivy" (a nase aplikace asi nikdy nebudou uplne
hotove, jelikoz ekonomicky system je treba neustale rozsirovat).
Trosku jsem to zkousel a po prekladu a "Update resource DLLs" to
co bylo prelozeno, zustalo prelozeno a nove bylo s priznakem
"neprelozeno".
Furu textu mam v ".rc" souborech, hodne formularu je sdilenych
vice exe moduly.
Muzete mi nekdo, kdo jiz tento nastroj pouzil, prozradit pripadne
problemy a zakernosti, ktere nejsou na prvni pohled zrejme, at
"neobjevuju Ameriku" a zbytecne si nenabiju usta.....
Diky predem vsem ..
Tomas Andrasko
A.S.E.I. spol. s r.o.
pobocka Ostrava
http://www.asei(tec)cz
email://faust(zv)asei(tec)cz
--
Ziskejte kvalitu, kterou si zaslouzite. Za minimalni mesicni
poplatek vam nabizime Antivir, Antispam nebo dalsi kapacitu pro
vas Mailbox. Vice na: http://sluzby.volny(tec)cz/product/mailpaid/
Konference o Excelu
[*] Jan Naiser <tua(zv)wo(tec)cz> - 7.4.2003 13:18:48
Ahoj,
koukni na http://www.emwac(tec)cz/news/default.asp
nebo news server news.microsoft(tec)cz
Honza.
> Nevite prosim, kde by byla nejaka tokovahle konfa o MS Office nebo primo o
> Excelu?
OT: Konference o Excelu
[*] Vlastimil Zden�k <delphi(zv)gestore(tec)cz> - 7.4.2003 12:44:37
Omlouvam se za OFF TOPIC.
Nevite prosim, kde by byla nejaka tokovahle konfa o MS Office nebo primo o
Excelu?
Diky Vlasta
Spusteni aplikace s predanim parametru
[*] Pavel T�e���k - 7.4.2003 12:47:40
maly priklad syntaxe
procedure Tf_Main.ReadCommandLineParams;
var
i: integer;
begin
for i := 1 to ParamCount do
begin
if StrRemoveChars(LowerCase(ParamStr(i)),['-'])='generate' then
begin
FGenerateTable := True;
b_OK.Visible := True;
end;
if StrRemoveChars(LowerCase(ParamStr(i)),['-'])='autoclose' then
FAutoClose := True;
if StrRemoveChars(LowerCase(ParamStr(i)),['-'])='check' then
FCheckPar := True;
end;
end;
> Nemyslel jsem jak parametry aplikaci zaslat, ale jakym zpusobem, a kde, ty
parametry v aplikaci definovat - maly priklad > syntaxe.
> Roman
Pavel Tresnak
mailto:pavel.tresnak(zv)haida(tec)cz
Zjisteni uzivatele a domeny na Terminal Services
[*] Vymazal Milan <vymazal.milan(zv)seznam(tec)cz> - 7.4.2003 12:34:54
Zdravim
lze nejakym zpusobem zjistit meno uzivatele a domenu prihlaseneho pres TS ?
--
Best regards,
Milan Vymazal
Delphi 7 Enterprise, Windows 2000 SP3 Proff, IE 6.0sp1 with all sp
Spusteni aplikace s predanim parametru
[*] Ing. Jan Dubsk� - Stroj�rna P�lava <dubsky(zv)s-palava(tec)cz> - 7.4.2003 12:32:53
> Nemyslel jsem jak parametry aplikaci zaslat, ale jakym zpusobem, a
kde, ty parametry v aplikaci definovat - maly priklad syntaxe.
Nijak zvlast se parametry nedefinuji. Staci napr. jenom v
procedure FormActivate(Sender: TObject);
var
x : string;
y : string;
z : string;
begin
......
......
x := System.ParamStr(1);
y := System.ParamStr(2);
.......
z := System.ParamStr(i);
.......
.......
end;
parametry nacist a dale s nimi pracovat jako s kazdou jinou promennou.
X,y,z samozrejme muze byt I globalni promenna
Honza
Reseni: Navod jak ladit in-process COM objekt(y)
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 07.4.2003 11:58:39
On 7 Jan 2003 at 11:07, Karel Klimes wrote:
> 4) o tomto bode sem se nikde nedocetl (konference, SDK, Delphi Help,
> ...): COM server je treba buildnout s volbou "Include remote debug
> symbols", ktera je v Project Options, zalozka Linker a ktera NENI
> default!
>
> 5) ted uz staci nastavit breakpointy, spustit klienta a svete div se!
> ONO TO FUNGUJE!
>
> Aplikace (EXE) vola COM server, ktery vola dalsi (jiny) COM server.
> Breakpointy mam nastaveny v EXE i v obou COM serverech. Spustim EXE a
> vse vali perfektne. Mam z toho velkou radost, protoze ted konecne muzu
> PORADNE ladit!
Tohle mam take, ale jakmile projekt spustim, ukoncim, potom udelam v
nejakem COM serveru zmenu, prekompiluji, a znovu spustim, jde to v
D6+ do haje... :-( Naposledy mi to funguje v D5.
S pozdravem
Zbysek Hlinka
Spusteni aplikace s predanim parametru
[*] Petr Brant <brant(zv)dcomm(tec)cz> - 7.4.2003 11:53:26
Tak na to je ParamStr(i: integer), pocet parametru je dan funkci =
ParamCount,
blize viz help.
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]=20
http://web.redbox(tec)cz/petr.brant
D&COMM s.r.o.
Korunova=E8n=ED 6
Praha 7
tel. +420724007234
Nemyslel jsem jak parametry aplikaci zaslat, ale jakym zpusobem, a
kde, ty parametry v aplikaci definovat - maly priklad syntaxe.
Reseni: Navod jak ladit in-process COM objekt(y)
[*] Karel Klimes <klimes(zv)unicontrols-tramex(tec)cz> - 7.4.2003 11:34:59
ahoj,=0D
pred nedavnem jsem si nevedel rady s ladenim in-process COMu v delphi. Pr=
o
zajemnce predkladam postup:=0D
=0D
1) napsat COM server + zaregistrovat=0D
=0D
2) napsat klienta pro COM server=0D
=0D
3) klienta i server ulozit do jednoho projektu (*.BPG)=0D
=0D
pozn.: az sem to mam z jinych konferenci.=0D
=0D
4) o tomto bode sem se nikde nedocetl (konference, SDK, Delphi Help, ...)=
:
COM server je treba buildnout s volbou "Include remote debug symbols", kt=
era
je v Project Options, zalozka Linker a ktera NENI default!=0D
=0D
5) ted uz staci nastavit breakpointy, spustit klienta a svete div se! ONO=
TO
FUNGUJE!=0D
=0D
IMHO u serveru NENI NUTNE nastavovat Host Application v Menu Run->Paramet=
ers
Klidne to ponechte prazdny.=0D
=0D
=0D
=0D
Ja uz takto ladim asi takovouto vec:=0D
=0D
Aplikace (EXE) vola COM server, ktery vola dalsi (jiny) COM server.
Breakpointy mam nastaveny v EXE i v obou COM serverech. Spustim EXE a vse
vali perfektne. Mam z toho velkou radost, protoze ted konecne muzu PORADN=
E
ladit!=0D
=0D
=0D
=0D
Windows XP b2600 SP1, Delphi 6 Prof UP2=0D
=0D
Karel Klimes (kchodl)
Spusteni aplikace s predanim parametru
[*] "Netu�il Roman, Ing." <netusil.roman(zv)vspardubice(tec)cz> - 7.4.2003 11:34:08
Diky za odpoved.
Nemyslel jsem jak parametry aplikaci zaslat, ale jakym zpusobem, a kde, =
ty parametry v aplikaci definovat - maly priklad syntaxe.
Roman
-----Original Message-----
From: Petr Brant [mailto:brant(zv)dcomm(tec)cz]=20
Sent: Monday, April 07, 2003 11:00 AM
To: delphi-l(zv)clexpert(tec)cz
Subject: RE: Spusteni aplikace s predanim parametru
V menu je Run/Parameters a tam napis to, co potrebujes.
Zdravim
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]=20
http://web.redbox(tec)cz/petr.brant
D&COMM s.r.o.
Korunova=E8n=ED 6
Praha 7
tel. +420724007234
co je treba udelat v Delphi 6 aplikaci pro to, abych ji mohl volat s
predanim nekolika parametru?
Reseni: Navod jak ladit in-process COM objekt(y)
[*] Tom Beran <tfuzzy(zv)atlas(tec)cz> - 7.4.2003 11:54:00
> server. Breakpointy mam nastaveny v EXE i v obou COM
> serverech. Spustim EXE a vse vali perfektne. Mam z toho
> velkou radost, protoze ted konecne muzu PORADNE ladit!
>
To je pekne, ale takhle to asi funguje vsem.
Co se stane pokud pouzijes (musis pouzit) preklad s balicky?
T.Spusteni aplikace s predanim parametru
[*] "Netu�il Roman, Ing." <netusil.roman(zv)vspardubice(tec)cz> - 7.4.2003 10:59:23
Dobry den,
chci se zeptat, co je treba udelat v Delphi 6 aplikaci pro to, abych ji =
mohl volat s predanim nekolika parametru?
=20
Roman
Spusteni aplikace s predanim parametru
[*] Pavel T�e���k - 7.4.2003 11:07:42
podivej se na ParamCount a ParamStr(i)
Pavel Tresnak
mailto:pavel.tresnak(zv)haida(tec)cz
> chci se zeptat, co je treba udelat v Delphi 6 aplikaci pro to, abych ji
mohl volat s predanim nekolika parametru?
> Roman
Problem s TJvIntegerEdit.OnKeyPress
[*] Ing. Igor Vodi�ka <vodicka(zv)sagit(tec)cz> - 7.4.2003 11:22:09
Zdravim!
V komponente JvIntegerEdit z JEDI-VCL se snazim v OnKeyPress odchytit Enter,
ale kod mi vubec nejde do udalosti a enter je ignorovam. Pouzivam
nasledujici kod:
procedure TForm1.JvIntegerEdit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key=Chr(13) then
JvIntegerEdit2.SetFocus;
end;
Pouzivam D5 Ent a JEDI VCL 2.00 BETA for D5-D7. Poradte, diky.
Ing. Igor Vodicka, Nakladatelstv� Sagit
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.467 / Virov� b�ze: 266 - datum vyd�n�: 1.4.2003
Spusteni aplikace s predanim parametru
[*] Petr Brant <brant(zv)dcomm(tec)cz> - 7.4.2003 11:00:12
V menu je Run/Parameters a tam napis to, co potrebujes.
Zdravim
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]=20
http://web.redbox(tec)cz/petr.brant
D&COMM s.r.o.
Korunova=E8n=ED 6
Praha 7
tel. +420724007234
co je treba udelat v Delphi 6 aplikaci pro to, abych ji mohl volat s
predanim nekolika parametru?
Potize s aktivnim MDIchild oknem
[*] Ing. Igor Vodi�ka <vodicka(zv)sagit(tec)cz> - 7.4.2003 11:09:54
Zdravim vsechny delfisty!
Narazil jsem na nasledujici problem:
Mam MDI aplikaci, otevrene ChildOkno, v nem nacteny text. V toolbaru mam
ComboBox. Pomoci, ktereho menim ruzne stavy pro program. Pri zmene stavu se
znovu nacita text v ChildOkne; toto znovanacteni provadim v OnChange
ComboBoxu. V tomto danem okamziku, kdy je provadeno znovunacteni textu v
ChilOkne, je aktivni control hlavniho okna ComboBox a pokud ted potocim s
koleckem mysi dojde ke zmene v ComboBoxu a nasleduje znova
OnChangeComboBoxu. I kdyz behem znovu nacteni kliknu do ChildOkna, akce po
potoceni kolecka se provadi znova.
Nevite nekdo poradit jak v danem okamziku zaktivnit ChildOkno, tak aby
scroll my�i byl vazan na ChildOkno.
Ing. Igor Vodicka, Nakladatelstvi Sagit
---
Odchoz� zpr�va neobsahuje viry.
Zkontrolov�no antivirov�m syst�mem AVG (http://www.grisoft(tec)cz).
Verze: 6.0.467 / Virov� b�ze: 266 - datum vyd�n�: 1.4.2003
POP3 server
[*] K�tele� J�n <Koteles(zv)lumen.sk> - 7.4.2003 10:54:32
Alebo si nainstaluj free verziu winroute (www.winroute(tec)cz), tam je SMTP/pop3
server a do 2 sucasne pripojenych uzivatelov je zadarmo...POP3 server
[*] Petr Langer <langer(zv)xdom(tec)cz> - 7.4.2003 10:23:28
Pokud by ti nevadilo, ze musis mit .NET framework, tak o jednom vim (w/src):
http://www.lumisoft.ee/lsWWW/ENG/Products/Mail_Server/mail_index_eng.aspx?ty
pe=info
pripadne OSS: http://www.xmailserver.org/
jinak existovalo i reseni v Delphi i se zdrojakama, autor ho ale stahnul.
HTH
Petr Langer
----- Original Message -----
From: "Karel Krtecek" <karel.krtecek(zv)centrum(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Monday, April 07, 2003 10:03 AM
Subject: POP3 server
> Dobry den,
>
> potreboval bych si napsat (pripadne i nejaky free stahnout)
> jednoduchy POP3 server pro testovani POP3 klienta (jsem napojen
> modemem a nechci byt neustale pripojen). POP3 server nemusi byt
> prilis chytry, staci, aby se klient pripojil, zjistil pocet mailu, ty
> stahnul, na serveru smazat a odpojil se. V INDY ani v Synapsy jsem
> nic nenasel (alespon priklad), proto se ptam tady.
>
> Dekuji za informace
>
> Karek Krtecek
>
>
> --------------------
> Zm�� se d�ky nov�m, barevn�m �o�k�m FreshLook! Nyn� ak�n� nab�dka.
http://user.centrum(tec)cz/redir.php?url=http://www.cibavision(tec)cz
>
>
>
>
>POP3 server
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 07.4.2003 10:27:46
Stahni si z http://www.pmail.com program "Mercury/32", a mas na
testovani zadarmo uplne cely postovni server, tedy nejen s POP3
serverem/klientem, ale i se SMTP severem/klientem ci s IMAP4
serverem. ;-)
> potreboval bych si napsat (pripadne i nejaky free stahnout)
> jednoduchy POP3 server pro testovani POP3 klienta (jsem napojen
> modemem a nechci byt neustale pripojen). POP3 server nemusi byt
> prilis chytry, staci, aby se klient pripojil, zjistil pocet mailu, ty
> stahnul, na serveru smazat a odpojil se. V INDY ani v Synapsy jsem nic
> nenasel (alespon priklad), proto se ptam tady.
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.
POP3 server
[*] Tom Beran <tfuzzy(zv)atlas(tec)cz> - 7.4.2003 10:33:09
Napr. free verze tohoto
http://www.argosoft.com/applications/mailserver/download.asp
POP3 server
[*] Karel Krtecek <karel.krtecek(zv)centrum(tec)cz> - 07.4.2003 10:03:13
Dobry den,
potreboval bych si napsat (pripadne i nejaky free stahnout)
jednoduchy POP3 server pro testovani POP3 klienta (jsem napojen
modemem a nechci byt neustale pripojen). POP3 server nemusi byt
prilis chytry, staci, aby se klient pripojil, zjistil pocet mailu, ty
stahnul, na serveru smazat a odpojil se. V INDY ani v Synapsy jsem
nic nenasel (alespon priklad), proto se ptam tady.
Dekuji za informace
Karek Krtecek
--------------------
Zm�� se d�ky nov�m, barevn�m �o�k�m FreshLook! Nyn� ak�n� nab�dka. http://user.centrum(tec)cz/redir.php?url=http://www.cibavision(tec)cz
Promazani TStringLIst
[*] Ond�ej Tu�n������'�������̿ - 7.4.2003 09:47:41
> Imho obecn� nen� na z�vadu. Z�le�� na situaci.
> To zn� zaj�mav�. Pod�l� se o detailn�j�� popis? J� pou��v�m klasickou
> stromovou reprezentaci. O jak� jazyk se jedn�?
Jezis zase ta diakritika. Sorry, jsem na ni vazne hodne zvykly.
--
Ond�ej Tu�n�
Flex 4.0 Personal Edition Beta 1 build 2 dostupn� na www.flexlanguage.com
xDotaz
[*] Petr Brant <brant(zv)dcomm(tec)cz> - 7.4.2003 09:19:58
To prvni na me strance http://web.redbox(tec)cz/petr.brant, to druhe na
ftp://delphi(zv)ftp.delphi(tec)cz/Other/KonfViewTXTData/ , heslo je ARCHIVAR, =
jsou
tam komplet roky 2001 a 2002 a kousek roku letosniho.=20
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]=20
http://web.redbox(tec)cz/petr.brant
D&COMM s.r.o.
Korunova=E8n=ED 6
Praha 7
tel. +420724007234
Kde by som mohol zohnat OFFLINE verziu o programovani, ktora bezi=20
na zive(tec)cz?
A potom kde este najdem databazu vsetkych prispevkov v tejto=20
diskusii. Myslim tu co otvorim programom(napr. konferencia)
Promazani TStringLIst
[*] Ond�ej Tu�n������'�������̿ - 7.4.2003 09:22:44
> 1. ked cyklus skonci nevies, ktora z podmienok bola splnena.
> Vies len to, ze niektora z podmienok plati, nevies ktora.
Imho obecn� nen� na z�vadu. Z�le�� na situaci.
> 2. niektore prikazy cyklu iteruju n-krat a niektore n-1 krat
> (a to este sa meni v zavislosti na tom, ktora z podmienok
> bola splnena)
Imho obecn� nen� na z�vadu. Z�le�� na situaci.
> 3. povedal by som, ze tento prikaz nesplna podmienku jedneho
> vstupu a jedneho vystupu, ale ze ma viac vystupov (kazdy
> exit je vystupom z cyklu)
Imho obecn� nen� na z�vadu. Z�le�� na situaci.
> Inac, tiez sa zaoberam kompilatormi a kriticka podla mojho
> nazoru z hladiska moznej optimalizacie kodu je interna
> reprezentacia programu. Pre zaujimavost ja mam taku
> reprezentaciu, ktora vobec neobsahuje klasicku iteraciu
> (cyklus), samozrejme ani ziadne skoky.
To zn� zaj�mav�. Pod�l� se o detailn�j�� popis? J� pou��v�m klasickou
stromovou reprezentaci. O jak� jazyk se jedn�?
--
Ond�ej Tu�n�
Flex 4.0 Personal Edition Beta 1 build 2 dostupn� na www.flexlanguage.com
OT:Open Office
[*] <aldik(zv)quick(tec)cz> - 07.4.2003 09:06:55
Nazdar kluci, neznate nekdo nekoho kdo si hraje s
API v Open Office? Potrebuji plno veci vedet a
pracne to doluji zruznejch manualu a pomocnych
prikladuu. Nebo konferenci kde se tim zabyvaj,
hlavne mi prosim neradte tu na openoffice.org,
tam mi uz nikdo tyden neodpovedel a znalosti o OO
tam mam vsichni zhruba stejny jako ja tedy rovne 0
Diky moc Aldik
ADMIN: Vyzva na pomoc s konferenci
[*] Lukas Gebauer <gebylist(zv)mlp(tec)cz> - 07.4.2003 08:49:22
> h) V ramci moznosti by mohla merit miru quotovani a pokud to bude
> neprimerene, tak zpravu vrati odesilateli.
Myslim, ze toto neni nemozne... podle mne by stacilo hlidat, jestli
se ve zprave nevyskytuje vice jak X radku zasebou, ktere majina
zacatku vice jak Y-krat '>' Timhkle by se mela vychytat situace, kdy
se porad diskutuje a duskutuje, pricemz stare casti diskuze nikdo
neodmazava. lepsi neco nez nic. ;-)
Jinak to sosani pres POP3 ci IMAP4, posilani pres SMTP, rozklad MIME
zprav na casti, jejich prochazeni, odmazavani priloh, meneni obsahu,
skladani zpet do zpravy, ba i to orezavani diakritky, to vse je dobre
zvladnutelne v Synapsi, kterou v servisech pouzivam rutinne. Tady
bych nevidel problem. nejvetsi fuska bude udelat to hodnoceni obsahu.
--
Lukas Gebauer.
E-mail: gebauerl(zv)mlp(tec)cz
http://www.ararat(tec)cz/synapse/ - Synapse Delphi and Kylix TCP/IP Lib.
Ochrana softwaru
[*] Ji�� Baudy� - 7.4.2003 08:02:10
Algoritmus ochr�nit nelze, v��atky z AZ 121/2000 sb �2
(2) Za d�lo se pova�uje t� po��ta�ov� program, je-li p�vodn� v tom smyslu,
�e je autorov�m vlastn�m du�evn�m v�tvorem. Za d�lo souborn� se pova�uje
datab�ze, kter� je zp�sobem v�b�ru nebo uspo��d�n�m obsahu autorov�m
vlastn�m du�evn�m v�tvorem. Fotografie, kter� je p�vodn� ve smyslu v�ty
prv�, je chr�n�na jako d�lo fotografick�.
(6) D�lem podle tohoto z�kona nen� zejm�na n�m�t d�la s�m o sob�, denn�
zpr�va nebo jin� �daj s�m o sob�, my�lenka, !!! postup, princip, metoda, !!!
objev, v�deck� teorie, matematick� a obdobn� vzorec, statistick� graf a
podobn� p�edm�t s�m o sob�.
- Zde je do ur�it� m�ry mo�n� pou��t� u�itn�ho vzoru, ale je to natolik
komplikovan�, �e bych vy�el z p�edpokladu, �e t.j. ob�v za v�echny prachy,
aby se to vyplatilo :)
- D�le lze vyu��t mezin�rodn�ho pr�va. V n�kter�ch zem�ch je mo�no chr�nit
algoritmus a �R s nima m� smlouvu o ochran� t�chto patent�. Z vlastn�
zku�enosti op�t nevymahateln�. :)
Jirka
> Potrebujem chranit urcite softwarove riesenie pred konkurenciou,
> pripadne aj koli spolupraci s inymi firmami. Nejedna sa o nijaky
> produkt ani o algoritmus ale "len" o myslienku riesenia (riesenie
> je jednoduche ak je znama tato idea). Uvazujem o patentovej
> ochrane, pripadne niecom podobnom. Ma s tym niekto nejake
> skusenosti?
>
> Erik
problemy s verzi ComCtl vz. ImageList
[*] Ji�� Baudy� - 7.4.2003 08:06:45
Kr�sn� pond�ln� r�no,
obr�zky se pou��vaj� do komponenty TListView. Jedin� co up��m� nech�pu je
"detekce" na kterych PC to pob�� a na kter�ch ne ? Sna��m se v tom naj�t
princip, ale je to naprosto na v�ech okolnostech nez�visl�. Jedin� m�sto kde
m�m jistotu, �e to b�h� bez probl�m� je jak�koli "ple�ka" s �ist�ou
instalac� W98.
Jirka
> FROM: Petr Vones
> K cemu se tyto obrazky presne pouzivaji, v komponentach
> TTreeView, TListView,
> TToolBar apod ?Zobrazenie zazn. z Paradoxu
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 07.4.2003 08:11:41
> 1. chcel by som zobrazovat data vzostupne v DBGride podla
> cisla zaznamu.
> Kazdemu novemu zaznamu sa priradi v Paradoxe poradove
> cislo (neviem ako sa to nazyva spravne...), teda posledny
> zaznam ma vzdy najvyssie cislo.
> No a ja by som to potreboval zobrazit v DBGride a to od
> najvyssieho po najnizsie cislo priradene pri vkladani.
Ahoj, rekl bych, ze pozadavek je na sestupne zobrazeni, nikoli vzestupne, ale to je
drobny detail. V obou pripadech se to resi tak, ze na tabulce zalozis index na
prislusnem sloupci a v jeho vlastnostech definujes, zda ma byt vzestupny nebo
sestupny.
> 2. chcel by som, aby bolo v tabulke vzdy len 10 zaznamov a
> teda pri vlozeni noveho zaznamu, aby sa ten najstarsi vymazal a
> zaroven sa nejak prepisali poradove cisla priradene pri vkladani.
Automaticky to asi nepujde, ale 10 zaznamu je tak male cislo, ze se ti vyplati (pri
pouziti sestupneho indexu posledni) zaznam programem smazat a pak to v cyklu
projet a precislovat.
David Lebeda
SQL Rozdil mezi datumy
[*] Ing. Pavel �ilinec����)b����ȧ~�� - 7.4.2003 07:11:34
Nenapsal jsi, co je referencnim datem.
Podle Tveho vysledku usuzuji, ze se jedna o test v ramci skupin
polozek, takze bych vyzkousel neco takovehoto:
select a.Polozka, NejvetsiRozdil = max(b.Datum - a.Datum)
from Tab a, Tab b
where a.Polozka = b.Polozka and a.Datum <= b.Datum
group by a.Polozka
Pak si jen vyfiltrujes NejvetsiRozdil (pripadne to das do having)
--------
ing. Pavel Zilinec
MailTo:zilinec(zv)email(tec)cz
Prog-Soft s.r.o. Plzen
Informacni system pro vyrobce
a distributory napoju
MPV> Zdravim konferenciery.
MPV> Z FB tabulky kde mimo jine jsou Fieldy Datum(TDateTime) a polozka(VARCHAR)
MPV> potrebuji ziskat
MPV> pocet polozek ktere se lisi datumem o mene nez jeden rok.
MPV> polozka Datum
MPV> X 1.1.2000
MPV> X 1.10.2000
MPV> Z 1.1.2000
MPV> Z 1.1.2003 vysledek ma byt 1 (pouze polozka
MPV> X)
MPV> ma nekdo nejaky napad ?
MPV> valik
Ochrana softwaru
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 7.4.2003 06:50:52
From: "Erik Salaj" <info(zv)winsoft.sk>
> Uvazujem o patentovej ochrane, pripadne niecom
> podobnom. Ma s tym niekto nejake skusenosti?
Mam: patentovat to v podstate nejde.
Asi jedine reseni by bylo
navrhnout nejake zarizeni na teto myslence
a zkusit patentovat toto zarizeni napr. jeho
zapojeni tak, abys pokryl i tu myslenku.
Pred lety jsme se o to pokouseli a nakonec to dotahli do vitezneho konce,
ale bylo to obtizne, trvalo to roky a ekonomicky efekt byl nakonec
minimalni.
Navic, kdyby tu myslenku pouzil nekdo v jinak koncipovanem zarizeni, asi by
to ten patent stejne nepokryl.
Takze mi z toho vyplyva, ze pokud tu myslenku nedokazes zpenezit, tak je Ti
panent na 2 veci...
Radsi bych tedy usili zameril na podnikatelskou aktivitu a zkusil najit
nekoho, kdo je ochoten neco takoveho odkoupit za prijatelnou cenu.
HTH,pf
Ochrana softwaru
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 7.4.2003 01:18:16
From: "Erik Salaj" <info(zv)winsoft.sk>
> Potrebujem chranit urcite softwarove riesenie pred konkurenciou,
> pripadne aj koli spolupraci s inymi firmami. Nejedna sa o nijaky
> produkt ani o algoritmus ale "len" o myslienku riesenia (riesenie
> je jednoduche ak je znama tato idea). Uvazujem o patentovej
Obavam se, ze jedine skutecne realne reseni by bylo takovou myslenku
neprozrazovat a prodavat jako 'black box', pokud je to mozne. Ze vsech
ostatnich reseni by se asi v pripade nejakeho sporu mohla druha strana
vykroutit, zvlaste kdyz proti ni nestoji nekdo velky a vlivny.
Petr Vones
Ochrana softwaru
[*] Bronislav Klu�ka <delphi(zv)pro2-soft(tec)com> - 7.4.2003 00:56:38
dle zakona nelze mit patent na algotitmus ani nic podobneho, toto je reseno
autorskym zakonem, autorska prava nabyvas automaticky (v CR, v USA si musis
nechat zaregistrovat copyright (to neco stoji)). Tzn. pokud neco
naprogramujes, u nas Ti to nemuze nikdo ukrast, ale v USA ano ::).
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of Erik Salaj
Sent: Sunday, April 06, 2003 11:07 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: Ochrana softwaru
Potrebujem chranit urcite softwarove riesenie pred konkurenciou,
pripadne aj koli spolupraci s inymi firmami. Nejedna sa o nijaky
produkt ani o algoritmus ale "len" o myslienku riesenia (riesenie
je jednoduche ak je znama tato idea). Uvazujem o patentovej
ochrane, pripadne niecom podobnom. Ma s tym niekto nejake
skusenosti?
Erik
Ochrana softwaru
[*] Erik Salaj <info(zv)winsoft.sk> - 06.4.2003 23:06:42
Potrebujem chranit urcite softwarove riesenie pred konkurenciou,
pripadne aj koli spolupraci s inymi firmami. Nejedna sa o nijaky
produkt ani o algoritmus ale "len" o myslienku riesenia (riesenie
je jednoduche ak je znama tato idea). Uvazujem o patentovej
ochrane, pripadne niecom podobnom. Ma s tym niekto nejake
skusenosti?
Erik
xDotaz
[*] Miroslav Dolecek <dolecek(zv)informatics.muni(tec)cz> - 6.4.2003 23:09:11
V ned�le, 6. dubna 2003, 22:13, Petosoft(zv)centrum.sk napsal(a):
> Kde by som mohol zohnat OFFLINE verziu o programovani, ktora bezi
> na zive(tec)cz?
http://web.redbox(tec)cz/petr.brant/
> A potom kde este najdem databazu vsetkych prispevkov v tejto
> diskusii. Myslim tu co otvorim programom(napr. konferencia)
http://www.rydval(tec)cz/slavek/DataZKonference.php
--
Miroslav Dolecek <dolecek(zv)fi.muni(tec)cz>
xDotaz
[*] <Petosoft(zv)centrum.sk> - 06.4.2003 22:13:56
Kde by som mohol zohnat OFFLINE verziu o programovani, ktora bezi
na zive(tec)cz?
A potom kde este najdem databazu vsetkych prispevkov v tejto
diskusii. Myslim tu co otvorim programom(napr. konferencia)
Dakujem za odpovede
----------------------------------------------------------------
http://www.webpark.sk/novy-web.htm - Profesion�lny webhosting
Zobrazenie zazn. z Paradoxu
[*] alex <bugala_a(zv)inMail.sk> - 6.4.2003 20:00:56
Ahojte,
mam tabulku paradox a potreboval by som vyriesit dve veci:
1. chcel by som zobrazovat data vzostupne v DBGride podla
cisla zaznamu.
Kazdemu novemu zaznamu sa priradi v Paradoxe poradove
cislo (neviem ako sa to nazyva spravne...), teda posledny
zaznam ma vzdy najvyssie cislo.
No a ja by som to potreboval zobrazit v DBGride a to od
najvyssieho po najnizsie cislo priradene pri vkladani.
2. chcel by som, aby bolo v tabulke vzdy len 10 zaznamov a
teda pri vlozeni noveho zaznamu, aby sa ten najstarsi vymazal a
zaroven sa nejak prepisali poradove cisla priradene pri vkladani.
Je to vobec mozne ???
Dakujem,
Alex
-----------------------------------------------------
Bugala Alex - stredoskolak
Win2000 Prof CZ + SP2 + Delphi 3 Client/Server Suite
----------
Teraz uz domena .SK pre kazdeho uplne ZADARMO.
Viac info na: http://www.slovaknet.sk/sk-zadarmo.asp
OLE DB, MS SQL 2000 a SHOWPLAN_TEXT
[*] Slavek Rydval <konference(zv)rydval(tec)cz> - 6.4.2003 20:05:13
Preji vsem pekneho dne,
jsem prihlasen k MS SQL Serveru 2000 pomoci OLE DB a provedu
prikaz SET SHOWPLAN_ALL ON. Nasledne provedu libovolny
SELECT prikaz napr. pomoci ADOCommand (napr. SELECT
(zv)(zv)VERSION), ale misto vysledku ziskam chybu Invalid cursor
state. Netusite, kde je problem? V BOLu jsem nic rozumneho
nenasel, v Query Analyzeru to funguje spravne.
Diky za kazde info
Slavek
---------------------
slavek(zv)rydval(tec)cz
http://www.rydval(tec)cz
---------------------
Doplnovani kodu v editoru
[*] Miroslav Dolecek <dolecek(zv)informatics.muni(tec)cz> - 6.4.2003 19:54:32
Ahoj,
mam dotaz ohledne doplnovani kodu (jmena metod, objektu, vlastnosti) v
editoru Delphi. Obcas se mi stane, ze ve vyberu, ktery se mi objevi v
editoru, reaguji Delphi na zmacknuti sipky dolu(nahoru) tak, ze skacou
ob jeden nebo ob dva udaje. Nekdy to jde dobre po jednom. Dost me to
toci, kdyz se nemohu trefit na pozdaovany udaj a musim tam kliknout
mysi nebo dopsat vice pismen, aby se vyber upresnil. Jestli je to
normalni funkce Delphi, tak jsem nenasel, kde to vypnout. Setkal se s
tim nekdo? Dik za radu
--
Miroslav Dolecek <dolecek(zv)fi.muni(tec)cz>
SQL Rozdil mezi datumy
[*] MUDr. Patrik VALENTA <valentapat(zv)volny(tec)cz> - 6.4.2003 19:02:24
Zdravim konferenciery.
Z FB tabulky kde mimo jine jsou Fieldy Datum(TDateTime) a polozka(VARCHAR)
potrebuji ziskat
pocet polozek ktere se lisi datumem o mene nez jeden rok.
polozka Datum
X 1.1.2000
X 1.10.2000
Z 1.1.2000
Z 1.1.2003 vysledek ma byt 1 (pouze polozka
X)
ma nekdo nejaky napad ?
valik
ICQ 54152896
screen capture + video
[*] Ivan Turcan <iturcan(zv)drake.sk> - 6.4.2003 11:19:14
Ahoj,
potreboval by som si urobit kopiu desktopu. Toto nie je az taky problem.
Problem je ze to potrebujem robit opakovane a hlavne rychlo pre vyrobu AVI.
Problem je v tom ze funkcie s ktorymi som to skusal su dost pomale. Moje
postupi na vytvorenie kopie desktopu boli nasledovne:
1.postup = pouzitie canvasu a fn. copyRect na kopiu do bitmapi
2.postup = pouzitie fn. BitBlt
oba spomenute postupy su na vytvorenie realneho zaznamu celej obrazovky
pomale. Nefunguje to ani v threads.... a nedokaze mi to ulozit viac ako 5
obrazkov za
sekundu. potrebujem ulozit 24 krat za sekundu kopiu desktopu.
Je na to iny postup ? resp. ako urobit 24 krat za sekundu kopiu obrazovky
dakujem za napady,
Ivan
ADMIN: Vyzva na pomoc s konferenci
[*] Viliam Mlich <mlich1(zv)volny(tec)cz> - 6.4.2003 10:02:44
> e) V ramci moznosti dale ohlida urcite fraze nebo slova (sprosta,
Toto by som nechal na pisatela. Kazdy prejav jednotlivca je kamienok
do mozaiky jeho vlastneho image, nie celej konferencie. Nielen uroven
dotazu, ale aj sposob kvotovania, dobra orientacia v texte atd.
> g) Samozrejme take ohlida vlastni velikost zpravy.
Aj mne sa raz stalo, ze som do konferencie poslal 100 kilo :-( Proste
som pri pisani adresy 'k', 'o', 's', <Enter> slabsie pritlacil na to
's' a uz tam namiesto 'kosina' skocilo 'konference Delphi'.
> h) V ramci moznosti by mohla merit miru quotovani
Tu by stacilo vyhadzovat len prispevky od uplnych zaciatocnikov, ktore
maju na konci prilepenu komplet povodnu spravu. Bohuzial sa tazko da
poznat, ked niekto napise najprv odpoved a potom za nu vlozi otazku,
takze tu plati moj nazor k bodu e)
> j) V ramci moznosti take analyzuje subjekt na univerzalni hlasky
Aj tu plati moj nazor k bodu e).
> Jinak samozrejme technicke opatreni (konverze diakritiky,
vyhazovani
> priloh a pod.) povazuji za velmi prinosne.
Podpisujem.
Vlastne som sa vobec nechcel do debaty na tuto temu zapojit a tento
pripevok pisem hlavne preto, ze som chcel pripomenut, aby ten robot
vyhadzoval aj taketo seno:
>=======================================================
>Petr Zahradnik, Computer Laboratory
>Obvodova 740/14, P.O. Box 15, 400 07 Usti nad Labem
>Telefony: 475 500 610, 475 501 627, 475 511 337
>Mobilni telefon: 602 409 601, Fax: 475 511 338
>WWW: http://www.clexpert(tec)cz, http://www.zahradnik(tec)cz
>E-Mail: clexpert(zv)clexpert(tec)cz, petr(zv)zahradnik(tec)cz
>
>=======================================================
Nastastie sa to malokedy meni, takze to staci pri prvom vyskyte
doplnit do zoznamu zakazanych textov a hned je kazda sprava o kilo
mensia. Je to sice len 1/3 sekundy na dialupe, ale 1000/3, to uz je 5
minut a 10 Kc v kapse telecomu, ked pominieme to zabrane miesto na
disku, ale hlavne zdrziavanie sa pri citani rozhodovanim, ci to treba
citat alebo preskocit.
Lebo jedna vec je nechavat cloveku pravo na to, aby mohol sam dotvarat
svoj image, ale druha vec je, ked niekto v ramci vytvarania image lepi
ku kazdej svojej sprave cele kilo sraciek.
bye
vmlich www.rar(tec)cz
ADMIN: Vyzva na pomoc s konferenci
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 06.4.2003 00:59:19
Puvodni zprava, kterou napsal Ludek ZITA dne 5 Apr 2003:
> > d) Vykope vsechny dalsi nezadouci veci - reklamy, oznameni o tajnem
> > obsahu, hlaseni o absenci viru apod.
> Jak to budes definovat, uprimne ani nevim co myslis hesly "oznameni o
> tajnem obsahu, hlaseni o absenci viru" dalsi viz nize...
Oznameni o tajnem obsahu, to jsou takove ty notifikace, ktere pridavaji
nejcasteji firemni exchange servery do kazdeho mailu zamestnance, je tam
napsano, ze obsah mailu muze obsahovat tajne informace a kdyz jsi ho
dostal a neni pro tebe, ze ho nemas cist :-) Hlaseni o absenci viru je
zase to "Tento mail neobsahuje virus" nebo co se to tam pise - pridava to
do mailu antivirak. Definovat to budu primo v programu na zaklade
zkusenosti s takovymi maily. Tohle se da vykopat velice dobre.
> > e) V ramci moznosti dale ohlida urcite fraze nebo slova (sprosta,
> > nezadouci apod.), takove maily vrati odesilateli.
> Jak definovat
No definovat fraze a slova na hledani, tohle je jedna z mene dulezitych
funkci, zase tolik sprosteho tu neni. Da se to ale udelat jednoduse,
seznam slov...
> > f) V ramci moznosti ohlida nejednoznacnosti v poli FROM (slova jako
> > Delphi konference apod.), takove maily vrati odesilateli.
> Nevracel bych, nahradil bych emailovou adresou.
Ano, to je velmi dobry napad.
> > g) Samozrejme take ohlida vlastni velikost zpravy.
> Mno kdyz vyhodis prilohy tak je to celkem diskutabilni
No i bez priloh se da nakopirovat do mailu treba 500 kB zdrojak.
> > h) V ramci moznosti by mohla merit miru quotovani a pokud to bude
> > neprimerene, tak zpravu vrati odesilateli.
> Jak definovat
> Tezko se najde stroj, ktery by to dokazal posoudit, mozna jednine pokud =
by
> si vysosl zpravu na kterou bylo odpovezeno, ale skutecne najit dobry
> algoritmus bude IMHO nemozne dalsi viz nize...
Ano, tohle je slozite, proto prave cekam, ze nekdo prijde s nejakym
dobrym napadem - jinak bych to sem preci neposilal...
> > i) Zpravy, ktere nelze poradne analyzovat ci upravit vrati odesilateli=
.
> Pokud to myslis po strance technicke tedy pro format zpravy pak ano ale =
co
> se tyce rozebirani obsahu tak to nevim zda pak pujde do konference vubec
> prispivat.
Myslim po technicke strance, vykuchat z nej prilohy apod. To znamena ze
timto jsem myslel, kdyz prijde nejaky obskurni format, ktery nezname.
> > j) V ramci moznosti take analyzuje subjekt na univerzalni hlasky typu
> > dotaz, pomoc apod. Take zpravy bez subjektu vrati odesilateli.
> No zakazane subjekty by slo mozna trochu definovat jako treba pokud
> obsahuje mimo spojky (a,s,pro,bez,!,?...) jen a jen zakazana slova
> (pomoc,delphi,dotaz) pak vratit.
Ano. Treba na zacatku subjektu nejake paznaky, haldy otazniku, vykriky
pomoc apod. To bychom museli projit historii a domyslet.
> Podle mne bude velmi tezke zadefinovat takove podminky, ktere by dovolil=
y
> zasilat bez problemu prispevky normalnim lidem a zaroven efektivne
> zabranili pruniku "zavadnych" mailu. POkud ten filtr bude nastaven pomer=
ne
Ano, to je pravda. Proto jde o to udelat vhodny kompromis, ktery beznemu
prispevku nevadi a urcite vysoke procento spatnych zprav vykopne nebo
upravi. Najit vhodnou mez se podari. Od te doby, co jsem nasadil filtry
odmitajici HTML maily, prilohy apod., tak se tu v konferenci velmi mnoho
mailu procistilo. Vsak se podivej, ze to docela jde. Nejvetsim problemem
je lidsky faktor - kdyz tu nekdo zacne sproste nadavat a chovat se k
ostatnim neomalene, tak na to tezko udelam filtr :-)
> volne, pak nebude problem napriklad reklamu pomoci vhodne zvolene
> kombinace slov do konference protlacit. P=F6kud ale bude tvrdsi pak na n=
em
Ano, to bude vzdycky mozne. Ale o to preci nejde - jde o to, ze vetsinu
se podari prefiltrovat. S temi jednotlivci si uz poradim nejak rucne...
> urcite vyhori i prispevky, kde nebude ve skutecnosti reklama vubec
S tou reklamou jsi me asi spatne pochopil. Ja nemyslel, ze to bude
filtrovat, kdyz nekdo napise "prodavam delphi" nebo "prodavam rohliky"...
Ja jsem myslel ty reklamni hovadiny, co do mailu pridavaji vzdy na konec
takove ty free mail sluzby typu seznam... To chci odstranit a nebude to
snad zase az takovy problem.
> obsazena. Podobne se da napsat zcela vulgarni a nevhodny prispevek a
> vyhnout se zakazanym sprostym slovum. Qutotvani je rovnez IMHO velky
> problem. Nekdy je potreba nechat prakticky celou puvodni zpravu, nekdy
Ale vzdy plati nejaky pomer. Asi tu nenajdes zadny prispevek, kde by bylo
opodstatnene quotovat 100 radku a pridat 2 radny + podpis. A zase opet,
tady jde o to to vyzkouset a tak nejak najit kompromis... rozumny
kompromis. Nejde mi vubec o nejake tvrde zakroky a tvrda omezeni. Jde mi
ciste o to "odstranit blbost" nebo "odstranit lenost"... Aby takove maily
neobtezovaly ostatni. Jak rikam, uz tim soucasnym omezenym filtrem se to
tu hodne zlepsilo.
> jsou tri radky zbytecne. Jeste k tem sprostym slovum. V jednom projektu =
mi
> diky pouzite konvenci vysly hned dve "sproste" promenne : var HovNO,
> HovYes byte;
> PrINS, PrDEL boolean;
> Jak tady ?
:-) To je sila :-)
> "Cutnu" zdrojak do odpovedi, ta neprojde a co. Je to muj problem ? Neni,
> hledat a prepisovat to nebudu a tazatel mozna prijde o prinosnou odpoved=
.
> Je to samozrejme naprosty extrem, ale obecne si myslim, ze filtrovani
> podle obsahu bude podobne jako ochrany programu vice prekazet
> legalnimu(rozumej slusnemu a pravidla konference dodrzujicimu) uzivateli
> nez piratovi (rozumej cloveku, ktery chce nekoho urazit , byt neslusny
> nebo chce do konfery protlacit svoji reklamu)
Musi se najit nejaky kompromis, vsak ja preci nenapsal "filtruju slovo
hovno"... Prave proto to tu prodiskutujeme. Diky za nazor.
> Jinak samozrejme technicke opatreni (konverze diakritiky, vyhazovani
> priloh a pod.) povazuji za velmi prinosne.
Ja take myslim, ze by to zase opet hodne zlepsilo. Jde mi hlavne o to ani
ne tak ty maily odmitat, jako spis je upravovat.
S pozdravem
Petr Zahradnik, pocitacovy expert
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D
Petr Zahradnik, Computer Laboratory
Obvodova 740/14, P.O. Box 15, 400 07 Usti nad Labem
Telefony: 475 500 610, 475 501 627, 475 511 337
Mobilni telefon: 602 409 601, Fax: 475 511 338
WWW: http://www.clexpert(tec)cz, http://www.zahradnik(tec)cz
E-Mail: clexpert(zv)clexpert(tec)cz, petr(zv)zahradnik(tec)cz
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D
ADMIN: Vyzva na pomoc s konferenci
[*] Ludek ZITA <konference(zv)sales(tec)cz> - 5.4.2003 23:00:18
----- Original Message -----
From: "Petr Zahradnik" <clexpert(zv)clexpert(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Moje pripominky do diskuse k jednotlivym bodum :
> d) Vykope vsechny dalsi nezadouci veci - reklamy, oznameni o tajnem
> obsahu, hlaseni o absenci viru apod.
Jak to budes definovat, uprimne ani nevim co myslis hesly "oznameni o tajnem
obsahu, hlaseni o absenci viru"
dalsi viz nize...
> e) V ramci moznosti dale ohlida urcite fraze nebo slova (sprosta,
> nezadouci apod.), takove maily vrati odesilateli.
Jak definovat
dalsi viz nize...
> f) V ramci moznosti ohlida nejednoznacnosti v poli FROM (slova jako
> Delphi konference apod.), takove maily vrati odesilateli.
Nevracel bych, nahradil bych emailovou adresou.> g) Samozrejme take ohlida vlastni velikost zpravy.
Mno kdyz vyhodis prilohy tak je to celkem diskutabilni
> h) V ramci moznosti by mohla merit miru quotovani a pokud to bude
> neprimerene, tak zpravu vrati odesilateli.
Jak definovat
Tezko se najde stroj, ktery by to dokazal posoudit, mozna jednine pokud by
si vysosl zpravu na kterou bylo odpovezeno, ale skutecne najit dobry
algoritmus bude IMHO nemozne
dalsi viz nize...
> i) Zpravy, ktere nelze poradne analyzovat ci upravit vrati odesilateli.
Pokud to myslis po strance technicke tedy pro format zpravy pak ano ale co
se tyce rozebirani obsahu tak to nevim zda pak pujde do konference vubec
prispivat.
> j) V ramci moznosti take analyzuje subjekt na univerzalni hlasky typu
> dotaz, pomoc apod. Take zpravy bez subjektu vrati odesilateli.
No zakazane subjekty by slo mozna trochu definovat jako treba pokud obsahuje
mimo spojky (a,s,pro,bez,!,?...) jen a jen zakazana slova
(pomoc,delphi,dotaz)
pak vratit.
*********************************
Obecne poznamky k "obsahovemu" filtru:
Podle mne bude velmi tezke zadefinovat takove podminky, ktere by dovolily
zasilat bez problemu prispevky normalnim lidem a zaroven efektivne zabranili
pruniku "zavadnych" mailu.
POkud ten filtr bude nastaven pomerne volne, pak nebude problem napriklad
reklamu pomoci vhodne zvolene kombinace slov do konference protlacit. P�kud
ale bude tvrdsi pak na nem urcite vyhori i prispevky, kde nebude ve
skutecnosti reklama vubec obsazena. Podobne se da napsat zcela vulgarni a
nevhodny prispevek a vyhnout se zakazanym sprostym slovum.
Qutotvani je rovnez IMHO velky problem. Nekdy je potreba nechat prakticky
celou puvodni zpravu, nekdy jsou tri radky zbytecne.
Jeste k tem sprostym slovum. V jednom projektu mi diky pouzite konvenci
vysly hned dve "sproste" promenne :
var HovNO, HovYes byte;
PrINS, PrDEL boolean;
Jak tady ?
"Cutnu" zdrojak do odpovedi, ta neprojde a co. Je to muj problem ? Neni,
hledat a prepisovat to nebudu a tazatel mozna prijde o prinosnou odpoved.
Je to samozrejme naprosty extrem, ale obecne si myslim, ze filtrovani podle
obsahu bude podobne jako ochrany programu vice prekazet legalnimu(rozumej
slusnemu a pravidla konference dodrzujicimu) uzivateli nez piratovi (rozumej
cloveku, ktery chce nekoho urazit , byt neslusny nebo chce do konfery
protlacit svoji reklamu)
Jinak samozrejme technicke opatreni (konverze diakritiky, vyhazovani priloh
a pod.) povazuji za velmi prinosne.
Ludek
REPEAT-UNTIL (was: Promazani TStringLIst)
[*] Ludek ZITA <konference(zv)sales(tec)cz> - 5.4.2003 23:37:48
----- Original Message -----
From: "Jiri Foldyna" <jiri.f(zv)avizo(tec)cz>
> Ahoj,
>
> to mi pripomina jednoho prekladatele, ktery prekladal do cestiny
pocitacove
> manualy z anglictiny a prelozil i zdrojaky v Pascalu :-))
> Btw. ty si pri programovani prekladas zdrojak do cestiny ? :-))))))
>
Ahoj.
Chlapi pohadejte se jeste nad timhle prekladem :
while condition do make
repeat make until condition
prekladac Eurotran prelozil :
zatimco podminka delat delat
opakovat delat do okamziku nez podminka
Ja fakt nevim co mate za problem. Uz preklad jazyka jasne rika o co go a
proste jednou potrebuju "delat" alespon jednou a pouziji repeat-until a
podruhe potrebuju delat pouze pokud (a dokud) plati podminka a pouziju
while. Chyba se da udelat kdekoliv.
Tvrzeni , ze protoze casteji potrebuju "zatimco podminka delat delat" a tak
to mam asi vice zmaknute a pak mozna muzu udelat v pripade ze potrebuju
"opakovat delat do okamziku nez podminka" udelat spise chybu je sice hezke,
ale opravdu opravdu na hwno.
Ludek
OT: prezerac obrazkov - VYRIESENE
[*] alex <bugala_a(zv)inMail.sk> - 5.4.2003 23:28:14
Ahojte,
prezerac obrazkov vyrieseny, vsetkym dakujem!
Alex
-----------------------------------------------------
Bugala Alex - stredoskolak
Win2000 Prof CZ + SP2 + Delphi 3 Client/Server Suite
----------
Teraz uz domena .SK pre kazdeho uplne ZADARMO.
Viac info na: http://www.slovaknet.sk/sk-zadarmo.asp
Jak na automaticke doplnovani v search formu.
[*] Josef Pol�k <Josef.Polak(zv)clnet(tec)cz> - 5.4.2003 18:41:18
Ahoj,
Ve vyhledavacim dialogu pouzivam std. TComboBox (csDropDown), kde
uzivatel zada hledany vyraz, historii ukladam rucne do .ini souboru.
Chtel jsem se zeptat, zda neexistuje jednodussi zpusob ukladani
historie, pripadne zda se da nejak pouzit AutoComplete pro formulare z
MSIE.
Diky
D7, WXP.IdTCPServer - prirazeni OnExecute
[*] petr.spurny <peta.spurny(zv)tiscali(tec)cz> - 5.4.2003 17:05:30
Dobry den,
pouzivam komponenty Indy, ted konkretne IdTCPServer.
Potreboval bych "manualne" priradit proceduru k udalosti OnExecute, jenze
nevim jak.
Mam proceduru procedure TCPServerExecute(AThread: TIdPeerThread);
jenze proste prirazeni TCPServer.OnExecute := TCPServerExecute; nefunguje,
protoze OnExecute je typu TIdServerThreadEvent.
Jak to mam provest? Predem diky za rady a jsem zacatecnik, takze prosim
nekamenovat.
:: petr.spurny ::
:: peta.spurny(zv)tiscali(tec)cz ::
Podivne chovani TTreeView
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 5.4.2003 14:39:57
Protoze TopItem znamena prvni viditelnou polozku v TTreeView. A to
neni zrovna nejspolehlivejsi ukazatel pro mazani.
S tim TreeView.Items.Clear jsi mne predbehl s odpovedi. To je ta
spravna cesta
--
Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
5.4.2003 Miroslav Dolecek:
> Tak se zda, ze jsem to vyresil pouzitim TreeView.Items.Clear (snad
> jsem klikal dostatecne dlouho :-)). Nicmene mi stejne neni jasne proc
> puvodni TreeViewHw.TopItem.Delete nefungovala uplne korektne. Pokud to
> nekdo vi, tak prosim napiste.
Podivne chovani TTreeView
[*] Miroslav Dolecek <dolecek(zv)informatics.muni(tec)cz> - 5.4.2003 12:48:06
V sobota, 5. dubna 2003, 11:52, Miroslav Dolecek napsal(a):
> mam procedurku, ktera mi z TTreeView vymaze vsechny uzly pomoci
> TreeViewHw.TopItem.Delete a nasledne vytvori novou stromovou strukturu
> podle aktualniho stavu data z DB. Vse mi funguje ok, ale kdyz je tato
> procedura volana casteji po sobe, tak casem se stane, ze prikaz
> TreeViewHw.TopItem.Delete se neprovede, protoze TopItem je nil, i kdyz
> strom neni prazdny. Vysledek je ten, ze se vytvori duplicitni podstrom
> primo pod Root. Velmi dlouho jsem se pokousel najit stav, kde
> se to takto chova, ale neuspesne. Prijde mi, ze to nastava zcela
> nedeterministicky. Je mi jasne, ze je to popsane celkem zesiroka, ale
> vic info proste nemam. Tak se chci jen zeptat, jestli se nekdo
> nesetkal s podobnym problemem. Ze by byla chyba v komponente TTreeView
> nepredpoklam, ale nevylucuji :-).
Tak se zda, ze jsem to vyresil pouzitim TreeView.Items.Clear (snad
jsem klikal dostatecne dlouho :-)). Nicmene mi stejne neni jasne proc
puvodni TreeViewHw.TopItem.Delete nefungovala uplne korektne. Pokud to
nekdo vi, tak prosim napiste.
--
Miroslav Dolecek <dolecek(zv)fi.muni(tec)cz>
Podivne chovani TTreeView
[*] Miroslav Dolecek <dolecek(zv)informatics.muni(tec)cz> - 5.4.2003 11:52:05
Ahoj,
mam procedurku, ktera mi z TTreeView vymaze vsechny uzly pomoci
TreeViewHw.TopItem.Delete a nasledne vytvori novou stromovou strukturu
podle aktualniho stavu data z DB. Vse mi funguje ok, ale kdyz je tato
procedura volana casteji po sobe, tak casem se stane, ze prikaz
TreeViewHw.TopItem.Delete se neprovede, protoze TopItem je nil, i kdyz
strom neni prazdny. Vysledek je ten, ze se vytvori duplicitni podstrom
primo pod Root. Velmi dlouho jsem se pokousel najit stav, kde
se to takto chova, ale neuspesne. Prijde mi, ze to nastava zcela
nedeterministicky. Je mi jasne, ze je to popsane celkem zesiroka, ale
vic info proste nemam. Tak se chci jen zeptat, jestli se nekdo
nesetkal s podobnym problemem. Ze by byla chyba v komponente TTreeView
nepredpoklam, ale nevylucuji :-).
Diky
Delphi 7, Build 4.453
--
Miroslav Dolecek <dolecek(zv)fi.muni(tec)cz>
REPEAT-UNTIL (was: Promazani TStringLIst)
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 5.4.2003 00:01:25
From: "Erik Salaj" <info(zv)winsoft.sk>
> len ci to niekde najdem. Preto som chcel radsej
> linky na internet, ze si to bez problemov mozem
> precitat.
Zatim jsem Ti nasel alespon tu IEC normu: nebyla to IEC 860, ale skoro:
60880.
Samozrejme, ze se to jako standard na internetu nevali zadarmo. Skupiny
norem/knih souvisejicich s bezpecnosti SW a jeho navrhem (v oblasti JE)
lze najit resp. objednat treba tady:
http://www.12207.com/safety.htm
http://www.12207.com/design.htm
Tu 60880 mozna mam nekde ve sklepe, mozna jen jeji neautorizovany preklad do
cestiny, ktery jsem mel oponovat, ale nevim, protoze jsem v puvodnim
zamestani skoncil a mezitim se 2x stehoval, takze cert vi, kde je ji konec.
***
V souvislosti s problematikou jaderne bezpecnosti jsem narazil i na tu
zminovanou knihu, treba se mi povede ve volnych chvilich vypatrat alespon
jeji autory, presny nazev a vydavatele.
HTH, pf
ADMIN: Vyzva na pomoc s konferenci
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 04.4.2003 23:31:06
Ahoj lidi,
ted jsem tu prosel posledni 3 dny prispevku a vidim, ze se tu opet
rozmaha bezvladi. Nevim, jak je mozne, ze sem nekdo (a nechci ukazovat) v
pohode tyden pise s diakritikou, k tomu se k ostatnim chova jako buran,
urazi je, a je v uplne pohode...
Nicmene, kvuli tomu nepisi. Potrebuji pomoc, snad se tu najdou nejaci
chytri dobrovolnici. Jestli jste si vsimli, od pocatku roku bezi
konference trochu jinym zpusobem a to tak, ze kazdy prispevek pred
odeslanim do listserveru projde jakymsi filtrem, ktery odesilateli vrati
nevyhovujici prispevky (HTML maily, maily s prilohami, maily s
diakritikou v subjektu apod.). Jenze tento filtr neni vsemocny.
Rozhodl jsem se udelat lepsi filtrovaci aplikaci, ale nemam na to cas,
abych ji udelal komplet celou. Proto se obracim na vsechny, kdo by nejaky
cas a napady mel, mohl by pomoci. Takhle si to predstavuji:
1. Aplikace pobezi jako NT service. Jako spolehliva service. Kdyz nebude
spolehliva, nepujde konference, to je snad jasne. Takze jednoduchy,
bezpecny a prehledny kod, zadne prasarny... Aplikace bude napsana asi s
nejvetsi pravdepodobnosti v Delphi.
2. Aplikace bude sosat prichozi zpravy z POP3 (IMAP4) serveru (na lokale)
a dale je bude zase odesilat pres SMTP server (na lokale) do listserveru,
ktery zajisti jejich rozeslani prihlasenym ucastnikum.
3. A ted co aplikace bude s temi prispevky delat - bude je analyzovat a
upravovat takto:
a) Z hlavicky odstrani veskerou diakritiku, tj. dekoduje hlavicky,
prevede do ASCII (FROM, SUBJECT).
b) Z tela zpravy odstrani veskerou diakritiku, tj. dekoduje telo, prevede
do ASCII.
c) Vykope vsechny prilohy - binarni, HTML, RTF, VCARDS apod.
d) Vykope vsechny dalsi nezadouci veci - reklamy, oznameni o tajnem
obsahu, hlaseni o absenci viru apod.
e) V ramci moznosti dale ohlida urcite fraze nebo slova (sprosta,
nezadouci apod.), takove maily vrati odesilateli.
f) V ramci moznosti ohlida nejednoznacnosti v poli FROM (slova jako
Delphi konference apod.), takove maily vrati odesilateli.
g) Samozrejme take ohlida vlastni velikost zpravy.
h) V ramci moznosti by mohla merit miru quotovani a pokud to bude
neprimerene, tak zpravu vrati odesilateli.
i) Zpravy, ktere nelze poradne analyzovat ci upravit vrati odesilateli.
j) V ramci moznosti take analyzuje subjekt na univerzalni hlasky typu
dotaz, pomoc apod. Take zpravy bez subjektu vrati odesilateli.
k) Presnou kopii prichozi zpravy vcetne vysledne zpravy ulozi do logu za
ucelem archivace a take pozdejsiho zjisteni, kdyz bude nejaky problem a
spatne se prispevek upravi (pro kontrolu).
Tato aplikace bude rozhodne prinosem. Za prve stavajici filtr je velmi
ucinny, nicmene neni vsemohouci a prochazi stale mnoho spatnych
prispevku. Za druhe bude hlavne prispevky modifikovat, tj. propusti
vetsinu spatnych zprav s tim, ze je upravi do prijatelne podoby
(odstraneni diakritiky, odstraneni priloh, ostraneni HTML apod.), takze
budou moci prispivat i ti, kteri nevedi, co je to HTML mail, a neumi nebo
neraci si precist pravidla. Je otazkou, zda je toto prinosem, ale ja
myslim, ze je to dobra myslenka.
Jakekoliv dalsi napady, postrehy a hlavne pomoci jsou vitany - tady v
konferenci pod timto subjektem. Pro tento thread jsou odpovedi na ADMIN
zpravu do konference v poradku.
Dekuji a jsem s pozdravem
Petr Zahradnik, pocitacovy expert
=======================================================
Petr Zahradnik, Computer Laboratory
Obvodova 740/14, P.O. Box 15, 400 07 Usti nad Labem
Telefony: 475 500 610, 475 501 627, 475 511 337
Mobilni telefon: 602 409 601, Fax: 475 511 338
WWW: http://www.clexpert(tec)cz, http://www.zahradnik(tec)cz
E-Mail: clexpert(zv)clexpert(tec)cz, petr(zv)zahradnik(tec)cz
ICQ: 21215917
=======================================================
porovnanie dvoch recordov rovnakeho typu
[*] tondrej(zv)t-online.de (TOndrej) - 4.4.2003 22:33:58
> alebo si napis porovnavaciu funkciu podobnu tejto:
>
> function EqualMyRec(Rec1, Rec2: TMyRec): Boolean;
spravne to malo byt
function EqualMyRec(const Rec1, Rec2: TMyRec): Boolean;
Sorry, pisal som to narychlo.
TOndrej
RichEdit a doublebuffered
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 4.4.2003 22:14:56
From: "V�t Kr�ka" <vit.krska(zv)del(tec)cz>
> kdyz nastavim u RichEditu BoubleBuffered na true tak se mi v nem zobrazuje
> jen kurzor, text tam sice je, ale neni videt. nevite nekdo co s tim D5/W2000
Znamy 'problem', je to dano implementaci richeditu, asi s tim mnoho neudelas.
Petr Vones
problemy s verzi ComCtl vz. ImageList
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 4.4.2003 22:18:46
From: "Ji�� Baudy�" <baudys(zv)duplikace(tec)cz>
> Do image listu se na��taj� obr�zky(ek) z resource jedn� se o 185 obr. o
> velikosti max 120x120 bod�. To znamen� max 22200x120 bod�.
K cemu se tyto obrazky presne pouzivaji, v komponentach TTreeView, TListView,
TToolBar apod ? Pokud ne, tak je to presne ta situace o ktere jsem psal, kde
vyvojari pouzivaji TImageList k tomu, k cemu neni urcen. 185 obrazku 120x120
uz neni tak malo, takze to muze byt problem na Windows 9x. Pak je treba hledat
jine reseni, napriklad to ulozit jako data ktera se nahravaji to TBitmap apod.
Petr Vones
ADMIN: REPEAT-UNTIL (was: Promazani TStringLIst)
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 04.4.2003 22:16:11
Puvodni zprava, kterou napsal Ond=F8ej Tu=E8n=FD dne 4 Apr 2003:
> P=E1r minut jsem p=F8em=FD=B9lel, jakou v=ECt=B9=ED jedovatost zvolit pr=
o odpov=EC=EF, ale
> =BE=E1dn=E1 vhodn=E1 m=EC nenapad=E1. Vede=B9 1:0, jen tak d=E1l synku ;=
-)
Synku, ja jsem par minut premyslel, co s tebou. Ty jsi tu tak novy, ze
sis jeste neracil precist pravidla, co? Tak si nejprve precti pravidla a
zacni je hodne rychle dodrzovat.
S pozdravem
Petr Zahradnik, pocitacovy expert
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D
Petr Zahradnik, Computer Laboratory
Obvodova 740/14, P.O. Box 15, 400 07 Usti nad Labem
Telefony: 475 500 610, 475 501 627, 475 511 337
Mobilni telefon: 602 409 601, Fax: 475 511 338
WWW: http://www.clexpert(tec)cz, http://www.zahradnik(tec)cz
E-Mail: clexpert(zv)clexpert(tec)cz, petr(zv)zahradnik(tec)cz
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D
Dotaz ???
[*] Petr Vones <pvones(zv)mbox.vol(tec)cz> - 4.4.2003 22:02:31
From: "intranet" <intranet(zv)iss-copbrno(tec)cz>
> Vyhlasi to neplatnou operaci - KRNL386.exe
Pak je to patrne neco s grafickymi daty (ikony apod.) Podivej se Mericem
prostredku (soucast instalace Windows 9x) jestli tam moc nedochazeji zdroje.
Jinak pis prosimte ve vlastnim zajmu nejake vystiznejsi subjekty.
Petr Vones
Promazani TStringLIst
[*] Erik Salaj <info(zv)winsoft.sk> - 04.4.2003 18:47:54
> >> loop
> >> ...
> >> exit when <podm�nka>;
> >> ...
> >> exit when <podm�nka>;
> >> ...
> >> end loop;
>
> > nepaci sa mi to, exit je len "vylepsene" goto
>
> :-) To nen� goto hochu. Z�kladn� vlastnost� goto je to, �e se mu d�v�
> n�v�t� c�le skoku, kter� si program�tor do k�du um�st� t�m�� libovoln�.
> EXIT je p��kaz pro (ne)podm�n�n� ukon�en� cyklu, to je n�co dramaticky
> odli�n�ho.
ok, tak sa pozrime, co exit vlastne je:
1. sekvencia to zrejme nie je
2. selekcia takisto nie
3. iteracia tiez nie
a kedze sa tam skace za cyklus, tak mi vychadza, ze je to skok,
ktory sa sice vola inak ako goto, nema navestie (lebo je urcene
implicitne) ale je to skok
Problem prezentovaneho cyklu vidim v tom:
1. ked cyklus skonci nevies, ktora z podmienok bola splnena.
Vies len to, ze niektora z podmienok plati, nevies ktora.
2. niektore prikazy cyklu iteruju n-krat a niektore n-1 krat
(a to este sa meni v zavislosti na tom, ktora z podmienok
bola splnena)
3. povedal by som, ze tento prikaz nesplna podmienku jedneho
vstupu a jedneho vystupu, ale ze ma viac vystupov (kazdy
exit je vystupom z cyklu)
---------------------------------------------------
Inac, tiez sa zaoberam kompilatormi a kriticka podla mojho
nazoru z hladiska moznej optimalizacie kodu je interna
reprezentacia programu. Pre zaujimavost ja mam taku
reprezentaciu, ktora vobec neobsahuje klasicku iteraciu
(cyklus), samozrejme ani ziadne skoky.
Erik
REPEAT-UNTIL (was: Promazani TStringLIst)
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 4.4.2003 18:21:44
> to mi pripomina jednoho prekladatele, ktery prekladal do cestiny
pocitacove
> manualy z anglictiny a prelozil i zdrojaky v Pascalu :-))
> Btw. ty si pri programovani prekladas zdrojak do cestiny ? :-))))))
neprekladam. Zasadne pisu celej zdrojak v anglictine (ne ze bych ji
nejak skvele ovladal - ale kdyz nekde v nejkem zdrojaku vidim
promennou UkazatelNaNeco, pripada mi to stejne jako kdyby nekdo
nadaval v kostele).
Chtel jsem jen rict, ze ten kdo vymyslel syntaxi Pascalu, rozhodne
nepremyslel o tom, jestli zpusobi nejake problemy neanglickemu svetu.
Anglican se samozrejme vyznam tech klicovych slov ucit nemusi.
D. Toman
REPEAT-UNTIL (was: Promazani TStringLIst)
[*] Jiri Foldyna <jiri.f(zv)avizo(tec)cz> - 4.4.2003 17:59:24
> Po prelozeni onech anglickych sluvek samozrejme konstrukce obou
> cyklu naprosto srozumitelna:
>
> dokud X < Y delej
> begin
> neco
> end;
>
> opakuj
> neco
> dokud_neplati X<Y;
> D. Toman
Ahoj,
to mi pripomina jednoho prekladatele, ktery prekladal do cestiny pocitacove
manualy z anglictiny a prelozil i zdrojaky v Pascalu :-))
Btw. ty si pri programovani prekladas zdrojak do cestiny ? :-))))))
Zdravim
Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz
REPEAT-UNTIL (was: Promazani TStringLIst)
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 4.4.2003 17:42:59
>Jina vec je, ze pokud jsou protichudne (a to
> je pripad ukoncovacich podminek cyklu WHILE-DO a REPEAT-UNTIL u
Pascalu),
> tak skutecne zhorsuji jak citelnost, tak zvysuji pravdepodobnost
chyby pri
> programovani.
BTW: s uspechem pouzivam repeat/until ke zlepseni citelnosti kodu:
Repeat
...
if Failed(x) then
Break;
...
if Failed(Y) then
Break;
....
Until True;
Vysledny kod je mnohem srozumitelnejsi nez soustava vnorenych IFu.
D. Toman
REPEAT-UNTIL (was: Promazani TStringLIst)
[*] Dalibor Toman <dtoman(zv)fortech(tec)cz> - 4.4.2003 17:48:18
>
> je to velmi proste :-) cyklus while skonci, jakmile ma iteracni
podminka
> hodnotu false, cyklus repeat skonci, jakmile ma iteracni podminka
hodnotu
> true, tedy podminky pro ukonceni cyklu jsou opacne - protichudne.
>
Po prelozeni onech anglickych sluvek samozrejme konstrukce obou
cyklu naprosto srozumitelna:
dokud X < Y delej
begin
neco
end;
opakuj
neco
dokud_neplati X<Y;
Mozna kdyby se autor pascalu tenkrat jinak vyspal, byl by tady misto
repeat/until cyklus do/while. Ten (diky neotocene logice podminky) by
byl (alespon pro mne) opravdu zdrojem mensiho poctu problemu :-)
D. Toman
REPEAT-UNTIL (was: Promazani TStringLIst)
[*] Lubor M. <l.martinsky(zv)softdec(tec)cz> - 4.4.2003 17:42:36
Je neuveritelne kolik tim dokazete vsichni stravit casu.
Pripomina mi to parlament. Nekdo rekne jako postulat
absolutni nesmysl a dalsi mu to hodiny vyvraceji.
REPEAT-UNTIL je necitelne jedine snad pro dyslektika. (Bez toho, ze bych
se chtel nekoho dotknout).
Lubor
REPEAT-UNTIL (was: Promazani TStringLIst)
[*] Jiri Foldyna <jiri.f(zv)avizo(tec)cz> - 4.4.2003 17:18:18
Ahoj,
> Nechapu, co se ti zda protichudne. Repeat-until probehne alespon
> jednou, a jsou pripady, kdy je to vhodne, nerku-li potrebne. Pak je
> tento cyklus spravne pouzit, namisto sloziteho vymysleni podminek pro
> while-do, aby tento probehl alespon jednou. Citelnost je tedy jasna -
> najdu-li konstrukci repeat-until, ma probehnout alespon jeden cyklus.
> A napsat program prasacky lze i bez tohoto.
je to velmi proste :-) cyklus while skonci, jakmile ma iteracni podminka
hodnotu false, cyklus repeat skonci, jakmile ma iteracni podminka hodnotu
true, tedy podminky pro ukonceni cyklu jsou opacne - protichudne.
Zdravim
Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz
porovnanie dvoch recordov rovnakeho typu
[*] Peter Vlkovic <vlkovic(zv)minv.sk> - 04.4.2003 17:01:49
> ***jedine pouzit ShortString - stary pascalovsky o delce 255 znaku. Nebo
> primo string[20] pro predem znamou velikost. Tyto stringy v tomto recordu
> budou spravne
Ahoj,
v pripade, ak pri pouzivani takehoto recordu priradim
kratsi retazec nez tam bol predtym, nemam zarucenu
zhodu pri porovnavani pomocou CmpMem, pretoze tato
funkcia mi bude porovnavat celu deklarovanu dlzku
retazca (t.j. 255 resp. 20 znakov).
To znamena, ze po kazdom priradeni by bolo vhodne
zaroven vyplnit nevyuzity priestor nejakou hodnotou
napr. znakom #0.
Vlkovic
REPEAT-UNTIL (was: Promazani TStringLIst)
[*] Zbysek Hlinka <hlinka(zv)hlinka(tec)cz> - 04.4.2003 16:58:57
On 4 Apr 2003 at 16:33, Jiri Foldyna wrote:
> Jina vec je, ze
> pokud jsou protichudne (a to je pripad ukoncovacich podminek cyklu
> WHILE-DO a REPEAT-UNTIL u Pascalu), tak skutecne zhorsuji jak
> citelnost, tak zvysuji pravdepodobnost chyby pri programovani.
Nechapu, co se ti zda protichudne. Repeat-until probehne alespon
jednou, a jsou pripady, kdy je to vhodne, nerku-li potrebne. Pak je
tento cyklus spravne pouzit, namisto sloziteho vymysleni podminek pro
while-do, aby tento probehl alespon jednou. Citelnost je tedy jasna -
najdu-li konstrukci repeat-until, ma probehnout alespon jeden cyklus.
A napsat program prasacky lze i bez tohoto.
S pozdravem
Zbysek Hlinka
REPEAT-UNTIL (was: Promazani TStringLIst)
[*] Jiri Foldyna <jiri.f(zv)avizo(tec)cz> - 4.4.2003 16:33:34
Ahoj,
> � dost�v�me se tvrd� do oblasti osobn�ch ur�ek.
pokud jsi moji poznamku pochopil jako osobni urazku, tak prosim prijmi
omluvu, nemel jsem v umyslu te urazit. Jen jsem se v praxi setkal se
spoustou pripadu, kdy se neznalost maskuje radoby vtipnymi glosami a snahou
odvest pozornost od podstaty problemu.
> K tomu t��d�n�: akademici zpravidla nech�pou, �e t��d�n�,
> kter� bylo hojn�
> pou��van� p�ed p�r des�tkami let, dnes ji� m� jen velmi m�lo
> aplika�n�ch
> oblast�. Polo� si ot�zku, jak �asto naraz� na data a zejm�na
> na jak velk�
> objem dat, kter� mus� skute�n� ru�n� t��dit. Aplikac�, kde
> takov�ch dat je
> natolik v�znamn� objem, �e m� cenu tr�vit �as optimalizov�n�m jejich
> t��d�n�, u� moc nezb�v� - file managery, sort textov�ho souboru v
> program�torsk�m editoru, ... te� si nedok�u vzpomenout na
> ��dn� dal��.
Na toto je velmi jednoducha odpoved - zrovna vcera jsem resil slozitejsi
trideni ve stromu s cca 10000 uzly. Dotaz na SQL server - odezva pres 10
sec, rucni setrideni - odezva < 1 sec. Pouzil jsem quick sort, protoze vim,
odkud jej copy/pastnout :-)). Kdysi davno, na pomalejsich pixlach jsem se
jej naucil, protoze je v praxi skutecne vyraznejsi rychlejsi nez bubble, a
nemam duvod jej nepouzit. A zda ma vyznam provadet rychlostni optimalizaci ?
Zalezi na tom, jake delas aplikace. Ja delam vyrobni systemy, a tam cas
hraje roli, protoze jde o penize. Pokud na operaci, ktera se provadi 60x za
hodinu, usetrim 9 sekund, usetril jsem ve skutecnosti 9 minut z kazde hodiny
kazde operatorce. Uz pri sedmi operatorech se to vyplati, protoze neni treba
prijmout osmeho. A to jde jen o nahradu ORDER BY vlastnim tridenim.
Jako akademicke mi naopak pripadaji pokusy dumat nad strukturou konstrukci
programovacich jazyku. Bud funguji, a pak se je musim naucit, nebo nefunguji
a je zbytecne o nich debatovat. Jina vec je, ze pokud jsou protichudne (a to
je pripad ukoncovacich podminek cyklu WHILE-DO a REPEAT-UNTIL u Pascalu),
tak skutecne zhorsuji jak citelnost, tak zvysuji pravdepodobnost chyby pri
programovani.
Zdravim
Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz
OT: REPEAT-UNTIL (was: Promazani TStringLIst)
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 4.4.2003 16:48:17
>> V cykle for sa vyhodnoti pocet iteracii iba raz, pred
>> vykonanim cyklu.
>
> :) obecny for(initializers; expression; iterators;){ statement } se
> samozrejme vykonava porad
Mal som na mysli konkretne cyklus for definovany v Delphi.
Kedze diskutujeme na konferencii venovanej Delphi, nepokladal som za
potrebne to blizsie specifikovat.
> Ale rad bych tu diskuzi vratil na zpet na zem. while = repeat = for,
> vsechno je to prece to samy, zapsane v bledemodrem.
Ako som uz uviedol, v Delphi sa cyklus for zasadne lisi od while a repeat.
Je to popisane v dokumentacii Delphi Language Reference.
HTH
TOndrej
porovnanie dvoch recordov rovnakeho typu
[*] Tomas Rosa <trosa(zv)seznam(tec)cz> - 04.4.2003 16:32:29
>Pokud budes mit v tom recordu treba string tak v te pameti je pouze pointer
>na pamet kde je ten string.
***jedine pouzit ShortString - stary pascalovsky o delce 255 znaku. Nebo
primo string[20] pro predem znamou velikost. Tyto stringy v tomto recordu
budou spravne
> > Resenim by mozna mohlo byt porovnani obsahu pameti. Zkus se podivat na
> > funkci CompareMem()
> > --
> > Jan Fiala
S pozdravem
Tomas Rosa
------------------------=[ pinknet on every screen]=-----------------------
Tomas Rosa
Tomas.Rosa(zv)PinkNet(tec)cz http://www.pnws.org
+420 602 860 704
PinkNet Web Server for Win32 - FREEWARE www.pnws.org
---------------------------------------------------------------------------
OT: REPEAT-UNTIL (was: Promazani TStringLIst)
[*] Tomas Rosa <trosa(zv)seznam(tec)cz> - 04.4.2003 16:29:06
Ano naprosto souhlasim a zasnu nad tim co tady nekteri "pani" programatori
smazi za balast o teoriich, vedecke literature, urazeni se navzajem a podobne.
Je jasne ze se da jeden problemek ci konstrukce zapsat mnoha zpusoby. Take
by jste tady mohli hovorit o tom, ze if se da zapsat jako case a naopak. Ze
procedura je vlastne funknce s vysledkem void, a podobne veci, ktere se
daji napsat ruzne a take ruzne vystetlit, ale vzdy udelaji to same nebo
alespon podobne.
Mame Delphi. To se zrodilo z Pascalu a ten jak vsichni dobre vime ma
konstrukce REPEAT a WHILE. Nevim co tady resite = ma je obe a obe funguji.
Zadna neni lepsi nebo horsi, kazda ma svoji malickou specifiku. Pokud se na
to podivam z ciste logickeho hlediska vyjde mi:
pro REPEAT:
repeat (delej)
<prikazy>
until ABC. (dokud)
tedy opakuje dokud je splnena podminka. Podstatne je ze alespon jednou to
proved a pak se teprve rozhodni co s tim. Naprosto jednoduche a trivialni.
pro WHILE:
while ABC do (dokud plati ABC delej)
begin
<prikazy>
end;
tedy pokud plati podminka, proved to a opakuj to dokud plati. To znamena,
ze pokud neplati, neproved to ani jednou.
Nechapu tedy co tady resite? ze se kazde na napsat jako to druhe? Da - ano
mate pravdu. Ale proc bych to delal? Mam dve konstrukce a proto je pouzivam
obe. Kazda je prehledna a pokud nekde vidim REPEAT, vim ze se to provede
alespon jednou a pokud WHITE, ze se to nejprve zkontroluje. Tak proc bych
si ztezoval praci vymejslenim jiz vymysleneho.
Pripada me, ze se asi musite v praci hodne nudit, pokud mate cas toto resit.
Pokud bych mel odpovedet na zcela puvodni dotaz - pak:
for n:=Items.Count-1 downto 0 do if Items[n]='xxx' then Items.Delete(n);
-> je to jedna radka a pokud nekdo namita ze se to da resit jinak - ano,
souhlasim da. Toto je jedno z reseni ktere splnuje podle me to co to delat
a hlavne to vyuziva cyklus k tomu urceny. Ano = prochazim vsechny prvky
(predem znamy pocet), krok 1 a proto pouziju FOR. Ale predpokladam, ze
takto by to resila vetsina. Ti ostatni si jen chteli pokecat v Delphi
konferenci mozna i o teorii relativity ci jadernych reaktorech (jestli jsem
si dobre vsiml, ze to nekdo zminil)
>Ale rad bych tu diskuzi vratil na zpet na zem. while = repeat = for,
>vsechno je to prece to samy, zapsane v bledemodrem.
>
>Pokud vim, ze mam nejakou inicializace pred while, ktera je stejna jako
>vlastni iteracni sekvence, proc to nezapsat jako repeat?
>
>Naopak mi prijde nachylnejsi k chybam, kdyz mam za sebou dva useky
>stejneho kodu, potom jeden prepisu, nevsimnu si, ze je tam jeste ta
>inicializace pred while a problem je na svete. S pozdravem
Tomas Rosa
------------------------=[ pinknet on every screen]=-----------------------
Tomas Rosa
Tomas.Rosa(zv)PinkNet(tec)cz http://www.pnws.org
+420 602 860 704
PinkNet Web Server for Win32 - FREEWARE www.pnws.org
---------------------------------------------------------------------------
OT: REPEAT-UNTIL (was: Promazani TStringLIst)
[*] Hampel, Radim <rhampel(zv)infinity(tec)cz> - 4.4.2003 11:07:37
> V cykle for sa vyhodnoti pocet iteracii iba raz, pred vykonanim cyklu.
:) obecny for(initializers; expression; iterators;){ statement } se
samozrejme vykonava porad
Ale rad bych tu diskuzi vratil na zpet na zem. while =3D repeat =3D for,
vsechno je to prece to samy, zapsane v bledemodrem.=20
Pokud vim, ze mam nejakou inicializace pred while, ktera je stejna jako
vlastni iteracni sekvence, proc to nezapsat jako repeat?
Naopak mi prijde nachylnejsi k chybam, kdyz mam za sebou dva useky
stejneho kodu, potom jeden prepisu, nevsimnu si, ze je tam jeste ta
inicializace pred while a problem je na svete.
Radim
FOR - NEXT (pro zmenu)
[*] Daniel Frantik <frantik(zv)telpro(tec)cz> - 4.4.2003 15:56:56
To je nesmysl. Forcyklus neprobehne pr Count=0 vubec. Rekl bych, ze problem
bude nekde jinde. (napr. List=nil atd.)
Danik
> -----Original Message-----
> From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
> Behalf Of Jan Harman
> Sent: Friday, April 04, 2003 3:10 PM
> To: delphi-l(zv)clexpert(tec)cz
> Subject: FOR - NEXT (pro zmenu)
>
> Ahoj, ted pro zmenu trochu cyklus for - next.
>
> for i := 0 to list.Count-1 do
> list[i]...
>
> toto mi udela chybu, ale JEN NEKDY, resp. nekdy neudela, takze
> pouzivam toto:
>
> if list.Count > 0 then
> for i := 0 to list.Count-1 do
> list[i]...
>
> a to uz funguje bezpecne. Ale PROC mi prvni zapis udela chybu jen
> nekdy? Jak funguje for-next? Pokud je za "to" uvedeno mensi cislo
> nez pri inicializaci tak se cyklus provadi nebo ne? Zda se ze
> nekdy to jednou probehne. Vite o tom nekdo neco?
> Diky. Honza
>
> --
> Ziskejte kvalitu, kterou si zaslouzite. Za minimalni mesicni
> poplatek vam nabizime Antivir, Antispam nebo dalsi kapacitu pro
> vas Mailbox. Vice na: http://sluzby.volny(tec)cz/product/mailpaid/
>
FOR - NEXT (pro zmenu)
[*] Ond�ej Tu�n������'�������̿ - 4.4.2003 16:02:45
> Ahoj, ted pro zmenu trochu cyklus for - next.
> for i := 0 to list.Count-1 do
> list[i]...
> toto mi udela chybu, ale JEN NEKDY, resp. nekdy neudela, takze
> pouzivam toto:
> if list.Count > 0 then
> for i := 0 to list.Count-1 do
> list[i]...
> a to uz funguje bezpecne. Ale PROC mi prvni zapis udela chybu jen
> nekdy? Jak funguje for-next? Pokud je za "to" uvedeno mensi cislo
> nez pri inicializaci tak se cyklus provadi nebo ne? Zda se ze
> nekdy to jednou probehne. Vite o tom nekdo neco?
Jsou-li count a i unsigned, pak p�i count=0 dojde k p�ete�en�. Pokud m�
zapnut� Overflow checking, tak se o tom dozv�, proto�e to zp�sob� v�jimku,
pokud ne, tak cyklus se provede efektivn� pro 0 a� $FFFF_FFFF, tak�e to p�i
nejbli��� p��le�itosti spadne n�kde d�l.
Jestli�e jsou i a count signed, bude to fungovat tak, jak o�ek�v�.
D�le se do toho v D4 a v��e mot� roz�i�ov�n� ��sel na dvojn�sobnou bitovou
d�lku p�i r�zn�ch znam�nk�ch, ale to bych si to musel vyzkou�et. My tady
pou��v�me D3 a tam s mixovan�mi znam�nky probl�my nejsou, p�i unsigned a
signed i se count nejprve konvertuje na signed a pot� se teprve ode��t� a
porovn�v�, tak�e se to chov� dle o�ek�v�n�.
Po��naje D4 ti nezb�v� nic jin�ho, ne� pou��vat tu variantu s IFem.
P.S. Ne��k�m, �e v D3 je to zrovna zcela spr�vn�. Imho je spr�vn� zcela
nedovolit mixov�n� znam�nek (tak to d�l� Flex).
--
Ond�ej Tu�n�
Flex 4.0 Personal Edition Beta 1 build 2 dostupn� na www.flexlanguage.com
FOR - NEXT (pro zmenu)
[*] Petr Herma <herma(zv)alsoft(tec)cz> - 4.4.2003 16:03:54
V patek, 04. dubna 2003 v 15:12:33 (GMT +0200),
napsal(a) Jan Harman:
> Ahoj, ted pro zmenu trochu cyklus for - next.
> for i := 0 to list.Count-1 do
> list[i]...
> toto mi udela chybu, ale JEN NEKDY, resp. nekdy neudela, takze
> pouzivam toto:
if list.Count >> 0 then
> for i := 0 to list.Count-1 do
> list[i]...
> a to uz funguje bezpecne. Ale PROC mi prvni zapis udela chybu jen
> nekdy? Jak funguje for-next? Pokud je za "to" uvedeno mensi cislo
> nez pri inicializaci tak se cyklus provadi nebo ne? Zda se ze
> nekdy to jednou probehne. Vite o tom nekdo neco?
> Diky. Honza
Rekl bych, ze promenna i je typu unsigned a pri vyhodnoceni for i:=0 to -1 ti to
vyhodi Range check error.
--
hermik
REPEAT-UNTIL (was: Promazani TStringLIst)
[*] Ond�ej Tu�n������'�������̿ - 4.4.2003 15:11:13
>> Kdysi jsem jednoho takov�ho b�je�n� vyto�il, kdy� jsem mu
>> �ekl, �e bubble
>> sort je nejlep�� t��d�c� algoritmus, proto�e si ho pamatuju z
>> hlavy resp.
>> v�m, odkud ho copy&pastnout. M�lem explodoval vzteky z toho,
>> �e nesd�l�m
>> jeho hlubok� opovr�en� algoritmy hor��mi ne� quick sort :-)
> celkem se mu nedivim, i mne maloco vytoci vice nez nevhodne umisteny
> idiot -:), nebot, abych parafrazoval klasika, "Kde blb, tam nebezpecno"
� dost�v�me se tvrd� do oblasti osobn�ch ur�ek.
K tomu t��d�n�: akademici zpravidla nech�pou, �e t��d�n�, kter� bylo hojn�
pou��van� p�ed p�r des�tkami let, dnes ji� m� jen velmi m�lo aplika�n�ch
oblast�. Polo� si ot�zku, jak �asto naraz� na data a zejm�na na jak velk�
objem dat, kter� mus� skute�n� ru�n� t��dit. Aplikac�, kde takov�ch dat je
natolik v�znamn� objem, �e m� cenu tr�vit �as optimalizov�n�m jejich
t��d�n�, u� moc nezb�v� - file managery, sort textov�ho souboru v
program�torsk�m editoru, ... te� si nedok�u vzpomenout na ��dn� dal��.
Ad hoc t��d�n� je prost� pot�eba daleko m�n� ne� d��v. S daty nej�ast�ji
pracuje� prost�ednictv�m datab�ze, kter� pou��v� daleko jin� metody k
jejich �azen� - typicky indexov�n�. V velk�m mno�stv� nedatab�zov�ch
p��pad� jsi schopen zajistit set��d�n� dat jejich vhodnou reprezentac� v
pam�ti ji� p�i samotn�m po��te�n�m z�sk�v�n� t�ch dat - ulo�� je nap��klad
do AVL stromu.
Prost� jsou mnohem d�le�it�j�� v�ci, ne� um�t z hlavy naprogramovat quick
sort.
P.S. Kdy� jsem naposledy programoval t��d�n� v r�mci projektu, kter� m�l
milion ��dk� (ono elektronick� bankovnictv� zm�n�n� v jin�m mailu), tak
jsem v�d�l, �e v praxi bude t��d�n�ch polo�ek v 99 % p��pad� < 10, ve
zb�vaj�c�m procentu ur�it� nejv��e asi 100. M�m se v takov� situaci zab�vat
quick sortem?
--
Ond�ej Tu�n�
Flex 4.0 Personal Edition Beta 1 build 2 dostupn� na www.flexlanguage.com
FOR - NEXT (pro zmenu)
[*] Jan Harman <harman(zv)volny(tec)cz> - 04.4.2003 15:09:49
Ahoj, ted pro zmenu trochu cyklus for - next.
for i := 0 to list.Count-1 do
list[i]...
toto mi udela chybu, ale JEN NEKDY, resp. nekdy neudela, takze
pouzivam toto:
if list.Count > 0 then
for i := 0 to list.Count-1 do
list[i]...
a to uz funguje bezpecne. Ale PROC mi prvni zapis udela chybu jen
nekdy? Jak funguje for-next? Pokud je za "to" uvedeno mensi cislo
nez pri inicializaci tak se cyklus provadi nebo ne? Zda se ze
nekdy to jednou probehne. Vite o tom nekdo neco?
Diky. Honza
--
Ziskejte kvalitu, kterou si zaslouzite. Za minimalni mesicni
poplatek vam nabizime Antivir, Antispam nebo dalsi kapacitu pro
vas Mailbox. Vice na: http://sluzby.volny(tec)cz/product/mailpaid/
Dotaz ???
[*] intranet <intranet(zv)iss-copbrno(tec)cz> - 4.4.2003 14:59:38
Vyhlasi to neplatnou operaci - KRNL386.exe
JL
----- Original Message -----
From: "Jiri Novotny" <novotny(zv)ftknw.upol(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, April 04, 2003 2:30 PM
Subject: Re: Dotaz ???> > Jsem zacatecnik a zkousim psat svuj prvni program. Narazil jsem vsak na
> > jeden problem. Program asi chodi jak ma ale u mne (W-XP + Delphi 6) je
vse
> > v
> > poradku. Na jinem PC (W-XP) tez je funkcni ale zkusil jsem to spustit
na
> > W-98 (2x PC) a hlasi chybu pri vykonani programu v knihovne. Je potreba
> > neco
> > nastavi delfi ???
>
> Na tohleto ti asi nikdo nejak rozumne neodpovi (sakra - to znamena,
> ze moje odpoved je nerozumna :-) ). Myslim, ze by jsi mel minimalne
> napsat, jakou chybu to hlasi a pri jake situaci.
>
> Subj. mailu je taky takovy nic nerikajici (viz. pravidla).
>
> Jirka.
porovnanie dvoch recordov rovnakeho typu
[*] Daniel Rott <roxton(zv)seznam(tec)cz> - 4.4.2003 14:43:11
> Ak ale naplnim polozku Text u obidvoch recordov napr.
> na Rec1.Text:= 'XYZ' a Rec2.Text:= 'XYZ' tak to vrati
> FALSE. Pripada mi to tak ze ak je polozka typ string[]
> tak to vie porovnat, ak je string tak nie.
Vzdyt uz to tady mnoho lidi psalo. String (AnsiString) je
jen pointer, a tim prirazenim 'XYZ' vytvoris dve ruzne
instance, tzn. v pameti bude na dvou ruznych mistech
tento stejny string, na jeden bude ukazovat prvni record,
na druhy ten druhy. A ten CompareMem porovnava
jen ty pointery, ktere jsou samozrejme ruzne.
Vytvor si funkci ktera Ti dane recordy porovna tak
jak ocekavas (tedy polozku po polozce) a tuto funkci
pouzivej vsude kde potrebujes. Tohle je podle mne
jedine realne reseni, nebot se provede takove porovnani
jake ocekavas. Neni pravda ze porovnani pointeru je
spatne, nekdy to muze byt i umyslne (napr. takovy Owner).
Daniel
-------------------------------------------------------
Scanning complete: NO intelligent life form in range.
porovnanie dvoch recordov rovnakeho typu
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 4.4.2003 14:39:20
> TMyRec = record
> Caption: string[10];
> Text: string;
> Index: integer;
> end;
[snip]
> Ak ale naplnim polozku Text u obidvoch recordov napr. na
> Rec1.Text:= 'XYZ' a
> Rec2.Text:= 'XYZ' tak to vrati FALSE.
> Pripada mi to tak ze ak je polozka typ string[] tak to vie
> porovnat, ak je string tak nie.
Prave to som pisal v predchadzajucom prispevku. Long string je pointer a
preto v tomto pripade (zv)Rec1.Text <> (zv)Rec2.Text, aj ked Rec1.Text =
Rec2.Text. CompareMem vtedy vrati False.
Keby si tam namiesto toho dal
Rec1.Text := 'XYZ';
Rec2.Text := Rec1.Text;
potom by to vratilo True (rovnaka adresa).
To ale asi nie je to, co chces. ;-) Bud nepouzivaj pointrove typy a potom si
s trochou opatrnosti vystacis aj s CompareMem, alebo si napis porovnavaciu
funkciu podobnu tejto:
function EqualMyRec(Rec1, Rec2: TMyRec): Boolean;
begin
Result := (Rec1.Caption = Rec2.Caption) and (Rec1.Text = Rec2.Text) and
(Rec1.Index = Rec2.Index);
end;
HTH
TOndrej
porovnanie dvoch recordov rovnakeho typu
[*] Peter Sulek <psulek(zv)seznam(tec)cz> - 4.4.2003 14:25:09
Skusal som toto:
TMyRec = record
Caption: string[10];
Text: string;
Index: integer;
end;
var Rec1, Rec2 : TMyRec;
FillChar(Rec1, sizeofTMyRec), 0);
Rec1.Caption := 'ABCDEF';
Rec1.Text := '';
Rec1.Index:= 0;
FillChar(Rec2, sizeofTMyRec), 0);
Rec2.Caption := 'ABCDEF';
Rec2.Text := '';
Rec2.Index:= 0;
ked teraz porovnam CompareMem((zv)Rec1, (zv)Rec2, sizeof(tMyRec)) tak to vrati
TRUE.
Ak ale naplnim polozku Text u obidvoch recordov napr. na Rec1.Text:= 'XYZ' a
Rec2.Text:= 'XYZ' tak to vrati FALSE.
Pripada mi to tak ze ak je polozka typ string[] tak to vie porovnat, ak je
string tak nie.> > chcem sa opytat ako bezpecne porovnat dva recordy rovnakeho
> > typu, bez toho aby som pisal nieco taketo:
> >
> > if (Rec1.Value = Rec2.Value)and
> > (Rec1.Caption = Rec2.Caption)and
> > (...................
>
> Este by som dodal, ze to vynulovanie je dolezite aj pri zapnutej volbe
> record field alignment (ak nepouzivas packed record), pretoze obsah bajtov
> vkladanych medzi jednotlive prvky je nedefinovany a tym padom to
CompareMem
> asi nebude (aj ked moze ;-) fungovat. Skratka je dobre pri vytvarani
> objektov typu record pouzivat AllocMem namiesto GetMem, pripadne si to
> nulovat rucne cez FillChar.
>
> HTH
> TOndrej
>
>
Dotaz ???
[*] Bronislav Klu�ka <delphi(zv)pro2-soft(tec)com> - 4.4.2003 13:06:05
V jake knihovne a jakou chybu?
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz]On
Behalf Of intranet
Sent: Friday, April 04, 2003 12:52 PM
To: Konference Programov�n� v Delphi; delphi-l(zv)clexpert(tec)cz
Subject: Dotaz ??? Jsem zacatecnik a zkousim psat svuj prvni program. Narazil jsem vsak na
jeden problem. Program asi chodi jak ma ale u mne (W-XP + Delphi 6) je vse
v
poradku. Na jinem PC (W-XP) tez je funkcni ale zkusil jsem to spustit na
W-98 (2x PC) a hlasi chybu pri vykonani programu v knihovne. Je potreba
neco
nastavi delfi ???
Predem dekuji JL
porovnanie dvoch recordov rovnakeho typu
[*] Libor Junek, KSH-Data <junek(zv)ksh-data(tec)cz> - 4.4.2003 13:30:30
Jeste by to mohlo jit deklaraci String[n]
treba
Caption: String[20];
Libor
From: "Ondrej Kelle" <O.Kelle(zv)digitalpublishing.de>
Sent: Friday, April 04, 2003 1:04 PM
> V Tvojom priklade uvadzas Caption, co je zrejme nejaky string, to moze
> fungovat za predpokladu, ze:
>
> - je deklarovany ako array[0..n] of Char (nie PChar, string apod.)
> - nepouzite bajty (za prvym #0 terminatorom) su vynulovane. To plati, ak
> pouzivas AllocMem alebo FillChar(.., 0) pri vytvarani novych objektov toho
> typu, co by si asi mal robit (je to povazovane za dobru prax).
>
> HTH
> TOndrej
DateTime
[*] Jiri Foldyna <jiri.f(zv)avizo(tec)cz> - 4.4.2003 13:44:24
Ahoj,
> Urobil som to tak ako si to napisal cez ten interval a nejako mi to
> neslo.... Nuz neviem asi mam zacarovany pocitac :) nakoniec
> som to urobil
> takto a ide to len sa chcem opytat ci je to celkom ciste
> riesenie? Lebo
> porovnavat string a porovnavat cislo je pre z hladiska
> rychlosti vypoctu
> rozdiel
Rychlost porovnavani stringu a double (coz TDateTime je) je samozrejme velmi
odlisna, ale pokud to nedelas co 10 milisekund, tak by to nemuselo vadit.
Horsi je, ze muzes narazit na problem s formatem data a casu na ruznych
masinach pri zadavani porovnavaciho retezce. Ja na zadavani data a casu
pouzivam bud TDateTimePicker nebo maskovany edit a casovy udaj si sestavim
sam, je to blbuvzdornejsi. Pak ti odpadnou konverze na stringy a porovnavani
casu redukujes na porovnavani double cisel. Jen znovu pripominam, specialne
u TDateTime MUSIS vzit v uvahu, jak je udaj konstruovan, kvuli
zaokrouhlovacim chybam. Takze pri testu na dosazeni urciteho casu nikdy
netestuji rovnost, ale jestli uz bylo casu dosazeno, tedy vetsi nebo rovno.
Zdravim
Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz
Napojeni na Outlook
[*] Vlastimil Bardo� <bardon(zv)akord-soft(tec)cz> - 4.4.2003 13:08:46
Nevite prosim nekdo o nejakem prikladu na napojeni na Outlook? Chtel =
bych sksit prenaset Tasky, jako ze si napisu nejaky ukol do programu =
napsaneho v Delphi a on by mi to prenesl do ukolu v Outlooku.
Neexistuje napriklad nejaky OLEDB provider pro Exchange? Pak by to mohlo =
jit i pres ADO.
Koukal jsem se na servers z Dellhi 5, neco tam je, ale nevim jak to =
pouzivat a v helpu jsem nic nenasel.
REPEAT-UNTIL (was: Promazani TStringLIst)
[*] Jiri Foldyna <jiri.f(zv)avizo(tec)cz> - 4.4.2003 13:33:54
> > Ale moji (nejen) mladi pratele/kolegove tam uci popr. jsou
> > tam doktoranty.
> > A myslim, ze malokdo na tomto foru jim muze znalostmi a
> programatorskymi
> > dovednostmi konkurovat (i to jsem mel moznost v praxi vyzkouset).
>
> Kdysi jsem jednoho takov�ho b�je�n� vyto�il, kdy� jsem mu
> �ekl, �e bubble
> sort je nejlep�� t��d�c� algoritmus, proto�e si ho pamatuju z
> hlavy resp.
> v�m, odkud ho copy&pastnout. M�lem explodoval vzteky z toho,
> �e nesd�l�m
> jeho hlubok� opovr�en� algoritmy hor��mi ne� quick sort :-)
Ahoj,
celkem se mu nedivim, i mne maloco vytoci vice nez nevhodne umisteny
idiot -:), nebot, abych parafrazoval klasika, "Kde blb, tam nebezpecno"
Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz
Spracovanie Query na pozadi
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 4.4.2003 13:44:20
> Mam taky problem, snazim sa spravit nieco take ako je
> spracovanie Query na pozadi (separatny threatd), ked
> som patral po informaciach ako na to tak som
> sa dozvedel ze traba respektovat nasledujuce body:
> - kazdy dotaz spusteny v inom podprocese musi byt soucastou
> vlastnej relacie (session), ak TQuery pouziva TDataset musi
> byt pre kazdu uzivatelsku relaciu pouzita jedinecna instancia
> TDatbase.
Skratka kazdy thread pouzivajuci BDE (TQuery) musi mat svoju vlastnu
TSession a myslim, ze aj TDatabase.
> - Query nesmie byt napojene na ziadny TDataSource a pripojit
> sa nan moze az v kontexte hlavneho procesu.
>
> Toto som sa sice dozvedel, ale nedozvedel som sa pricinu
> preco je treba takto postupovat.
> Zaujima ma to aj s ohladom na to ze, ak nedodrzim prvy bod
> a pripajam sa cez defautnu session vsetko ide v pohode.
Mal si asi stastie ;-) Zrejme tu default session nepouzivas zaroven z ineho
(napriklad hlavneho) threadu.
> Neviete preto, ze z akeho dovodu je nutne dodrziavat tieto
> odporucania?
Pri pouzivani threadov treba zabranit konfliktom, ktore mozu vzniknut pri
pouzivani zdielanych prostriedkov sucasne viacerymi threadmi.
Precitaj si o tom napriklad v dokumentacii Platform SDK: Base Services,
Processes and Threads.
Jednym prikladom zdielaneho prostriedku je BDE session handle. Preto musi
mat kazdy thread zvlast TSession.
To s DataSource je zrejme kvoli tomu, ze casti samotnej VCL (Forms,
Controls) nie su thread-safe. V helpe o tom najdes popis v "Using the main
VCL/CLX thread" alebo TThread.Synchronize.
HTH
TOndrej
porovnanie dvoch recordov rovnakeho typu
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 4.4.2003 13:13:39
> chcem sa opytat ako bezpecne porovnat dva recordy rovnakeho
> typu, bez toho aby som pisal nieco taketo:
>
> if (Rec1.Value = Rec2.Value)and
> (Rec1.Caption = Rec2.Caption)and
> (...................
Este by som dodal, ze to vynulovanie je dolezite aj pri zapnutej volbe
record field alignment (ak nepouzivas packed record), pretoze obsah bajtov
vkladanych medzi jednotlive prvky je nedefinovany a tym padom to CompareMem
asi nebude (aj ked moze ;-) fungovat. Skratka je dobre pri vytvarani
objektov typu record pouzivat AllocMem namiesto GetMem, pripadne si to
nulovat rucne cez FillChar.
HTH
TOndrej
Omezeni pohybu a velikosti modalniho formulare
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 4.4.2003 13:45:24
Odchytavat si pri presunovani formu pozici a nedovolit, aby se
presunul jinam, podle pozice formu, ktery jej otevrel.
--
Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
4.4.2003 Petr Mohapl:
> Ahoj,
> situace: mam form1 (fsNormal) a z nej chci pomoci ShowModal zavolat jiny
> form2.
> problem: potrebuji, aby se form2 choval jako MDIchild = aby se nedal
> pretahnout pres hranice klientske oblasti formu1.
> Mate nekdo nejaky napad?
> Diky predem Petr Mohapl
porovnanie dvoch recordov rovnakeho typu
[*] Libor Junek, KSH-Data <junek(zv)ksh-data(tec)cz> - 4.4.2003 13:07:13
Pokud budes mit v tom recordu treba string tak v te pameti je pouze pointer
na pamet kde je ten string.
Kdyz tam bude integer tak to muze teoreticky fungovat ale neordinalni typ
nepujde takhle porovnat.
Libor
From: "ing. Jan Fiala" <jan.fiala(zv)iol(tec)cz>
Sent: Friday, April 04, 2003 12:49 PM
> Resenim by mozna mohlo byt porovnani obsahu pameti. Zkus se podivat na
> funkci CompareMem()
> --
> Jan Fiala
porovnanie dvoch recordov rovnakeho typu
[*] Peter Sulek <psulek(zv)seznam(tec)cz> - 4.4.2003 12:58:07
Mohlo by to byt takto? :
if (CompareMem((zv)Rec1, (zv)Rec2, sizeof(TRec)))
then .........> Resenim by mozna mohlo byt porovnani obsahu pameti. Zkus se podivat na
> funkci CompareMem()
>
> --
> Jan Fiala
> mailto:jan.fiala(zv)iol(tec)cz
Spracovanie Query na pozadi
[*] Lubos Urban <Lubos.Urban(zv)visicom.sk> - 4.4.2003 13:10:19
Zdravim.
Mam taky problem, snazim sa spravit nieco take ako je spracovanie Query na
pozadi (separatny threatd), ked som patral po informaciach ako na to tak som
sa dozvedel ze traba respektovat nasledujuce body:
- kazdy dotaz spusteny v inom podprocese musi byt soucastou vlastnej relacie
(session), ak TQuery pouziva TDataset musi byt pre kazdu uzivatelsku relaciu
pouzita jedinecna instancia TDatbase.
- Query nesmie byt napojene na ziadny TDataSource a pripojit sa nan moze az
v kontexte hlavneho procesu.
Toto som sa sice dozvedel, ale nedozvedel som sa pricinu preco je treba
takto postupovat. Zaujima ma to aj s ohladom na to ze, ak nedodrzim prvy bod
a pripajam sa cez defautnu session vsetko ide v pohode.
Neviete preto, ze z akeho dovodu je nutne dodrziavat tieto odporucania?
Delphi 5, BDE
Dotaz ???
[*] Jiri Novotny <novotny(zv)ftknw.upol(tec)cz> - 4.4.2003 13:30:04
> Jsem zacatecnik a zkousim psat svuj prvni program. Narazil jsem vsak na
> jeden problem. Program asi chodi jak ma ale u mne (W-XP + Delphi 6) je vse
> v
> poradku. Na jinem PC (W-XP) tez je funkcni ale zkusil jsem to spustit na
> W-98 (2x PC) a hlasi chybu pri vykonani programu v knihovne. Je potreba
> neco
> nastavi delfi ???
Na tohleto ti asi nikdo nejak rozumne neodpovi (sakra - to znamena,
ze moje odpoved je nerozumna :-) ). Myslim, ze by jsi mel minimalne
napsat, jakou chybu to hlasi a pri jake situaci.
Subj. mailu je taky takovy nic nerikajici (viz. pravidla).
Jirka.
Omezeni pohybu a velikosti modalniho formulare
[*] Petr Mohapl <p.mohapl(zv)nemstbk(tec)cz> - 4.4.2003 13:38:04
Ahoj,
situace: mam form1 (fsNormal) a z nej chci pomoci ShowModal zavolat jiny
form2.
problem: potrebuji, aby se form2 choval jako MDIchild = aby se nedal
pretahnout pres hranice klientske oblasti formu1.
Mate nekdo nejaky napad?
Diky predem Petr Mohapl
porovnanie dvoch recordov rovnakeho typu
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 4.4.2003 13:11:08
Samozrejme s tim, je treba pocitat.
--
Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
4.4.2003 Libor Junek, KSH-Data:
> Pokud budes mit v tom recordu treba string tak v te pameti je pouze pointer
> na pamet kde je ten string.
> Kdyz tam bude integer tak to muze teoreticky fungovat ale neordinalni typ
> nepujde takhle porovnat.
> Libor
>> Resenim by mozna mohlo byt porovnani obsahu pameti. Zkus se podivat na
>> funkci CompareMem()
>> --
>> Jan Fiala
Dotaz ???
[*] Petr Brant <brant(zv)dcomm(tec)cz> - 4.4.2003 12:54:46
Takhle se moc radit neda. Musis napsat, v jake knihovne, co je to za =
chybu,
zda je ta knihovna stejna na W98 i na WXP apod., pripadne poslat kousek
problemoveho kodu. Doporucil bych ti stahnout si knihovnu JCL a pouzit
ExceptDlg, budes mit k dispozici dobrou diagnostiku chyb a muze to vest =
i k
tomu, ze zjistis, na kterem radku je problem.
Zdravim
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]=20
http://web.redbox(tec)cz/petr.brant
D&COMM s.r.o.
Korunova=E8n=ED 6
Praha 7
tel. +420724007234
Program asi chodi jak ma ale u mne (W-XP + Delphi 6) je vse
v
poradku. Na jinem PC (W-XP) tez je funkcni ale zkusil jsem to
spustit na
W-98 (2x PC) a hlasi chybu pri vykonani programu v knihovne. Je
potreba
neco
nastavi delfi ???
Dotaz ???
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 4.4.2003 13:03:13
V jake knihovne to hlasi chybu ?
Jedine, co mne napada je knihovna CommonControl. Aktualizace je i na
CD s Delphi, aktualizuje se s kazdym office nebo IE.
--
Jan Fiala
mailto:jan.fiala(zv)iol(tec)cz
4.4.2003 intranet:
> Jsem zacatecnik a zkousim psat svuj prvni program. Narazil jsem vsak na
> jeden problem. Program asi chodi jak ma ale u mne (W-XP + Delphi 6) je vse
> v
> poradku. Na jinem PC (W-XP) tez je funkcni ale zkusil jsem to spustit na
> W-98 (2x PC) a hlasi chybu pri vykonani programu v knihovne. Je potreba
> neco
> nastavi delfi ???
> Predem dekuji JL
Dotaz ???
[*] Petr Herma <herma(zv)alsoft(tec)cz> - 4.4.2003 13:02:47
V patek, 4. dubna 2003 v 12:55:45 (GMT +0200),
napsal(a) intranet:
> Jsem zacatecnik a zkousim psat svuj prvni program. Narazil jsem vsak na
> jeden problem. Program asi chodi jak ma ale u mne (W-XP + Delphi 6) je vse
> v
> poradku. Na jinem PC (W-XP) tez je funkcni ale zkusil jsem to spustit na
> W-98 (2x PC) a hlasi chybu pri vykonani programu v knihovne. Je potreba
> neco
> nastavi delfi ???
> Predem dekuji JL
Mohl bys problem na W98 popsat vice podrobne ? Na chybu v nastaveni kompilatoru
to nevypada, spis neco volas blbe. Prihod kousek kodu, na kterem ti to pada.
--
hermik
porovnanie dvoch recordov rovnakeho typu
[*] ing. Jan Fiala <jan.fiala(zv)iol(tec)cz> - 4.4.2003 12:49:40
UmVzZW5pbSBieSBtb3puYSBtb2hsbyBieXQgcG9yb3ZuYW5pIG9ic2FodSBwYW1ldGkuIFprdXMg
c2UgcG9kaXZhdCBuYQ0KZnVua2NpIENvbXBhcmVNZW0oKQ0KDQotLSANCkphbiBGaWFsYQ0KbWFp
bHRvOmphbi5maWFsYUBpb2wuY3oNCg0KNC40LjIwMDMgqXR1UGU6DQo+IE1hbSBwb2NpdCwgemUg
dG8gYm9odXplbCBuZXB1amRlLCB2ZSB2c2VjaCBwb2RvYm79Y2ggRXF1YWwgZnVua2PtY2ggdG8g
ZOxsYWrtIHBy4XbsIHRha3RvIGEgdnLhdO0sDQo+IGplc3RsaSBpc0VxdWFsKFJlYzEsIFJlYzIp
IGEgdXZuaXT4IHBvcm92bmFq7SBvZHBvdu1kYWrtIHZsYXN0bm9zdGkuIFNpIHD4ZWRzdGF2LCC+
ZSB1dm5pdPggdG9obyByZWtvcmR1IGJ1ZG91IG9iamVrdHksIHR5IG1hau0gc3ZvamUgdmxhc3Ru
b3N0aSAuLi4NCj4gVHlwaWNreSAuLi5Jc0VxdWFsKFBvaW50MSwgUG9pbnQyKS4NCg0KDQog
porovnanie dvoch recordov rovnakeho typu
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 4.4.2003 13:04:01
> chcem sa opytat ako bezpecne porovnat dva recordy rovnakeho
> typu, bez toho aby som pisal nieco taketo:
>
> if (Rec1.Value = Rec2.Value)and
> (Rec1.Caption = Rec2.Caption)and
> (...................
V niektorych pripadoch mozes jednoducho pouzit CompareMem((zv)Rec1, (zv)Rec2,
SizeOf(TMyRec)).
Ak vsak ten record typ obsahuje prvky odkazovych (pointer) typov, potom su
tymto sposobom porovnavane iba ich adresy a nie hodnoty, na ktore sa
odkazuju. V takych pripadoch to musis rozpisat.
V Tvojom priklade uvadzas Caption, co je zrejme nejaky string, to moze
fungovat za predpokladu, ze:
- je deklarovany ako array[0..n] of Char (nie PChar, string apod.)
- nepouzite bajty (za prvym #0 terminatorom) su vynulovane. To plati, ak
pouzivas AllocMem alebo FillChar(.., 0) pri vytvarani novych objektov toho
typu, co by si asi mal robit (je to povazovane za dobru prax).
HTH
TOndrej
Dotaz ???
[*] intranet <intranet(zv)iss-copbrno(tec)cz> - 4.4.2003 12:51:52
Jsem zacatecnik a zkousim psat svuj prvni program. Narazil jsem vsak na
jeden problem. Program asi chodi jak ma ale u mne (W-XP + Delphi 6) je vse
v
poradku. Na jinem PC (W-XP) tez je funkcni ale zkusil jsem to spustit na
W-98 (2x PC) a hlasi chybu pri vykonani programu v knihovne. Je potreba
neco
nastavi delfi ???
Predem dekuji JL
porovnanie dvoch recordov rovnakeho typu
[*] Karel Rys <delphi(zv)zas-me(tec)cz> - 4.4.2003 13:06:44
Peter Sulek dne 4 Apr 2003 v 12:58:
> Mohlo by to byt takto? :
>
> if (CompareMem((zv)Rec1, (zv)Rec2, sizeof(TRec)))
> then .........
No, ano, ale:
- pouzij packed record misto samotneho record
- nebude to spravne fungovat, pokud uvnitr recordu je object nebo string apod.
- pokud do toho objektu nekdy nejakou takovou polozku pridas a zapomenes, ze pouzivas CompareMem,
mas dobre skryty problem ;-)
Karel Rys
porovnanie dvoch recordov rovnakeho typu
[*] �tuPe - 4.4.2003 12:36:09
Mam pocit, ze to bohuzel nepujde, ve vsech podobn=FDch Equal funkc=EDch =
to d=EClaj=ED pr=E1v=EC takto a vr=E1t=ED,
jestli isEqual(Rec1, Rec2) a uvnit=F8 porovnaj=ED odpov=EDdaj=ED =
vlastnosti. Si p=F8edstav, =BEe uvnit=F8 toho rekordu budou objekty, ty =
maj=ED svoje vlastnosti ...
Typicky ...IsEqual(Point1, Point2).
=A9tuPe http://stupe.jinde(tec)cz
----- P=F9vodn=ED zpr=E1va -----=20
Od: "Peter Sulek" <psulek(zv)seznam(tec)cz>
Komu: <delphi-l(zv)clexpert(tec)cz>
Odesl=E1no: 4. dubna 2003 12:03
P=F8edm=ECt: porovnanie dvoch recordov rovnakeho typu
> Zdravim,
>=20
> chcem sa opytat ako bezpecne porovnat dva recordy rovnakeho typu, bez =
toho
> aby som pisal nieco taketo:
>=20
> if (Rec1.Value =3D Rec2.Value)and
> (Rec1.Caption =3D Rec2.Caption)and
> (...................
>=20
>=20
>=20
>=20
>=20
REPEAT-UNTIL (was: Promazani TStringLIst)
[*] Ing. Jan Dubsk� - Stroj�rna P�lava <dubsky(zv)s-palava(tec)cz> - 4.4.2003 12:18:03
Zkuste si ty svoje jeduvky posilat na soukrome mejly. Spousta z nas pak
tento brak bude muset tahat p=F8es dialup a stejne to pak smaze
Honza
> > Kdybych chtel byt jednovaty, tak bych rekl,
> > ze rozsah Tvych znalosti tomu odpovida, ale to
> > nechci, takze se zaroven omlouvam a koncim,
> > nemam na takovou diskusi opravdu cas.
>=20
> Par minut jsem premyslel, jakou vetsi jedovatost zvolit pro
> odpoved, ale zadna vhodna me nenapada. Vedes 1:0, jen tak dal=20
> synku ;-)
>=20
Kdo je tu nejstarsi! Kdo je tu nejstarsi!
Kricel jedenasedmdesatilety Straus
a tloukl o stul svym obcanskym prukazem.OT: REPEAT-UNTIL (was: Promazani TStringLIst)
[*] Ond�ej Tu�n������'�������̿ - 4.4.2003 11:59:22
> Samozrejme: chtel jsem jen poukazat na to, ze existuji
> kontrukce, ve kterych programatori chybuji vice nez v jinych
> a proto je vhodne tomu predchazet, protoze
> poslanim kazdeho SW inzenyra je snaha o vytvoreni
> co nejlepe udrzovatelneho SW za co nejnizsi naklady
> a s co nejmensim poctem chyb. A proto pri navrhu
> pouziva metodiky, aby minimalizoval pocet intuitivnich
> postupu.
A zat�m jsi neprezentoval jediny presvedcivy dukaz, proc je prikaz
repeat..until tak desne nachylny na chyby. PROC ???? Snad ne proto, ze pro
nej Jackson nezavedl znacku...
Jsou MNOHEM nebezpecnejsi konstrukce napriklad pascalske WITH. Jestli chces
necemu konstruktivne oponovat, tak si stahni Flex a hledej nebezpecne
konstrukce. Jednim z navrhovych kriterii Flexu je totiz to, ze nesmi
obsahovat konstrukce nachylne k chybam, takze velmi ocenim, kdyz tam nekdo
takove najde (a tu nebezpecnost PROKAZE).
> Bohuzel na tomto foru je zrejme minimum lidi, kteri vidi
> dal nez na hranice konstrukci jazyka Pascal, coz mi melo byt
> pri mych bohatych zkusenostech jasne. Timto se omlouvam vsem,
� ty jsi tak chytr�!
--
Ond�ej Tu�n�
Flex 4.0 Personal Edition Beta 1 build 2 dostupn� na www.flexlanguage.com
porovnanie dvoch recordov rovnakeho typu
[*] Peter Sulek <psulek(zv)seznam(tec)cz> - 4.4.2003 12:03:38
Zdravim,
chcem sa opytat ako bezpecne porovnat dva recordy rovnakeho typu, bez toho
aby som pisal nieco taketo:
if (Rec1.Value = Rec2.Value)and
(Rec1.Caption = Rec2.Caption)and
(...................REPEAT-UNTIL (was: Promazani TStringLIst)
[*] Tom Beran <tfuzzy(zv)atlas(tec)cz> - 4.4.2003 12:03:22
> > Kdybych chtel byt jednovaty, tak bych rekl,
> > ze rozsah Tvych znalosti tomu odpovida, ale to
> > nechci, takze se zaroven omlouvam a koncim,
> > nemam na takovou diskusi opravdu cas.
>
> Par minut jsem premyslel, jakou vetsi jedovatost zvolit pro
> odpoved, ale zadna vhodna me nenapada. Vedes 1:0, jen tak dal
> synku ;-)
>
Kdo je tu nejstarsi! Kdo je tu nejstarsi!
Kricel jedenasedmdesatilety Straus
a tloukl o stul svym obcanskym prukazem.REPEAT-UNTIL (was: Promazani TStringLIst)
[*] Ond�ej Tu�n������'�������̿ - 4.4.2003 11:48:29
> Ne. Prevaznou cast svoji praxe jsem se venoval vyvoji RT systemu pro
> "velkou" energetiku.
> V roce 1993 jsem skoncil na postu vedouci vyvoje
> a sel podnikat.
J� se v�cem�n� zab�v�m dv�mi v�cmi: kompil�tory, elektronick� bankovnictv�.
> Ale moji (nejen) mladi pratele/kolegove tam uci popr. jsou
> tam doktoranty.
> A myslim, ze malokdo na tomto foru jim muze znalostmi a programatorskymi
> dovednostmi konkurovat (i to jsem mel moznost v praxi vyzkouset).
Kdysi jsem jednoho takov�ho b�je�n� vyto�il, kdy� jsem mu �ekl, �e bubble
sort je nejlep�� t��d�c� algoritmus, proto�e si ho pamatuju z hlavy resp.
v�m, odkud ho copy&pastnout. M�lem explodoval vzteky z toho, �e nesd�l�m
jeho hlubok� opovr�en� algoritmy hor��mi ne� quick sort :-)
>> Asi neum� hledat. Ti�t�nou odbornou publikaci
>> jsem ne�etl u� tak dobr�ch p�t let.
> Kdybych chtel byt jednovaty, tak bych rekl,
> ze rozsah Tvych znalosti tomu odpovida, ale to
> nechci, takze se zaroven omlouvam a koncim,
> nemam na takovou diskusi opravdu cas.
P�r minut jsem p�em��lel, jakou v�t�� jedovatost zvolit pro odpov��, ale
��dn� vhodn� m� nenapad�. Vede� 1:0, jen tak d�l synku ;-)
--
Ond�ej Tu�n�
Flex 4.0 Personal Edition Beta 1 build 2 dostupn� na www.flexlanguage.com
OT: RE: pravidla konference: diakritika
[*] Ond�ej Tu�n������'�������̿ - 4.4.2003 11:40:35
>>> -----Original Message-----
>>> From: Viliam Mlich [mailto:mlich1(zv)volny(tec)cz]
>>> Sent: Thursday, April 03, 2003 10:44 PM
>>> To: Robert Suska
>>> Subject: Re: DateTime
> Uplne na konci.
Aha, tenhle thread jsem necetl. Taky nazor :o))))
--
Ond�ej Tu�n�
Flex 4.0 Personal Edition Beta 1 build 2 dostupn� na www.flexlanguage.com
OT: REPEAT-UNTIL (was: Promazani TStringLIst)
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 4.4.2003 11:15:35
From: "Peter Vlkovic" <vlkovic(zv)minv.sk>
> Nad vyssie uvedenou ukazkou kodu sa zrejme pozastavil
> aj Petr Fejfar, ktory reagoval pomerne strucne:
>
> > Tak to snad ne :-(
> > Tohle spis dokladuje, proc vetsina metodiku
> > konstrukci REPEAT-UNTIL zavrhuje jako "necistou"
>
> Vyvolal tym sucasnu flame war, co zaiste nebolo
> jeho cielom.
Samozrejme: chtel jsem jen poukazat na to, ze existuji
kontrukce, ve kterych programatori chybuji vice nez v jinych
a proto je vhodne tomu predchazet, protoze
poslanim kazdeho SW inzenyra je snaha o vytvoreni
co nejlepe udrzovatelneho SW za co nejnizsi naklady
a s co nejmensim poctem chyb. A proto pri navrhu
pouziva metodiky, aby minimalizoval pocet intuitivnich
postupu.
Bohuzel na tomto foru je zrejme minimum lidi, kteri vidi
dal nez na hranice konstrukci jazyka Pascal, coz mi melo byt
pri mych bohatych zkusenostech jasne. Timto se omlouvam vsem,
ktere tato diskuse obtezuje - uz nebudu reagovat -
vse podstatne jsem napsal.
Bye, pf
FB - duplicity v datech s PK
[*] Libor Junek, KSH-Data <junek(zv)ksh-data(tec)cz> - 4.4.2003 11:18:00
A co kdyz provedes B/R?
Podobne hovadinky jsem jednou videl po zkopirovani DB za provozu.
Libor
> mam FB 1.0 na Linuxu a prave koukam nevericne na dalsi z excesu
> Firebirdu. Mam tabulku a v ni jediny sloupec - nazev. Na tom sloupci
> je primarni klic.
>
> Udelam-li select nazev from tabulka, vypisi se mi vsechny hodnoty
> dvakrat. Udelam-li navic order by nazev, pouzije se index a vse je v
> poradku. Vypada to tedy tak, ze hodnoty jsou v tabulce fyzicky
> ulozeny dvakrat, ale PK se s tim nejak vyrovnal a funguje spravne.
> JAK TO? Setkal jste se s tim nekdo?FB - duplicity v datech s PK
[*] Lebeda David <david.lebeda(zv)comarr(tec)cz> - 04.4.2003 11:08:21
Ahoj,
mam FB 1.0 na Linuxu a prave koukam nevericne na dalsi z excesu
Firebirdu. Mam tabulku a v ni jediny sloupec - nazev. Na tom sloupci
je primarni klic.
Udelam-li select nazev from tabulka, vypisi se mi vsechny hodnoty
dvakrat. Udelam-li navic order by nazev, pouzije se index a vse je v
poradku. Vypada to tedy tak, ze hodnoty jsou v tabulce fyzicky
ulozeny dvakrat, ale PK se s tim nejak vyrovnal a funguje spravne.
JAK TO? Setkal jste se s tim nekdo?
Diky
David Lebeda
OT: REPEAT-UNTIL (was: Promazani TStringLIst)
[*] Ond�ej Tu�n������'�������̿ - 4.4.2003 11:00:10
> No a co? Jen proto, ze nekdo zformuloval nejake myslenky v dobe (a nebyl to
> *JEDEN* manik), kdy jsi jeste nebyl pravdepodone na svete, tak to neznamena,
> ze jiz neplati ;-)
> Pocitac bude jeste zrejme dost dlouho Turingovym strojem, ktery je starsi
> nez 50 let a cyklus WHILE
> reflexivne transitivnim uzaverem, ktery je obecnejsi nez prosty transitivni
> uzaver a proto se v pracich Dijkstry, Griesse aj. kteri koncem 60let
> polozili zaklad matematicke teorii programu a strukturovanemu programovani,
> pouziva, ne ze by na nej zapomeli.
Matematick� teorie algoritm� je n�co pon�kud vzd�len�j��ho re�ln�mu sv�tu
programovac�ch jazyk� a programov�n�. Nav�c spl�uje-li n�co m�n�
vlastnost� (tranzitivn� uz�v�r), zd� se mi to intuitivn� obecn�j�� ne� n�co
s v�ce omezen�mi/vlastnostmi (reflexivn� tranzitivn� uz�v�r). Vysv�tli
pros�m.
J� sice je�t� nebyl na sv�t�, kdy to ten man�k (sorry, man�ci) vymysel �i
zformuloval nebo co, ale zato Dijkstra u� je mrtv� a j� m�m vlastn�
programovac� jazyk zalo�en� na vlastn�ch my�lenk�ch a p�esv�d�en�ch.
Mimochodem opravdu by m� zaj�malo, jak velk� probl�m jsi v praxi cel� �e�il
tak, �e jsi ho naklikal v n�jak�m case syst�mu (t�eba v t� hra�ce Soukup
Graphic Preprocesor, budi� j� zem� lehk�, kdy� u� jsi tady za�al vytahovat
toho Soukupa).
--
Ond�ej Tu�n�
Flex 4.0 Personal Edition Beta 1 build 2 dostupn� na www.flexlanguage.com
OT: RE: pravidla konference: diakritika
[*] Tom Beran <tfuzzy(zv)atlas(tec)cz> - 4.4.2003 10:45:00
> Nevidim zadnou jeho reakci na toto tema. Ze by mi jeste nedorazila?
>
>> -----Original Message-----
>> From: Viliam Mlich [mailto:mlich1(zv)volny(tec)cz]
>> Sent: Thursday, April 03, 2003 10:44 PM
>> To: Robert Suska
>> Subject: Re: DateTime
Uplne na konci.RichEdit a doublebuffered
[*] dphi_forum(zv)proces.sk - 4.4.2003 11:06:19
Neviem ci to nie je zavisle od verzie RICHEDITu, ktory je vo W95/98/200=
0
|---------+--------------------------->
| | V=EDt Kr=B9ka |
| | <vit.krska(zv)del.c|
| | z> |
| | Sent by: |
| | delphi-l-owner(zv)c|
| | lexpert(tec)cz |
| | |
| | |
| | 04.04.2003 07:40|
| | Please respond |
| | to delphi-l |
| | |
|---------+--------------------------->
>--------------------------------------------------------------------=
-------------------------------------------|
| =
|
| To: <delphi-l(zv)clexpert(tec)cz> =
|
| cc: =
|
| Subject: RichEdit a doublebuffered =
|
>--------------------------------------------------------------------=
-------------------------------------------|
kdyz nastavim u RichEditu BoubleBuffered na true tak se mi v nem zobraz=
uje
jen kurzor, text tam sice je, ale neni videt. nevite nekdo co s tim
D5/W2000
vitek
=REPEAT-UNTIL (was: Promazani TStringLIst)
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 4.4.2003 11:15:27
From: "Ond�ej Tu�n�" <tucny(zv)alsoft(tec)cz>
> Ty to m� v�n� n�jak� zmaten�.
> Neu�� n�hodou na n�jak� vysok� �kole?
Ne. Prevaznou cast svoji praxe jsem se venoval vyvoji RT systemu pro
"velkou" energetiku.
V roce 1993 jsem skoncil na postu vedouci vyvoje
a sel podnikat. Ale moji (nejen) mladi pratele/kolegove tam uci popr. jsou
tam doktoranty.
A myslim, ze malokdo na tomto foru jim muze znalostmi a programatorskymi
dovednostmi konkurovat (i to jsem mel moznost v praxi vyzkouset).> Proto je pou��vaj� t�m�� v�hradn� konzulta�n� firmy.
V prubehu sve bohate praxe jsem se snazil vyzkouset
v praxi kazdou "rozumnou" metodiku, kterou jsem mel sanci vstrebat. A taky
jsem si jich radu uspesne vyzkousel na pomerne velkych a netrivialnich
projektech.> Asi neum� hledat. Ti�t�nou odbornou publikaci
> jsem ne�etl u� tak dobr�ch p�t let.
Kdybych chtel byt jednovaty, tak bych rekl,
ze rozsah Tvych znalosti tomu odpovida, ale to
nechci, takze se zaroven omlouvam a koncim,
nemam na takovou diskusi opravdu cas.
Bye, pf
FB DDL a Transakcie (P. Cisar?)
[*] Pavel Cisar <pcb(zv)atlas(tec)cz> - 4.4.2003 11:01:53
Haj hou!
On 4 Apr 2003 at 0:46, Jaroslav Popluh=E1r wrote:
> Maju DDL prikazy implicitne Autocommit alebo je mozne pouzivat
> transakcie?
Prikazy autocommit nikdy nemaji, maji ho jen programy :-) Napr. ISQL impli=
citne
dela commit po DDL prikazech, pokud se to nevypne. Stejnou funkci nabizi
vetsina administratorskych nastroju typu IBExpert atd. V IBX, BDE atd. zad=
ny
autocommit po DDL neni, kdyz uz nejaky delaji, tak za kazdym prikazem.
> Konkretne mi ide o prikazy grant a revoke.
> Ak urobim revoke, kedy na to zareaguju ostatni klienti?
Pokud jde o grant a revoke, neboli obecne prava, tak ostatni na to zareagu=
ji az
pri pristim prihlaseni. Presneji receno, zalezi na tom zda uzivatel neni p=
rihlaseny
a neprovadel jiz nejakou operaci s objektem (tabulkou, procedurou atd.) na=
kterou menis prava. Pokud ano, tak ma prava ve vyrovnavaci pameti, a ta se=
neobcerstvi do konce pripojeni. Zmena prav by se tedy nemela delat pokud j=
sou
pripojeni i dalsi uzovatele.
S pozdravem
Pavel Cisar
Navidenou na Prvni Evropske Firebird Konferenci - Kveten 2003,
Fulda, Nemecko
http://www.firebird-conference.com
Mobil: 724 281429
http://www.ibphoenix(tec)cz
Vse co potrebujete pro Firebird a InterBase
Komponenta pro seriovy port
[*] Ing. Zden�k �ezn��ek - 4.4.2003 10:43:41
----- Original Message -----
From: "Petr Zahradnik" <clexpert(zv)clexpert(tec)cz>
To: <delphi-l(zv)clexpert(tec)cz>
Sent: Friday, April 04, 2003 12:40 AM
Subject: Re: Komponenta pro seriovy port
> Puvodni zprava, kterou napsal Ing. Zden�k �ezn��ek dne 4 Apr 2003:
>
> > vse jsem trochu vyzkousel, nejvice se mi libi
> > http://sourceforge.net/projects/tpapro/ , jen�e licenci nechapu. Vse je
> > vcetne zdrojaku. Nevis jsou ty komponenty free ?
>
> No ty komponenty Async Professional je nejlepsi komunikacni knihovna pro
> seriovou komunikaci na svete a dosud to byl komercni produkt. Jenze v
> lednu TurboPower ohlasil, ze s tim konci a uvolnil to do OpenSource.
>
> S pozdravem
> Petr Zahradnik, pocitacovy expert
To je vinikajivci, diky za info.
Zdenek
> =======================================================
> Petr Zahradnik, Computer Laboratory
> Obvodova 740/14, P.O. Box 15, 400 07 Usti nad Labem
> Telefony: 475 500 610, 475 501 627, 475 511 337
> Mobilni telefon: 602 409 601, Fax: 475 511 338
> WWW: http://www.clexpert(tec)cz, http://www.zahradnik(tec)cz
> E-Mail: clexpert(zv)clexpert(tec)cz, petr(zv)zahradnik(tec)cz
>
> =======================================================
>
>
CVS a verzovani projektu
[*] Radek KALA <Kala(zv)BetaControl(tec)cz> - 04.4.2003 10:40:46
Ahoj,
Pouzivame jiz delsi dobu CVS pro zdrojaky v DELPHI, nemate ale
nekdo nejaky napad jak zautomatizovat vydavani nove verze celeho
projektu.
To znamena neco co mi otaguje cely projekt a soucasne upravi
informace ve version info toho projektu.
Jde mi o zjednu\oduseni a hlavne o zabraneni vzniku chyb prepisem
techto informaci.
Diky
S pozdravem Radek KALA
BetaControl, s.r.o.
Cerneho 58/60, 635 00
tlf. : + 420 5 4622 3491
fax : + 420 5 4622 3470
GSM : + 420 603 85 75 15
pravidla konference: diakritika
[*] Ond�ej Tu�n������'�������̿ - 4.4.2003 10:35:23
> P.S. Jinak s temi cykly souhlasim s V. Mlichem :o)
Nevidim zadnou jeho reakci na toto tema. Ze by mi jeste nedorazila?
--
Ond�ej Tu�n�
Flex 4.0 Personal Edition Beta 1 build 2 dostupn� na www.flexlanguage.com
OT: REPEAT-UNTIL (was: Promazani TStringLIst)
[*] Ondrej Kelle <O.Kelle(zv)digitalpublishing.de> - 4.4.2003 10:05:17
Ahoj,
len na okraj malu poznamku, pretoze z niektorych prispevkov som ziskal
dojem, ze niektorym ucastnikom konferencie unikol jeden zasadny rozdiel
medzi cyklom for a while/repeat:
V cykloch while/repeat sa podmienka vyhodnocuje pri kazdej iteracii (v
pripade while pred vykonanim tela cyklu, v pripade repeat po vykonani tela
cyklu).
V cykle for sa vyhodnoti pocet iteracii iba raz, pred vykonanim cyklu.
Moj osobny nazor (2c) je, ze vsetky tri druhy maju svoje opodstatnenie.
HTH
TOndrej
pravidla konference: diakritika
[*] Ing. Jan Dubsk� - Stroj�rna P�lava <dubsky(zv)s-palava(tec)cz> - 4.4.2003 10:29:46
>Timto navrhuji, aby moderator zvazil povoleni tohoto kodovani, protoze
IMHO prispevky s diakritikou jsou casto mnohem citelnejsi a
srozumitelnejsi nez prispevky bez diskritiky.
S tim bych nesouhlasil. Uznavam, ze bez diakritiky muze byt "sirka"
chapana jako rozmer "=B9=ED=F8ka" nebo jako drivko pro zapaleni =
cigarety, ale
z kontextu snad kazdy pochopi, co chtel autor rici. Naopak, pokud
dostanu text, ktery ma misto znaku s diakritikou "rozsypany caj" nekdy
nemam dost sil se tim prokousavat a proste to nectu. Toto je pak nefer
vuci nekterym ucastnikum. Pokud chybi hacky a carky, maji vsichni stejne
podminky. (A nejsou snad tak drasticke, aby to nekdo neprezil).
Honza
OT: REPEAT-UNTIL (was: Promazani TStringLIst)
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 4.4.2003 10:30:58
From: "Ond�ej Tu�n�" <tucny(zv)alsoft(tec)cz>
> Uv�domuje� si, �e to ten man�k vymyslel p�ed
> *T�ICETI* lety? To je v IT prav�k!
[...]
> Do prdele pr�ce! Tak�e jen proto, �e kdysi n�jak�
> pr�kopn�k zapomn�l objevit cyklus s podm�nkou na
> konci, si mysl�, �e je to �patn� cyklus bez
[...]
> t�icet let star� konvence pro grafick� z�pis
> algoritmu!
No a co? Jen proto, ze nekdo zformuloval nejake myslenky v dobe (a nebyl to
*JEDEN* manik), kdy jsi jeste nebyl pravdepodone na svete, tak to neznamena,
ze jiz neplati ;-)
Pocitac bude jeste zrejme dost dlouho Turingovym strojem, ktery je starsi
nez 50 let a cyklus WHILE
reflexivne transitivnim uzaverem, ktery je obecnejsi nez prosty transitivni
uzaver a proto se v pracich Dijkstry, Griesse aj. kteri koncem 60let
polozili zaklad matematicke teorii programu a strukturovanemu programovani,
pouziva, ne ze by na nej zapomeli.
Bye, pf
FB RDB$ROLES (P. Cisar?)
[*] Roland Turcan <rolo(zv)sedas.sk> - 04.4.2003 09:17:10
<<< 4. 4. 2003 9:15 - Jaroslav Popluh�r "delphi1(zv)acc.sk" >>>
JP> Hello Delphi,
JP> Uvazujem o pridani stlpca Description:Varchar(63) k uvedenej tabulke.
JP> Chcel by som sa opytat, ake nepriaznive nasledky to moze mat?
JP> Zalohovanie, obnova, integrita, a vobec funkcnost FB?
-------------------------------------------
My answer:
----------
Ako ti uz Libor Junek odpisal, tak stlpec nebude po restore obnovena.
Neviem naco presne chces ten stlpec, ale nie je mozne si vytvorit solo
tabulku a ta by bola napojena na RDB$ROLES a spajal by si to cez JOIN.
--
Best regards, TRoland
FB DDL a Transakcie (P. Cisar?)
[*] Roland Turcan <rolo(zv)sedas.sk> - 04.4.2003 09:18:18
<<< 4. 4. 2003 9:17 - Jaroslav Popluh�r "delphi1(zv)acc.sk" >>>
JP> Ak urobim revoke, kedy na to zareaguju ostatni klienti?
-------------------------------------------
My answer:
----------
Myslim ze sa zmena prejavi az pri Disconnect/Connect.
--
Best regards, TRoland
Adapter TMA a cip DS1990A-F5
[*] Pavel Malinsky <spiderland(zv)iol(tec)cz> - 4.4.2003 10:11:10
Ahoj,
nemate nekdo, prosim, zkusenosti s nactenim cisla
pomoci serioveho adapteru TMA z cipu DS1990A-F5. Koukal
jsem na SynaSer, ale nikdy jsem to nepouzival a nejsem
z toho moc moudry.
Dekuji za pripadnou pomoc
S pozdravem a dikem
=====================================
> Pavel Malinsky; spiderland(zv)iol(tec)cz <
=====================================
GSM: 602 652 203
pravidla konference: diakritika
[*] Tom Beran <tfuzzy(zv)atlas(tec)cz> - 4.4.2003 09:55:15
> Eh, sorry, tohle pravidlo konference jsem ze zacatku
> zaregistroval, ale pak jsem na nej zapomnel. Jsem zvykly psat=20
> vsude s diakritikou v kodovani ISO 8859.2, kter=E9 je mezi=20
> postovnimi klienty v cechach a na slovensku snad=20
> nejakceptovatelnejsi pro kodovani cestiny. Timto navrhuji,=20
> aby moderator zvazil povoleni tohoto kodovani, protoze IMHO=20
> prispevky s diakritikou jsou casto mnohem citelnejsi a=20
> srozumitelnejsi nez prispevky bez diskritiky.
>=20
Problem je napr. v tom, ze nekdo si treba prohledava prispevky off-line
a kdyz bych chtel najit nejake tema, budu muset komplikovat vyhledavaci
podminku (a spomalovat vyhledavani)???
T.
P.S. Jinak s temi cykly souhlasim s V. Mlichem :o)pravidla konference: diakritika
[*] Ond�ej Tu�n������'�������̿ - 4.4.2003 09:43:53
>> Ond�ej Tu�n�
> Mimochodom, kolegu Tucneho by som chcel poprosit
> (nechcem sa ho ale doktnut),aby nepouzival diakritiku
> (mimochodom - v rozpore s pravidlami konferencie).
> Drviva vacsina ucastnikov konferencie toto vseobecne
> uznavane pravidlo akceptuje. Dovod je jednoduchy,
> sposobov kodovania slovenskej a ceskej diakritiky
> je mnoho a niektore postove programy (vratane mojho :-)
> s tym maju problemy, takze miesto prislusnych znakov
> zobrazuju paskvily. [V pripadnej reakcii ma prosim
> nekamenujte, a nenutte ma pouzivat ineho postoveho
> klienta nez mam. Som so svojim uplne spokojny.
> Na rozdiel od Outlook-u mi robi mi len to co ma.
> Nic navyse.]
Eh, sorry, tohle pravidlo konference jsem ze zacatku zaregistroval, ale pak
jsem na nej zapomnel. Jsem zvykly psat vsude s diakritikou v kodovani
ISO 8859.2, kter� je mezi postovnimi klienty v cechach a na slovensku snad
nejakceptovatelnejsi pro kodovani cestiny. Timto navrhuji, aby moderator
zvazil povoleni tohoto kodovani, protoze IMHO prispevky s diakritikou jsou
casto mnohem citelnejsi a srozumitelnejsi nez prispevky bez diskritiky.
--
Ondrej Tucny
Flex 4.0 Personal Edition Beta 1 build 2 dostupna na www.flexlanguage.com
REPEAT-UNTIL (was: Promazani TStringLIst)
[*] Ond�ej Tu�n������'�������̿ - 4.4.2003 09:32:08
>> hlavne nevyhody top-down designu su:
>> 1. realne systemy nemaju "top" (napr. operacny
>> system) a ani ho nemaju mat
> Jenomze operacni system je zrovna priklad dost nevhodny, protoze se jedna v
> podstate o virtualni pocitac a tedy v podstate o interface mezi skutecnym
> pocitacem a aplikacni ulohou, i kdyz dovedu pochopit, ze pro nektere lidi v
> pocitacovem svete predstavuje vrchol jejich oboru. Ostatne, prave kvuli
> interfaceum sleduje vetsina OS stejne navrh po vrstvach definovany Dijkstrou
> koncem 60 let ;-)
Ty to m� v�n� n�jak� zmaten�. Neu�� n�hodou na n�jak� vysok� �kole? Tam
se zpravidla zamrz� na t�icet let star�ch, d�vno p�ekonan�ch my�lenk�ch.
Btw. b�t architektem dejme tomu W2K+3 Server, p�esto�e k architektu�e
Windows m��� (a m�m) dost v�hrad, tak bych se pr�ve c�til na vrcholu
kari�ry a oboru. M�lo kdo m� pod palcem 50.000.000 ��dk� k�du.
> Co vim, tak vetsina soucasnych OOD metodik jako Yourdon, Jacobson, ale i
> "NO-NAME" publikace tj.
> v kompilaty nepuvodnich autoru metodik stylu Objektove programovani v C++
> aj.) zacina analyzu problemu prochazenim funkcni specifikace ve forme
> "vedeckeho clanku" a prirazovani trid k substantivum, atributu
> k adjektivum a metod k verbum.
> Pak pokracuje revizi seznamu objektu, kdy eliminuje/slucuje objekty a
> vytvari vazby mezi nimi atd. Takze tezko lze hovorit o top-down nebo
> bottom-up navrhu.
Ano, obl�ben� to metoda tzv. konzultant� a konzulta�n�ch firem. Ty kr�sn�
analyzuj� probl�m t�mto stylem a pak to koup� hotov� nebo na zak�zku od
t�et� firmy s t�m, �e by to m�lo d�lat p�ibli�n� to, co ta jejich anal�za
obsahuje, proto�e sami to naprogramovat nedovedou.
> Ovsem co vetsina metodik neresi je, jak postupovat dal, kdyz uz jsou tridy
> na svete tj. jak implementovat metody trid. A tady je stale mnoho prostoru
> pro ony tradicni metody struktorovaneho navrhu.
Proto je pou��vaj� t�m�� v�hradn� konzulta�n� firmy.
> Jojo, jenomze podle mych zkusenosti, na internetu
> se vetsinou (nejen) odborna literatura volne nevali.
> Takze pokud tam nejaka skola nestrcila svoje scripta, nebo nekdo svuj
> referat na takove tema, tak mas vetsinou smulu. Je mozne, ze kdybys hledal
> neco od Drbala, tak treba tam nejaka scripta ma.
Asi neum� hledat. Ti�t�nou odbornou publikaci jsem ne�etl u� tak dobr�ch
p�t let.
--
Ond�ej Tu�n�
Flex 4.0 Personal Edition Beta 1 build 2 dostupn� na www.flexlanguage.com
pravidla konference: diakritika
[*] Jiri Virt <virt(zv)volny(tec)cz> - 4.4.2003 09:47:24
Jiste, ale pak to vyhledavani ..... ;-)
Jirka
OT: REPEAT-UNTIL (was: Promazani TStringLIst)
[*] Ond�ej Tu�n������'�������̿ - 4.4.2003 09:32:04
>> Z�ejm� jsi nepochopil moji pozn�mku
>> o obecn�m cyklu s N podm�nkami.
> [...]
>> Zjist�, �e jsi dostal krystalicky �istou iteraci
>> a selekce. Skaln� teoretik mus� slintat blahem.
> No to nevim, protoze jsi opomel na jednu takovou malickost, jakou jsou skoky
> vne cyklu, bez kterych to nikdy z elementarnich operaci neslozis
Eh sorry, n�stroj pro transfer of control ven z cyklu jsem pova�oval za
naprostou samoz�ejmost.
[snip]
> Proto bych zde zustal u tradicniho nazvoslovi
> a nenazyval to obecnym cyklem s N podminkami,
> ale technikou predcasneho opusteni/ukonceni cyklu, ktera nema nic spolecneho
> s konkretnim iteracnim schematem.
[snip]
> Podstata zvysene chybovosti spociva v absenci
> side-effectu, ktery ma iteracni schema
Aha. Zaj�mav� my�lenka. Side-effect coby ��d�c�, ba p��mo kl��ov�, okam�ik
programu. Hele napsal ty jsi n�kdy v�c ne� tis�c ��dek? Side-effect je snad
ta nejnebezpe�n�j�� v�c, kterou m��e program�tor pou��t.
[snip]
>> Cht�l jsi ��ct napravit nedostatek tv�ho
>> kresl�tka a p�ev�st:
> Ne, nechtel. Samozrejme ze by nebyl problem zavest nejakou specialni znacku
> pro konstrukci REPEAT-UNTIL stejne jako jsi obratil naruby syntaxi.
> Ovsem vsechny me zname metody strukturovaneho navrhu vychazeji ze
> struktogramu, ktere jsou reprezentovany nejakym hierarchickym grafem, at uz
> je to Jackson,
> Warnier-Orr atd.
Uv�domuje� si, �e to ten man�k vymyslel p�ed *T�ICETI* lety? To je v IT
prav�k!
> Zkusim namalovat fragment takoveho struktogramu
> neproporcionalnim pismem:
> ------------
> Hn+1 [ prikaz ]
> ------------
> !
> -----------*
> Hn [ iterace ]
> ------------
> !
> ------------
> Hn-1 [ telo ]
> ------------
> V teto strukture je telo v hierarchi Hn-1 podrizenym
> prvkem iterace resp. iteracniho schematu na urovni Hn.
> To odpovida cyklum FOR / WHILE s testem na zacatku.
> Vezmeme-li pripad konstrukce REPEAT-UNTIL, tak jeji
> struktogram vypada takto:> ------------
> Hn+1 [ prikaz ]
> ------------
> !
> -------------
> / \
> ------------ -----------*
> Hn [ telo ] [ iterace ]
> ------------ ------------
> !
> ------------
> Hn-1 [ telo ]
> ------------
> tohle jasne dokumentuje ten zdroj chyb: telo je rozbito na dve casti z nichz
> jedna je na stejne hierarchicke urovni jako vlastni iterace tj. je na ni
> nezavisla !!!
Do prdele pr�ce! Tak�e jen proto, �e kdysi n�jak� pr�kopn�k zapomn�l
objevit cyklus s podm�nkou na konci, si mysl�, �e je to �patn� cyklus bez
pr�va na existenci? A je mnohem lep�� toto�n� k�d uv�st v programu dvakr�t,
pop��pad� pro n�j zcela zbyte�n� zav�st podprogram.
Je n�jak� TEORETICK� d�vod, aby s�mantika p��kazu [ iterace ] zakazovala
testovat podm�nky a� PO proveden� t�la cyklu? NEN�. Je to jen omezen�
t�icet let star� konvence pro grafick� z�pis algoritmu! Nem� to _NIC_
spole�n�ho s kvalitou a aplikovatelnost� takov� konstrukce!
V dal��ch v�cech, ke kter�m jsem se explicitn� nevyj�d�il, v�cem�n�
souhlas�m s Erikem.
--
Ond�ej Tu�n�
Flex 4.0 Personal Edition Beta 1 build 2 dostupn� na www.flexlanguage.com
DateTime
[*] Robert Suska <SuskaR(zv)seznam(tec)cz> - 4.4.2003 09:40:04
Ahoj!
Urobil som to tak ako si to napisal cez ten interval a nejako mi to
neslo.... Nuz neviem asi mam zacarovany pocitac :) nakoniec som to urobil
takto a ide to len sa chcem opytat ci je to celkom ciste riesenie? Lebo
porovnavat string a porovnavat cislo je pre z hladiska rychlosti vypoctu
rozdiel
Var
s: String;
Begin
S:= '7.4.2003 21:30:20';
If (DateTimeToStr(now) = s then
begin
...
End;
Resp. este otazka nebolo by este lepsie v tomto pripade pouzit funckiu
StrComp() = 0 ???
A toto ide ok.
Robo
****************************************
Robert Suska
KORAK SLOVAKIA s.r.o.
Horna 52
974 01 Banska Bystrica
www.korak.sk robert(zv)korak.sk
Network administrator, Delphi programmer
My site: www.sefino.globus.sk
****************************************
-----Original Message-----
From: delphi-l-owner(zv)clexpert(tec)cz [mailto:delphi-l-owner(zv)clexpert(tec)cz] On
Behalf Of Jiri Foldyna
Sent: Thursday, April 03, 2003 9:21 PM
To: delphi-l(zv)clexpert(tec)cz
Subject: RE: DateTime
> Mam nasledujuci urcite trivialny problem potrebujem porovnat toto
>
> if now = StrToDateTime('3.4.2003 20:50:55') then
> ShowMessage('ok')
Ahoj,
tohle porovnani ti nevychazi proto, ze funkce Now vraci datum a cas vcetne
milisekund, zatimco tvuj zapis nastavuje cas na 20:50:55.000 - test na
rovnost ma sanci mensi nez jedna ku tisici, ze se trefi. Musis to testovat
na interval, napr.:
tDT1, tDT2, aDT : TDateTime;
tDT1 := StrToDateTime('3.4.2003 20:50:55');
tDT2 := StrToDateTime('3.4.2003 20:50:56');
aDT := Now;
if (aDT >= tDT1) and (aDT <= tDT2) then...
Zdravim
Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz
Uprava TDataSetDelete
[*] krakora <krakora(zv)prvnielektro(tec)cz> - 4.4.2003 09:12:10
Preji dobry den,
=20
jako uplny zacatecnik vas zadam o radu, ohledne nadefinovani nove akce
odvozene z TDataSetDelete.Potrebuji tuto akci upravit, tak aby se mi
p=F8ed smazanim zaznamu zobrazilo vlastn=ED dialogove okno se zadosti o
potvrzeni. Jde mi hlavne o to kam a jak tuto akci deklarovat, abych ji
mohl pouzivat a byla t=F8eba i dostupna v ActionListu.
Mockrat dekuji
OT: REPEAT-UNTIL (was: Promazani TStringLIst)
[*] Peter Vlkovic <vlkovic(zv)minv.sk> - 04.4.2003 09:20:25
Ahoj,
existuju pripady, kedy cyklus REPEAT-UNTIL pouzivam
a kedy su pre mna omnoho efektivnejsie, nez cykly WHILE
resp. FOR.
V riesenom probleme povodneho dotazovatela je vsak tento
cyklus uplne nevhodny.
> i := 0;
> repeat
> if temp[i]='###'
> then temp.Delete(i)
> else inc( i );
>
> max := temp.Count-1;
> until i > max;
Algoritmus, ktory pouzil Peter Sulek nie je prilis
cisty aj z toho dovodu, ze vo svojom cykle neosetril
pripad, ked bude pocet prvkov nulovy. V dosledku toho
dojde na prislusnom riadku k access violation.
Dalej zbytocne pouzita premennu "max", pretoze
kontrolu konica cyklu mozno vykonat priamo
v podmienke UNTIL.
Taktiez zastavam nazor, ze na riesenie povodneho
problemu dotazovatela je najvhodnejsi cyklus FOR
iduci od posledneho prvku k prvemu.
Potvrdila to nakoniec aj vacsina uzivatelov.
Nad vyssie uvedenou ukazkou kodu sa zrejme pozastavil
aj Petr Fejfar, ktory reagoval pomerne strucne:
> Tak to snad ne :-(
> Tohle spis dokladuje, proc vetsina metodiku
> konstrukci REPEAT-UNTIL zavrhuje jako "necistou"
Vyvolal tym sucasnu flame war, co zaiste nebolo
jeho cielom.
Existuje urcite vela sposobov, ako mozno "kvalitne"
napisanym algoritmom sprznit aj cykly FOR a WHILE,
v dosledku coho predsa nebudeme zatracovat tieto
kostrukcie programovacieho jazyka ako take.
* * *
> Ond�ej Tu�n�
Mimochodom, kolegu Tucneho by som chcel poprosit
(nechcem sa ho ale doktnut),aby nepouzival diakritiku
(mimochodom - v rozpore s pravidlami konferencie).
Drviva vacsina ucastnikov konferencie toto vseobecne
uznavane pravidlo akceptuje. Dovod je jednoduchy,
sposobov kodovania slovenskej a ceskej diakritiky
je mnoho a niektore postove programy (vratane mojho :-)
s tym maju problemy, takze miesto prislusnych znakov
zobrazuju paskvily. [V pripadnej reakcii ma prosim
nekamenujte, a nenutte ma pouzivat ineho postoveho
klienta nez mam. Som so svojim uplne spokojny.
Na rozdiel od Outlook-u mi robi mi len to co ma.
Nic navyse.]
Vlkovic
Promazani TStringLIst
[*] Ond�ej Tu�n������'�������̿ - 4.4.2003 08:51:53
>> loop
>> ...
>> exit when <podm�nka>;
>> ...
>> exit when <podm�nka>;
>> ...
>> end loop;
> nepaci sa mi to, exit je len "vylepsene" goto
:-) To nen� goto hochu. Z�kladn� vlastnost� goto je to, �e se mu d�v�
n�v�t� c�le skoku, kter� si program�tor do k�du um�st� t�m�� libovoln�.
EXIT je p��kaz pro (ne)podm�n�n� ukon�en� cyklu, to je n�co dramaticky
odli�n�ho.
>> Cykly pak mohou vypadat nap��klad takto (Flex):
>>
>> for i in 1..10 loop -- iterovat v p��m�m po�ad�
>>
>> for i in reverse 1..10 loop -- iterovat v opa�n�m po�ad�
>>
>> for i in concurrent 1..10 loop -- iterovat dle libov�le p�eklada�e
> pozor, concurrent obvykle znamena paralelne vykonavanie
> a nie sekvencne vykonavanie v lubovolnom poradi. Okrem toho
> si myslim, ze optimalne poradie by mal urcovat kompilator
> a nie programator.
To byl p��klad ve Flexu, kde concurrent je definov�no tak, jak jsem napsal.
Volba kl��ov�ho slova ov�em nen� n�hodn�, je to rezerva do budoucna p�esn�
pro to, co p�e� - obecn� paraleln� proveden�. Zahrnut� takov� vlastnosti
do jazyka ov�em vy�aduje je�t� vy�e�en� hodn� teoretick�ch probl�m�, tak�e
jsme to zat�m uspali.
> Vsetky tieto povymyslane konstrukcie riesi Eiffel jedinym cyklom,
> ktory umoznuje automaticky skontrolovat, ci nie je cyklus chybne
> naprogramovany:
Ten FROM / UNTIL je zaj�mav� my�lenka.
--
Ond�ej Tu�n�
Flex 4.0 Personal Edition Beta 1 build 2 dostupn� na www.flexlanguage.com
REPEAT-UNTIL (was: Promazani TStringLIst)
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 4.4.2003 08:43:14
From: "Erik Salaj" <info(zv)winsoft.sk>
> prekonane. Naozaj neviem ake zahadne
> "strukturovane principy" vlastne v tom
> sturkturovanom programovani vidis,
> mozno by si mohol byt konkretnejsi.
Uz jsem to v teto diskuzi psal nekolikrat,
naposledy do odpovedi Pavlovi Lstiburkovi. Strukturovane programovani/navrh
neznamena zvladnuti nekolika konstrukci jazyka a jejich intuitivni skladani
do algolritmu stejne jako programovani stylem "kdyz nevis jak dal, tak
vytvor novou tridu", nema nic spolecneho s OOD, prestoze programator
intenzivne pouziva prostredku OOP jazyka ;-)
Strukturovane/objektove se da myslet/navrhovat/programovat i bez podpory na
strane programovaciho jazyka - ostatne strojovy kod taky nic takoveho
nepodporuje - takze vsechny tyto metodiky predstavuji vice/mene ucinne
prostredky/nastroje pro podporu logicke abstrakce daneho typu s
lepsimi/horsimi vlastnostmi.
> hlavne nevyhody top-down designu su:
> 1. realne systemy nemaju "top" (napr. operacny
> system) a ani ho nemaju mat
Jenomze operacni system je zrovna priklad dost nevhodny, protoze se jedna v
podstate o virtualni pocitac a tedy v podstate o interface mezi skutecnym
pocitacem a aplikacni ulohou, i kdyz dovedu pochopit, ze pro nektere lidi v
pocitacovem svete predstavuje vrchol jejich oboru. Ostatne, prave kvuli
interfaceum sleduje vetsina OS stejne navrh po vrstvach definovany Dijkstrou
koncem 60 let ;-)
> zlyhava. V OOP sa preto preferuje bottom-up pristup, > resp. kombinacia
obidvoch tychto pristupov.
Co vim, tak vetsina soucasnych OOD metodik jako Yourdon, Jacobson, ale i
"NO-NAME" publikace tj.
v kompilaty nepuvodnich autoru metodik stylu Objektove programovani v C++
aj.) zacina analyzu problemu prochazenim funkcni specifikace ve forme
"vedeckeho clanku" a prirazovani trid k substantivum, atributu
k adjektivum a metod k verbum.
Pak pokracuje revizi seznamu objektu, kdy eliminuje/slucuje objekty a
vytvari vazby mezi nimi atd. Takze tezko lze hovorit o top-down nebo
bottom-up navrhu.
Ovsem co vetsina metodik neresi je, jak postupovat dal, kdyz uz jsou tridy
na svete tj. jak implementovat metody trid. A tady je stale mnoho prostoru
pro ony tradicni metody struktorovaneho navrhu.> Preto som chcel radsej linky na internet,
> ze si to bez problemov mozem precitat.
Jojo, jenomze podle mych zkusenosti, na internetu
se vetsinou (nejen) odborna literatura volne nevali.
Takze pokud tam nejaka skola nestrcila svoje scripta, nebo nekdo svuj
referat na takove tema, tak mas vetsinou smulu. Je mozne, ze kdybys hledal
neco od Drbala, tak treba tam nejaka scripta ma.
HTH, pf
RichEdit a doublebuffered
[*] V�t Kr�ka����+?��$g�^��3 - 4.4.2003 07:40:51
kdyz nastavim u RichEditu BoubleBuffered na true tak se mi v nem zobrazuje
jen kurzor, text tam sice je, ale neni videt. nevite nekdo co s tim D5/W2000
vitek
FB RDB$ROLES (P. Cisar?)
[*] Libor Junek, KSH-Data <junek(zv)ksh-data(tec)cz> - 4.4.2003 07:43:51
Funkcnost by mela byt OK. Problem je v tom ze kdyz provedes B/R tak o ten
field prijdes.
Zkousel jsem to kdysi na IB5 (s jinou sys. tabulkou) ale pocitam ze se tak
bude chovat i FB.
Libor
From: "Jaroslav Popluh�r" <delphi1(zv)acc.sk>
Sent: Friday, April 04, 2003 12:44 AM
> Uvazujem o pridani stlpca Description:Varchar(63) k uvedenej tabulke.
> Chcel by som sa opytat, ake nepriaznive nasledky to moze mat?
>
> Zalohovanie, obnova, integrita, a vobec funkcnost FB?REPEAT-UNTIL (was: Promazani TStringLIst)
[*] Erik Salaj <info(zv)winsoft.sk> - 04.4.2003 01:11:00
> To je pravda, ale nic z toho nejsou principy strukturovaneho
> programovani/navrhu, ale spis popis nejake prvni normy jazyka Pascal,
ktery
> byl urcen predevsim pro vyuku a publikovani algoritmu.
jazyk Pascal odraza zasady strukturovaneho programovania, takze
tam celkom nazorne vidno, ze niektore z tychto zasad sa ukazali byt
prekonane. Naozaj neviem ake zahadne "strukturovane principy"
vlastne v tom sturkturovanom programovani vidis, mozno by si mohol
byt konkretnejsi.
> > Top-down design sa uz takisto nepreferuje.
>
> Nesouhlasim. Mas-li vetsi problem tj. vice stroju, vice dodavatelu apod.,
> stejne ho budes funkcne i fyzicky distribuovat tj. dekomponovat metodou
> shora-dolu na mensi useky, aby ses vesel mj. treba do dodavatelskych
hranic
> apod.
hlavne nevyhody top-down designu su:
1. realne systemy nemaju "top" (napr. operacny system) a ani ho nemaju mat
2. top-down design nepodporuje reusabilitu. Vedie totiz k tomu, ze sice
navrhnes system, ktory odpoveda poziadavkam, je korektny, efektivny,
atd. ale dnes to uz nestaci, pretoze je tu dalsia velmi dolezita poziadavka
a to poziadavka jednoduchej udrzby systemu a tam top-down metoda
zlyhava. V OOP sa preto preferuje bottom-up pristup, resp. kombinacia
obidvoch tychto pristupov.
> > Dnes uz je naozaj programovanie niekde
> > uplne inde ako v 70-tych rokoch a zdaleko nie
> > vsetko, co platilo stale plati.
>
> Souhlas, ale zase rada z toho bude platit stale.
to je poriadne trufale a zaroven pochybne tvrdenie
> > Ak je to mozne, uved nejake linky na dokumenty,
> > kde sa nedoporucuje pouzivat repeat, rad by som
> > sa dozvedel PRECO by mal byt nachylny k chybam.
>
> Pokud Ti nestaci moje dnesni vysvetleni se struktogramy, asi Ti nezbyde,
nez
> studovat
> a snazit se pochopit toho Jacksona :-)
len ci to niekde najdem. Preto som chcel radsej linky na internet,
ze si to bez problemov mozem precitat.
> > tie techniky musia mat predovsetkym zmysel
>
> To IMHO maji, protoze by je nikdo jinak nepouzival a nikdo by je
> neimplementoval do CASE systemu.
dufajme, ze je to tak. Ja som, co sa tyka CASE systemov,
skepticky a problem programovania vidim niekde uplne inde.
CASE podla mna zdaleka nesplnili ocakavania, ktore sa
do nich vkladali a zvycajne su obycajnym dokumentacnym
nastrojom, nic viac.
Erik
FB DDL a Transakcie (P. Cisar?)
[*] Jaroslav Popluh�r - 4.4.2003 00:46:42
Hello Delphi,
Maju DDL prikazy implicitne Autocommit alebo je mozne pouzivat
transakcie?
Vsetky typy?
Konkretne mi ide o prikazy grant a revoke.
Ak urobim revoke, kedy na to zareaguju ostatni klienti?
Jaro
FB RDB$ROLES (P. Cisar?)
[*] Jaroslav Popluh�r - 4.4.2003 00:44:04
Hello Delphi,
Uvazujem o pridani stlpca Description:Varchar(63) k uvedenej tabulke.
Chcel by som sa opytat, ake nepriaznive nasledky to moze mat?
Zalohovanie, obnova, integrita, a vobec funkcnost FB?
Jaro
Komponenta pro seriovy port
[*] Petr Zahradnik <clexpert(zv)clexpert(tec)cz> - 04.4.2003 00:40:49
Puvodni zprava, kterou napsal Ing. Zden=ECk =D8ezn=ED=E8ek dne 4 Apr 2003:
> vse jsem trochu vyzkousel, nejvice se mi libi
> http://sourceforge.net/projects/tpapro/ , jen=BEe licenci nechapu. Vse j=
e
> vcetne zdrojaku. Nevis jsou ty komponenty free ?
No ty komponenty Async Professional je nejlepsi komunikacni knihovna pro
seriovou komunikaci na svete a dosud to byl komercni produkt. Jenze v
lednu TurboPower ohlasil, ze s tim konci a uvolnil to do OpenSource.
S pozdravem
Petr Zahradnik, pocitacovy expert
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D
Petr Zahradnik, Computer Laboratory
Obvodova 740/14, P.O. Box 15, 400 07 Usti nad Labem
Telefony: 475 500 610, 475 501 627, 475 511 337
Mobilni telefon: 602 409 601, Fax: 475 511 338
WWW: http://www.clexpert(tec)cz, http://www.zahradnik(tec)cz
E-Mail: clexpert(zv)clexpert(tec)cz, petr(zv)zahradnik(tec)cz
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D
Komponenta pro seriovy port
[*] Ing. Zden�k �ezn��ek - 4.4.2003 00:28:00
> From: "Ing. Zden�k �ezn��ek" <reznicek(zv)pce(tec)cz>
> > prosim, nevite nekdo o nejake kvalitni komponente pro seriovy port?
Nejlepe
> > asynchronni ?
>
> http://sourceforge.net/projects/tpapro/
> http://sourceforge.net/projects/asyncfree
> http://www.ararat(tec)cz/synapse/
>
> Petr Vones
Diky,
vse jsem trochu vyzkousel, nejvice se mi libi
http://sourceforge.net/projects/tpapro/ , jen�e licenci nechapu. Vse je
vcetne zdrojaku. Nevis jsou ty komponenty free ?
Zdenek Reznicek
OT: REPEAT-UNTIL (was: Promazani TStringLIst)
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 3.4.2003 22:52:06
From: "Lstiburek Pavel" <Lstiburek(zv)ceb(tec)cz>
> Ahoj, neda mi to se nezapojit,
> kdysi jsem se ucil, ze zasadam strukturovaneho
> programovani odpovidaji
[snip]
Spis Ti nekdo vyjmenoval, na jake typy cyklu si momentalne vzpomel a nejspis
Te to ucil tak, ze kdyz pouzijes ty a ty struktury
a nejak je dle vlastniho uvazeni poskladas, tak ze programujes
strukturovane.
Bohuzel...
Je to asi jako kdyz Te nekdo necha nabiflovat ta a ta slovicka a tu a tu
gramatiku a ocekava, ze z Tebe udela spisovatele :-) Takovym zpusobem Te
nenauci ani ten jazyk...
Podle mych zkusenosti taky prevladajici zpusob
vyuky.
***
Strukturovane programovani resp. strukturovany navrh je trochu neco jineho:
jde o to vnest i do toho skladani vytipovane mnoziny elementarnich kontrukci
nejaky rad a necucat si ho intuitivne z prstu.
Klasicke dilo v tomto smeru je ono citovane The Principles of Structure
Programming od M.A.Jacksona
nekdy z roku 1974, ktery se ve stejne dobe stejne jako N.Wirth soustredil na
myslenku Program = Algoritmus + Data. A byl v tom velmi uspesny: zacal
popisovat vstupni/vystupni data pomoci struktogramu a kompozici techto
struktogramu mu vznikl jedennstruktogram,
do ktereho kdyz se vepsaly odpovidajici podminky
a operace, tak provedl pozadovaneho zpracovani dat. Protoze ty struktogramy
reprezentuji v podstate sekvencni soubory, presahuje tato technika pouhou
datarinu a da se pouzit temer vsude, napr. pri implementaci komunikacnich
protokolu, pri obsluze udalosti v event-driven prostredi atd.
Cele se to nazyva JSP (Jackson Structure Programming) a zahrnuje to nektere
pozoruhodne techniky jako backtracking a inverzi podprogramu. V techto
technikach se bezne uziva "kontrolovaneho" skoku, takze neni pravda, ze
strukturovane
programovani je jen to s Continue, Break a exit.
Temer kazdy Case podporuje JSP a umi zpravidla generovat prelozitelne
zdrojovky v C.
Navazujici objektova technologie je JSD (Jackson System Development), ktera
pouziva pro implementaci vnitrniho zivota objektu JSP. JSD je taky velmi
ucinna a pozoruhodna technologie, ktera umoznuje objektovy navrh systemu bez
uziti OO jazyka (!)
Vrele doporucuji ke studiu obe dila, i kdyz si uvedomuji, ze nejaky cas
trva, nez clocek tu technologii stravi tak, aby ji mohl pouzivat v realnem
zivote.
B. Soukup o JSP rika, ze deti v obecne skole ji zvladnou temer hned,
programatorum to trva
tak 2 roky, nekterym az 5 let a nekteri programatori ji nezvladou nikdy
:-)))
HTH, pf
DateTime
[*] Viliam Mlich <mlich1(zv)volny(tec)cz> - 3.4.2003 22:44:06
> if now = StrToDateTime('3.4.2003 20:50:55') then
V tom 'Now' su aj milisekundy a fakticky nikdy to neskace po celych
sekundach. Zdalo by sa, ze by stacilo z toho vybrat len sekundy, ale v
praxi ti ani toto nemusi obcas zafungovat.
Jedine spravne riesenie je nerovnost. Lebo ani operacne systemy, ktore
o sebe tvrdia, ze to zarucuju, ti nemusia vzdy dat riadenie v urcitom
presnom okamziku, nehovoriac o Windows, aj ked podla mojich skusenosti
je na tom Windows niekedy aj lepsie.
Nehovoriac o tom, ze mozes porovnavat priamo TDateTime, bez
zdrziavania sa prevodmi, kde navyse riskujes, ze niekde bude iny
DateSeparator apod.
Este jedna prosba: Hosi, s tymi kydmi o cykloch sa presunte niekam do
prdele.
bye
vmlich
REPEAT-UNTIL (was: Promazani TStringLIst)
[*] Petr Fejfar <development(zv)callnet(tec)cz> - 3.4.2003 21:33:40
From: "Erik Salaj" <info(zv)winsoft.sk>
> niektore principy, napr. strukturovanie procedur
> (t.j. vnaranie procedur a funkcii) su
> v protiklade s modularitou a reusabilitou
> a preto sa uz dnes nepovazuju za vyhodne.
> Takisto zoskupovanie casti programu
> podla syntaxe (najprv konstanty, potom premenne,
> atd.) sa ukazalo ako nespravne chapanie "poriadku"
> v programe
To je pravda, ale nic z toho nejsou principy strukturovaneho
programovani/navrhu, ale spis popis nejake prvni normy jazyka Pascal, ktery
byl urcen predevsim pro vyuku a publikovani algoritmu.> Top-down design sa uz takisto nepreferuje.
Nesouhlasim. Mas-li vetsi problem tj. vice stroju, vice dodavatelu apod.,
stejne ho budes funkcne i fyzicky distribuovat tj. dekomponovat metodou
shora-dolu na mensi useky, aby ses vesel mj. treba do dodavatelskych hranic
apod.
> Dnes uz je naozaj programovanie niekde
> uplne inde ako v 70-tych rokoch a zdaleko nie
> vsetko, co platilo stale plati.
Souhlas, ale zase rada z toho bude platit stale.> Ak je to mozne, uved nejake linky na dokumenty,
> kde sa nedoporucuje pouzivat repeat, rad by som
> sa dozvedel PRECO by mal byt nachylny k chybam.
Pokud Ti nestaci moje dnesni vysvetleni se struktogramy, asi Ti nezbyde, nez
studovat
a snazit se pochopit toho Jacksona :-)
BTW, mel jsem kopii skvele knihy na toto tema,
kterou jsem nekomu pujcil, ale nikdo se k tomu nezna :-(
Napsal ji kolektiv autoru, bohuzel si nepamatuju, jak se presne jmenovala -
v nazvu mela neco o bezpecnosti SW na jadernych reaktorech. Pocatkem 90.let
jsem totiz oponoval nektere preklady IEC norem, mezi nimi IEC xxx (myslel
jsem, ze 860, ale ta to neni), ktera se zabyvala vyhodnocovanim SW
nasazovaneho v RT systemech v jaderne energetice a chteli, abych delal
vedouciho diplomove prace mladenci, ktery mel naprgat nejake hodnoceni
spolehlivosti v duchu teto normy.
A nekde v tomto okruhu lidi jsem se dostal ke knize, ktera se zabyvala
statistickym vyhodnocovanim vlivu strojovych instrukci na spolehlivost
programu, vcetne konstrukci z vyssich jazyku, myslim ze Intelovske PL/M,
ktere se tenkrat pouzivalo na SBCkach jeste pred rozmachem C. Takze kdybys
patral timto smerem, mozna bys ji nasel.> tie techniky musia mat predovsetkym zmysel
To IMHO maji, protoze by je nikdo jinak nepouzival a nikdo by je
neimplementoval do CASE systemu.
Bye, pf
DateTime
[*] Petr Brant <brant(zv)dcomm(tec)cz> - 3.4.2003 21:10:20
Nesmis pouzivat porovnani pro tento typ (double), pouzij radeji nejaky =
maly
interval, napriklad
if now < abs (StrToDateTime('3.4.2003 20:50:55') - 1/24/60/30) a =
podminka
bude splnena, kdyz se aktualni cas bude lisit od toho tveho o mene nez =
dve
sekundy.
RNDr. Petr Brant [brant(zv)dcomm(tec)cz]=20
http://web.redbox(tec)cz/petr.brant
D&COMM s.r.o.
Korunova=E8n=ED 6
Praha 7
tel. +420724007234
Mam nasledujuci urcite trivialny problem potrebujem porovnat toto
if now =3D StrToDateTime('3.4.2003 20:50:55') then=20
ShowMessage('ok')
Skusal som to aj takto
Var
ADateTime: TDateTime;
Begin
ADateTime:=3D StrToDateTime('3.4.2003 20:50:55');
if now =3D ADateTime then ...=20
End;
Napisal som to tak preto lebo v helpe je taky zapis ze nerobi hned
porovnanie if now =3D StrToDateTime ale pouziva premennu typu
TDateTime ale
nic.
Ale ono sa to proste proste provna ale ked pride ten datum a cas
ktory je v
systeme cize now tak sa mi nezobrazi ShowMessage a tento kod mam v
TTimer a
DateTime
[*] Jiri Foldyna <jiri.f(zv)avizo(tec)cz> - 3.4.2003 21:21:08
> Mam nasledujuci urcite trivialny problem potrebujem porovnat toto
>
> if now = StrToDateTime('3.4.2003 20:50:55') then
> ShowMessage('ok')
Ahoj,
tohle porovnani ti nevychazi proto, ze funkce Now vraci datum a cas vcetne
milisekund, zatimco tvuj zapis nastavuje cas na 20:50:55.000 - test na
rovnost ma sanci mensi nez jedna ku tisici, ze se trefi. Musis to testovat
na interval, napr.:
tDT1, tDT2, aDT : TDateTime;
tDT1 := StrToDateTime('3.4.2003 20:50:55');
tDT2 := StrToDateTime('3.4.2003 20:50:56');
aDT := Now;
if (aDT >= tDT1) and (aDT <= tDT2) then...
Zdravim
Jiri Foldyna
mailto:jiri.f(zv)avizo(tec)cz