mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.delphi
Titolo: Classi e Puntatori

Avevo già descritto il mio problema iniziale in questo NG ma adesso che ho
capito che se copio direttamente il contenuto di una classe in un altra (a:=b)
uso la stessa istanza di memoria e tutte le classi si modificano se ne modifico
una.Quindi posso semplificare la mia domanda.
Come si copia una classe in una seconda istanza di una classe usando i
puntatori?
Ho provato a fare ad esempio
type bo=class
i:integer;
s:string;
end;
type pbo=^bo;
var
 pclass:pmy;
 classe1,classe2:my;
//ad esempio voglio copiare il contenuto di classe1 in classe2
begin
 classe1:=bo.create;
 classe2:=bo.create;
 
 classe1.s:='io ho anni: ';
 classe2.i:=17;
 new(pclass);
 pclass^:=classe1; //qui ho anche provato a mettere pclass^:=@classe1
 classe2:=pclass^;
 dispose(pclass);
end;
se faccio in questo modo è come se non avessi fatto nulla perchè se cambio 
i valori di classe1 cambiano anche per classe2 e viceversa.
Qual è il procedimento esatto, premetto che non ho mai usato i puntatori!
-- 
Posted from 
a-ar13-12.tin.it
 [213.45.244.203] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG


Tieni presente queste cose:
1) I puntatori non ti servono in quanto quando dichiari una variabile
di tipo bo, questa non è null'altro che un puntatore (pero' punta ad
una struttura precisa: quella della classe bo.
2) Se vuoi copiare un oggetto in un'altro devi usare il metodo Assign,
che pero' (purtroppo), in molte classi non è implementato. Sei
costretto quindi a crearne uno tuo dove copi uno ad uno i valori dei
campi dell'oggetto. Ovviamente questo è un po' noioso....
3) Tti consiglio di chiamare le tue classi con la T davanti (come
insegna mamma Borland).
Ciao, Rocco.

Newsgroup: it.comp.lang.delphi
Titolo: Treeview lost focus

Ciao a tutti!
Ho questo piccolo problema: ho una TTreeview con una riga selezionata.
Quando la TTreeview perde il focus (perche' magari clicco su un altro
controllo), la riga in questione perde la selezione (almeno visibilmente),
cosa che invece non vorrei.
Come faccio a farla rimanere evidenziata?
Grazie in anticipo
Chris

Sinceramente credo che non sia possibile, perché se ci fai caso, anche
nell'esplora risorse di Windows, dopo che hai cliccato su di un file nella
parte destra, la cartella della treeview di sinistra, dove si trova il file
che hai selezionato, perde l'evidenziazione, perché giustamente
l'evidenziazione rappresenta la posizione del "cursore" (non quello del
mouse, ma quello che sposti tramite le freccette della tastiera).
Quindi a logica credo non si possa fare, comunque l'icona di item
selezionato, rimane anke se sposti il focus su un altro oggetto e se la fai
di un colore differente da quello degli item non selezionati, si vede
benissimo il "focus".
Bye.
Daniel.
--------------------------------
Inviato via 
http://usenet.libero.it

 selezionato, rimane anke se sposti il focus su un altro oggetto e se
la fai
Rimane (seppur in grigio) solo se HideSelection è False.
--
Jax
Newsgroup: it.comp.lang.delphi
Titolo: Chiudere una form automaticamente.

Vorrei aprire un form in modale, fare delle operazioni (di aggiornamento DB)
e chiuderla automaticamente alla fine.
Ho provato con l'evento formShow e formActivate, ma quando invoco close
oppure modalresult = mrOk, comunque la form rimane aperta, devo chiuderla
manualmente, come posso fare ?
Devo gestire dei messaggi?
Grazie, Giuseppe.

 Grazie, Giuseppe.
Prego.
Ciao, Antň.

 ha scritto nel messaggio
news:Jg3m9.33354$e31.7...@twister2.libero.it...


Newsgroup: it.comp.lang.delphi
Titolo: e-mail formato HTML

Ciao a tutti! Ho creato un programma che invia un file html come messaggio
di una e-mail! L'HTML può contenere delle immagini che ovviamente vengono
allegate ma devono essere anche visualizzate all'interno del messaggio! il
problema è che le immagini e il messaggio viene ricevuto correttamente se
utilizzo Microsoft Outlook, altrimenti da web o con Outlook express le
immagini all'interno del mex vengono caricate dopo il testo e non nella
posizione corretta e al loroposto appare la bellissima crocetta rossa! io
utlizzo  delphi 6 e gli oggetti indy tidSMTP e TidMessage! come posso
decodificare l'html  o che oggetti devo utilizzare perchè l'e-mail sia
visualizzata correttamente da tutti i client? Ciao Francesco

 ha scritto nel messaggio
news:bjq2kp$ki2$1...@newsreader.mailgate.org...


Non sarebbe meglio inviare un messaggio testo con un link ad una pagina web
contenente tutte le immagini che vuoi?
Oltre a dare meno fastidio e "peso in byte" all'utente finale, eviteresti
che chi, come me, tiene disabilitata la visualizzazione dei msg html, si
ritrovasse con un messaggio comunque non visualizzabile.
Ciao, Sandro

Si ho settato il content del  message come text/html, nn ho prorpio idea di
cosa debba essere modificato! Ciao

Newsgroup: it.comp.lang.delphi
Titolo: Problemi con Query e Database

Come posso fare per utilizzare comandi sql abbastanza complessi senza dover
utilizzare il RequestLive settato a False.
Ed in ogni caso come potrei fare per utilizzare questi comandi in sql e
poter, nello stesso tempo, fare modifiche al database tramite un dbgrid ?
Spero che qualcuno possa darmi un aiuto.

Se non erro il QueryLive = true si può usare solo su select che estraggono dati
da una sola tabella. Non so se impostando opportunamente le proprietà
ProviderFlags su ogni campo il problema si può aggirare, ma non mi pare.
La strada giusta è utilizzare il componente UpdateSQl, che ti permette di
associare tre diversi statement SQL alle tre axioni select, update, delete.
Un'altra strada è utilizzare i componenti DataSetProvider e ClientDataSet della
sezione Midas, che ti permettono di lavorare con le query in modo molto simile
a come si farebbe con le tabelle (impostando appunto i giusti valori alle
proprietà del gruppo ProviderFlag).
massimiliano ha scritto:

Newsgroup: it.comp.lang.delphi
Titolo: Allocazione record

Sarei molto grato a chi fosse in grado di dirmi se e' possibile allocare un
record in modo che nessuno se non chi lo ha bloccato possa modificarlo
finche' non viene rilasciato.
                                                 Grazie a tutti

finche' non viene rilasciato.
forse non ho capito bene cosa vuoi fare.
Io ho capito che tu vuoi rendere impossibile la modifica di un record di una
tabella (paradox magari) finchè l'utente che l'ha inserito non lo sblocchi.
Ho capito bene ?
Se è così, significa che possono esserci più record bloccati mentre i
rimanenti continuano a comportarsi normalmente permettendo la modifica,
cancellazione ecc !!
Comunque per ottenere solo una sicurezza da programma, puoi aggiungere due
campi. Uno sarà di tipo Boolean, l'altro di tipo stringa.
Nel campo di tipo Boolean lo imposti a true se il record deve essere
protetto, a false se deve funzionare normalmente.
Nel campo stringa imposti una password che abiliterà una modifica del
record.
Magari se vuoi divertirti cripti la password .... ma non è necessario !!
:-))
Ora per ogni record che vai a modificare, controlli se il campo booleano
vale true e false. In base a queste due condizioni visualizzi o meno una
finestra della password. Se la password digitata dall'utente corrisponde a
quella contenuta nel campo stringa, allora abiliti la modifica, altrimenti
niente.
Se il campo booleano vale False, allora abiliti subito la modifica.
Comunque questo sistema è sicuro solo da programma, ma con un semplice
editor di tabelle paradox o cosa sia, è possibile cambiare il valori dei due
campi per ogni record "protetto" e poi da programma non verrà più
visualizzata la finestra della password !!!
Dipende quello che vuoi fare.
Se ho capito male il tuo problema, scrivi nuovamente !!
Ciaooo !!!
Antonio Tarolla
BSSoftware Tips Mailing - List Support

...
|Sarei molto grato a chi fosse in grado di dirmi se e' possibile allocare un
|record in modo che nessuno se non chi lo ha bloccato possa modificarlo
|finche' non viene rilasciato.
|
|                                                 Grazie a tutti
|
|

Newsgroup: it.comp.lang.delphi
Titolo: Windows 2000 e ADO

Ho installato Windows 2000 Professional...se, da Delphi 5 enterprise, tento
di creare una form con componenti ADO mi torna l'errore :
Interface non supported !
Perchč ?
grazie
Solid Snake IT

 Interface non supported !
Le uniche cose che mi vengono in mente sono:
Hai installato il service pack di w2k?
E quello di D5e?
--
AmMaT
m   w
M   a
a   i
TwAiN

 E quello di D5e?
Anche Ado update 2
Ho installato anche al SP3 di Sql Server...non vorrei che mi creasse
casini...

 ha scritto nel messaggio
news:98letu$hs7$1...@fe2.cs.interbusiness.it...

prova ad installare MDAC 2.6

GRAZIE !
Ho risolto il problema....ho installato MDAC 2.6
grazie 1000
ciao
Solid Snake IT

Prego, e ringrazia ancheBill... faranno mai un prodotto che funziona senza
patch?
Newsgroup: it.comp.lang.delphi
Titolo: Screenshot

Ragazzi scusate se forse sono un po' OT, ma usando le API di Windows o 
magari anche qualcos'altro, sapete dirmi se con Delphi 6 (sicuramente si 
può fare) è possibile fare uno screenshot del desktop e di quant'altro 
sia aperto e salvarlo su una jpg o bitmap?
Thx in anticipo!!!

 Thx in anticipo!!!
io faccio cosě :
uses ClipBdr;
Keybd_event (vk_snapshot, 0, 0, 0);//simulazione del tasto "STAMP"
Sleep(100);//aspetto 100 ms
Image1.Picture.LoadFromClipboardFormat(CF_BITMAP,
ClipBoard.GetAsHandle(CF_BITMAP), 0);//carico dalla clipboard l'immagine
Image1.Picure.SaveToFile('.....');//salvo
spero sia questo quello che chiedevi
ciao
erik

Sinceramente non funsiona molto bene.. l'ho riprovato ora con il menu sulla
TrayIcon e non si vede niente.
se invece c'è la tua finestra attiva cattura solo l'immagine in primo piano.
meglio che ti consigli qualcun'altro ;)
ciao
erik

 ha scritto nel messaggio

ok trovato
keybd_event (VK_SNAPSHOT, 1, 0, 0 );//simulazione del tasto "STAMP"
keybd_event (VK_SNAPSHOT, 1, KEYEVENTF_KEYUP, 0 );//rilascio del tasto
Sleep(100);//aspetto 100 ms
Image1.Picture.Bitmap.LoadFromClipboardFormat(CF_BITMAP,
ClipBoard.GetAsHandle(CF_BITMAP), 0);//carico dalla clipboard l'immagine
Image1.Picture.Bitmap.SaveToFile('c:\windows\desktop\bdr.bmp');
ciao
erik

 Io intendevo fare una foto completa a ciò che si vede sul monitor...
Riguarda bene l'ultimo codice che ti ho inviato è differente
è fà una foto di tutto lo schermo
comunque in group di google ci sono un bel pò di vecchi post sull'argomento
:
È stata effettuata una ricerca in Gruppi di keybd_event (VK_SNAPSHOT .
Risultati 1 - 10 di circa 623
ciao
erik

Deciso a farsi cogliere dal crampo dello scrivano Vegeta ha scritto:

Metodo alternativo (cito un post di Andre Gnesutta):
procedure TForm1.Button1Click(Sender: TObject);
var DeskTopDC: HDc;
  DeskTopCanvas:TCanvas;
  DeskTopRect: TRect;
begin
  DeskTopDC :=GetWindowDC(GetDeskTopWindow);
  DeskTopCanvas := TCanvas.Create;
  DeskTopCanvas.Handle := DeskTopDC;
  DeskTopRect := Rect(0,0,Screen.Width,Screen.Height);
  Form1.Canvas.CopyRect(DeskTopRect,DeskTopCanvas,DeskTopRect);
end;
Mancano il Free del canvas e un ReleaseDC. Non dovrebbe essere difficile
modificarlo a tuo piacimento.
--
Un Ippatsu che ora vado a pranzare
ICQ: 135471013

 è fà una foto di tutto lo schermo
No, con i parametri (vk_snapshot, 1, 0, 0) fa la foto solo alla finestra 
in primo piano.
Usando invece (vk_snapshot, 0, 0, 0) fa la foto all'intero schermo.
Ho provato a salvare e salva in bitmap.
Ho provato a salvare in JPeg con 
TJPeg(Image1.Picture.Graphic).Savetofile('Percorso.est') ma mi crea 
comunque una bitmap da 3,0 MB... appena riesco a salvare in JPeg è un 
passo avanti... :)

Scusate dovevo rispondere a Erik...
Grazie comunque per gli altri suggerimenti
Newsgroup: it.comp.lang.delphi
Titolo: Edit che "suonano"!?!?!?

Ciao a tutti,
Ho fatto un programma in cui sono presenti parecchie TEdit che devono
contenere un solo numero dallo 0 al 3.  Ho notato solo ora che
all'inserimento del numero il programma emette un suono che
corrisponde al quello che windows utilizzza per segnalare un evento
non permesso (tipo quando si vuole chiudere una pagina e non viene
permesso!).
Come faccio a toglierlo????
Da cosa puo` essere causato questo comportamento anomalo?
In tutte le edit ho messo un gestore dell'evento OnKeyPress che
verifica che il numero sia nel range e di conseguenza assegna valori
ad una TLabel ed a un TImage.
Resto in speranzosa attesa.
Grazie.
Mr.CalcioGS
http://liif.gioco.net/calciogs

 Come faccio a toglierlo????
Devi gestire anche l'onKeyDown e annullare sia lě che nell'onkeypress il
VK_RETURN...
ovvero:
if key = VK_RETURN then
  key := 0;
(occhio che in uno dei due key non č + un word ma un char quindi diventa #0
e dovrai fare if ord(key) = VK_RETURN then ... )
Ciao
--
Andrea Magni
E-Mail: 
ama...@interac.it

Newsgroup: it.comp.lang.delphi
Titolo: Routine I/O

Ciao Ragazzi,
avrei bisogno di poter scrivere su file in determinate posizioni, leggere da
altri file, cancellare, editare, etc...
Qualcuno di voi sà dove posso reperire del materiale per poter effettuare le
diverse operazioni con i files?
Grazie.
P.S.: ho dato un'occhiata al PDF che c'è nella cartella documentation del cd
di Delphi, ma non mi è servito a molto.

 diverse operazioni con i files?
cerca
file management routines
nella guida di delphi.
Bye
AS
Newsgroup: it.comp.lang.delphi
Titolo: [OT] Icone di XP

Sto cercando di recuperare le icone standard di windows XP, in particolare
quelle che ci sono nella toolbar di Explorer (Back/Forward, Search, Views,
ecc, ecc) e pensavo di trovarle in Explorer.exe oppure nella shell32.dll ma
mi sbagliavo. Così ho iniziato a spulciare tutti gli eseguibili e le dll che
mi sembravano più significative senza però riuscire a trovare quella giusta.
Sapete dirmi dove posso trovarle? 
Grazie
-- 
Lis
ICQ@Home #7317603sette     ICQ@Work #16285702tre
Mercatino: 
http://lis77.bravepages.com
 (aggiornato *con foto*: 16/06/03)

Io ho scaricato della roba a giro e poi ho fatto un programmino di
conversione da ICO a BMP che le riporta alla risoluzione  e alla dimensione
che vuoi.
Cosě ho qui sul mio disco un po' di robina (non moltissima ma....). Se vuoi
ti spedisco quello che ho.
Ciao!

 che vuoi.
Non ho capito molto bene li giro che fai e cosa ottieni alla fine: estrai le
icone dai file e poi, una volta trasformate in bmp, fai una stretch per
ottenere la dimensione desiderata? Se č cosě non č proprio quello che cerco,
io vorrei proprio estrarre le icone standard nelle varie dimensioni


On Fri, 25 Jul 2003 12:36:02 +0200, Lis wrote:
forse puo interessare.
E' una collezione + o - completa di icone stile XP.
http://mancio.altervista.org/XP.Glyphs.rar
ciao fabrizio

No no, io ho scaricato delle Icone e poi ho "smanettato" sul canvas per
portarle alle dimensioni e allab risoluzione volute.
Per estrarre le risorse... aveva fatto un programma carino Carlo
Bertuccini...
http://members.fortunecity.it/cbertu/
nella sezione programmi freeware... c'è iconspy+
ciao

 
http://members.fortunecity.it/cbertu/
Il programma per l'estrazione ce l'ho (ora sto provando quello di axialis, è
davvero bellissimo!),il problema è che non so da dove estrarre quelle
icone!! :-)


 
http://mancio.altervista.org/XP.Glyphs.rar
Perfetto, grazie


Newsgroup: it.comp.lang.delphi
Titolo: Inserire record in DB

 
IACT Member.
http://Frengo.dragonfire.net/

 studia i metodi Edit, Append e Post di TTable.
Fatto !
Ma ho perso qualche passaggio :-(
Io ho il mio form con i vari componenti legati a datasource e tabella,
vedo il primo record.
In esecuzione alla pressione di un tasto faccio un bel 
miatabella.insert ed uno ShoModal della Form , ma invece di vedere il 
record vuoto vedo sempre il contenuto del primo record....
E poi, una volta compilati i campi, per salvare il record devo fare un
tabella.post
 /update o e' tutto
automatico ?

Newsgroup: it.comp.lang.delphi
Titolo: Due trucchi per nascondere la toolbar del DBGrid

Ho trovato su Internet due trucchi per nascondere la toolbar del DBGrid. Il 
primo lo conoscevo. Il secondo č cosě semplice che mi chiedo se c'č una 
didfferenza con il primo che non so apprezzare, e perchč dovrei a questo 
punto usare il primo trucco...
PRIMA ROUTINE:
type
  TNoScrollDBGrid = class(TDBGrid)
  private
    procedure WMNCCalcSize(var Msg: TMessage);
      message WM_NCCALCSIZE;
  end;
procedure TNoScrollDBGrid.WMNCCalcSize(var Msg: TMessage);
const
  Scrollstyles = WS_VSCROLL or WS_HSCROLL;
var
  Style: Integer;
begin
  Style := GetWindowLong(Handle, GWL_STYLE);
  if (Style and Scrollstyles) <> 0 then
    SetWindowLong(Handle, GWL_STYLE, Style and not Scrollstyles);
  inherited;
end;
SECONDA ROUTINE:
ShowScrollBar(DBGrid1.Handle, SB_VERT, False);

> Ho trovato su Internet due trucchi per nascondere la toolbar del DBGrid. Il
Scrollbar, non TOOLBAR....
A.

Newsgroup: it.comp.lang.delphi
Titolo: TWebBrowser e documenti runtime

Ciao a tutti,
esiste un modo per passare al componente WebBrowser un documento che viene
generato a runtime senza prima salvarlo in un file?
Banalizzando la cosa.. e' possibile per esempio visualizzare nel componente
TWebBrowser il contenuto di un (per esempio) TMemo nel quale ho scritto
codice HTML?
TIA
 Marco

Ciao,

Mi rispondo da solo... o meglio.. mi rispondo grazie ad una risposta
ricevuta su un NG di Borland...
Utilizza gli Stream ed in particolare i memorystream.... :)
E in effetti la cosa funziona! ;-D
Marco



Ciao,
non e' che puoi postare il messaggio che hai ricevuto (o l'esempio) ?
Stavo per fare una cosa simile anch'io (partendo dall'esempio
webbrowser di D5).
Ciao.
Fulvio
================================================================================================
To reply, remove LEVAME
My digital photos: 
http://www.alecab.it/cai

 webbrowser di D5).
Ecco il suo post...
"You can use a stream instead. That way, you don't need a physical file. On
my Website, you'll find a tutorial called - Building WebServices by hand.
The project is available for download at the end of this article. There is a
good example of doing this in this project.
Shiv Kumar
The Delphi Apostle
http://www.matlus.com
 "
sul suo sito ho infatti trovato cio' che mi serviva! :-)
HTH
 Marco
Newsgroup: it.comp.lang.delphi
Titolo: Funzione CopyFile

La funzione CopyFile viene riconosciuta anche dalla libreria CLX. Siccome la
mia applicazione dovrebbe girare anche sotto Linux vorrei sapere se non si
appoggi all'API di Windows.

"nek2000" ha scritto nel messaggio
| La funzione CopyFile viene riconosciuta anche dalla libreria
| CLX. Siccome la mia applicazione dovrebbe girare anche sotto
| Linux vorrei sapere se non si appoggi all'API di Windows.
CopyFile e' un'API di Windows: magari la CLX la implementa
in maniera diversa per Linux. Purtroppo non ho Kylix quindi non
posso darti informazioni piu' dettagliate.
Ma tu hai Linux e Kylix? Fai un programmino stupido e prova a
vedere se ti copia il file. Se e' il test e' positivo, allora Copyfile
funziona anche su Linux - sempre che non esista un help a proposito,
ma tu sicuramente hai gia' guardato, vero?.
--
Ciao.
ACSH
[D4]
---------------------------
Chi fa da se'
fatica il doppio

Sull'help di delphi ho guardato ma non è specificato se è una funzione
appartenente alla libreria clx.
Non ho il Kylix.
"ACSH" <cat...@XXXinfinito.it> ha scritto nel messaggio
news:c0nm9.168164$ub2.3...@news1.tin.it...


Newsgroup: it.comp.lang.delphi
Titolo: Probelmi Drag e Drop

Sono nuovo di questo ambiente ed ho un problema sul Drag e Drog.
Come mai dopo il seguente codice per un Drag e Drop mi rimane dopo 20 pixel
il cursore con il "Divieto".
E come se l'evento rimanesse bloccato.
Come faccio a sbloccare il cursore.
Ho usato anche EndDrag ma nada.
   if (Button == mbLeft) // drag only if left button pressed
      ((TPanel *) Sender)->BeginDrag(false, 20);
Grazie a tutti Peppe

 ha scritto nel messaggio
news:beW28.10061$hi.2...@news1.tin.it...

Direttamente dall' HELP di delphi
Starts the dragging of a control.
procedure BeginDrag(Immediate: Boolean; Threshold: Integer = -1);
Description
Call BeginDrag to start a drag operation. An application needs to call the
BeginDrag method to begin dragging only when the value of the control's
DragMode is dmManual.
If the Immediate parameter is True, the mouse pointer changes to the value
of the DragCursor property and dragging begins immediately. If Immediate is
False, the mouse pointer doesn't change to the value of the DragCursor
property and dragging doesn't begin until the user moves the mouse pointer
the number of pixels specified by the Threshold parameter. If the caller
passes a Threshold value less than 0 (such as the default value for this
parameter), BeginDrag uses the DragThreshold property of the global Mouse
variable.
Setting Immediate to False allows the control to accept mouse clicks without
beginning a drag-and-drop or drag-and-dock operation.
Saluti
Newsgroup: it.comp.lang.delphi
Titolo: Prima lettera maiuscola

Ciao a tutti,
scusate ma ho un momento di annebbiamento....
Come faccio a rendere maiuscolo la prima lettera di una stringa?
Ciao e grazie. 

 Come faccio a rendere maiuscolo la prima lettera di una stringa?
Senza controlli di sicurezza:
var
  S: string;
begin
  S := 'Hello World!';
  S[1] := LowerCase(S[1])[1];
  ShowMessage(S);
end;
-- 
Vuoi distribuire il tuo sito web su CD/DVD?
Prova 
http://www.dwebpro.com/
Vuoi diventare un esperto analista Delphi?
Vieni a fare uno stage con noi: 
http://www.creativepark.it/stage/

Grazie, molto gentile
Ciao. 

 Come faccio a rendere maiuscolo la prima lettera di una stringa?
var
  S: string;
...
  S[1] := UpCase(S[1]);
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

   S[1] := UpCase(S[1]);
ma come fare per mettere maiuscole tutte le prima lettere?
Es: ciao a tutti ---> Ciao A Tutti
Dobbiamo usare un ciclo per forza?

 Dobbiamo usare un ciclo per forza?
O fai un ciclo oppure utilizzi le espressioni regolari.
http://delphi.about.com/cs/adptips1999/a/bltip1099_5.htm


Dobbiamo usare un ciclo per forza?
Sě.

[...]oppure utilizzi le espressioni regolari.
...decisamente esagerato per il caso specifico...


Puoi trovare una funzione ProperCase() gia' pronta a questo link:
http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=655&lngWId=7
ciao
Giacomo

Newsgroup: it.comp.lang.delphi
Titolo: Eseguire un programma realizzato con Kylix

Scusate se magari posto una domanda fatta già altre volte.
Come fare ad eseguire un programma creato con Kylix all'esterno dell'IDE?
Quando cerco di eseguire da console un programma creato con Kylix, fallisco
sempre. Un messaggio mi avverte che non posso eseguire un file binario. Ho
controllato i permessi, ed è tutto a posto.
Ho letto poi che bisogna impostare una variabile LD_LIBRARY_PATH, ma non ho
capito a che cosa bisogna impostare e come si imposta.
La devo impostare sul percorso del mio eseguibile, o sulla directory bin di
Kylix3?
E come/dove si imposta questa variabile?
Francesco

 Francesco
-- 
Ciao, Anto'. 
MB C SC 220CDI [35, 143, AQ]

 wrote in message
news:Xns9318B22FFDB2Aan...@195.31.190.132...


 Francesco
P.S.
Dovresti fare attenzione al quoting, ti posto il primo link restituito 
da goolge sull'argomento
http://digilander.libero.it/ifst/html/Quoting.html
:o)


 quelle richieste.
Devo provare. Mi interesserebbe provare ad usare i database con Kylix
Grazie per la tua gentile risposta, e per avermi fatto notare la mia cattiva
pratica di quoting. Il problema è che, per scrivere in fretta, non si
riflette molto sulla forma e sull'etichetta.
Francesco

 fretta, non si riflette molto sulla forma e sull'etichetta.
Ho visto che usi OE: provalo con OE-QuoteFix e vedrai che goduria!!!!!
E' un programma che dovrebbero integrare in OE, IMHO :)
-- 
Jax


Dove lo trovo?
Francesco

 Dove lo trovo?
Fose nel frattempo l'hai già trovato, ma aprire google e cercare
"OE-QuoteFix"...? ;)
-- 
Jax
Newsgroup: it.comp.lang.delphi
Titolo: Domanda su QuickReport 3.0.9

Uso QuickReport su un programmino molto semplice
e vorrei il vostro aiuto per sapere come fare ad impostare
in automatico che il numero di stampe sia 2 e non 1 in
modo tale da evitarni di premere il pulsante 2 volte
oppure di entrare neel proprietą di stampa ogni volta?
Inoltre mi piacerebbe sapere come fare per ottenere,
in automatico, che il preview sia a tutta pagina e non
come piccola finestrella che ogni volta prima di stampare
poi uno deve allargare per dare un'ultima controllata.
Grazie. 

Per quanto riguarda il num. di copie sono riuscito a risolvere,
ma non riesco ad ottenere in automatico il preview a tutta
pagina


Nessuno mi sa dire come fare per ottenere, in
automatico, che il preview sia a tutta pagina e non
come piccola finestrella che ogni volta prima di stampare
deve essere allargata a mano per dare un'ultima controllata? 

La butto là ... non uso da anni QR.
Se hai il codice sorgente, mettere nell'evento on create/ion show un 
maximize ?

No non c'è niente di simile!



Nel senso che non hai i sorgenti di Qr ?
Come fai il preview ?, mi ricordo che al tempo avevo seguito la guida e mi 
ero creato una mia anteprima personalizzata ...
c'era un documento sul sito QR  che spiegava come fare.
Newsgroup: it.comp.lang.delphi
Titolo: [OT] LAZARUS componenti db?

Dopo piů di un anno, ho provato a reinstallare Lazarus.... che dire, 
miglioramento notevole, molto molto bello (beh, non come delphi :-).
Veniamo al dunque, dove sono i componenti per i database (tanto per 
intenderci i TQuery il TDatabase... i data access)?
Ho solamente il Datasource.
Ho installato la versione per windows (la nightly).
Altra cosa, i binding per gtk2 funzionano?
Ciao e grazie
Gianni

 Dopo più di un anno, ho provato a reinstallare Lazarus.... che dire, 

Avvia lazarus, clicca sul menu Componenti
poi su Open Package File, vai sulla cartella
lazarus/components/mysql e scegli il file
che fa per te mysql3laz.lpk o mysql4laz.lpk
compila il tutto e installa e avray quello
che cerchi.
P.S.
Sarebbe molto bello, se tutta la comunità
collaborasse alla crescita di questo IDE
che di giorno in giorno fa passi da gigande.
Ciao by Enzo
Newsgroup: it.comp.lang.delphi
Titolo: Estetica componenti

Stavo osservando i componenti TMainmenu e TToolbutton, poco soddisfatto 
dalla loro eleganza.
Esiste qualcos'altro possibilmente free al passo coi tempi?
Nel project Jedi trovo materiale simile?
Grazie, Giorgio Padoan 

Giorgio Padoan ha scritto:

hai provato a guardare sul sito di Jordan Russel?
-- 
-------------------------------
per scrivere in privato
togliere "1975nosp"
to reply remove "1975nosp"

 [...]
Dalla descrizione che hai fatto, non è possibile capire con precisione 
quali siano le qualità mancanti nei controlli visuali che hai citato, 
per cui esistono comunque delle alternative all'interno dello stesso 
Delphi (es. ActionMainMenuBar, ActionToolBar, ...).
Cosa intendi con "al passo coi tempi"? Quali sono le caratteristiche di 
cui desideri disporre?
Eventualmente, specifica anche la versione di Delphi che hai, così è 
possibile darti riferimenti diretti senza suggerirti l'uso di strumenti 
che potrebbero non trovarsi nel prodotto in tuo possesso.
Ciao,
   Marco.
-- 
MARCO BREVEGLIERI
  (
http://www.marco.breveglieri.name
)
     Non hai la possibilità di scaricare Turbo Delphi Explorer?
     Te lo spedisco io!! [
http://www.marco.breveglieri.name/?p=48
]

   Marco.
Intendevo un mainmenu tipo quello del delphi 2005 che sto usando, 
l'ActionMainMenuBar l'ho visto ma devo ancora vedere come si usa.
Giorgio

 l'ActionMainMenuBar l'ho visto ma devo ancora vedere come si usa.
Tutti i controlli con cui è costruito l'IDE sono disponibili all'interno 
della libreria VCL, anche quelli più particolari come il controllo 
adottato per la Tool Palette.


 adottato per la Tool Palette.
Se e' cosi' devo mettermi un po a leggere :-[. Sicuramente se fornissero un 
bel manuale per lo sviluppo come ai tempi del D3 sarebbe tutto piu' 
semplice.
L'help del 2005, parlando in generale, e' veramente ridotto all'osso, in 
molti contesti inesistente se non inutile.
Mi auguro che correggano il tiro anche in questa direzione.
Ciao giorgio

 Mi auguro che correggano il tiro anche in questa direzione.
Sicuramente è un lato da migliorare nettamente e su cui CodeGear (ex 
Borland) sta investendo molto (ci sono state molte assuzioni recenti 
proprio in questo frangente), ma a volte ho l'impressione - leggendo qua 
e là - che questo aspetto costituisca anche un po' un alibi...
Se si fanno ricerche su BDN, quindi non molto lontano dal produttore del 
software, ci sono articoli che descrivono accuratamente i nuovi 
controlli introdotti in BDS 2006 e le altre novità in campo VCL.
Peraltro, mi sembra che ciò di cui stiamo parlando, cioè barre di menu, 
siano da tempo illustrate dal punto di vista dei metodi, delle proprietà 
e degli eventi di cui dispongono.

Newsgroup: it.comp.lang.delphi
Titolo: Incubo ADOQuery.Post

Ciao a tutti.
Sto' impazzendo per questa cosa: ho un database access 2000 al quale mi
connetto con una ADOConnection (parametri di default, clUseClient,
ilCursorStability) via Jet 4.0. Le ADOQuery che uso sono impostate a
CacheSize=1, CursorLocation=clUseclient, CursorType=ctKeySet.
Ho una tabella con una cinquantina di campi. Ho una form per inserire i
dati. Premendo il tasto NEW nel mio programmino, creo un nuovo record vuoto:
ADOQuery1.SQL.Text:=.....
ADOQuery1.Insert;
ADOQuery1.FieldByName('codiceprog').AsInteger:=codiceprog;
ADOQuery1.Post;
ADOQuery1.Close;
L'utente riempie i campi, preme SAVE.
Mi riprendo lo stesso record, lo edito:
...
ADOQuery1.Open;
ADOQuery1.Edit;
ADOQuery1.FieldByName('campo1').AsVariant:=mycampo1;
ADOQuery1.FieldByName('campo2').AsString:=mycheckstr(campo2);
ADOQuery1.FieldByName('campo3').AsInteger:=counter;
...
...
ADOQuery1.Post;
ADOQuery1.Close;
Bene, quello che mi succede e' questo:
1) Quest'ultimo post, A VOLTE, non posta assolutamente NULLA! (Win 2000). Su
3000 inseriti, una ventina (solo nel range dei primi 2/300) sono vuoti
(contengono solo i valori del primo post fatto premendo il tasto new).
2) Ma non e' tutto. Su alcuni pc con Windows 98, addirittura alcuni campi
non vengono salvati affatto.
Il software puo' essere usato da due utenti contemporaneamente sullo stesso
database (ma anche usandolo solo su un pc fa la stessa cosa. Perche' capita
questo? Mi devo fidare del Post? Devo controllare qualcosa? E' un problema
di locking? Di cache?
Purtroppo non so usare il locking e i cursori, non so proprio che pesci
pigliare! :-((((
A presto, Chris

Questi sono errori comuni  se stai utilizzando una versione di Delphi 5  non
aggiornata con le pacth di ADOExpress (1 & 2)? Quale versione di Delphi
utilizzi?

pigliare! :-((((
Aggiorna il sistema con le ultime patch, l'mdac 2.7 sp3 e' uscita un mese fa.
C'e' anche un service pack 5 del jet uscito recentemente.
Questo per il lavoro in rete, in monoutenza non ho mai avuto problemi.
Segui anche i consigli di valerio, in questo stesso thread, aggiornando e
patchando il tuo delphi (se gia' non l'hai fatto)
Cmq, ricordati, usa il giusto componente!
Adotable!
Ciao


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


Vedrai che funziona !!
Dai anche uno occhio a
http://delphi.about.com/library/weekly/aa010101a.htm?PM=ss12_delphi
Ciao

 ha scritto nel messaggio
news:b5eijm$2dr3$1...@newsreader2.mclink.it...


Grazie a tutti! :-)

Sigh, lo fa ancora su win 98...
Ora ho convertito la ADOQuery in un ADODataSet.
La connessione ha come parametri:
CursorLocation=clUseClient
IsolationLevel=ilCursorStability
Mode=cmShareDenyNone
L'ADODataSet ha:
CursorLocation=clUseClient
CursorType=clKeyset
LockType=ltBatchOptimistic
MarshalOptions=moMarshalAll
Questi parametri vanno bene per un database access 2000 condiviso a due
sessioni dell'applicativo?
Per salvare faccio un POST e poi un  ADODataSet1.UpdateBatch(arAll) e non
chiudo la connessione.
Mi dicono che continua a perdere dei campi per strada... :-(
Chris
Newsgroup: it.comp.lang.delphi
Titolo: icone e componenti

CiaoRagazzi,
   mi chiamo Francesco Da Riva, avrei essigenza di trovare due cose:
1) Collezione di icone
2) Un componente BroweserFolder combatibile con Delphi 5
Grazie
   Ciao Francesco Da Riva

 wrote in message
news:39b8dc80...@news.tin.it...

Rispondo solo alla 2:
delphi incapsula gią di suo il componente di Windows BrowseForFolder,
tramite la funzione SelectDirectory della unit filectrl.
Cerca nell'help SelectDirectory e troverai tutto.
Ciao
Ruggero

Newsgroup: it.comp.lang.delphi
Titolo: Conversione file CSV in TXT a lunghezza fissa.

Ciao a tutti,
ho la necessità di dover convertire un file CSV (campi separati da ';'
) in un file di testo .TXT (dove i campi hanno una lunghezza fissa).
Ad esempio tutti i campi devono avere 50 caratteri di lunghezza, e
devono essere allineati a sinistra e fillati di spazi in coda.
Qual'è la maniera + veloce per procedere?.
Grazie in anticipo.

cicli sulle righe del cvs (vedi assignfile)
spezzi ogni riga nei vari campi (vedi "string handoling routine"
nell'help)
aggiungi gli spazi necessari (vedi "string handoling routine"
nell'help)
scrivi sul secondo file  (vedi assignfile)
con questa tecnica 6 indipendente da tecologie di accesso ai dati etc.
AS

 ) in un file di testo .TXT (dove i campi hanno una lunghezza fissa).
1) carichi il file in una TStringList (list1)
2) carichi ogni riga di list1 in un'altra TStringList (list2) a cui avrai 
prima settato le proprietà Delimiter = ;
3) fai un Format('%-50s%-50s.........., [list2[0], list2[1]), dove 50 è la 
larghezza fissa dei vari campi
4) scrivi la stringa risultante in una TStringList (list3) e alla fine la 
salvi
-- 
Jax 

 avrai prima settato le proprietą Delimiter = ;
Dimenticavo, la carichi usando list2.DelimitedText := list1[i];
--
Jax 

Grazie ;)

Newsgroup: it.comp.lang.delphi
Titolo: [OT] Laforgia dove 6 ?

Ciao a tutti ... Andrea Laforgia č veramente sparito ?
Potrebbe essere passato a Java ?
--- posted by geoForum on 
http://www.delphiedintorni.it

 Potrebbe essere passato a Java ?
Forse ignora semplicemente i "troll"... ;-)
-- 
MARCO BREVEGLIERI
  (
http://www.marco.breveglieri.name
)

 Ciao a tutti ... Andrea Laforgia è veramente sparito ?
l'hanno arrestato in cella.
Lui non si riesce a vedere ma la sua cella è questa
http://tinyurl.com/cob92u
Newsgroup: it.comp.lang.delphi
Titolo: Uso manuale di una grid

Devo usare una string grid per prendere i dati provenienti da alcune
tabelle, e non posso per l'occasione utilizzare una dbgrid. Il problema è
questo, tramite l'evento onkeypress e le proprietà row, col e cell riesco a
localizzare la cella della riga e scriverci sopra il valore di una
variabile, quello che voglio realizzare ora è riuscire a scrivere un valore
da tastiera e magari rendere alcune colonne read only.
C'è qualcuno che mi può dare una mano?
Grazie Enrico



 da tastiera e magari rendere alcune colonne read only.
guarda, si può fare tutto quello che chiedi (e anche di più), devi agire a 
livello di InplaceEditor di StringGrid.
Siccome ora non ho tempo di darti ulteriori spiegazioni e nei prossimi giorni 
sarò assente, e siccome non so se la tua email sia valida, ti ho messo a 
questo URL:
http://digilander.libero.it/mauro.falzari/delphi/go_num_grid.rar
E' un file RAR di 204 Kb che contiene sorgenti e un EXE dimostrativo di una 
griglia che avevo fatto tempo fa per un mio amico: è una StringGrid che 
accetta solo numeri, a scelta interi o con virgola, solo positivi o anche 
negativi.
Ci sono alcuni commenti e note, e dovrebbe essere abbastanza chiaro il 
meccanismo di sostituzione dell' Inplace Editor.
Vedi tu se ci riesci a cavare qualcosa di utile, altrimenti puoi sempre fare 
l'override di TCustomGrid.KeyDown o KeyPress, oppure usare i message handler 
per WM_CHAR o WM_KEYDOWN
-- 
Mauro Falzari 
   [ 
http://digilander.libero.it/mauro.falzari
 ]
 
 "Se guardi nell'abisso, anche l'abisso guarda in te." 
   (Friedrich Nietzsche)

Grazie ora vado a vedere
Enrico
Mauro Falzari ha scritto nel messaggio ...

Newsgroup: it.comp.lang.delphi
Titolo: Errore query di aggiornamento

Salve a tutti ho un problema con l'esecuzione di una query di
aggiornamento.
Questa è la query (nn badate ai valori, sono solo di prova):
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add ('UPDATE Pagamenti SET
Pagamenti.DescrizioneSpesa='+QuotedStr('MODIFICATO'));
ADOQuery1.SQL.Add ('WHERE Pagamenti.DescrizioneSpesa='+QuotedStr
('MODIFICAMI'));
ADOQuery1.Open;
Programmo in delphi 6, il database è access e lo controllo con ADO.
All'esecuzione della query mi da l'errore: "Il provider corrente non
supporta la restituzione di set di record multipli da un unica
esecuzione". Il provider che uso è "Microsoft.Jet.OLEDB.4.0". Che
significa? Devo cambiare provider? Qual'è il problema?
Grazie a chi vorra rispondermi!
Simone

 ADOQuery1.Open;
Query.Open si usa per query che restituiscono dei recordset. Per
le istruzioni che non restituiscono recordset si usa Query.ExecSQL
ciao
Giacomo

 Giacomo
Grazie mille Giacomo, funziona alla grande!! :) alla fine era una
fesseria sta cosa...come del resto tutti i problemi apparentemente
insormontabili. :)
Grazie ancora, ciao!
Simone

Newsgroup: it.comp.lang.delphi
Titolo: ANDREA LAFORGIA e STEFANO F - Doppio GIALLO e ROSSO per le CACATE dette in questo NG

Come da titolo...
--- posted by geoForum on 
http://www.delphiedintorni.it

Solo ora comprendo il detto:
"La mamma dei cretini è sempre incinta" 

Infatti altrimenti non saresti qui.... :-)


 "La mamma dei cretini è sempre incinta"
E pensa che vita di merda che deve avere ... a me fa pure un poco di
compassione.
Ormai e' lo zimbello di questo NG e tutti lo pigliano per il culo da mesi.
L'unica cosa che mi consola e' che il poveretto non trombera' mai una
donna e quindi il suo DNA malaticcio non si perpetuera', scomparendo con
lui.
(Adesso risponderà che lui e il suo amico immaginario Paolo Gemma sono li'
con due tipe strafighe, ecc...)
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

L'hai detto proprio a quello giusto...
Ieri sono stato con una Russa... Non ancora trombata ma baciata...
Sabato arriva la Colombiana e facciamo il week-end insieme :-D


Come da titolo...
Stiamo ancora aspettando la tua soluzione. Dai, ribatti sul tecnico,
evita le sciocchezze. Fatti valere.
Dai ! dai trollino ! 

OK, ma l'avevo ià mandata oggi....


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

qualcuno mi sa consigliare un installer fw o sw che installi anche la bde ?
oppure conoscete un redist che installi proprio la bde
grazie
p.s.
ho delphi 5.0

 ha scritto nel messaggio
news:8vgh07$3ig$1...@serv1.albacom.net...


Ciao,
secondo me questo anche, fatto non male: 
http://www.installshield.com/


e innosetup ( 
www.innosetup.com
 ) ? come vi sembra ?
--
 _______________________________________
        Gnaffy SoftWare
   web: 
http://gnaffy.tripod.com/
   e-mail: Gna...@Wappi.com
   e-mail: 
bmq...@tin.it
   ICQ#: 76488613
 ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
Newsgroup: it.comp.lang.delphi
Titolo: help su connessione Db

Delphi 3
Allora ho rifatto tutto su access 97
nel DBE , ho creato un alia 'prova'
nel campo database name  : percorso e nome file *.mbd
( se clicco 2 volte sopra non mi apre il db, mi dice operazione non
supportata )
fine
in delphi
nell'oggetto Tdatabase
alias name: prova
database name: DB  ( un nome qualunque o cosa? )
se provo a fare connect , mi chiede di inserire una login ed una password
che non soassolutamente a cosa si riferiscano visto che nel databse di
access non ho affatto inserito la pass, se prova a skipparla mi da un errore
tipo
'cannot load an idapi service'
Mi aiutate pls.

 password 
LoginPromt a false dovrebbe bastare...
Ciao,
Alan Solo

 'cannot load an idapi service'
Il problema potrebbe essere la versione della libreria usata dal BDE per
accedere al DAO (Access), se vai nella Tab configuration del BDE sotto la
voce DRIVERS NATIVE dovresti individuare MSACCESS, prova a cambiare il
parametro dll32. Non mi ricordo più quale ci vuole, ma mi pare che serve la
IDDA3032.dll e non la IDDA3532.dll. Una serve per Access95 l'altra per
Access97 o il contrario vaff... a Microsoft e chi gli sta appresso!!!!

Newsgroup: it.comp.lang.delphi
Titolo: Metodo Data del TreeNode

Come si usa e come funziona il metodo Data del TreeNode?
Ciao e Grazie. Giuseppe

 wrote in message
Za4b4.3220$Oo1....@news.infostrada.it...


Newsgroup: it.comp.lang.delphi
Titolo: strano comportamneto di pagecontrol

Mi succede sempre piu' spesso che creando un tpagecontrol, con due o tre 
tabsheet, e inserendo degli oggetti su un tab sheet questi oggetti vengono 
visualizzati su tutti i tab sheet e non solo su quello dove l'ho 
posizionato.
Il comportamento strano non si verificva sempre..., ma è scocciante 
ridisegnare i tabshett ogni volta.
Qualche soluzione?
L'oggetto appare nella finestra structure non come figlio del pagecontrol, 
ma come figlio della form.
A Proposito, non si possono spostare con un drag e drop gli oggetti 
direttamete dalla finestra structure?
Uso TurboDelphi 2006 

 direttamete dalla finestra structure?
Sì, è una delle funzionalità peculiari (e più comode) della Structure 
View di Delphi.
Ciao,
   Marco
-- 
MARCO BREVEGLIERI
  (
http://www.marco.breveglieri.name
)

direttamete dalla finestra structure?
Hai provato? Mi pare sia possibile.
--- posted by geoForum on 
http://www.delphiedintorni.it

 posizionato.
Per inserire i componenti fai doppio click sulla barra degli strumenti o 
clicchi sul componente e poi sul tabsheet?
-- 
Jax

posizionato.
Semplicemente, non selezioni correttamente il tabsheet di destinazione
e quindi il sistema posiziona il controllo sulla form.

"Andrea Laforgia" <a.laf...@andrealaforgia.it.invalid> ha scritto nel 
messaggio news:46c653980lv0snhgb...@4ax.com...

Ho visto che se clicco sul componente nella palette dei componenti e poi 
clicco sul tabsheet... il componente va ad appartenere al tabsheet, invece 
se lo sposto con un drag e drop mi va sulla form principale...
Ho risolto evitando di draggare! 

 di Delphi.
Ma io non ci riesco!;(
Newsgroup: it.comp.lang.delphi
Titolo: Age

Hi
I have a database of Pupils date of birth and I need to know their ages, I
cannot figure out what code I need to put in.
Any takers??
Thanks
Steve Elliott
South Africa


Here are some examples:
SQL Example: SELECT BIRTHDATE FROM PUPILSTABLE
Case 1 --> Dates in TDateTime format
var
    Age: TDateTime;
    YY, MM, DD: Word;
begin
    QueryBirthDate.Open;
    Age := Date - QueryBirthDate.FieldByName('BIRTHDATE').AsDateTime;
    DecodeDate(Age, YY, MM, DD); // Years = YY, Months = MM, Days = DD
    QueryBirthDate.Close;
end;
Case 2 --> Dates in string format ('dd/mm/yyyy' or 'mm/dd/yyyy')
var
    Age: TDateTime;
    YY, MM, DD: Word;
begin
    QueryBirthDate.Open;
    Age := Date -
StrToDate(QueryBirthDate.FieldByName('BIRTHDATE').AsString);
    DecodeDate(Age, YY, MM, DD); // Years = YY, Months = MM, Days = DD
    QueryBirthDate.Close;
end;
Be careful, this code doesn't perform any check or exception handling. Hope
it will be useful.
Bye
Daigo
Newsgroup: it.comp.lang.delphi
Titolo: Che cos'è questo ???

Ciao a tutti!
Voglio precisare che è da molto poco che lavoro in Delphi !!!!
Sviluppando un'applicazione ho avuto la necessità di intercettare la pressione
di una tasto dalla tastiera tenendo premuto il tasto alt.
Quindi ho sfruttato l'evento KeyDown.
Ho notato che la variabile SHIFT è di tipo TShiftState.......
Poi nell'Help ho visto che TShiftState è dichiarato cos' :
TShiftState : set of (ssAlt......ecc..);
Ma che tipo di dichiarazione è ???, e come posso verificare quello che c'è in
SHIFT ????
Grazie a tutti per l'aiuto !!!!
Ciao!!!
-- 
Posted from 
srveng.idn.it
 [194.243.38.99] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 Ciao!!!
Ad esempio per sapere quale tasto del mouse nell'evento OnMouseMove:
  if (ssLeft in Shift) then
    begin
        <fa qualcosa>
    end;
Questi sono i valori che può assumere:
ssShift The Shift key is held down.
ssAlt The Alt key is held down.
ssCtrl The Ctrl key is held down.
ssLeft The left mouse button is held down.
ssRight The right mouse button is held down.
ssMiddle The middle mouse button is held down.
ssDouble The mouse was double-clicked.

> Ma che tipo di dichiarazione č ???, e come posso verificare quello che c'č
in
E' un tipo insieme (set). generalmente si dichiara cosi':
type TColori = (Rosso, blu, giallo, ecc ecc); // tipo enumerazione
var x: set of TColori;
Ora x e' un insieme che puo' contenere uno o piu' degli elementi di TColori.
Per vedere se un elemento e' in un insieme, si usa "in"
if rosso in x then...
per metterle o togliere un elemento o un sottoinsieme , si usa + e -, poi ci
sono * e / mi pare per unione e intersezione (ma non sono sicurissimo)..
Ciao !

 sono * e / mi pare per unione e intersezione (ma non sono sicurissimo)..
Per prima cosa GRAZIE A TUTTI,
e poi volevo sapere come posso fare ad aggiungere ????
Gradirei proprio un esempio...
Grazie ancora.
Ciao! 


 Grazie ancora.
Riprendendo l'esempio di prima:
x:=[];  // l'insieme vuoto.
x:=x+[Rosso];  // ora x contiene Rosso
x:=x+[Giallo, Blu]; // ora rosso, blu e giallo
x=x * [Rosso, Blu, Verde]; // intersezione, ora contiene Rosso e Blu
Ciao !

 ha scritto nel messaggio
news:9p1c3e$bum$1...@nreadb.inwind.it...

Newsgroup: it.comp.lang.delphi
Titolo: Errore Query

  Query1.SQL.Clear;
  Query1.DatabaseName := 'August@';
  Query1.SQL.Add ('select * from Vol.db');
  Query1.SQL.Add ('where Data_Partenza <= :Data');
  Query1.ParamByName('Data').AsDate := Null;
Salve volevo sapere perchè mi esce errore di incomatibilità.
Io vorrei filtrare tutti quelli che hanno il campo Data_Partenza Vuoto.
Grazie
--------------------------------
Inviato via 
http://usenet.libero.it

Per impostare a null il valore di un parametro č meglio usare il metodo
Clear:
    Query1.SQL.Clear;
    Query1.DatabaseName := 'August@';
    Query1.SQL.Add ('select * from Vol.db');
    Query1.SQL.Add ('where Data_Partenza <= :Data');
    Query1.ParamByName('Data').Clear;
Semmai non dovesse bastare, prova a tolgiere il ".db" dal nome della tabella
cui accedi (se usi Paradox Delphi accede alla tabella lo stesso e non rischi
di fare confusione con l'SQL standard, in cui il '.' č l'indicatore di
campo).
Saluti (e auguri di buon anno).
        Marco Bortolani
 
in...@marcobortolani.it

 Query1.ParamByName('Data').Clear;
Ho provato come dici tu manonmi da nessun risultato.
E mai possibile che non si puo filtrare i campi vuoti?


 ha scritto nel messaggio
news:62Z98Z180Z208Y1...@usenet.libero.it...


Newsgroup: it.comp.lang.delphi
Titolo: Programma in esecuzione

Ciao a tutti.
Avrei bisogno di sapere qual è la funzione che mi dice se un determinato
programma è in esecuzione, passandogli come parametro il nome del programma
in questione.
Ad es.
getProcessProgram("winword.exe")
getProcessProgram -> l'ho inventata

Ciao a tutti,
qualcuno può dirmi qual è la funzione che mi dice che il programma è già in
esecuzione.
In pratica devo fare in modo che siano ignorati eventuali tentativi di
riavvio del programma e che ne venga eseguito uno solo!
Grazie anticipatamente!

Ciao Paolo.
Dunque, nella unit principale della tua applicazione, aggiungi questo
campo di tipo THandle (FMutex) e questa funzione
(ApplicazioneInEsecuzione) alla sezione "private" della classe della
form:
  private
    { Private declarations }
    FMutex: THandle;
    function ApplicazioneInEsecuzione: boolean;
In implementation scrivi la funzione:
function TMiaForm.ApplicazioneInEsecuzione: Boolean;
begin
  FMutex := CreateMutex(nil, True,
PChar(ExtractFileName(ParamStr(0))));
  Result := GetLastError <> 0;
end;
E infine nell'evento OnCreate della form:
  if ApplicazioneInEsecuzione then
  begin
    MessageBox(0, 'Applicazione in esecuzione.',
      'Avviso', MB_OK or MB_ICONWARNING or MB_TASKMODAL or
MB_TOPMOST);
    Halt;
  end;
Ricordati di chiudere il mutex nell'evento OnDestroy della form:
procedure TMiaForm.FormDestroy(Sender: TObject);
begin
  CloseHandle(FMutex);
end;
...Altrimenti dovrai riavviare il sistema per riavviare la tua
Applicazione dopo averla chiusa la prima volta.
Spero di esserti stato d'aiuto.
Ciao! :)
Peppe
_____
ICQ #9759626
Togli levaccà per contattarmi via email.