mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.delphi
Titolo: MessageBox che appare "sotto" l'applicazione

Ho questo problema che alcune MessageBox che faccio apparire nella mia 
applicazione per informare l'utente che verrà chiamata una applicazione 
esterna e di attenderne la fine dell'esecuzione (Firma con Dike della 
f.e. oppure predisposizione ed invio dell'email con il client mapi di 
default presente nel PC) appaiono "sotto" l'applicazione e non vengono 
rese visibili se non dopo aver "sostato" per un po sull'icona che appare 
nella barra delle applicazioni affinché vengano visualizzate due 
miniature dell'applicazione selezionando la miniatura relativa alla 
MessageBox oppure visualizzando con Alt-Tab le varie applicazioni aperte.
 
Ho provato diverse opzioni tra le quali MB_TOPMOST ma anche se sembra 
risolvere il problema me ne presenta un altro: la MessageBox risulta 
irrimediabilmente sempre in vetta allo Z-Order del Desktop disturbando 
la vista delle applicazioni invocate dal mio programma.
 
Suggerimenti?
 
Grazie.
 
Ciao.

Ciao Luigi,
  soluzione, forse elegante, ma di non immediata disponibilita' e' quella di 
crearti la tua form di messaggi.
Essendo una form, puoi usare il flag "stayontop" e la puoi rendere modal o 
meno (showmodal/show).
quando non ti serve piu' la liberi.
 
Se cerchi in giro vedrai che ci sono delle soluzioni di questo tipo gia' 
fatte (con immagini, colori ecc...) sui soliti siti di ricerca.
 
Ciao e buona giornata.
 
Daniele
 
"Luigi"  ha scritto nel messaggio news:q1pl4e$9b9$1...@gioia.aioe.org...


Scusa Daniele se approfitto per chiederti una cosa che credo sia stato tu a 
suggerirmi, ed era un'istruzione o qualcosa da inserire in compilazione per 
controllare eventuali leaks. Eri stato tu ? Non me la ricordo e mi sarebbe 
utile che me la ripetessi. Grazie
 
"Daniele"  ha scritto nel messaggio news:q1pm7v$eg2$1...@gioia.aioe.org...


Ciao,
  onestamente non ricordo ...
Ricordo il post con diverse risposte !!!
 
Ad oggi ci sono diversi strumenti che volgono questo lavoro. Alcuni free 
(anche di buon livello) quasi tutti commerciali.
Dopo averne testati un paio (qualche anno fa) e alla fine mi sono orientato 
su un prodotto commerciale abbastanza diffuso nell'ambiente delphi, ovvero 
EureaLog.
Costicchia qualcosa, ma e' decisamente valido; Vale la spesa.
 
Ciao
 
Daniele
 
 
 
"Stark"  ha scritto nel messaggio news:q2293l$3si$1...@gioia.aioe.org...


Potrebbe essere questa?
 
  ReportMemoryLeaksOnShutdown := True;

  ReportMemoryLeaksOnShutdown := True;
 
Non lo so, io uso EurekaLog (da anni).
Provala, secondo me vale.
 
Ciao
 
Daniele
Newsgroup: it.comp.lang.delphi
Titolo: Caricare .h e .cpp

Ciao a tutti, come posso fare per caricare e richiamare funzioni
presenti in file .h e .cpp?

 presenti in file .h e .cpp?
AFAIK, non si puo'.
Ciao
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 presenti in file .h e .cpp?
Usa C++Builder, o traduci in linguaggio Delphi, Giorgio 

 presenti in file .h e .cpp?
Se hai i sorgenti, puoi "tradurli" in Delphi., altrimenti li compili
con il C++ builder e prendi gli OBJ risultanti (una sorta di DCU) e li
importi nel progetto Delphi.
Tutte le info qui:
http://rvelthuis.de/articles/articles-cobjs.html
Ciao,
Gp

Newsgroup: it.comp.lang.delphi
Titolo: Guida Delphi 7 personal

Salve,
la presente per esporre brevemente quanto ho constatato nella guida di
Delphi 6 std e nella guida di Delphi 7 std.
Nella versione 6 si trovano (alla voce sommario) tutte le funzioni
raggruppate per tipologia o elencate in ordine alfabetico. Cosa molto
comoda.
Nella versione 7 non si trovano più elencate le medesime funzioni. Vi è
qualcosa nella Using BaseCLX, ma alquanto disordinato.
Ho cercato male, oppure la guida delle versione 7 è realmente cambiata
rispetto alla versione 6?
Cordiali saluti.
Michele

 rispetto alla versione 6?
Io possiedo "Delphi 7 Professional" e la mia Guida in linea contiene 
tutti gli argomenti dedicati alle funzioni RTL organizzati sia per unit 
di appartenenza, sia per ambito di utilizzo.
Hai per caso modificato la struttura del file attraverso la funzione 
"Customize" di Delphi oppure installato prodotti di terze parti che 
possano aver alterato accidentalmente gli indici o la struttura del file 
della Guida?
Ciao! :-)
-- 
Marco «Alka» Breveglieri
(marco [@] abls [.] it )
  ABLS Team S.n.c. - Software & Web
  42019 Scandiano (Reggio Emilia)
 
http://www.abls.it


Nel ringraziarti per la risposta, posso ora aggiungere...
Dopo pochi minuti dall'acquisto ho installato Delphi 7 personal scegliendo
l'installazione standard. Non ho installato prodotti di terze parti. Né lo
farò senza le dovute licenza. In ogni caso questa versione mi serve per
l'autoapprendimento.
Proverò a reinstallare tutto, magari farò una installazione personalizzata.
Mi dispiace un po' questo piccolo problema. La guida di Delphi è uno dei
suoi punti di forza.
Cordiali saluti.
Michele
Newsgroup: it.comp.lang.delphi
Titolo: Copiare dati da un clientdataset ad un altro

Ciao a tutto il ng.
Il mio obiettivo è copiare il contenuto di CDS2 all'interno di CDS1 (con 
uguale struttura dei campi ovviamente) ma senza perdere i dati già presenti 
in CDS1.
Praticamente un append.
Mi chiedevo però se l'unico sistema per fare questo è usare i metodi append 
e post record per record oppure se esiste un metodo che copi tutti i dati 
globalmente.
Ho provato con AppendData ma a quanto sembra prende i dati solo da un 
provider e non un altro CDS.
That's all folks! 

 in CDS1. [...]
Dovrebbe essere sufficiente assegnare la proprietà /Data/ di un CDS 
all'altro. Prova... :-)
Ciao,
   Marco.
-- 
MARCO BREVEGLIERI
  (
http://www.marco.breveglieri.name
)
     Non hai la possibilità di scaricare Turbo Delphi Explorer?
     Te lo spedisco io!! [
http://blog.marco.breveglieri.name/?p=48
]

 all'altro. Prova... :-)
Sģ, funziona, ma sovrascrive il contenuto del secondo CDS sul primo, mentre 
io voglio che il contenuto del secondo venga aggiunto al primo.
Credo che l'unico sistema sia l'uso dei metodi append e post, anche se mi 
obbliga ad eseguire un ciclo record per record che potrebbe essere pesante 
se hai tanti record.
Grazie comunque. 

 se hai tanti record.
Non dovrebbe essere così gravoso, considerando che il CDS conserva i 
dati in memoria.


 e post record per record
Sì.
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 That's all folks! 
Ciao
Andrea

Ok... hai mai provato a guardare il formato del datapacket in XML?
Per la serie: spariamoci allegramente sulle gonadi.

Newsgroup: it.comp.lang.delphi
Titolo: passaggio parametri

č possibile passare parametri tra una form e l'altra?
se si come?

se si come?
La via piu' rispettosa dell'information hiding e' quella di costruire
un metodo pubblico nel form del tipo :
AccettaParametri( ... ) ;
e passarglieli in quel modo.
--
Andrea Laforgia (
andrea_...@bigfoot.com
)
-----------------------------------------------------
"There is nothing better for understanding a kangaroo
 than seeing it jump." [D.Grune, C.J.H. Jacobs]
-----------------------------------------------------

se si come?
ti puoi inventare tremila sistemi diversi più o meno eleganti.
Se ci vuoi andare pesante, gli spari un bel messaggio come il WM_COPYDATA
con i dati da passare.
Comunque fai come ti ha detto Andrea, oppure metti delle variabili
all'esterno del type che definisce la classe della Form2.
Il WM_COPYDATA utilizzalo per l'interprocesso !! :-))
Ti saluto.....ciao !!
Antonio Tarolla

Newsgroup: it.comp.lang.delphi
Titolo: database access

 Cosa devo fare per connettere un db di access ad una form tramite il 
componente TDatabase visto che mi dà sempre errore?
--- posted by geoForum on 
http://www.delphiedintorni.it

 
Dovresti comunque specificare la versione di delphi che utilizzi, e per
quale motivo vuoi collegarti mediante un tdatabase (odbc?).
La scelta migliore e' via oledb con i camponenti ado: tadoconnection e
companatico.
http://delphi.about.com/od/database/l/aa022001a.htm
-- 
Morde. 
ICLDweb: 
http://www2.samatel.com/icld/
Newsgroup: it.comp.lang.delphi
Titolo: drag and drop e memorizzazione posizione

Buongiorno carissimo NG,
chiedo vostro supporto per quanto segue:
Quando eseguo un drag'n drop di TShapes devo memorizzarne la posizione, 
affinch� alla prossima uscita / entrata del programma i TShapes siano 
posizionati come da ultimo drag'n drop...
La fase di salvataggio della posizione e lettura della stessa, con che 
metodo mi consignate di farlo ? con un ini ?
Tenete conto che pi� di una persona possono aprire il prog...di conseguenza 
vale l'ultimo dato salvato.
Vi ringrazio 

 mi consignate di farlo ? con un ini ?
Soluzione veloce: salva su ini file il top e il left di ogni tshape, 
ognuno di essi poi se lo rileggerï¿œ e si posizionerï¿œ a dovere.
Soluzione meno veloce ma migliore: usa una classe configurator che 
contiene tutti i dati di configurazione di tutti gli oggetti nella tua 
"lavagna".
Sarï¿œ il configurator a salvare le info di tutte le shapes e alla quale 
ogni shapes chiederï¿œ di essere posizionata.
una cosa tipo
Myshape: TMiaShape;
Myconfigurator : TMioCOnfigurator;
Myconfigurator.DoSetup(MyShape);
Ciao
-- 
Morde

Newsgroup: it.comp.lang.delphi
Titolo: Fermo per una cazzata con le InfoPower.

Ciao a tutti,
è tutto il giorno che sto litigando per una cazzata.
Ho due tabelle scritte in access.
PRIMA TABELLA                                   SECONDA TABELLA
IdProdotto                                                 DescrizioneTipo
NomeProdotto                                           TipoProdotto
IDTipoProdotto     ? ---------------- 1     IDTipoProdotto
Costo
Poichè la prima tabella ingloba la seconda  ho messo una  TwwDBGrid (info
power) per la prima tabella e una
TwwDBLookUpCombo per la seconda tabella. Chiaramente per il
campoIDTipoProdotto  ho specificato che l'Edit Control è di tipo
CustomEdit ed in particolare è il mio TwwDBLookUpCombo.
Il tutto funziona ma chiaramente i dati che vedo per IDTipoProdotto sono
solo numerici.
Io vorrei imporre, solo durante la visualizzazione, che i dati di
IDTipoProdotto siano quelli di DescrizioneTipo, cioè un qualcosa di
leggibile.
Qualcuno può aiutarmi ?
Grazie a tutti,
Roberto

leggibile.
Con IP il lookupcombo , putroppo, lavora cosě.
Per ovviare devi utilizzare, sulla wwDbGrid un campo di lookup creato
sulla prima tabella.
In pratica: sulla tabella 1 crei un campo lookup (stringa, returnvalue
= DescrizioneTipo) alla seconda tabella  e nella wwDBGrid mostri sia
il Combo che la descrizione ricavata dal nuovo campo. 
Non esiste altra soluzione semplice.
Massimo.
-----------
Ore 18.30: premo invio.
Newsgroup: it.comp.lang.delphi
Titolo: Qualche domanda!

Ciao a tutti!
Se sulla prima riga della seguente (e in teoria facile) procedura..
procedure TFrmFatturaDalAl.BtnChiudiClick(Sender: TObject);
begin
  DM.TbDaFatturare.Close;                     <<------
  DM.TbTariffePratiche.Close;
  Dm.TbTariffeCedolini.Close;
  Dm.TbSomme.Close;
  close;
end;
mi da EVariantError    con il messaggio "Invalid Variant Type Convertion"
di che errore si tratta? (ho letto l'Help ma non capisco comunque dove
beccare l'errore)
2^ domanda:
E' possibile in una DbGrid Cambiare il colore della riga in base ad una
variabile della Tabella rappresentata nella stessa Griglia?
3^domanda
Io ho dei dati in una tabella che devo stampare inserendoli in determinati
spazi in uno testo preimpostato.. tipo Stampa Unione di Word insomma!
Mi conviene fare effettivamente una stampa unione da Word o crearmi il testo
in un report (cosa che, se non sbaglio, è un po' macchinoso)?
Qualcuno mi sa dire dove posso reperire degli esempi, sia in un caso che
nell'altro?
Grazie a chiunque si prenda la briga di pensare di rispondermi...
e grazie mille a chi mi risponde!

e grazie mille a chi mi risponde!
Di Niente
	Ciao
	MassimoB
 

 ha scritto nel messaggio
news:imWPb.279123$e6.10...@twister2.libero.it...


..... uffa!!!!!!!!!! ............... :-(
lo so è dura :)
spero di esserti stato di aiuto ... se non mi sono spiegato 
in qualche passaggio dimmelo ...
P.S.: Attento a "quotare" correttamente
        non è necessario riportare tutto il mio post per scrivere due righe ;)
	Ciao
	MassimoB
 

Grazie per le dritte MassimoB!
Ho trovato l'errore per puro caso.... cercando un'altro errore con il solito
F7.....
Per informazione, se può interessare, :
In una form ho messo una DBEdit (che lasciavo Nascosta) che rappresentava un
campo boolean (true per nonfatturare False per Fatturare) e una Label con un
grande "DA NON FATTURARE". In base al cambiamento della DBEdit mettevo
.Visible a true o a False.
ovvero:
If  Dm.TbDaFatturare['DaNonFatturare']
  then Label1.Visible:=True
  else Label1.Visible:=false;
Tolto questo il programma funziona!!!!!!! Sai perchè ?
Altra domanda se non disturbo troppo!
Al posto di questa Label e DBEdit ho messo una DBCheckBox. e ho fatto una
procedura sull'evento OnClick......   perchè mi partite la procedura
all'apertura della form invece che quando clikko sulla CheckBox???
Grazie 2000 per tutte le indicazioni!
NB: sono una Lei !    ;-)

NB: sono una Lei !    ;-)
Pardonne-Moi Mademoiselle :)
	Ciao
	MassimoB
Newsgroup: it.comp.lang.delphi
Titolo: Accesso ad un Dll

Salve gente,
  sto imprando a sfruttare i file DLL ma ci sono alcune cose che non
mi sono ancora ben chiare.
So che l'accesso ad un DLL puo' essere STATICO o DINAMICO.
Volevo chiedere i PRO e i CONTRO di queste modalita' d'uso delle DLL.
Ad esempio se dovessi accedere ogni tot secondi ad una funzione che
risiede dentro un Dll sarebbe meglio un caricamento statico?
Scelta una tipologia di chiamata rimane pero' ancora oscuro il nome
con cui chiamare le funzioni.
Mi spiego con esempio.
Nel mio caso volevo usare la funzione RasEnumConnection che risiede in
RasApi32.dll.
Nel caso la volessi chiamare dinamicamente devo impostarla in questo
modo:  GetProcAddress(maniglia,'RasEnumConnectionA'). 
Perche' > A < finale? Come mai senza A finale non funge? Ho visto che
esiste anche il RasEnumConnectionW. Cosa indicano queste lettere
finali?
Se invece provo a chiamare la procedura STATICAMENTE perche' posso
scrivere indifferentemente sia RasEnumConnection sia
RasEnumConnectionA?
Restando in ambito di chiamata STATICA posso dichiarare la funzione
senza scrivere i parametri di passaggio?
Inoltre mi spiegate se e quando c'e' la necessita' di spiegare al
compilatore come si devono scambiare i parametri?
Nel sogente dove prendo spunto viene aggiunto alla fine STDCALL. E'
necessario?  
Grazie
~Guybrush~

necessario?  
Certo, se vuoi che la tua DLL sia una DLL.
E' una direttiva di compilazione che incide sul modo in cui verranno
posizionati i parametri nello stack (in questo caso da destra a
sinistra). Risulta necessaria quando si interfaccia la DLL con
programmi scritti in altri linguaggi (come il C) che hanno un diverso
ordine di passaggio, per cui si ottiene un allineamento tra i due
linguaggi. E' una convenzione che deve essere adottata sempre.
-- 
Andrea Laforgia (ICQ# 87230455) ---------------------------
Non scrivetemi in privato, se non richiesto espressamente.
No replies in private e-mail, unless explicitly requested.
----------------------------------------------------------

linguaggi. E' una convenzione che deve essere adottata sempre.
Se non esplicitassi la direttiva di compilazione STDCALL useri quella
di default REGISTER. Avrei problemi a leggere i DLL in questo caso?
Ogni qualvolta uso file DLL devo esplicitare la direttiva STDCALL?
Grazie per la pazienza  :-P
Ciao
~Guybrush~

Ogni qualvolta uso file DLL devo esplicitare la direttiva STDCALL?
Se la DLL e' scritta con criterio, si'.

Newsgroup: it.comp.lang.delphi
Titolo: Thumbnail per una .avi

Ciaoa tutti,
visto che si parla di grafica ho anch'io una domanda.
Siccome non ho trovato in giro un VCL free per avere la preview dei
tipi di file (pdf, doc, mpg, avi) sul modello delle finestre di
windoZe sto cercando di risolvere il problema da solo.
Per gli MPG e AVI sto usando un trucchetto un po' sporco ma veloce:
prendo un TMediaPlayer e un TPanel e li collego in modo che il
mediaplayer usi il panel per il rendering.  Sposto il player in
posizione pari al 10% delle lunghezza del filmato e vedo una bella
immagine statica del film.
Ecco il problema: io vorrei prendermi quell'immagine dal TPanel e
copiarmela in un bitmap. Come si fa?
Tnx!
Gp

 windoZe sto cercando di risolvere il problema da solo.
Hai controllato qui?
http://www.progdigy.com/?page_id=4
e qui (ad esempio)?
http://www.progdigy.com/forums/viewtopic.php?t=4437&sid=5c1d9b210c6ffd95379a2541f8f92610
Facci sapere se risolvi :-)
Ciao
-- 
Morde

Newsgroup: it.comp.lang.delphi
Titolo: Problema con ADO...

Ho un piccolo problema...
Sto cercando di travasare dei campi di una tabella a un altra in un
altro database (database access)
leggo una riga per volta della mio dataset, mi estraggo i valori e li
imposto come parametri di un comando per l'inserimento nel nuovo..
bhe il problema è che me ne copia 12, dopodichè mi dice:
Project ..... raised exception class EOleException with message
'Impossibile aggiungere la quantità di dati desiderata. Inserire o
incollare meno dati'. Process stopped. Use step or run to continue.
vi posto anche il codice...
begin
  DataModulePrincipale.DBAppoggio.Connected:=true;
  DataModulePrincipale.DSEstrSocOrigare.Active:=true;
  Contatore:=DataModulePrincipale.DSEstrSocOrigare.RecordCount;
  DataModulePrincipale.DSEstrSocOrigare.First;
  for i:=1 to Contatore do
  begin
    Codice:=DataModulePrincipale.DSEstrSocOrigare.FieldValues['CODSOC'];
Societa:=DataModulePrincipale.DSEstrSocOrigare.FieldValues['SOCIETA'];
Nazione:=DataModulePrincipale.DSEstrSocOrigare.FieldValues['CODNAZ'];
    DataModulePrincipale.CmdInserimentoSoc.Parameters[0].Value:=Codice;
    DataModulePrincipale.CmdInserimentoSoc.Parameters[1].Value:=Societa;
    DataModulePrincipale.CmdInserimentoSoc.Parameters[2].Value:=Nazione;
    DataModulePrincipale.CmdInserimentoSoc.Execute;
    BarraStato.Panels[0].Text:='Società inserite: '+IntToStr(i)+' di
'+IntToStr(Contatore);
    DataModulePrincipale.DSEstrSocOrigare.Next;
  end;
  DataModulePrincipale.DBAppoggio.Connected:=false;
end;
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

errata dimensione dei campi sul db access.
Bye
A

 ha scritto nel messaggio
news:bb5tlu$1aia$1...@newsreader2.mclink.it...

Newsgroup: it.comp.lang.delphi
Titolo: CAPICOM

Ciao a tutti, qualcuno ha già usato le CAPICOM ? Sapete se delphi
mette a disposizione qualche componente del genere? Dove potrei
trovare informazioni a riguardo, che non sia il sito della microsoft?
Grazie in anticipo ciao

crittografia e firma digitale?
A

...


 sulla firma. E' una cosa fattibile?
Da quello che mi risulta, non è l'eseguibile che controlla la
firma, ma quello che esegue l'eseguibile.
Mi sbaglio?
Ciao
Andrea

ftrimare equivale ad aggiungere una sequenza di bytes a ciò che firmi.
Ad esempio, se firmi un file txt esso cessa di essere un file txt e diventa
un p7m.
Ergo, credo che se gfai 'sta cosa al tuo exe esso non funzionerà +.
In prima istanza ti serve un certificato.
Poi un qualcosa che usando il certificato applichi la firma a cio' che ti
serve e, forse un csp.
Inizia da qui:
www.nsoftware.com
e ti fai una idea.
Ma sono abbastanza scettico sul fatto che un exe firmato funzioni e possa
verificare se la prorpia firma è o meno attendibile.
A

...


Newsgroup: it.comp.lang.delphi
Titolo: [Delphi] Mess. Worm

procedure TFrmClienti.CaricaCombo(Azione: string);
var
indicePagamenti: Integer;
indiceBanche: Integer;
indiceFigura: Integer;
begin
  if Azione='AGG' then
  begin
    indiceBanche:=-1;
    indicePagamenti:=-1;
    indiceFigura:=-1;
  end
  else if Azione='MOD' then
    begin
      indicePagamenti := cmbPagamento.Items.IndexOf(TClienti.FieldByName
('COND_PAGAM').AsString);
      indiceBanche := cmbBanca.Items.IndexOf(TClienti.FieldByName
('BANCADIAPP').AsString);
      indiceFigura:= cmbFigura.Items.IndexOf(TClienti.FieldByName
('FIGURA').AsString);
    end;
end;
Mi vengono segnalati i seguenti messaggi:
[Pascal Hint] UClienti.pas(345): H2077 Value assigned to 'indiceFigura' 
never used
[Pascal Hint] UClienti.pas(351): H2077 Value assigned to 'indiceFigura' 
never used
[Pascal Warning] UClienti.pas(361): W1036 Variable 'indicePagamenti' 
might not have been initialized
[Pascal Warning] UClienti.pas(370): W1036 Variable 'indiceBanche' might 
not have been initialized
Non sono un esperto di delphi, si era capito, ma vorrei conoscere la 
natura di questi messaggi.
Grazie!
--- posted by geoForum on 
http://www.delphiedintorni.it

 might not have been initialized
Alla fine del ciclo if...else questa variabile potrebbe risultarti non 
assegnata ad alcun valore. Infatti, se esegui mentalmente il blocco if, 
vedrai che non gestisci il caso in cui Azione sia diverso da 'AGG' e 
'MOD'... in questo caso le tue variabili non saranno state 
inizializzate. Devi usare un "else" e gestire anche questo caso.
Comunque, ricordati che c'è sempre il tastino F1 da premere sull'errore...
-- 
Jax


Grazie, sono all'inizio...

Newsgroup: it.comp.lang.delphi
Titolo: Url sito per privipianti Delphi

Questo sito e' ottimo per i principainti che si avvicinano a Delphi.
Contiene moltissimi esempi sull'utilizzo delle funzioni, molto utili
per capire come funzionano
http://www.delphibasics.co.uk/
Buona programmazione. ;-)
-- 
I'am what I'am, I do what I can

Che fai, ostenti la "r" moscia da pvogrammatove avistocvatico ovmai annoiato
da tutti qvesti plebei pvincipianti? ;D
Ciao, Sandro


http://www.delphibasics.co.uk/
Confermo.  Un sito molto ben fatto.  Personalmente lo sto tenendo
presente per l'Open Delphi Manual.

Newsgroup: it.comp.lang.delphi
Titolo: Interrompere uno ShutDown...

C'č il modo di interrompere uno shutdown della macchina?
Il problema č questo... io ho un computer usato da piů utenti che perň non
deve mai essere spento tranne che da me...
Con la mia applicazione possso intercettare uno shutdown, ma come posso
fermarlo?
Grazie
    Luca T.

 deve mai essere spento tranne che da me...
potresti fare una funzione booleana che chiede una password
e restituisce true se corretta, e poi
CanClose:=PasswordCorretta;
Ciao! :-)
Alan Solo

 e restituisce true se corretta, e poie


 non risponde... terminarla?"
si, e non so come evitarlo...
io metterei un timer con tempo (diciamo di 10 sec o meno)
entro i quali l'utente deve inserire una password,
se la sbaglia o scade il tempo
lo shutdown viene annullato...
Ciao!
Alan Solo

Newsgroup: it.comp.lang.delphi
Titolo: ttimer e tempo?!?!?!

Ho un evento ontimenr gestito cosě
procedure TItem1.Timer1Timer(Sender: TObject);
begin
Timer1.Interval := 1000;
progressbar1.StepBy(1);
progressbar1.position:=progressbar1.position+1;
if progressbar1.position>=60 then button2.click // chiudi la form;
end;
mi aspetterei che la progressbar venisse agguiornata di una tacca al
secondo... ma l'esecuzione e' molto piu' veloce... come mai?
Se io volessi che una form mi si chiudesse dopo x minuti (precisi),
quale strada dovrei scegliere secondo voi?

 ha scritto nel messaggio
news:3cb7dc2c...@news.tiscalinet.it...

Crei un thread, con l'esecuzione del comando sleep ad ogni ciclo di verifica
dell'orario.

 ha scritto nel messaggio
news:3cb7dc2c...@news.tiscalinet.it...

nel tuo caso credo che dipenda dalla lunghezza della progressbar... se la
fai di 1 metro č normale ke, contenendo piů takke, te ne inserisca per
esempio 3 ogni 2 secondi...
se invece fai un pň di esperimenti (io ho provato con una progressbar di
lunghezza 513 pixel) dovresti riuscire a farne una che ogni secondo ti
mostra una takka...
ciao
--
----------------------------------------
Carlo Camarda
chiamac...@tiscalinet.it
]@#[ Anna I Love You ]#@[

Timer1.Interval := 1000;
Togli questa riga.
-- 
Andrea Laforgia (
walkie...@libero.it
)
"Usenet is a strange place" [Dennis Ritchie]


Metti un timer che dopo x minuti esegue la chiusura della form; se è la form
principale basta che fai un close;
se è un'altra form basta che fai modalresult := mrOk;
ciao
Alessandro
Newsgroup: it.comp.lang.delphi
Titolo: Stringrid colonna invisibile

Ciao a tutti!
Si riesce a rendere non visibile una colonna di una stringgrid? :-*
Chris

Si riesce a rendere non visibile una colonna di una stringgrid? :-*
TuaStringGrid.ColWidths[indicetuacolonna] := 0;

Newsgroup: it.comp.lang.delphi
Titolo: File lck

E' possibile fare in modo che i files PDOXUSRS.LCK e PARADOX.LCK
vengano
creati solo nella PrivateDir e non anche nella directory dove si
trovano le
table paradox (spesso, in caso di crash di un pc i file LCk bloccano
l'accesso alle table agli altri utenti della rete)?
Grazie
Monica

l'accesso alle table agli altri utenti della rete)?
I file LCK _devono_ stare in un luogo condiviso tra gli utenti.  Non
possono stare nella PrivateDir (che andrebbe creata in locale ad ogni
macchina).  Se proprio non è possibile scalare il DB verso l'alto,
bisogna abituarsi a convivere con gli odiosissimi capricci di Paradox.
Newsgroup: it.comp.lang.delphi
Titolo: [OT] - Quote server

Sto giocherellando con il componente TIdQOTD di Indy:
Qualcuno conosce l'indirizzo di un Quote Server?
Ciao e grazie in anticipo!
--
AmMaT
m   w
M   A
a   i
TwAiN

 Qualcuno conosce l'indirizzo di un Quote Server?
prova 
miao.dsi.unive.it
 , ma da solo qualche frase...
ciao !

 prova 
miao.dsi.unive.it
 , ma da solo qualche frase...
E' ok, va bene, mi serviva per fare un test...
...sai la cosa buffa? ho il sospetto che w2k
abbia un quote server infilato da qualche parte:
Guarda che frase è uscita fuori rivolgendomi
alla localhost:
 Se tu pagare come dici tu,
   io lavorare come dico io.
   Se tu pagare come dico io,
   io lavorare come dici tu.
               - Antico proverbio cinese
:)
Ciao!


 wrote in message
news:991a76$2g0$1...@pegasus.tiscalinet.it...


> cos'è un quote server?
E un server che fa ruotare brevi messaggi di testo.
Credo che il suo utilizzo principale fu, all'inizio,
quello di trasmettere aforismi, battute, freddure
e via dicendo.
Ultimamente ha trovato un utilizzo nel campo degli
affari, quotazioni di borsa e cose del genere :(


Non è un sospetto, se hai installato iis automaticamente
ti trovi un server web, smtp, ftp, echo, qotd e anche daytime mi
sembra
Lawrence Oluyede
rhy...@insieme.net
"La realtà delle cose si nasconde dietro 
la loro reale apparenza (Maestro Hiamuri)"


 sembra
ehehe! hai ragione, pensavo di averli spuntati tutti tranne
quello web, il qotd non sospettavo nemmeno che ci fosse.
Ma ieri era la prima volta che vedevo quei messaggi e
mi stava venendo un collasso... mi chiedevo chi diavolo
me li mandasse!

Newsgroup: it.comp.lang.delphi
Titolo: Chiudere l'applicazione durante la create dei forms

Un mio programma effettua dei controlli durante la create del form principale.
Se uno di questi controlli fallisce, faccio terminare il programma.
if not (bOk) then application.terminate;
Il problema e' che in una delle form che viene creata dopo la mainform viene
allocato un oggetto che referenzia la stampate di default del sistema.
Se il sistema non ha stampanti installate, il programma scoppia, nonostante
precedentemente durante la create della MainForm abbia invocato
application.terminate.
Come posso saltare tutte le create e uscire dal programma in qualsiasi
istante?
Esempio,facendo Project->View source:
Application.CreateForm(TMainForm, MainForm); // CONTROLLI SICUREZZA
Application.CreateForm(TAnaAgz, AnaAgz);
[...]
Application.CreateForm(TfrmBackupDati, frmBackupDati);
Application.CreateForm(TfrmReport, frmReport); // SCOPPIA
-- 
Morde. 
(
mo...@despammed.com
)
M-List di icld: 
http://it.groups.yahoo.com/group/icld/

 Application.CreateForm(TfrmReport, frmReport); // SCOPPIA
Questa form non puoi farla creare dopo, a runtime?
Inoltre, IMHO č meglio che tu faccia i controlli nel file dpr (sempre che i
controlli non siano relativi a componenti della main form).
In questo modo puoi sempre fare una Exit e il programma finisce senza colpo
ferire (o almeno credo, non l'ho mai fatto).
--
Jax
====
Le cose che sappiamo meglio sono quelle che non abbiamo mai imparato.

devo x forza essere in autocreate?
A

 istante?
Un'altra soluzione che mi viene in mente è crearti l'oggetto che
referenzia la stampante come Singleton nella initialization section
della form principale. Se la creazione dell'oggetto ti dà un errore
termini l'applicazione.
Antonio 

 Application.CreateForm(TfrmReport, frmReport); // SPERIAMO NON SCOPPI
 END;
Teminated risponde al messaggio WM_quit... non so se hai bisogno di invocare
application.processmessages prima di controllare terminated.
Ciao
Matteo

Se non puoi fare a meno dell'autocreate form usa
Halt a posto di Application.Terminate
Ciao

application.processmessages prima di controllare terminated.
La tua soluzione e' perfetta per me perche' e' la piu' veloce ed ha il minor
impatto sul codice. (Si, ci vuole il processmessages)
Grazie anche agli altri che hanno risposto.


 Application.CreateForm(TfrmReport, frmReport); // SCOPPIA
Saluti
Paolo Arosio
-- 
"La dimostrazione dell'esistenza di specie intelligenti nell'universo
 e' che non ci vengono a trovare" [Calvin & Hobbes]

 Esempio,facendo Project->View source:
begin
  try
    Application.CreateForm(TMainForm, MainForm); // CONTROLLI SICUREZZA
    Application.CreateForm(TAnaAgz, AnaAgz);
    // [...]
    Application.CreateForm(TfrmBackupDati, frmBackupDati);
    Application.CreateForm(TfrmReport, frmReport); // SCOPPIA
    Application.Run;
  except
    on EAbort do {nothing};
  end;
end.
-- 
Roberto Lupi
Newsgroup: it.comp.lang.delphi
Titolo: Help NMSMTP... non so + che fare!

Ciao,
ho usato il suddetto componente in una mia applicazione,
ha funzionato benissimo fino a quando l'utente che utilizza la mia
applicazione non ha istallato il suo computer in una rete.
Adesso il componente non funziona + e non solo, quando l'utente cerca di
mandare una mail, il prg si pianta inesorabilmente.
Ecco il codice
with NMSMTP1 do
        begin
        Host := frmMain.defHost; (e' 
mail.tin.it
)
        Port := frmMain.defPort;   (e' 25)
        Connect;
        end;
Come posso rimediare... purtroppo non sono ferrato in reti....
Ciao

 mandare una mail, il prg si pianta inesorabilmente.
Cioe', prende una pala, si scava una buca nel tuo giardino,
infila dentro le radici e rimette a posto il terreno.
:)))))
Cosa significa si pianta?
Che messaggio di errore ti da?
Per caso nella rete esiste un server proxy?
Bye
AS
"Se è Microsoft non funziona"
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Newsgroup: it.comp.lang.delphi
Titolo: [D6] Misurare lunghezza stringa in px

Ciao a tutti.
In una DbGrid, vorrei gestire le stringhe di testo che eccedono la 
larghezza della colonna, troncando correttamente ed aggiungendo i 
caratteri "...".
Immagino di dover gestire, a scelta, l'evento /TDbGrid.OnDrawColumnCell/ 
oppure il /TField.OnGetText/.
Quindi, individuato il testo che dovrebbe essere visualizzato, ho 
l'esigenza di misurarne la larghezza in pixel, in modo da verificare se 
va oltre le dimensioni della colonna. Qualora andasse oltre, troncarlo 
piu' volte ed aggiungere tre "." fino a quando non riesca a stare nella 
colonna.
Mi sembra di ricordare che esista un'API con nome tipo 
/GetTextExtension/ o qualcosa del genere, ma non riesco a trovarne 
documentazione...
Grazie,
Gianluca.


vedi la funzione del Canvas "TextWidth"
Diego
--- posted by geoForum on 
http://www.delphiedintorni.it
Newsgroup: it.comp.lang.delphi
Titolo: Fermare una query (Firedac)

Ciao a tutti,
  impostando una query molto lunga ho pensato di utilizzare il componente
 
TFDGUIxAsyncExecuteDialog
 
che permette, settando query.resourceoption.cmdExeMode:=amCancelDialog di 
visualizzare un dialog con un bottone "cancel".
Premendo il bottone la query si interrompe.
 
Domanda, c'e' un modo per intercettare il click del bottone ??
Infatti premendo il bottone la query si interrompe e l'esecuzione del 
programma passa alla linea successiva al query.acrive:=True, invece se ho 
premuto il punsante non devo proseguire.
 
Ho provato a girami in giro ma, a parte soluzioni con parere discordanti, 
non ho trovato ....
 
Ecco cosa ho trovato ...
 
http://stackoverflow.com/questions/15067960/anydac-form-design-programming-query-cancel-dialog
 
che contrasta con
http://stackoverflow.com/questions/14044428/how-to-keep-a-program-responsive-while-executing-anydac-query
 
 
Suggerimenti??
 
Grazie
 
Daniele
 

> Suggerimenti??
 
Hai provato a usare OnHide di TFDGUIxAsyncExecuteDialog?
 
A.
 

 Hai provato a usare OnHide di TFDGUIxAsyncExecuteDialog?
 
Onestamente no.
Non per pigrizia ma, a logica, questo evento viene invocato quando il dialog 
viene chiuso/nascosto.
E questo accade anche quando si chiude normalmente, alla fine della query.
Pero' c'e' un sender ..... domani guardo il sender .... potrebbe essere 
diverso ....
 
A Domani
 
Ciao
 
Daniele 
 

 Hai provato a usare OnHide di TFDGUIxAsyncExecuteDialog?
Ho provato a intercettare il tipo Sender nell'evento Onhide.
Sia che la query termini il suo lavoro o che venga interrotta con la 
pressione del bottone, il sender e' sempre quello (Sender.ClassType).
 
Possibile che non ci sia un modo per avere questa informazione?
 
ciao
 
Daniele 
 

 Possibile che non ci sia un modo per avere questa informazione?
 
...non ti viene in mente proprio nulla su come capire come mai la kaz di dialog è stata chiusa..?
 
A.

 dialog è stata chiusa..?
Onestamente no, tieni presente la scarsa preparazione tecnica .... 
sicuramente mi sfugge qualcosa ....
 
Grazie
 
Ciao
 
Daniele
 

Ciao Alberto,
 
il pezzo di codice per la query e'
 
  FDB.FQR1.SQL.Add(QueryStr);
  FDB.FQR1.Active:=True;
 
  if FDB.FQR1.Command.State=csAborting then    <<---- usata solo per prova 
... e qui c'e' un break point
  begin
    Sleep(1);
  end;
 
Qui succede un fatto curioso ....
se la query viene eseguita in modo corretto (senza cancellare il processo) 
il break point viene rispettato.
Se invece clicco sul bottone del dialog, la query si interrompe ma non si 
passa piu' di li, nel senso che non so cosa succede.
Il controllo torna alla form ma si esce dalla procedura e, mio limite, non 
so dove ritorna.
 
Lo studio continua ....
 
Ciao
 
Daniele
Newsgroup: it.comp.lang.delphi
Titolo: Inserimento di oggetti in una Form a Run-Time

Ciao a tutti,
come potrete notare sono nuovo di Delphi, e vorrei sapere come è possibile
inserire in un form degli oggetti, ad esempio delle TLabel, a run time.
Qualcuno è in grado di aiutarmi?
Grazie
Ciao
Jack

 a run time. Qualcuno è in grado di aiutarmi?
  with TLabel.Create(Owner) do
  begin
    Parent := Form1;  // o eventualmente un panel
    Caption := 'Ciao!';
    Left := 10;
    Top := 20;
// imposti tutte le altre proprietà che ti interessano
  end;
--
Jax

Newsgroup: it.comp.lang.delphi
Titolo: Problema: "C'è Stringa in una stringa"?

Una domanda stupida: come posso controllare se una certa stringa è contenuta
all'interno di un'altra stringa?
Col comando "Pos" si può fare controllando un carattere dentor una stringa
ma io ho bisogno di cercareuna stringa...qualcosa che dato:
stringa1:='UNODUETRE"
stringa2:="ETR"
mi risponda con un semplicissimo boolean se c'è o non c'è, non mi interessa
QUANTE volte, l'importante è che riesca a trovare SE è incluso.
Fatemi sapere e scusate la banalità...

Ciappi ha scritto 12 righe per esprimere il seguente concetto:

Guarda che sbagli riguardo a Pos. La funzione:
function Pos(Substr: string; S: string): Integer;
almeno quella che ho io in Delphi 5, cerca proprio una stringa
all'interno di un'altra stringa, e ritorna la posizione del primo
carattere della sub-stringa.
Se vuoi solo sapere se c'è o no verifichi che il valore di ritorno sia
maggiore di zero:
bool := (pos('ciao', 'aariodciaodljfs') > 0);
-- 
(*metallikop*libero*it*)
{
http://web.tiscali.it/mbsoftware
}
{
http://digilander.iol.it/metallikop
}

 ...


Newsgroup: it.comp.lang.delphi
Titolo: delphi 5 e win2000 server

Ciao vorrei un consiglio:
in un'azienda con 5 pdl utilizziamo un gestionale personalizzato
scritto con Delphi 5 e con tabelle Paradox
fino ad oggi abbiamo utilizzato la rete con Win98, adesso stiamo passando a
Win 2000 Server
vorremmo sapere se al posto di configurare delphi su tutti i posti di lavoro
come si usa per le reti p2p utilizzando terminal services di WIN 2000 si
potrebbe accedere tutti allo stesso eseguibile e recuperare in velocita'
Grazie anticipatamente

 wrote in message
news:67_x8.62472$vF6.1...@news2.tin.it...

Se usi i servizi di terminal server l'applicazione gira solamente sul
server, ció che il client vede
é solo "l'emulazione della videata", quindi il traffico di rete che c'é
é molto
limitato, per poter funzionare in modo efficente peró bisognerebbe
impostare il BDE affinché
sia condiviso con piú sessioni, in internet avevo trovato come fare peró
purtroppo
non ricaordo piú dove.
Ciao Micky
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG
Newsgroup: it.comp.lang.delphi
Titolo: AVI files

Ciao, sono alle prese con un problema relativamente semplice ma..  non mi
riesce.
vorrei estrarre dei fotogrammi da un file avi in formato non compresso.
riesco a far scorrere un file e visualizzare il fotogramma che voglio io ma
non riesco ad estrarlo sotto forma 
p.es
.
di una bitmap.
qualcuno ha qualche idea?
grazie in anticipo.
Marco Anselmi

 ha scritto nel messaggio
news:94u6po$uk$1...@serv1.albacom.net...


 ha scritto nel messaggio
news:KhZc6.45846$ew1.3...@news.infostrada.it...


Newsgroup: it.comp.lang.delphi
Titolo: Manipolazione di bit

Salve,
vorrei un consiglio (e magari un aiuto) sulla seguente problematica:
Nel DB ho salvati degli array di char da interpretare bit a bit, una 
volta caricato un array in memoria ho la necessità (ogni array è di 512 
char = 4096 bit) di  trovare un modo veloce per trovare la posizione 
(l'indice) di tutti e soli bit posti ad 1.
Qualcuno ha un idea di come fare ciò in modo *efficente* ?
Qualche mio amico mi ha suggerito di usare delle TBitmap con la 
funzione Scanline, premesso che non so come fare... è un'idea valida 
secondo voi?
tente grazie
l.

Penso che l'unico modo sia scorrere l'array
-- 
_________________________________________________________________
Edmondo Di Tucci 
www.powernetsi.it/edmondo
 - su messenger: 
snar...@tin.it
La vera felicità è quando sposi una ragazza per amore e poi scopri che è
anche ricca.

 Penso che l'unico modo sia scorrere l'array
Nessun "giochino" con operatori logici e maschere di bit?? :-(((
aiuto!
l.

 (l'indice) di tutti e soli bit posti ad 1.
Prova a guardare la classe TBits (unit classes), dovrebbe essere ottimizzata
(sia in termini di prestazioni che di memoria occupata).
Magari lasciando perdere l'array di char in memoria puoi fare qualcosa del
genere:
Bits.Size := 8;
for I := 0 to 8 do
  Bits.Bits[I] := Power(2, I) and CH;
Naturalmente, il tutto all'interno del ciclo che scorre l'elenco dei campi
della tabella e quindi adeguando Size e l'indicizzazione di Bits.
Una volta valorizzati i membri di Bits, la ricerca all'interno dovrebbe
essere piuttosto efficiente.
Ciao,
Gianluca
-- 
Gianluca Plevani
-----------------------------------------------------------
http://www.brain-enterprise.com
Newsgroup: it.comp.lang.delphi
Titolo: AIUTO!! problema con componenti Ado & framework .net

Purtroppo ho avuto la necessità di installare un programma che installava
anche la framework .net
da quel momento non mi funzionano più i componenti standard ADO di delphi 7.
Qualcuno sa dirmi niente??

 da quel momento non mi funzionano più i componenti standard ADO di delphi 7.
E' *inacettabile* che uno sviluppatore scriva su un ng di sviluppatori 
la frase "non funziona" senza dare maggiori indicazioni.
AS

 da quel momento non mi funzionano più i componenti standard ADO di delphi 7.
Non c'è alcuna attinenza tra la libreria ADO e il .NET Framework.
Poi, come ti ha già fatto notare Alberto, il "non funziona" fornisce ben 
pochi spunti per risalire all'origine del "vero" problema.
-- 
Marco «Alka» Breveglieri
  ABLS Team S.n.c. - Software & Web
  Via De Gasperi, 14
  42019 Scandiano (Reggio Emilia)
 
http://www.abls.it

 ha scritto nel messaggio
news:hHc6d.12599$N45.3...@twister2.libero.it...


 Ho provato a disinstallare la Framework ma il risultato non cambia...
Infatti, credo proprio che non c'entri nulla _il_ Framework .NET.
Ciao! :-)


 ha scritto nel messaggio 
news:lKf6d.12975$N45.3...@twister2.libero.it...


Newsgroup: it.comp.lang.delphi
Titolo: downloading di file html da un server remoto

Ciao a tutti, vorrei sapere come fare per salvare su disco un file html da
un server remoto, ad esempio
http://digilander.iol.it/member/esempio.html
   =====>
C:\applicazione\esempio.html
Gradito un frammento di codice :))
Grazie
Ciao!

 Gradito un frammento di codice :))
Eccolo :D ho usato un TStringlist per salvare la stringa, un metodo un po'
casereccio ma funzionante.
procedure TForm1.Aggiorna;
var s:tstringlist;
begin
NMHTTP1.Get('
http://digilander.iol.it/member/esempio.html'
);
s:=tstringlist.create;
s.text:=NMHTTP1.Body;
s.SaveToFile('C:\applicazione\esempio.html');
LeggiFile;
s.free;
end;
Byezz !! :D                {MSX}

 end;
sorry la linea indicata non c'entra niente, era dal mio programmino da cui
ho preso il codice

 ha scritto nel messaggio
news:9gobsd$6tb$1...@nreadA.inwind.it...


 ha scritto nel messaggio
news:9gobsd$6tb$1...@nreadA.inwind.it...


 risultati online della classifica di giocatori piu bravi? :)
a dire il vero no, anche se e' molto simile.. su senseless usavo l'ftp
invece dell'http, ma piu' o meno e' lo stesso :D
Newsgroup: it.comp.lang.delphi
Titolo: Filtro KeyDown

Vorrei che durante la battitura di un testo vengano utilizzati solo i
numeri e non simboli come !"Ł etc.
Se nell'evento on-key down pongo
if key in ['0'..'9'] then Else key:=0;  oppure
if key in [48..57]   then Else key:=0;
da tastiera č permesso solo il TASTO numerico, perň premendo SHIFT piů il
tasto numerico non vengono bloccati i caratteri che si trovano sopra i
numeri Esempio !"Ł$%&/()=.
Come č possibile intercettare SHIFT ?
Shift: TShiftState come deve essere settato ?
SCUSATE LA BANALITA' DELLA DOMANDA ma non ho trovato nulla nell'HELP e non
ho molta esperienza (2 mesi)
Grazie anticipatamente...
--- posted by geoForum on 
http://www.delphiedintorni.it


Ciao
prova con questa nella OnKeyPress della Edit
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  // #8 č Backspace
  if not (Key in [#8, '.','0'..'9']) then begin
//     beep;
     Key := #0;   // annullo l'input
  end;
end;
Ciao
C. 

Giusto,
Grazie.... :-D
B u o n a    G I O R N A T A


 ho molta esperienza (2 mesi)
GetAsyncKeyState da win32, Giorgio 

GetAsyncKeyState da win32, Giorgio 
Grazie ... Lo metto negli appunti :-)


GetAsyncKeyState da win32, Giorgio 
Grazie ... Lo metto negli appunti :-)
--- posted by geoForum on 
http://www.delphiedintorni.it

Newsgroup: it.comp.lang.delphi
Titolo: Leggere e scrivere valore di un TColor in un file di testo

Ciao a tutti,
scusate la banalità della domanda, ma oggi non riesco a fare un cavolo !!!
Ho una variabile di tipo TColor. Dovrei salvare il suo valore in un file di
testo e poi dovrei leggere tale valore dallo stesso file di testo per
rivalorizzare la variabile.
Qualcuno ha qualche suggerimento su come fare?
Grazie in anticipo, Mario
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 rivalorizzare la variabile.
Un TColor non è nient'altro che un intero, quindi basta che lo salvi nel 
modo che preferisci, per esempio in un file ini (TIniFile.WriteInteger / 
ReadInteger).
-- 
Jax

Esistono le funzioni 
colortoint
e 
inttocolor
--- posted by geoForum on 
http://www.delphiedintorni.it

 inttocolor
Veramente è IDENTtocolor, e serve per utilizzare gli identificativi dei 
colori, tipo clWhite, clAqua...
Un TColor non può venire convertito in intero, visto che *è* un intero.
type TColor = -$7FFFFFFF-1..$7FFFFFFF;
-- 
Jax

Opss.... Lapsus 
intendevo
ColorToString
StringToColor

Newsgroup: it.comp.lang.delphi
Titolo: Idea su come memorizzare una selezione in StringList

Ciao, ho una StingList e ad ogni avvio del programma mi carica una 
lista di file che sono presenti in una cartella. L'utente sceglie uno o 
più file e li seleziona, e qui avrei bisogno per ogni riga una ChekBox 
e non so come fare; ho pensato di mettere un'altra StringList 
e 'spostare' la selezione in quest'ultima per avere i file disponibile 
in una SL e quelli selezionati nell'altra.
A questo punto devo memorizzare la selezione, magari in un file .ini, 
in modo che all'avvio del programma mi vengono caricati tutti i file di 
quella cartella e poi facendo un confronto con quelli contentuti nel 
file .ini mi vengono 'spostati' nella SL della selezione.
Il problema è che non so come fare il confronto.
Esiste eventualmente qualche altro modo??
GRazie a tutti.
Inviato da 
www.mynewsgate.net

 ha scritto nel messaggio
news:200411171...@mynewsgate.net...

Newsgroup: it.comp.lang.delphi
Titolo: Puntatori ?

Ho un problema a riportare un concetto da me molto utilizzato nelle vecchie
procedure Clipper:
Una dbf ha N1CAMPO N2CAMPO, N3CAMPO N4CAMPO relativi a 4 date di presenza di
un cliente. Ora avevo una piccola funzione
che ogni volta che : AggiornaData( oggi) mi andava a mettere la data in
param. nel primo campo libero dei 4. Era semplice utilizzare le & (macro)
per loopare sui 4 campi e trovare il primo libero.... Ma in Delphi le cose
cambiano, devo usare un puntatore ? si ma come si looppa sui quattro campi
(devo per forza fare tanti if quanti i campi?) Boh??
Vi sarei molto grato sei capissi come fare.
Grazie
Ciao Davide

(devo per forza fare tanti if quanti i campi?) Boh??
Io vengo da Clipper....
Non per fare l'accocato del diavolo, ma trovo eccessivo l'uso delle macro di
Ca-clipper per una coa simile. Ho sempre cercato di evitare le macro per i
motivi che tutti i "clipperisti" conoscono: crescita del file exe (ed in dos
conta...!), eccessivo uso di memoria etc etc etc.
Diciamo che, si i campi non fossero 4, ma 400 potrei forse capire.
In delphi poresti usare un puntatore all'oggetto di classe TField che ti
serve. M insisto: per quattro campi non vedo la necessita di arrampicarsi
sugli specchi in questo modo salvo che non via sia la possibilita' in futuro
che il numero di campi aumenti.
Poi, una domanda: cosa succede se tutti i 4 campi sono pieni? Si riparte dal
primo?
Comunque si puo fare in vari modi senza scomodare i puntatori:
1) Metti nella tabella un campo che contiene un contatore che ti dice quale
è l'ultimo campo data riempito
2) Usa l'evento on validate della classe TField
3) Usa l'evento beforepost della classe TTable
Se vuoi maggiori dettagli scrivi.
Saluti
AS

 Saluti
A te e ... grazie molte...
Ciao Davide

 da solo mi scorre i 5 campi del settore specificato.
procedure AggiornaProssimo(
  ds : TDataSet;
  Settore : string {Prefisso del nome del campo};
  Data : TDate);
var
  i : integer;
begin
  i := 1;
  repeat
    with ds.FieldByName(Settore + IntToStr(i)) do
      if IsNull then begin
        asDate := Date;
        Break; 
      end;
  until i > 5;
 
  if i > 5 then begin
    // Codice da eseguire se non è stato trovato alcun campo libero
  end;
end;
O qualcosa del genere (i.e. non ho provato questo codice). 
-- 
Roberto Lupi

> da solo mi scorre i 5 campi del settore specificato.
In questo caso io sarei propenso ad utilizzare una relazione
master/detail ovvero nella tabella master avrai il nominativo
e nella tabella detail i campi da aggiornare.
In questo modo ottieni una gestione molto piu' flessibile dei
dati e puoi aggiungere ben oltre che 5 record.
Ciao Us