mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.delphi
Titolo: Progetto per JEDI

Salve a tutti,
Ne ho già accennato in un altro post ma ho pensato di entrare più nel
dettaglio riguardo la cosa.
Per ora il progetto riguarda UN SINGOLO property editor per niente banale.
Tuttavia ne sto progettando altri che si andrebbero ad aggiungere a quello
esistente.
Se siete interessati a collaborare, ecco le caratteristiche che richiedo:
1) OTTIMA conoscenza lingua Inglese, il Team Jedi è un team internazionale
quindi la lingua ufficiale è l'inglese.
2) Buona conoscenza di Delphi e dei suoi meccanismi interni, specialmente i
property editors.
Se non avete familiarità con essi un buon punto di partenza è:
http://www.drbob42.com/delphi/property.htm
Che dovrebbe darvi un buon inizio in merito.
Per ulteriori informazioni, scrivetemi in privato.
--
Andrea( Team Jedi )

 Per ora il progetto riguarda UN SINGOLO property editor per niente banale.
Di che property editor si tratta?
[CUT]

 ha scritto nel messaggio
news:N1R28.19954$ly.6...@twister1.libero.it...

Si tratta di un property editor per TPicture e TBitmap, include alcune cose
molto peculiari come per esempio l'inclusione
del dialogo per la scelta del file direttamente all'interno dell'editor(
quindi non si preme nessun bottone per mostrarlo ),
una specie di "folder direct" per cui si può impostare il nome di un folder
direttamente in una edit box, premere un bottone e vedere gli ShellControls
di D6 AGGIORNATI( ma si può modificare volendo per permettere lo sviluppo
con altre versioni di Delphi ) cambiare folder direttamente a quello
digitato.
Inoltre questo property editor supporta dei plug-in grafici, nel senso che
si possono creare degli editor grafici( tipo Paint ) per manipolare le
immagini e registrarli direttamente con il PE per avere degli strumenti
grafici senza dover cambiare programma.
Ovviamente la complessità del plug-in dipende dal programmatore... :D)
Adesso, chi vorrà ulteriori info, per favore mi contatti in privato.


Newsgroup: it.comp.lang.delphi
Titolo: GUIDA AIUTO !?

Voglio imparare a prog con delphi 6 enterprise  premetto non so nulla mi
indirizzate verso un buon sito dove poter scaricare una guida
PS. conosco al 40 % pascal

Andrea C wrote:

http://www.marcocantu.it
 / 
http://www.marcocantu.com
 / 
http://www
.
dedonline.com
Essential delphi ed Essential pascal
Scaricati anche i sorgenti di Mastering Delphi 6 (volendo anche i 
precedenti e/o successivi).
http://www.google.com
http://www.torry.net
http://community.borland.com
http://delphi.icm.edu.pl/
Per i libri ognuno ha da consigliare il preferito. Ti suggerisco 
"Laboratorio di Delphi" di Barbini, Dessena 
http://www.apogeonline
.
com/libri/00737/scheda , un approccio piu pratico al problema.
 
Buono studio.
Newsgroup: it.comp.lang.delphi
Titolo: BDE

Salve,
è possibile usare delphi senza il BDE?
Io vorrei fare una applicazione con delphi che invece di puntare al db
definito con il dbe, legga e/o scriva da un determinato file.
Grazie
    Marco Olivieri

Sicuramente sì!
Tutto dipende da cosa e come lo vuoi fare.
Ci sono almeno 2 strade per gestire un DB senza BDE
1- usare il componente MIDAS ClientDataSet che ti permette utilizzato in
modalità briefcase di lavorare senza l'aggancio ad una fonte dati BDE, ma
su un file (file.CDS) locale. In questo caso ricordati di portarti dietro
la libreria midas.dll. Il metodo ha parecchie limitazioni ed è
consigliabile solo per piccoli archivi e non funziona assolutamente in
rete.
2- usare i componenti AdoExpress e sostituire il BDE con ADO, se la
macchine su cui devi installare il programma hanno Win 2000 o Office 2000
allora non dovrai portarti dietro nessuna libreria, in caso contrario sarà
bene installare l'MDAC, lo trovi sul cd di Delphi 5.
Marco Olivieri ha scritto:


 la libreria midas.dll.
E di pagare un bel gruzzolo ....... :-)

 >     Marco Olivieri
Esiste anche un componente dal nome SQLDirect che sostituisce 
completamente il BDE e fa un'accesso diretto (o via ODBC per quei
DB non supportati) come il MIDAS. Costa pochi dollari e vale la
pena di provarlo.
Lo trovi su 
 
http://www.sql-direct.com
e costa 99 dollari senza sorgenti.
Non ho fatto dei test comparativi, ma solo delle prove su accesso a
grandi 
DB (milioni di records) e si e' comportato molto bene.
Fausto





Se non trasferisci dati su un'altra macchina non 
devi pagare niente a nessuno. E' necessaria una licenza solo nel caso di 
trasferimento di dati tra due o più macchine con qualsiasi mezzo (rete, posta 
elettronica, dischetti ecc.). Per cui per l'uso in locale è 
gratuito.


Il bel gruzzolo comunque è di 600 $ per server 
senza limitazioni al numero di client (max 4 
processori)



definito con il dbe, legga e/o scriva da un determinato file.
Per piccoli archivi, puo usare RXMemoryData, che simula una tabella
(senza indici), ma devi salvarti i dati da te (non dovrebbe essere
difficile). Non richiede il BDE.
Altrimenti, devi derivarti a manina una classe da TDataset e il
risultato sarebbe simile, ma potresti incorporare le funzioni di
salvataggio/caricamento. C'e' un po' di lavoro pero'
Ciao
--
Piero Bonanno
bop...@libero.it
pie...@tiscalinet.it
bop...@tin.it
bpie...@hotmail.com
______________________________________________
"Madame, lei ha tra le gambe uno strumento
che puo' offrire piacere a migliaia di persone,
e tutto quello che sa fare e' grattarlo"
- Sir Thomas Beechan a una violoncellista
Newsgroup: it.comp.lang.delphi
Titolo: Aiuto! Non riesco a far girare sul mio PC prodotti Borland

Ciao.
Ho un Pentium II 300 con 64MB di Ram ed ho provato ad installare prodotti
Borland (Delphi 5, C++Builder) in tutte le condizioni, persino a Sistema
Operativo reinstallato nuovamente.
Terminata l'installazione, dopo aver riavviato il PC, il sistema si pianta
con la schermata di presentazione del prodotto.
Mi date una mano a capire cosa posso fare?
Grazie per le eventuali risposte e la pazienza a me prestata.
Roberto

con la schermata di presentazione del prodotto.
Non per fare l'avvocato del diavolo, ma hai pensato a controllare
l'integrita del tuo hd?
Inoltre, installi tutto insieme? Hai provato a fare installazioni parziali?
Andando per gradi hai un maggior controllo e quindi hai maggiori
possibilita'di sapere che cacchio è che ti blocca il pc.
Inoltre, vedi se la stessa cosa la fanno altri software tipo Word o Excel:
forse hai una ram difettosa.
Prova e se non va fammi sapere, ok?
AS
"Se è Microsoft non funziona"

 Mi date una mano a capire cosa posso fare?
fai quanto ti ha detto Alberto Salvati, però ci dovresti dire che scheda
grafica usi.
Nel frattempo prova a ridurre ( al minimo ) l'accelerazione hardware del PC
e poi prova ad avviare Delphi o il suo compagno.
Facci sapere.....ciaoooo !!!!
Antonio Tarolla
Newsgroup: it.comp.lang.delphi
Titolo: AIUTO su sendmessage

Sono riuscito dopo vari tentativi a utilizzare la funzione sendmessage per
far comunicare una form del mio applicativo con una form contenuta in una
dll esterna. Il mio problema è che non riesco a capire come poter passare i
parametri. Mi spiego meglio: avrei la necessità di passare un array of
string.

...

Semplicemente, non puoi! :)
SendMessage ti permette di inviare messaggi di notifica (tuttalpiù puoi
utilizzare WParam e LParam x i tuoi comodi, cmq si tratta di 2 integer) e
non molto altro. C'è però un messaggio creato appositamente per questo
scopo, si chiama WM_COPYDATA.
Cmq le tecniche di Interprocesso sono moltissime e spaziano dai Memory
Mapped File alle Pipe....
Ciao!
--
- Carlo -
PS : Ti ho risposto anche di la e ti ho detto di evitare il crosspost!

 ha scritto nel messaggio
news:46dg5.28147$wS2.1...@news.infostrada.it...

Ti ringrazio per i suggerimenti e mi scuso per il crosspost, ma è veramente
importante per me risolvere il problema. In merito all' esempio di Nando ti
sarei veramente grato se mi potessi chiarire la procedura del chiamante che
riporto di seguito come scritta:
GetMem(Msg,Lenstr);
try
    StrLCopy(Msg,Pchar(DebugMsg),Lenstr-1);
    CDS.lpData:=Msg;
    SendMessage(Wnd,WM_COPYDATA,0,LParam(@CDS));
finally
    FreeMem(Msg,LenStr);
end;
In particolare mi potresti spiegare come sono definite le variabili
"Msg,DebugMsg,CDS.lpdata".
Presuppongo Che siano tipo string ma non riesco a capire cosa è
effetivamente CDS.lpdata.
E per finire, come mai nel ricevente alla fine è presente questa istruzione:
"Message.Result:=Integer(True);"?


Ok ho capito cosa è CDS ma pur guardanfo l'help non riesco a capire come
poterla utilizzare. Potresti per cortesia farmi un esempio supponendo che io
debba passare il valore di due campi (Numerico,Alfanumerico). Te ne sarei
veramente grato.

veramente grato.
Aspetta...forse Nando ha ragione, potrebbe trattarsi di Intra-Processo e non
inter-processo!
Vai su Libero.WinApi e leggi le considerazioni di Nando come risposta al
mio...
In definitiva questa DLL giace nel tuo spazio di indirizzamento, ovvero sei
stato tu a caricarla?
In caso affermativo sarà sufficiente passare il puntatore della struttura
per utilizzarla, altrimenti proseguiremo il discorso del WM_COPYDATA!
Scegli un NG su cui continuare questo thread (ti consiglio Libero.Winapi
poichè c'è anche Nando che è intervenuto nella discussione) mentre di qui
sono intervenuto solo io!


Newsgroup: it.comp.lang.delphi
Titolo: Mouse...

ciao a tutti,
forse è una scemenza ma io non ci riesco!!!!
c'è un modo per recuperare l'altezza del mouse????
:) thanx!!!!
------------------------
Diego Di Filippo
  R&amp;D Software Developer
 
www.ada-project.com
-----------------------
--- posted by geoForum on 
http://www.delphiedintorni.it

 ha scritto nel messaggio
news:cdhYd.18657$WC1....@tornado.fastwebnet.it...

Newsgroup: it.comp.lang.delphi
Titolo: Programma in TaskBar

Non datemi del pazzo, ma ricordo di aver visto una volta un componente che
dava la possibilità, quando si riduceva ad icona il programma, di inserirlo
nella task-bar, vicino all'orologio per intenderci, come WinAmp... Ora non
riesco piu' a trovarlo e anche girando anche dentro a 
torry.net
 non riesco a
intercettarlo.
Potete aiutarmi...

 ha scritto nel messaggio
news:mZay9.78948$aL4.2...@news1.tin.it...


Non e' che per caso vuoi anche sapere "perche' Delphi e' meglio di VB"?
Oppure dove "scaricare qualche libro in italiano per Delphi"? oppure dove
"scaricare Delphi 7 personal"? e se "posso realizzare e vendere applicazioni
di database con la versione personal"?
Facci sapere ;)
Ciao, Sandro
Newsgroup: it.comp.lang.delphi
Titolo: Domanda da idioti (editare un testo)

Lo so sono ignorante ma come posso aprore un file .txt per smanettarci
sopra?
Grazie a chiunque, mosso a pietoso gesto, vorrą aiutarmi.

 Grazie a chiunque, mosso a pietoso gesto, vorrą aiutarmi.
Andrea

 Spero di non aver detto una cazzata!!!!
No, non l'hai detta, ma cosě aggiungi anche la libreria Win32.pas al
progetto aumentando le dimensioni dell'exe (salvo che non ci sia un altro
componente della stessa libreria nel progetto)
Nel caso tu voglia usare questa soluzione ti consiglio:
RichEdit1.PlainText := True; // Salva in formato solo testo
RichEdit1.WantTabs := True; // Ti permette di usare i Tabulatori  nel testo
RichEdit1.Lines.LoadFromFile('NomeFile.txt'); // Carichi il file
Quando salvi:
RichEdit1.Lines.SaveToFile('NomeFile.tex'); // Salvi il file
Fine
.G

 ha scritto nel messaggio
news:bsnW6.146$XG2....@nreader1.kpnqwest.net...

Newsgroup: it.comp.lang.delphi
Titolo: copia e incolla

E possibile fare copia e incolla da una dbgrid ad un campo di edit?
Io non ci sono riuscito, ma sicuramente ho sbagliato qualcosa. Grazie.
Giuseppe
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

>E possibile fare copia e incolla da una dbgrid ad un campo di edit?
Copia e incolla di COSA?
Del dato di una colonna?
A.
Newsgroup: it.comp.lang.delphi
Titolo: trasformare una form in immagine?

Salve a tutto l'eccelso ng.
Vorrei riuscire a trasformare la mia form e tutto il suo contenuto in
una immagine .jpeg o altro...comunque un'immagine. Cercando nei vecchi
post ho trovato la soluzione: si userebbe il componente TBitmap. Ma
quello che voglio fare io č salvare la form dopo che ho mandato in
esecuzione il programma.
Cioč: la form prima di mandare in esecuzione il programma ha una certa
struttura e caratteristiche, ma dopo che faccio partire l'eseguibile
ne puň avere di diverse ...per esempio cambio il contenuto di una
label etc...bene..
come si puň fare a salvare la form dopo aver lanciato l'eseguibile?
Mille grazie per ogni consiglio e ciao a tutti
Guasoni Massimiliano

Dall' help on line delphi 7 io trovo :
This example uses an image, a button, and a shape component on a form. When
the user clicks the button, an image of the form is stored in the FormImage
variable and copied to the Clipboard. Then image of the form in then copied
back to the image component, producing an interesting result, especially if
the button is clicked multiple times.
procedure TForm1.Button1Click(Sender: TObject);
var
  FormImage: TBitmap;
begin
  FormImage := GetFormImage;
  try
    Clipboard.Assign(FormImage);
    Image1.Picture.Assign(Clipboard);
  finally
    FormImage.Free;
  end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
  Shape1.Shape := stEllipse;
  Shape1.Brush.Color := clLime;
  Image1.Stretch := True;
end;
 
A questo punto se è una bitmap ce l'hai negli appunti e la puoi salvare come
un file
oppure dopo clipboard puoi mettere
...
  Image1.Picture.SaveToFile ('C:\qqq.bmp');
...
e la salvi sul file.
Eventualmente con
...
  Image1.Picture.LoadFromFile ('C:\qqq.bmp');
...
la puoi richiamare dal disco fisso.
Ciao
Mario
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

Newsgroup: it.comp.lang.delphi
Titolo: Reportistica in Delphi ..... FUZZY REPORT

Ciao a tutti,
sono qua per comunicarvi che riprende finalemnte vita il progetto Fuzzy
Report originariamente generato da Fabio dall'Aria poi andato a morire per
mancanza di tempo.
Ho creato un nuovo sito e stň organizzando la community per fare in modo
che il progetto continui a vivere.
www.fuzzyreport.com
 
Vi prego di iscrivervi e dare il supporto che potete.
Grazie
Alessandro
www.fuzzyreport.com
 - 
www.fuzzyreport.com
 - 
www.fuzzyreport.com
 -
--- posted by geoForum on 
http://www.delphiedintorni.it

Si ma non mi manda la password!
:-)
-- 
______________________
Gaetano
"Nel coltellino svizzero di Chuck Norris c'č McGyver" 

 mancanza di tempo [...]
Il problema più grosso di FuzzyReport, derivante anche dalla mancanza di 
un sito per supportarne e coordinarne lo sviluppo, è la sua 
"irreperibilità".
Come minimo, almeno un link per il download doveva esserci... ;-)
-- 
MARCO BREVEGLIERI
  (
http://www.marco.breveglieri.name
)

Complimenti per l'iniziativa.
Spero che FuzzyReport torni presto ai vecchi splendori.
Roberto 

l'iniziativa sarebbe bella se poi arrivassero le passowrd!


Newsgroup: it.comp.lang.delphi
Titolo: Due memo uguali ...

Salve a tutto il ng,
ho un problemino ...
due form : form1 e form2
la form2 creata all'inizio con un Memo al suo interno che contiene  il  log
di una procedura
Mentre la la form1 viene creata ad una mia azione e anche essa contiene un
memo questo memo dovrebbe essere la fotocopia 'aggiornata' del memo sulla
form2
COME FACCIO?
ho gia provato con:
form1.memo:=form2.memo
e questo va bene se non che quando il memo sulla form2 cambia quello sulla
form1 non si aggiorna
ho pensato di mettere un timer che la aggiorni ricosivamente ...ma non mi
sembra un bel modo Avete un modo piů
elegante di risolvere ??
grazie a tutti in anticipo !!
ciao Luca

Evento OnChange.
Andrea

 sembra un bel modo Avete un modo più

Newsgroup: it.comp.lang.delphi
Titolo: altro problema

allora ho un label e un edit  , nel label ho visualizzato l'orario del pc
mentre nell'edit vado ad impostare un altro orario
voglio che quendo il label e l'edit sono uguali parte un messaggio
io ho scritto
if  edit1.text=label.caption then messagedlg ............
ma non vedo nessun messaggio qual'è il problema ?

 ma non vedo nessun messaggio qual'è il problema ?
il codice che hai scritto lo devi mettere nell' OnChange (o altro evento
utile dell'edit)
questo se, a runtime, cambia l'edit
se invece vuoi che quando cambia la label ti dia il messaggio
il codice lo devi mettere nell'evento o metodo che aggiorna la label ...
tipo un timer o altro
  ciao
  Mak

 ha scritto nel messaggio
news:IeZka.22509$DT4.6...@twister1.libero.it...


if  edit1.text=label.caption then messagedlg
sempre che le due string coincidano avrai il messaggio
  ciao
  Mak

 prima o dopo dell'assegnazione della propietà caption della label


 grazie per il tempo dedicato
niente :)
  ciao
  Mak

Andrea, ti invito cortesemente a postare i messaggi nuovi scegliendo un
subject piu' esplicativo, visto che hai postato consecutivamente questi topic:
"2 quesiti", "altro problema".
Non abituarti a questo, e' cattiva cosa non postare il topic di un thread.
Ciao
-- 
Morde. 
morde[at]programmer[.]net
Newsgroup: it.comp.lang.delphi
Titolo: Programmare Palmari

Ciao a tutti,
Qualcuno saprebbe dirmi se in rete c'è
qualche set di componenti per D5 per
la programmazione su parmari?
Grazie a tutti



Si era parlato in passato di questo tipo di sviluppo, cerca nel ng.
Morde


se ti riferisci ai pocket pc 2000/2002 con delphi non si può. La microsoft
mette a disposizione per il download gratuito (360 mb) gli Embedded Visual
Tools che includono Embedded Visual Basic ed Embedded Visual C++, linguaggi
creati ad hoc per i pamari "microsoft". In alternativa puoi utilizzare
Visual Studio .net che ha già il supporto per i dispositivi mobili.
ciao!

 Oppure J2ME ... da non dimenticare...
tutta robaccia. Ora che appariranno i tablet pc tutta sta roba diventera'
obsoleta e inutile, e si programmera' in Delphi puro, dato che sui tablet
girera' un vero Windows XP customizzato per le funzioni dei tablet, ma
totalmente compatibile con il software gia' esistente.
Ciao, Sandro

 fonte puoi affermare che è "Tutta Robaccia"???
sul fatto che Java non sia granche' affermato, in generale, non credo ci
siano dubbi. "Destinato a sparire" non credo: ancora oggi sopravvivono
fortran e cobol, non vedo perche' non possa sopravvivere java, tuttavia il
.net ha tutte le carte in regola per soppiantare java in tutti i campi di
applicazione, data l'enorme compatibilita' (annunciata) verso i dispositivi
piu' disparati.
Dicevo "robaccia" intendendo che non ha senso, oggi, disperdere le proprie
energie per acquistare, imparare ad usare e interfacciare una miriade di
strumenti di sviluppo diversi per i palmari (che ad oggi hanno 3 sistemi
operativi principali: Symbian, Pocket PC e Palm, a cui bisogna aggiungere i
palmari linux di recente uscita), dato che siamo alle soglie di una vera
rivoluzione nel campo dei dispositivi portatili, con i tablet, che avranno
connettivita' wireless nativa e sopratutto emulazione win32 totale, inclusa,
quindi, la compatibilita' con Delphi :).
Ciao, Sandro

 Ciao, Sandro
Saluti.

Newsgroup: it.comp.lang.delphi
Titolo: A proposito di Android...

Visto che sto valutando un paio di cose, e visto che ho sempre 
tenuto d'occhio Delphi, come se la cava nello sviluppo di 
applicazioni per Windows Phone?
 
Enrico


Si fa presto a rispondere: non è supportato, al momento. :)
 
Ciao,
  Marco.
 
-- 
MARCO BREVEGLIERI
#Home: 
http://www.marco.breveglieri.name
 
#Blog: 
http://www.compilaquindiva.net
 

 Si fa presto a rispondere: non è supportato, al momento. :)
 
Beh considerando come vanno le cose in casa M$... direi che fanno bene
ad aspettare.
A Ballmer hanno tagliato i compensi per il quarto anno consecutivo,
proprio per il flop sugli introiti dovuti ai tablet e smartphones.
Non la vedo benissimo M$ nel settore mobile, attualmente.
 
-- 
morde
Android
QT 4.7
Delphi (5,6,7.. expired)
Firebird Database
 

 Non la vedo benissimo M$ nel settore mobile, attualmente.
 
Sì, però bisogna sempre tenere conto che l'azienda ha un certo quantitativo di risorse e un discreto margine di manovra, quindi con loro non è mai detta l'ultima parola. :)

Newsgroup: it.comp.lang.delphi
Titolo: AIUTO PRINCIPIANTE classi costruttori e distruttori

Per comprendere meglio l'allocazione e la disallocazione l'avevo
immaginata cosi' :
Immagino di dover salvare dei files in un Floppy.
  - per poter scrivere devo inserire il dischetto nel lettore (Create
allocare la memoria)
  - per cancellare il dischetto e liberare spazio Formatto il floppy
(FREE libera la memoria, ma non disalloca infatti il floppy e' sempre
dentro il lettore )
  - per utilizzare un'altro floppy dobbiamo toglierlo dal lettore
(Destroy disalloca la memoria e la rende di nouvo disponibile)
ma credo che qualcosa non vada, infatti se uso:
B := ClasseProva.create;
// varie cose con B
B.Free ;
B.Destroy;
mi da' un clamoroso errore, mentre se uso solo Free o Destroy nessun
problema. 
Visto che di programmazione so veramente pochissimo e non ho nessuno
(a parte voi che siete sempre gentilissimi :-) ) che mi possa togliere
i dubbi, sono a chidere AIUTOOOOO.
grazie a tutti per i chiarimenti.
Perfavore non rispondete in modo complicato.
ciao maury

> ma credo che qualcosa non vada, infatti se uso:
Infatti non e' come dici tu :)
Allora effettivamente il Create alloca lo spazio (inserisce il dischetto),
mentre free e destroy deallocano entrambi la memoria (cioe' tolgono
direttamente il dischetto).
La differenza tra free e destroy e' che free prima di deallocare, controlla
che l'oggetto sia allocato (guarda se c'e' un dischetto prima di toglierlo,
giustamente :), quindi si puo' usare anche se non si sa se l'oggetto e'
allocato. praticamente funziona anche se l'oggetto e' nil. Destroy invece
chiama il distruttore dell'oggetto, ma l'oggetto deve essere allocato,
altrimenti ti da errore.
Quindi chiamare
oggetto.free;
oggetto.destroy;
ti ritorna errore perche' la seconda chiamata e' sbagliata (chiami il
distruttore di un oggetto non allocato).
Quello che fa free praticamente e' qualcosa tipo:
if oggetto<>nil then oggetto.destroy;
Si capisce che e' sempre meglio chiamare Free, invece che Destroy
direttamente..
Ciao !                        {MSX}


grazieeeeeeeeeeeeeeeeeeeeeeee !!!!!!
ciao e buona domenica a tutti

Newsgroup: it.comp.lang.delphi
Titolo: Generare un evento keypress

 Come posso fare a digitare il tasto invio da codice!!!!
--- posted by geoForum on 
http://www.delphiedintorni.it

 --- posted by geoForum on 
http://www.delphiedintorni.it
-- 
Ciao, Anto', [37, 143, AQ] 
MB C SC 220 CDI Magma Rot
"Di sempre cio' che senti e fai cio' che pensi."
    G.G. Màrquez

pulsante.
Cosi:
SendMessage(FrmMai.SeaEdi.Handle,WM_KEYDOWN,VK_RETURN,0);
SendMessage(FrmMai.SeaEdi.Handle,WM_KEYUP,VK_RETURN,0);
non fa nulla...


 --- posted by geoForum on 
http://www.delphiedintorni.it
-- 


FrmMai.SeaEdi è una variabile a cui assegno oggetto edit corrente...  
Vorrei ke venisse eseguita la procedura  collegata al key press sul 
tasto invio.


)
  "File deletion is murder..." (Futurama)

 --- posted by geoForum on 
http://www.delphiedintorni.it
-- 



E funziona perfettamente!!!

Newsgroup: it.comp.lang.delphi
Titolo: Sostituite testo cella DBGrid

Salve a tutto il NG
E' possibile fare in modo che i dati di un database vengano
rappresentati in un DBGrid con un testo diverso?
Mi spiego meglio: se ho una tabella ne db composta cosi':
ID    TYPE    ENABLE
1       0         True
2       1         False
.        .          .
.        .          .
vorrei che runtime nella grid il testo che rappresenta i dati venga
cambiato cosi':
Indice    Tipo    Abilitato
---------------------------
1           Tipo 1    Si
2           Tipo 2   No
.             .           .
.             .           .
Il tutto senza utilizzare una tabella di appoggio, ma solo delle
stringhe
interne al mio programma.
Grazie
--
--
DaX
~~~~~~~~~~~~~~~~
Windows NT crashed.
I am the Blue Screen of Death.
No one hears your screams.
--= Rimuovi gli spazi dall'indirizzo per rispondermi =--
--= Remove spaces from my address to reply =--

rappresentati in un DBGrid con un testo diverso?
Devi sfruttare l'evento OnDrawcolumnCell.
Una volta dentro, giarda se sei sulla colonna opportuna.
Se si, fai i cambiamenti che vuoi.
Continua chiamando il gestore di evento di default.
Esempio (cambio il colore della cella) :
procedure TScadAuto.DBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
  holdColor := DBGrid1.Canvas.Brush.Color;
  if (Column.FieldName = 'ScadenzaAssicurazione') or (Column.FieldName = 'ScadenzaTassaProprietą')
     or (Column.FieldName = 'DataVisitaSanitaria') or (Column.FieldName = 'DataRevisione')
     then begin      
      DBGrid1.Canvas.Brush.Color := clGreen;
      DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);
      DBGrid1.Canvas.Brush.Color := holdColor;
  end;
end;
ciao
Morde

 Grazie
Prego.
Ciao, Antò.

 DaX
Roberto.
Newsgroup: it.comp.lang.delphi
Titolo: Funzioni di arrotondamento !!??

Salve a tutti,
ho un problema che forse a molti di voi è già noto ma che personalmente mi
ha lasciato di sasso.
Premetto che utilizzo ancora Delphi 3 (con le due patch installate).
Mi sono accorto che la funzione Round di Delphi (unit System) non funziona
correttamente !!!!
Ho provato ad utilizzarla sui seguenti numeri con questi risultati:
Round(1.4) = 1
Round(1.5) = 2
Round(1.6) = 2
Round(2.5) = 2  ????
Round(3.5) = 4
Round(4.5) = 4  ????
Anche la funzione Frac e Trunc non sono tanto da meno !!!
Provate ad eseguire la seguente formula:
Trunc(Frac(423.08)*1000000)
Qualcuno sa darmi qualche informazione ?
Spero di sì perchè ci sto diventando matto :-(
Ciao

Trunc(Frac(423.08)*1000000)
Ti restituisce 79999 perche' in realta' il risultato della funzione Frac e'
il seguente:
79999.9999999999872
Che troncato da' appunto 79999
Questo problema e' sempre il solito: i numero float sono rappresentati da
una mantissa e da un'esponente, cosa che gia' di per se' causa dei problemi
per via degli errori di arrotondamento che tale rappresentazione comporta.
L'unico modo di rappresentare i float in un altro modo e' quello di usare i
Currency, che rappresentano i valori per esteso (quindi 423.08 e'
esattamente 423.08 e non, per esempio, 423.079999999999).
Spero di esserti stato di aiuto. Ciao
Daigo

Perche' abbiano adottato questo metodo non lo so...
Ciao Daigo,
ti ringrazio molto per la rua risposta, mi sei stato di grande conforto ma
purtroppo il mio problema rimane (non certo per colpa tua !!). La soluzione
di adottare il tipo Currency nel mio caso non va bene, devo infatti trattare
con numeri con almeno 5/6 cifre decimali ed il Currency arriva solo a 4 !!!
Credo che dovrò trovare il modo di gestire la differenza tra:
423.08 e 423.079999999999
che anche se minima è per me rilevante dato che devo in alcuni casi estrarre
la parte intera oppure quella decimale (e quindi non posso usare le funzioni
Trunc e Int così come sono).
Grazie ancora per la risposta ! :-)
Ciao.

L'arrotondamento dello 0,5 variabile tra l'unita' inferiore per gli interi
dispari e l'unita' superiore per gli interi pari e' un sistema di calcolo
contabile vecchio come il cucco. Si dovrebbe chiamare "arrontondamento del
banchiere" mi pare, e fa in modo che l'errore di arrotondamento ripartito
equamente, dal punto di vista statistico, appunto tra numeri dispari e pari.
Ciao, Sandro

Newsgroup: it.comp.lang.delphi
Titolo: ordinare griglia

Quale è la procedura più semplice per ordinare in ordine alfabetico la
colonna di una griglia contenente differenti stringhe?
Grazie, Enrico Cogliati

 wrote in message
6FDu8.22355$vF6.7...@news2.tin.it...


farti la procedura ke le mette in ordine diventa troppo pesante?mmm...ce la
farà il nostro eroe? bah

Newsgroup: it.comp.lang.delphi
Titolo: messagedlg in fronte a tutto non va!!

Ciao a tutti,
Uso una MessageDlg, ma purtroppo questa non mi compare in fronte, ma nella
barra delle applicazioni e non è solo sui sistema xp vedi:
http://www.experts-exchange.com/Programming/Programming_Languages/Delphi/Q_20657989.html#8788376
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/winui/winui/WindowsUserInterface/LowLevelClientSupport/Misc/RtlDisableProcessWindowsGhosting.asp
L'utente deve premere il pulsante altrimenti non viene caricata la pagina di
internet explorer (l'applicazione è un web-server) e il browser rimane in
fase di caricamento.Qualcuno ha già affrontato il problema?
Grazie e ciao a tutti

per curiosità..... hai provato con mozilla ?
Se funzionasse, potresti cercare la causa in un baco di explorer 6 che causa
alcuni problemi, tra cui il mancato caricamento di finestre secondarie, che
mandano in freeze l'applicazione
Se con mozilla funziona regolarmente, ti mando una documentazione sul
problema e su come risolverlo
Saluti
Andrea


Ciao Andrea,
Non ho provato con mozilla, io comunque uso ie6 sul mio xp e testando
l'applicazione l'errore si presenta anche con 98. Mi potresti inviare la
documentazione o il link riguardante :) che lo guardo prima di subito :)
Grazie ancora
Ciao

Newsgroup: it.comp.lang.delphi
Titolo: AIUTO !!!

Qualche giorno fà ho avuto la malaugurata idea di installare il mio nuovo 
Delphi 2007 a fianco del Delphi 6 e ora sono nella cacca più assoluta e vi 
spiego perchè.
Non riuscendo ad usare Delphi2007 (perchè i componenti InfoPower che 
utilizzo non vengono riconosciuti),  ho tentato di ritornare ad usare 
Delphi6, e ho scoperto quanto segue:
- All'avvio, Delphi 6 mi dava un messaggio relativamente al debugger che non 
ricordo, ma che mi invitava a rispondere si o no. In un caso si usciva dal 
programma e nell'altro Delphi appariva solo nella forma di un Form1 e della 
relativa unit, senza il resto dell'IDE. Chiudendo il form, ho scoperto che 
dietro c'era il pannellino del Tree View, ma in nessuno modo ho potuto 
rilevare altro, tanto che per uscire ho dovuto ricorrere al Ctrtl-Alt-Del.
- Ho tentato il Repair con il CD di installazione, senza alcun risultato. Mi 
sono infine deciso a REINSTALLARE.
- Ho reinstallato (con gran pena, perchè sò i problemi che avrò con i 
componenti miei e di terze parti..).  e cosa ho scoperto? CHE HO LA STESSA 
SITUAZIONE DI PRIMA:
Avvio Delphi e l'unica cosa che appare sullo schermo e un form. Chiudi il 
form e, a parte il TreeView, nient'altro !!
COSA POSSO FARE ?
PS: Installo sotto Windows Vista, se può interessare e in una cartella fuori 
da Programs File (ho creato una cartella C:\Programmi Sviluppo). Ma Delphi 6 
era installato lì funzionante anche prima, mentre Delphi 2007 l'ho 
installato dove vuole lui..) 

Mi domando se hai anche disinstallato il 2007 ?
Io farei così, disinstalla entrambi, fai una pulizia con RegSupreme o 
programma simile e poi reinstalla il D6 dovrebbe tornare tutto alla 
normalità.
Dan
Newsgroup: it.comp.lang.delphi
Titolo: Immagine Jpg in scala di grigi

Come posso fare per salvare un immagine jpg in scala di grigi.
Impostando immagine.picture.grapich.grayscale:=true mi crea un file jpg non
valido. Devo fare qualcos'altro?
Grazie

...


 ha scritto nel messaggio
news:eae5f7a6.02042...@posting.google.com...

Newsgroup: it.comp.lang.delphi
Titolo: Array di funzioni

Ciao a tutti!
Come faccio a fare un array di funzioni? Mi spiego meglio:
var paperopoli: array [1..3] of pointer; // immagino...
      result:word;
function pippo:boolean;
begin
...
end;
function pluto:boolean;
begin
...
end;
function paperino:boolean;
begin
...
end;
begin
  input:=2;
  result:=myeseguifun(input);
  input:=3;
  result:=myeseguifun(input);
end.
Ciao e grazie!

crei un tipo puntatore a funzione che corrisponde al prototipo delle
funzioni che devi inserire nell'array:
type
  TMyFunc=function(Qualcosa: integer): integer;
poi dichiari un array:
MyArrayFunc: array[0..3] of TMyFunc;
infine:
MyArrayFunc[0] := Funzione0;
MyArrayFunc[1] := Funzione1;
...
Bye
A.

 funzioni che devi inserire nell'array:
Grazie Alberto!
Newsgroup: it.comp.lang.delphi
Titolo: Power off del computer

Come si fa a fare il power off del computer?
Io ho provato a usare l' API ExitWindowsEx e anche la ExitWindows ma com
winXP riesco solamente a fare il Log Off...perche? e soprattutto come si fa
a fare lo spegnimento?
Grazie.
--------------------------------
Inviato via 
http://usenet.libero.it


    Via De Gasperi, 14 - 42019
    Scandiano (Reggio Emilia)

Newsgroup: it.comp.lang.delphi
Titolo: monitoraggio tempi ADSL

Salve a tutti.
Da poco tempo ho una connessione ADSL
tipo free. Vorrei scrivere un piccolo
programma che mi conteggia il tempo di
connessione, ma vorrei che fosse il
programma che si accorge quando la
connessione si attiva. Dato che non ho
mai approcciato un problema di questo
tipo, qualcuno può indicarmi quale
componente o API di Windows devo usare
per monitorare una connessione?
Grazie in anticipo a tutti, Massimo.


function IsConnected: boolean;
var
   dwFlags: Cardinal;
begin
   dwFlags := 0;
   result := InternetGetConnectedState(@dwFlags, 0);
{  if result then
     result := (dwFlags and INTERNET_CONNECTION_MODEM)<>0
   else
     result := False; }
end;
La parte commentata è un esempio su come discriminare il tipo di 
connessione...
Io ne ho scritto uno tempo fa, se interessa lo posso pubblicare da 
qualche parte...
Ciao,
-- 
Andrea /\/\agni
Newsgroup: it.comp.lang.delphi
Titolo: funzione Pos- xchè mi ridà questo errore?

ho fatto una mia procedura,non dichiarata nella form1,e lě dentro la
funzione Pos, per esempio
I:integer;
s:string;
begin
S:='ciao';
I:=Pos('a',S);
end;
mi restituisce l' errore "missing operator or semicolon"
ma t@cci sua e xchč invece nella procedura button1click la funzione pos
funziona normalmente!?!?
+ si va avanti e meno lo capisco sto Delphi :)

 wrote in message
FNNY6.7533$8R5.1...@news.infostrada.it...


 ha scritto nel messaggio
news:OrUY6.9509$4J1....@news2.tin.it...


Le righe che hai postato sono corrette. Prova a postare tutta la procedura.
L'errore, secondo me, sta altrove.
Ciao!


 Le righe che hai postato sono corrette. Prova a postare >tutta la
procedura.
procedure Incript;
var I, C,Pos: integer;
    S:string;
begin
 for I := 0 to Form1.Memo1.Lines.Count - 1 do
 begin
  S := '';
  for C := Length(Form1.Memo1.Lines[I]) downto 1 do
   S := S + Form1.Memo1.Lines[I][C];
  Form1.Memo2.Lines.Add(S);
 end;
  for I:= 0 to Form1.Memo2.Lines.Count - 1 do
  begin
  S :=Form1.Memo2.lines[I];
  Pos:=Pos('a',S);
  if Pos<>0 then
  begin
  delete(S,Pos,1);
  insert('@',S,Pos);
  end;
  Form1.Memo2.lines[I]:=S;
  end;
end;
dunque,questa procedura dovrebbe capovolgere le parole,e lo fa,e sostituirmi
la lettera 'a' con il carattere @ (anche se penso che Pos nel caso ci siano
+ di una A nel rigo mi restituisca la prima A che trova,quindi andrebbe
modificato...),e quest' ultima cosa non la fa xchè mi da errore nel Pos...

> var I, C,Pos: integer;
l'errore sta nel fatto che hai una variabile pos, il cui nome viene confuso
con quello della funzione pos.
Se non vuoi cambiare il nome della variabile, nel momento in cui usi la
funzione specifica:
system.pos
e cosi' il compilatore sa che si tratta della funzione, e non della
variabile. Tanto per cambiare, Delphi ha sempre ragione, come vedi ;)
Ciao, Sandro


Tabelle Statistiche e Previsioni
www.geocities.com
\narciso.geo
Giochiamo con razionalità!


"Pos" e' stata dichiarata come variabile privata e questa ha la precedenza
sulla funzione "pos" per cui lui si aspetta
i := pos;
avrebbe potuto fare qualcosa del tipo
I:=system.Pos('a',S);
--
*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-
Per rispondere in privato rimouvere 1975 dall'indirizzo
*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-

Newsgroup: it.comp.lang.delphi
Titolo: trasformazione barcode

Qualcuno di voi ha una funzione
per trasformare un codice a barre
code39 in codice farmaceutico(codice base 32) e
viceversa?
RG

 ha scritto nel messaggio
news:Iozia.45064$Jg1.1...@news1.tin.it...

Se ne parla regolarmente, qualcuno potrebbe invitarti a cercare tra i vecchi
post...
Comunque per produrre un codice a barre basta usare i font appropriati, e
scrivere semplicemente la stringa che deve essere codificata.
Newsgroup: it.comp.lang.delphi
Titolo: [forse OT] Delphi, Interbase ed INSERT

Come è possibile che quando viene esguita la funzione che di seguito riporto
nel 70 % dei casi venga generata un'eccezione ?
Su che cosa devo lavorare, dove devo guardare per trovare "l'errore" ?
Il database è Interbase (in mezzo c'è il BDE)
function TFEdVasca.ScrivoProgrammaXCartellino(gdm : TDataModule; Query :
TQuery;
                                              nNumVasca, nProgramma :
integer; ordinamento : char) : boolean;
begin
   ScrivoProgrammaXCartellino := False;
   with gdm do begin
      try
         Query.Active := False;
         Query.SQL.Clear;
         Query.SQL.Add('INSERT INTO progxcartellino (numcartellino,
programma, ordinamento)');
         Query.SQL.Add('VALUES (' + IntToStr(nNumVasca) + ',' +
IntToStr(nProgramma) + ',"' + ordinamento + '")');
         Query.ExecSQL;
         ScrivoProgrammaXCartellino := True;
      except
         Messaggio('[Errore Tabella : PROGXCARTELLINO]' + #13#10 +
'Scrittura N° programma non riuscito : Il cartellino non verrà stampato');
         ScrivoProgrammaXCartellino := False;
      end;
   end;
end;
Cordialità,
Stefano Campri

 Il database è Interbase (in mezzo c'è il BDE)
Quale errore? Intendo dire: che eccezione viene sollevata?

 ha scritto nel messaggio
news:9u31nl$5kgog$1...@ID-106993.news.dfncis.de...


Inizia a far uscire il messaggio restituito dal db
o non saprai mai cosa è andato storto e di conseguenza non saprai
dove mettere le mani.
Bye
AS
-- 
Posted from  [212.17.220.41] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Come faccio a verificare il tipo di eccezione ?
try
...
except on E: Exception do
  MessageDlg(E.message, mtError, [mbOk], 0);
end;
-- 
The Follet

 ha scritto nel messaggio
news:e37c4d72ea4975570c...@mygate.mailgate.org...

Newsgroup: it.comp.lang.delphi
Titolo: EDBError

Salve a tutti,
ho un altro problema!
Inserisco dei valori in un campo del DB (uso Paradox) ed il tipo di questo
campo è un ShortInteger.
E' quindi possibile inserire valori interi compresi tra -32k e 32k (circa).
A run time quando faccio per inserire un valore fuori range viene sollevata
un'eccezione.
Come faccio a intercettarla e gestimermela a modo mio, per esempio cambiando
il testo che viene visualizzato?
Grazie!

 wrote in message 8bdmv5$m8u$1...@nslave1.tin.it...


Newsgroup: it.comp.lang.delphi
Titolo: Dubbio su Firemonkey

Ho un piccolo dubbio...
 
La grande potenzialità di Firemonkey, oltre la portabilità, è la 
possibilità di includere in un qualsiasi componente altri che non 
centrano nulla e creare qualcosa di unico ma ho un dubbio...
 
Come mi devo comportare per creare una struttura simile a runtime?
Vale sempre la regola:
 
Componente2 := TComponente2.Create(Componente1);
Componente2.Parent := Componente1;
 
ed è portabile?
 
Grazie

 ed è portabile?
 
A me non sembra una "regola", tant'è che non vale per tutti i controlli che metti su un Form, all'interno di un Parent che non è il Form stesso: l'owner di tutti questi controlli rimane comunque il Form.
 
L'applicazione di regole dipende da quello che devi fare; tuttavia, in molti casi, l'applicazione degli stili di FireMonkey sopperisce alla necessità di dover innestare controlli.
 
Ciao,
  Marco.
 
-- 
MARCO BREVEGLIERI (Software and Web Developer)
#Home: 
http://bit.ly/marcobreveglieri
 
#Blog: 
http://bit.ly/compilaquindiva

Newsgroup: it.comp.lang.delphi
Titolo: combobox

ciao a tutti,
come posso visualizzare con una combobox il contenuto di un campo di una
tabella?
Ps: Mi interessa la combobox e non una dblookupcombobox
ciao

"schumy83" <flys...@NOSPAM.it> wrote in message
news:5hCt9.30773$TD1.1...@news2.tin.it...

Carichi tutti i record (e i campi che ti interessano) dal dataset,
utilizzando le sue funzioni (first, next, FieldByName e altre). Sull'help
trovi tutto ciň che ti serve.
Saluti


prendi un componente che faccia una query  sulla tabella in questione:
"select CAMPO from tabella".
Dopodiche' scorri il recordset risultante e aggiungi ogni elemento al
combo.
Esempio :
   while not Query1.EOF do begin
ComboBox1.AddItem(Query1.FieldByName('AnnoScolastico').AsString,nil);
      Query1.Next;
   end;
Se hai bisogno di ordinarli c'e' una proprieta' del combo che lo fa
gia', ma a questo punto e' meglio che tu lo faccia fare al DB con una
order by sulla sql.
Ciao
Morde


Nell'evento onchange del combo fai il confronto tra le proprietą text
dei due componenti.
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
   if ComboBox1.Text = Edit1.Text then FaiQuelloCheDevi
end;
Newsgroup: it.comp.lang.delphi
Titolo: Stinghe e objects

Ciao a tutti non vacanzieri come me...
Ho un problema:
devo gestire una TStringList in cui come object devo mettere un'altra
Stringa, ho visto che facendo un Cast tra Object e String non funziona, crea
dei problemi sui dati (probabilmente dipende dai puntatori alle
stringhe...). Qualcuno sa suggerirmi qualche soluzione?
Grazie,
Daddo

)
  "File deletion is murder..." (Futurama)

 stringhe...). Qualcuno sa suggerirmi qualche soluzione?
Usa il tipo PChar anzicchè string.
Acqua

 Usa il tipo PChar anzicchč string.
Credo possa essere pericoloso, poichč il tipo String viene "semi 
automaticamente" gestito da Delphi, che potrebbe rimuovere dalla memoria 
le stringhe non piů referenziate nel codice rendendo invalidi i 
puntatori PChar copiati all'interno della StringList.


 puntatori PChar copiati all'interno della StringList.
Premesso che una tecnica del genere io personalmente non la userei *mai*,
bhè, trattando degli 'array of Char' facendo si' che delphi non sfrutti il
suo motore interno per la gestione dei tipi string ed usando un puntatote a
tale array credo che non dovrebbero esserci problemi....
Acqua

 tale array credo che non dovrebbero esserci problemi....
La mia precisazione veniva dal fatto che, così come ha scritto 
l'Original Poster, pare che intendesse utilizzare proprio delle String.
Se si accontenta di utilizzare delle ShortString (come mi pare tu abbia 
suggerito) oppure alloca/dealloca manualmente buffer di tipo PChar per 
le stringhe usando le relative funzioni di Delphi, allora il problema 
non si presenta, anche se in quest'ultimo caso il codice inizia a 
complicarsi leggermente... :-)
Ciao!


 complicarsi leggermente... :-)
Condivido pienamente!
Acqua
Newsgroup: it.comp.lang.delphi
Titolo: Un'idea

Ho bisogno di un'idea per risolvere un'esigenza la cui soluzione a prima 
vista mi era parsa semplice, ma che + ci penso + si fa complicata. Si tratta 
semplicemente dell'esigenza di estrarre da un dataset con un campo DATA 
tutti i records la cui data � stata raggiunta o superata dalla data odierna. 
Se � stata superata, devo per� estrarla SOLO ogni sette giorni dalla 
originaria data del record
Per esempio:
DATA su record       Data odierna
10/03/2010                24/03/2010        estrarre xch� DATA su 
rec.superata e 14mo giorno
17/03/2010                24/03/2010        estrarre xch� DATA su 
rec.superata e   7mo giorno
18/03/2010                24/03/2010        non estrarre
24/03/2010                24/03/2010        estrarre xch� DATA su 
rec.raggiunta
Ho semplificato parlando di 7 giorni. In effetti questo numero potrebbe 
essere diverso da record a record.
Ho cominciato ad usare una query che estrae tutti i records la cui DATA � 
raggiunta o superata. Poi sto provando a scandire il risultato della query 
per individuare il numero da utilizzare.
Per� sono un p� fermo. Mi serve un'idea , se qualcuno ne ha !
Una domanda intanto: Sarebbe comodo se ci fosse il modo di sapere se il 
risultato di una divisione � un numero intero o meno. C'� ?
Perch� in questo caso avrei da esplorare una strada... 

 Perchè in questo caso avrei da esplorare una strada...
Valutando il resto della divisione Y; se Y = 0 il risultato della divisione 
è un intero; altrimenti no.
Y := A MOD B
 

 originaria data del record
[cut]
Totalmente OT.
Comunque una query tipo quella qui sotto dovrebbe fare quanto
richiesto, salvo eventualmente normalizzare la differenza fra le date
ad un intero.
select fieldlist from table where (sysdate - DUE_DATE) % WARN_EVERY =
0;
Saluti
Paolo Arosio

 ha scritto nel messaggio 
news:3793c22d-bda3-4f9e...@n34g2000yqb.googlegroups.com...


Newsgroup: it.comp.lang.delphi
Titolo: Componente per scanner

Qualcuno potrebbe consigliarmi un buon componente per
interfacciarsi con uno scanner (e che funzioni anche
con CBuilder) ?
Grazie
Stef


DelphiTwain oppure ImageEn Sono abbastanza buoni li ho usati per una
applicazione
vanno bene...
ciao!!
Newsgroup: it.comp.lang.delphi
Titolo: Aggiornamento dati tabelle Paradox

Ciao a tutti.
Ho notato quello che credo essere uno strano comportamento delle tabelle
Paradox (o del BDE) in rete.
Questa applicazione, sviluppata in Delphi 5.0, fa uno di alcune tabelle in
rete, condivise tra due PC. In particolare una di queste mi fornisce una
serie di contatori che poi vado ad utilizzare come ID univoco in altre
tabelle che memorizzano delle movimentazioni di materiale
(carichi/scarichi).
Ora, quando ho bisogno di un ID:
- apro la tabella (TTable.Open);
- chiamo TTable.Seek per posizionarmi sul record dello specifico contatore;
- prelevo il valore, lo incremento e lo salvo;
- chiudo la tabella.
Questa operazione può essere effettuata indifferente da entrambi i PC, in
relazione alla necessità. Naturalmente, tenendo la tabella dei contatori
condivisa un uno dei due PC mi dovrebbe garantire l'univocità degli ID.
A questo punto però, dopo un grande penare in debugging, ho trovato questo
comportamento:
- PC 1: richiede il contatore A e ne incrementa il valore;
- PC 2: richiede il contatore A e ne incrementa il valore (anche più,
volte);
- se a questo punto PC 1 richiede nuovamente il contatore A, in effetti la
TTable.Seek non si muove dal record precedente (anche se a dire il vero ogni
volta la tabella viene chiusa) invece di trovare il nuovo valore aggiornato
da PC 2, trova il vecchio valore, dandomi poi ovvi problemi di chiave
duplicata sulla tabella che devo andare a scrivere;
- se invece PC 1 richiedesse, ad esempio, prima il contatore B (effettuando
una seek su un altro record) e poi tornasse a richiedere il contatore A, non
avrei alcun tipo di problema.
Per ora ho risolto il tutto forzando il refresh dei dati con TTable.Refresh,
ma ho cercato documentazione al riguardo e non ho trovato niente. Qualcuno
ha già avuto esperienza del genere? Risolta? Come?
Gianluca.


[snappone]
Premetto che non uso più Paradox da un paio di lustri ma...
La tua tabella, essendo in memoria, non è in grado di venire a
conoscenza di eventuali modifiche fatte da altri se non attraverso una
requery (o refresh). In paradox, però, attraverso le sue API è
possibile utilizzare dei metodi di callback che ti avvisano quando
qualche modifica è stata effettuata.
Se ricordo bene una di queste funzioni si chiama DbiCheckRefresh, ti
consiglio di partire da li.
Spero di non essere stato del tutto inutile ;-)
Massimo.
-- 
"La velocità luce non è sufficiente Comandante Nunziatella, 
dobbiamo passare alla velocità smodata!"
Newsgroup: it.comp.lang.delphi
Titolo: ottenere tutti i nomi delle colonne della dbgrid e copiarli in un array of string + urgente

ottenere tutti i nomi delle colonne della dbgrid e copiarli in un array of
string + urgente
come posso fare per ottenere un elenco di tutti i nomi delle colonne della
dbgrid ed associarli ad un array of string ???
Grazie per la gentile collaborazione,
Alberto

 string + urgente
procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
begin
  with TStringList.Create do
  begin
    try
      for I := 0 to DBGrid1.Columns.Count-1 do
      begin
        Add(DBGrid1.Columns.Items[I].Title.Caption);
      end;
      ShowMessage(Text);
    finally
      Free
    end;
  end;
end;
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

oppure:
procedure ...
var i,n:integer;
    s:array of string;
begin
n:=DbGrid1.Columns.Count-1;
SetLength(s, n);
for i:=0 to n do
 s[i]:=DbGrid1.Columns.Items[i].DisplayName;//oppure FieldName oppure
Title.caption
end;
Ciao
Gaetano