mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.delphi
Titolo: Collegamento ad Access

Devo lavorare con un database creato con access 2000,usando delphi 5 ,come 
devo fare.
Ho sempre lavorato con tabelle db e non so che pesci prendere.
Ciao
Gian Luca 
-- 
Posted from 
relay4.inwind.it
 [212.141.53.75] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Ho sempre lavorato con tabelle db e non so che pesci prendere.
Usa un TDatabase, crea un ALIAS Access ed utilizza i componenti
db-aware, non c'e' grande differenza dall'usare Paradox.
--
Andrea Laforgia (ICQ 87230455)
http://www.geocities.com/AndreaLaforgia
"ci sono tre tipi di persone nel mondo : quelli che
 sono bravi in matematica e quelli che non lo sono."

Ho già provato non è semplice come credi,prova e dimmi se ci riesci,senza 
usare ODBC.
Ciao
Gian Luca Quinci
QuinciSoft Sviluppo Software,linguaggi di
programmazione e Creazione di pagine web.
Collaboratore di aiut@mici.
E-mail: 
glqu...@gmx.net
 
quinc...@quincisoft.it
Home Page: 
http://www.quincisoft.it
 
http://www.quincisoft.com
 
http://www.quincisoft.net
Linguaggi conosciuti: C,C++,Visual Basic,Pascal,Delphi Html e JavaScript
Sistemi Operativi: Dos,W95/98
HardWare in generale
-- 
Posted from 
relay3.inwind.it
 [212.141.53.74] 


 riesci,senza  usare ODBC.
non uso access, ma mi sembra che il driver BDE supporti
solo il 97 e non il 2000... forse e' quello il motivo...
Ciao,
Alan Solo

solo il 97 e non il 2000... forse e' quello il motivo...
No. BDE supporta sia il 97 che il 2000.


Se supporta anche il 2000 perchè non mi funziona puoi indicarmi la 
procedura che usi tu ?
Ciao
Gian Luca Quinci
QuinciSoft Sviluppo Software,linguaggi di
programmazione e Creazione di pagine web.
Collaboratore di aiut@mici.
E-mail: 
glqu...@gmx.net
 
quinc...@quincisoft.it
Home Page: 
http://www.quincisoft.it
 
http://www.quincisoft.com
 
http://www.quincisoft.net
Linguaggi conosciuti: C,C++,Visual Basic,Pascal,Delphi Html e JavaScript
Sistemi Operativi: Dos,W95/98
HardWare in generale
-- 
Posted from 
mta23-acc.tin.it
 [212.216.176.76] 

Newsgroup: it.comp.lang.delphi
Titolo: D6.03: attenti al VarArrayOf

Provato personalmente su una Locate(..), funziona *quasi* sempre, ma a volte
restituisce risultati nulli.
DA EVITARE ASSOLUTAMENTE. Un mio cliente ha perso un bel po' di dati per via
di una riorganizzazione archivi che si basava su un ciclo che richiamava la
locate con vararrayof e che ogni tot cicli smetteva di funzionare.
Ciao, Sandro

DA EVITARE ASSOLUTAMENTE. Un mio cliente ha perso un bel po' di dati per via
Sandro, puoi essere il piu' specifico possibile, magari indicandoci il modo di
ripete il problema in locale ??
Siccome ho D6 e ci sviluppo sopra da 2 anni e non ho mai incontrato un simile
problema, la cosa mi inquieta non poco.
Sapendo che la locate ritorna un bool, cosa significa che "restituisce
risultati nulli" ??
-- 
Morde. 
(
mo...@despammed.com
)
M-List di icld: 
http://it.groups.yahoo.com/group/icld/

 Siccome ho D6 e ci sviluppo sopra da 2 anni [...]
Utilizzo VarArrayOf da tempo e neanche io ho incontrato un simile problema.
Dubito che il problema sia nella funzione.
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 ripete il problema in locale ??
il ciclo ha la seguente struttura:
with MiaTabella do while locate('CampoA;CampoB',vararrayof([VarA,VarB]) do
begin
 edit;
 cambia campo A
 cambia campo B
 post;
end;
in sostanza cambiamo da ciclo tutti i valori dei due campi, facendo delle
ricerche sul dataset fino ad aver esaurito tutti i record con le
combinazioni dei due campi pari a VarA+VarB.
Il ciclo generalmente funziona; ieri un cliente lo ha usato per decine di
volte di seguito senza problemi, ma - ogni tanto - smette di funzionare, la
locate restituisce un false nonostante i record siano presenti, e di
conseguenza il dataset non viene aggiornato.
Il problema presumibilmente e' nel vararrayof, visto che i variant sono
stati oggetto di ben 3 aggiornamenti delle librerie di runtime di D6, dovuti
ai bug interni della loro gestione.
Ora ho sostituito il ciclo di sopra con un:
filter=.. ; filtered:=true;
while not isempty do begin
 first;
 edit;
 cambia Campo A
 cambia Campo B
 post;
end;
stasera do' in pasto al cliente la procedura modificata e vediamo se
riscontrera' nuovamente problemi.
Se la mia ipotesi e' giusta, con il filtro anziche' il vararrayof la
procedura dovrebbe funzionare sempre.
Ciao, Sandro

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

Ho una ListView con 4 colonne: Autori, Titoli, Editori, Anno che vengono
riempite estraendo dati da un database, non riesco, sarà banale, a estrarre
il dato quando clicco su una "cella" da trasferire ad una variabile per
essere elaborato. Ho necessità di usare proprio questo componenete (questo
per prevenire coloro che potrebbero consigliarmi StringGrid)
Grazie per la collaborazione. Lanfranco

 ha scritto nel messaggio
news:c4mevu$s9v$1...@lacerta.tiscalinet.it...

Newsgroup: it.comp.lang.delphi
Titolo: Passare un dataset ad una procedura

Ciao a tutti.
Devo passare un dataset ad una procedura ma, nella procedura, quando provo a modificare un record, al Dataset.Edit mi solleva un eccezione: "cannot modify a read-only dataset"
C'è qualcosa che mi sfugge, vero??
 
Matteo

 sfugge, vero??
 
passale il datasource.
 
-- 
Alessandra
 
Caro Gesù Bambino, ti ringrazio per aver esaudito i miei desideri
dell'anno scorso. Ti avevo chiesto di eliminare la fame nel mondo, ed
infatti quelli che avevano fame sono quasi tutti morti. - Giobbe Covatta

 C'è qualcosa che mi sfugge, vero??
 
Domanda ovvia (ma non per tutti):
 
PRIMA DI PASSARE IL DATASET COME PARAMETRO LO HAI MESSO IN STATO dsInsert o dsEdit?
 
 
A.

 PRIMA DI PASSARE IL DATASET COME PARAMETRO LO HAI MESSO IN STATO dsInsert o dsEdit?
 
Infatti per me non lo è, perchè non dovrei mettere in dsEdit all'interno della procedura?
 
Comunque, grazie al suggerimento mi sono accorto che il problema si c'è pure prima di entrare nella procedura, quindi l'errore è nel dataset stesso (nella query).
 
Matteo


Potresti darci qualche informazione?
 
Di che componenti stiamo parlando, BDE? DBX? ADO? 
Verso quale DB stai eseguendo la query?
 
ciao
Giacomo

 Potresti darci qualche informazione?
 
Ciao,
come dicevo prima il problema non era nel passaggio alla procedura ma nella query stessa.
 
Usando DOA su db Oracle, la query per essere modificabile deve contenere il campo ROWID.
 
Era una cosa che conoscevo, non mi ero accorto che nella query mancava il campo e mi ero fissato sul passaggio alla procedura.
 
Che ci volete fare, la vecchiaia....
 
Matteo

 Caro Gesů Bambino, ti ringrazio per aver esaudito i miei desideri

Newsgroup: it.comp.lang.delphi
Titolo: risoluzione video

Esiste il modo di vedere che tipo di risoluzione video ha il pc sul quale
gira l'applicazione, e magari riuscire a cambiarla tramite codice?
--
-------------------------------------------------------------
Software e servizi per le tue esigenze :
 
www.danosoft.it
-------------------------------------------------------------

Vedi sulle faq del ng.
Bye
AS
-- 
Posted from  [212.17.220.41] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 wrote in message
news:7bfb7a40d046666077...@mygate.mailgate.org...


e magari riuscire a cambiarla tramite codice?
ChangeDisplaySettings
Sono entrambe API di Windows.
-- 
Posted from  [80.105.34.80] 


 wrote in message
news:078bc1b9a35d7d48239...@mygate.mailgate.org...


Grazie dell'aiuto, mi sapresti anche dire come richiamarle da programma?
Scusa ma non te lo appena detto??
----
Lawrence "Rhymes" Oluyede
rhy...@myself.com
"Quando un uomo siede un'ora in compagnia di una bella ragazza,
sembra sia passato un minuto. Ma fatelo sedere su una stufa
per un minuto e gli sembrerà più lungo di qualsiasi ora.
Questa è la relatività".
Albert Einstein

 wrote in message
news:kngn0ugu03mb3ur3k...@4ax.com...


..si scusa.... comunque "l'ho detto" si scrive così...
eh eh
io ho scritto "lo appena detto" quindi la frase giusta corretta non
sarebbe "l'ho detto" (come hai corretto tu) ma "lo ha appena detto"
(come ho scritto io)


 io ho scritto "lo appena detto" quindi la frase giusta corretta
[...]
it.cultura.linguistica.italiano
non vedo motivi per continuare qui.
--
- Carlo -
c.b...@libero.it

Newsgroup: it.comp.lang.delphi
Titolo: Informazioni sul programma....

Scusate...
sono sempre io....
Volevo usare le informazioni del programma (Project->Options->Version Info)
perchè sia aggiornassero da sole in una etichetta della form principale...
Da una ricerca fatta nell'Help ho trovato : VS_VERSION_INFO
Che, però, mi restituisce solo il numero corrispondente alla voce RELEASE e
non Major, Minor, Build....
Come posso fare per accedere anche a questi?
Ringrazio chiunque voglia darmi aiuto.
Massimo
max...@libero.it

Come posso fare per accedere anche a questi?
function GetVersion( NomeFile : string ) : string ;
var Size1, Size2 : DWORD ;
    Pt1, Pt2 : Pointer ;
begin
  Result := '' ;
  Size1 := GetFileVersionInfoSize( PChar( NomeFile ), Size2 ) ;
  if ( Size1 > 0 ) then
  begin
    GetMem( Pt1, Size1 ) ;
    try
      GetFileVersionInfo( PChar( NomeFile ), 0, Size1, Pt1 ) ;
      VerQueryValue( Pt1, '\', Pt2, Size2 ) ;
      with TVSFixedFileInfo( Pt2^ ) do
        Result := IntToStr( HiWord( dwFileVersionMS ) ) + '.' +
                  IntToStr( LoWord( dwFileVersionMS ) ) + '.' +
                  IntToStr( HiWord( dwFileVersionLS ) ) + '.' +
                  IntToStr( LoWord( dwFileVersionLS ) ) ;
    finally
      FreeMem( Pt1 ) ;
    end ;
  end ;
end ;
-- 
Andrea Laforgia (ICQ# 87230455) ---------------------------
Non scrivetemi in privato, se non richiesto espressamente.
No replies in private e-mail, unless explicitly requested.
----------------------------------------------------------

 ha scritto nel messaggio
news:c64f2t8ulslqg3n5e...@4ax.com...

Newsgroup: it.comp.lang.delphi
Titolo: Broadcast su threads

Ciao a tutti, ho un programma che ogni volta che ricevo via socket dei dati 
crea un thread che elabora questi dati e scrive i risultati su un DB.
Nel mainform viene visualizzato il numero attuale di threads in esecuzione e 
tutti hanno il flag FreeOnTerminate = TRUE.
A volte ho notato pero' che alcuni threads rimangono attivi (senza occupare 
CPU) e non rieco a capire come mai.
Ho fatto un metodo nel mio thread che scrive su un file i propri dati (una 
specie di dump) per vedere se ci sono cose che non ho previsto e mi sto 
chiedendo se esiste un modo per mandare un messaggio con un sendmessage() a 
tutti i threads in esecuzione senza sapere il loro handle o devo 
memorizzarmeli e fare un sendmessage per ognuno?
Grazie.
-- 
-----------------------------------
Fabio Giliberti, Agile Telecom Srl.
MSN: 
f.gil...@agiletelecom.com
ICQ#: 291157840
Skype: fabio.smsdriver 

 chiedendo se esiste un modo per mandare un messaggio con un sendmessage()
Immagino tu intenda PostThreadMessage(). Sě, devi avere tutti gli id e
mandare loro un messaggio.
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 chiedendo se esiste un modo per mandare un messaggio con un sendmessage()
Immagino tu intenda PostThreadMessage(). Sě, devi avere tutti gli id e


 mandare loro un messaggio.
Si intendo proprio quello, speravo pero' che si potesse fare un broadcast 
del messaggio in modo che
venisse raccolto da tutti i thread senza dovermi tenere aggiornato l'elenco 
degli id.
Faro' un TObjectList al quale aggiungero' il thread al momento della 
creazione e l'extract nell'evento OnTerminate del thread.
E a questo punto tanto vale fare un ciclo su tutti i threads attivi e 
chiamare direttamente il metodo che fa il dump nel file invece che il 
Post...il post aveva senso se si poteva fare una specie di broadcast a 
tutti.
Grazie. 

tutti.
A me non piace questa tecnica. Io preferisco l'isolamento totale tra
thread primario e thread secondari (e credimi, meno fai accessi
diretti tra loro, meglio č). Sia dal thread secondario verso il thread
primario, che nel verso contrario, io uso code di messaggi. Meno si
sincronizzano tra loro, meglio č.

Newsgroup: it.comp.lang.delphi
Titolo: componente paint

Ciao a tutti,
Vorrei creare un programma in delphi simile a Paint di Windows, che mi
permetta di caricare una immagine, inserirci del testo, colorarla etc...
sapreste dirmi se esistono dei componenti per delphi che mi semplifichino la
vita e dove posso trovarli sul web.
Grazie
Saluti Alex

un post di oggi riporta il sito delle faq.
nelle faq trci elencati vari siti dedicati ai componenti per delphi.
Bye
AS
Newsgroup: it.comp.lang.delphi
Titolo: Passagio da Delphi 5 a delphi 6

Salve,
son passato da delphi 5 a delphi 6,
mi capita spesso che adesso quahdo chiudo l'applicazione durante la 
programmazione, (oppure a volte una finestra aperta dalla stessa 
applicazione) ricevo questo messaggio:
"Project XXXX.exe raised exception class EOSError with message 'System 
Error. Code 6. Handle non valido'. process stopped. Use Step or Run to 
continue."
Insomma l'applicazione viene compilata funziona normalmente senza errore 
però è fastidioso stare continuamente a cliccare questi messaggi fastidiosi.
Come posso risolvere?
Grazie
Robin

E ritorno.
E bè, i vecchi programmi mi facevano un casino, il D6 era più lento, col 
D5 andavo bene uguale. Insomma quale benefico avrei avuto? Nulla.
E allora tanto vale rimenere a D5.
Ciao A tutti
Robin
robin ha scritto:


Newsgroup: it.comp.lang.delphi
Titolo: Kylix Tour

Forse questa č la volta buona che Borland
annuncia uffiacialmente che Kylix č pronto:
http://www.borland.it/Eventi/KylixTour.htm
Gabo


http://www.borland.it/Eventi/KylixTour.htm
fantastico c'e' anche a padova !! mi sa che ci andro'.. se vado faccio un
per reportage per Gameprog-ita.
non c'e' scritto pero'.. secondo voi l'entrata sara' libera ? o quanto si
paghera' ?

 >annuncia uffiacialmente che Kylix è pronto:

Newsgroup: it.comp.lang.delphi
Titolo: problemi con master - detail

Salve!
Ho un problema con master - detail in ACCESS / DELPHI 7. 
La mia tabella Master ha una chiave primaria con un campo solo
'PETTORALE'.
La mia tabella Detail ha una chiave primaria composta da sue campi
'PETTORALE' e 'TAPPA'.
Vorrei collegare in master detail le due tabelle, in modo che la
visualizzazione di un atleta in una dbgrid, mi faccia visualizzare i
relativi dati in un'altra dbgrid. La relazione è che i due campi
PETTORALE devono essere uguali.
Ho impostato correttamente i dati dei vari DateSet e DataSource, o
almeno come al solito mi funzionano, ma in questo caso NO.
Mi sono accertato che non sia dovuto al fatto che i due campi hanno nome
uguale.
A QUESTO PUNTO L'UNICO MOTIVO CHE MI SALTA IN MENTE E' QUELLO PER CUI IL
CAMPO PETTORALE DELLA DETAIL FA PARTE DELLA CHIAVE PRIMARIA.
Sapreste aiutarmi?
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 CAMPO PETTORALE DELLA DETAIL FA PARTE DELLA CHIAVE PRIMARIA.
Ehm... a Delphi di come hai impostato i constraint a livello di database
non č che interessi tanto.
Dunque: hai messo due TADOTable sul form, le hai collegate entrambe al
TADOConnection che punta al database Access e le hai collegate ciascuna ad
un TDataSource, diciamo dsMaster e dsDetail.
Poi, nell'ADOQuery detail hai impostato la property DataSource al
TDatasource collegato alla query master e nel testo della query detail hai
specificato il nome del parametro di input esattamente con il nome del
campo della query master:
	select *
	from TAB_DETTAGLIO
	where PETTORALE = :PETTORALE
Se settato cosě continua a non andare, hai dei problemi che prescindono da
Delphi...
Saluti
	Marco Bortolani
	info @ 
marcobortolani.it

No, non mi sono spiegato bene...
Ho due TADODataSet, collegati a due TDataSource.
Per il Master ho
datasetMaster.CommandText := 'select * from atleta'
datasetMaster.Connection := Connessione
datasourceMaster.DataSet := datasetMaster
Per il Detail ho
datasetDetail.CommandText := 'select * from atleta_tappa'
datasetDetail.Connection := Connessione
datasetDetail.DataSource := datasourceMaster
datasetDetail.MasterFields := chiaveD->chiaveM
datasourceDetail.DataSet := datasetDetail
chaiveD č la chiave primaria della tabella atleta (master)
chiaveM fa parte della chiave primaria della tabella atleta_tappa, ma
non č l'unico campo a fare da chiave primaria.
CMQ COSI NON FUNZIONA
Io immagino che sia dovuto al fatto che chiaveD faccia parte della
chiave primaria insieme ad altri campi. Immagino io č...
Il data-base non lo posso modificare, qualcuno sa come fare?


PROBLEMA RISOLTO!
Dopo lunghe ore di tentativi abbiamo capito a cosa era dovuto il mal
funzionamento!
Nel nostro codice c'erano queste (maledette) righe:
datasetMaster.Active := true;
datasetMaster.Sort := 'pettorale ASC';
datasetDetail.Active := true;
datasetDetail.Sort := 'pettorale ASC'; <<< CREA L'ERRORE
Quindi abbiamo tirato via il Sort del Detail e abbiamo risolto il
problema
Ciao ciao...
Che bello crearsi i problemi e risolverli da soli =), da
soddisfazione...
Ciao a tutti e grazie...

Newsgroup: it.comp.lang.delphi
Titolo: Delphi e Cgi

come faccio a lanciare il mio cgi generato in delphi (.dll) su un server in
locale utilizzando come webserver  Apache ...
ho provato ad abilitare l'esecuzione per i file .dll nel file conf di Apache
ma non funziona...
grazie comunque
Mauro


    Se hai creato una DLL e non un eseguibile è probabile che tu abbia
creato una ISAPI o una NSAPI. Se questo è il caso, dubito che Apache
supporti le specifiche per questo tipo di architettura e devi usare IIS o
PWS. Se invece il CGI è semplice, prova a trasformarlo in un semplice
eseguibile e richiamarlo posizionandolo nella cartella cgi-bin (quella che
ha i permessi di esecuzione per capirsi)
    Saluti!
______________________________________
Gian Luca Dalla Torre
E - Mail: 
gianluca....@casteo.net
______________________________________

Newsgroup: it.comp.lang.delphi
Titolo: texture su panelli

Qualcuno ha idea di come posso applicare una textura su un componente di
tipo pannel??
Non vorrei posizionarci sopra un componente image e caricarvi un'immagine
pesante grande bmp di una texture...
Mi piacerebbe che si ricreasse(moltiplicasse) fino a ricoprire tutto lo
spazio del pannello una piccola bmp.
Stefano

 spazio del pannello una piccola bmp.
la suite di componenti TMS ha un'ottimo componente, il TAdvPanel, con
supporto a texture, collassabile, spostabile col mouse, ecc.
Ciao, Sandro

Newsgroup: it.comp.lang.delphi
Titolo: ShellListView e ShellListView

Salve NG,
come faccio a filtrare solo i file .txt con i componenti ShellListView e 
ShellListView. grazie 

 ha scritto nel messaggio 
news:KUnjd.20841$Ni.7...@twister1.libero.it...



ciao ho lo stesso problema, anzi non so come ritornare la stringa 
dell'oggetto selezionato nella ShellListView...come hai risolto?
DMK
--- posted by geoForum on 
http://www.delphiedintorni.it
Newsgroup: it.comp.lang.delphi
Titolo: Creare PICCOLI programmi: come fare ?

Ho trovato per caso su internet un file di esempio riguardo la
possibilità di creare dei piccoli programmi (.exe) con Delphi.
Io ho il Delphi 3.0 Pro e finora ho ottenuto bestie di 200K anche per
non fare praticamente nulla: purtroppo sono inesperto e non c'è un testo
di commento ai file suddetti (che si chiamano Deskpop e FastExit).
Domanda: come si fa a creare degli eseguibili compatti ?
Grazie
Simone

> Domanda: come si fa a creare degli eseguibili compatti ?
allora devi togliere le form che hai e lavorare solo sul progetto (progect,
view source)
puoi fare un programma tipo:
program msx;
begin
 fai qualcosa;
end;
che e' piccolissimo. Se vuoi puoi includere la unit Windows, avendo cosi' a
disposizione tutte le API. Puoi allora crearti una finestra come si farebbe
in C (con Register e CreateWindow)
In questo caso una finestra vuota ti crea un file di 16k circa. Il problema
e' quando devi riempirla, perche' senza componenti devi fare tutto a manina
:)
Ciao !

 ha scritto nel messaggio
news:9a4e74$lmv$1...@nreadA.inwind.it...


> Domanda: come si fa a creare degli eseguibili compatti ?
E' sufficiente che tu non usi le form e i componenti grafici, e gli
eseguibili diventeranno per magia di pochi k o decine di k. Chiaramente se
devi interagire con la GUI di Win dovrai fare ricorso alle chiamate dirette
(API) del sistema operativo, cosa che ti sconsiglio altamente, a meno che tu
non sia un masochista o abbia MOLTE ore da perdere .. buon divertimento :)
Ciao, Sandro

 ha scritto nel messaggio
news:s909ctobr1h8cuvrm...@4ax.com...


Ciao.
Ho trovato qualcosa al riguardo...ci penserò (ma per ora sono troppo
inesperto: ho problemi con i messaggi :-( ).
Ne approfitto per ringraziare tutti quelli che mi hanno risposto.
Simone
P.S. Ho visto che usando UPX (compressore free dei file .exe) dimezzo
l'occupazione su disco ed addirittura con risultati nettamente migliori
della semplice compressione .zip (alla massima compressione) o .rar 
Mio programma semplice (form con un piccolo bitmap di sfondo stretchato,
4 bottoni/speed button, 2 edit box e qualche scritta e poco altro):
 Originale:  283.648 byte
 Zippato:    147.367 byte
 Rar-rato:   137.928 byte
 exe-UPX:    118.784 byte (eseguibile)

  exe-UPX:    118.784 byte (eseguibile)
Si UPX rulla tantissimo ! Anche io lo uso sempre per i miei giochi e
programmi..
ed e' freeware!!! :))

Ma dove lo hai scaricato? Thanks
Marco


Ma dove lo hai scaricato? Thanks
Su:
http://wildsau.idv.uni-linz.ac.at/mfx/upx.html
 (ah, c'č anche per Linux...)
Simone

Posto il link per chi non è a conoscenza, bye
http://upx.tsx.org
Newsgroup: it.comp.lang.delphi
Titolo: [OT] Brevetti software, questi sconosciuti

-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1
Mi scuso innanzitutto (come al solito) per l'OT.
Vorrei chiedervi un po' del vostro tempo per analizzare il futuro del
vostro lavoro/hobby in caso che questo venga approvato dal Parlamento
Europeo (come purtroppo è molto ma molto probabile che avvenga).
Siccome sono certo molti di voi o non conoscono il problema, o pensano
che si voglia fare inutili allarmismi o addirittura pensa "ma tanto, non
mi beccheranno mai", vorrei portare la vostra attenzione su questo
articolo (in italiano): 
http://internet.cybermesa.com/~berny/brevetti.html
Si tratta di un articolo piuttosto lungo ma che mostra, in buona
sostanza, tutti i problemi che uno sviluppatore privato (sia di software
free che commerciale) o anche una azienda medio/piccola si trova ad
affrontare in caso debba avere a che fare con questa piaga portando come
esempi casi avvenuti negli Stati Uniti dove la brevettabilità del
software è pratica comune oramai da diversi anni.
Consiglio la lettura di questo documento a tutti, in particolare a
coloro che sono ancora scettici sulle possibili conseguenze dei brevetti
nel nostro mondo e a coloro che non conoscono ancora questa piaga o
pensano che comunque non li riguardi.
Vorrei ricordare a tutti che se si vuole fare qualcosa bisogna farlo
ora, ritardare ulteriormente avrà come unico effetto quello di legarci
mani e piedi, in tal caso lamentarsi non servirà più a nulla.
Vi invito inoltre a visitare la sezione links del gruppo
"nosoftwarepatents-it" per avere maggiori informazioni circa i brevetti
software che potete trovare qui
http://groups.yahoo.com/group/nosoftwarepatents-it/links
 e soprattutto a
partecipare attivamente al gruppo, al proporre le vostre idee, e
supportare le azioni che il gruppo deciderà di prendere al riguardo.
Il futuro dell'Informatica, dell'innovazione italiana ed europea dipende
oramai da quello che deciderà il Parlamento Europeo, è compito di ognuno
di noi fare pressione sui nostri rappresentanti politici affinché
capiscano la gravità della situazione.
Difendiamo i nostri diritti, è nostro dovere, sia per noi che per le
generazioni a venire.
Grazie per la vostra attenzione,
~  Luca
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.2.4 (GNU/Linux)
Comment: Using GnuPG with MultiZilla - 
http://enigmail.mozdev.org
iD8DBQFCNfLwliez+Z59f3URAmGaAJ9Ei1i2nfWTqoytZPBo3a4SC56lNgCdGtOO
TURh4VKW8imPjT6TK1A/ctI=
=Z+Yv
-----END PGP SIGNATURE-----

 ~  Luca
Lo leggerò al più presto !!
Omega
Newsgroup: it.comp.lang.delphi
Titolo: Probelmi installazione Delphi 5

In una sala PC in qui i software installati sono gestiti mediante
un file immagine per effettuare dei ripristini rapidi dei PC ho preparato
la macchina campione installando Delphi 5 da utente amministratore.
Tutta la sala č poi gestita da una macchina server con Windows 2003 Server.
Dopo aver fatto l'immagine sulle varie macchine Delphi 5 parte
ma non si vede la palette dei componenti e anche un semplice progetto
vuoto non viene compilato, partendo con un utente che non abbia i privilegi
di amministratore. Come si puo fare per far andare Delphi?
Con C++ Builder 6 mi č bastato dare i privilegi di lettura/scrittura solo 
alla cartella
bin in quanto non riusciva a creare dei file temporanei .$$$, con Delphi la 
cosa
sembra piů complicata.
Qualcuno sa come fare?
Grazie.
Gaetano Scandale 


E' passato un secolo, ma ricordo di aver avuto lo stesso problema: Mi 
sembra che il problema fosse dato dal fatto che nel registry non vengono 
create le voci sotto HKEY_CURR_USER\SOFTWARE\Borland\Delphi\5\Known 
Packages (o qualcosa del genere: "Known IDE PAckages"?) per tutti gli 
utenti ma solo per quello usato per installare (amministratore nel tuo 
caso).
Se e' cosi' basta entrare da amministratore, esportare su file e 
reimportarle con i vari utenti.
ciao
Giacomo

Newsgroup: it.comp.lang.delphi
Titolo: Delphi XE2 e seriale

Ciao ragazzi,
conoscete qualche componente open source per gestire le comunicazioni 
seriali che sia compatibile con XE2?
Da sempre usavo la suit Turbopower ma sembra che con XE2 non funga - 
ovvero... potrebbe ma bisogna cambiare il codice (stringhe, strutture, 
eccetera)


Purtroppo questo è inevitabile: con la portability ai 64bit i tipi di 
dato cambiano tutti, e i problemi maggiori si presentano proprio quando 
si usa codice scritto per gestire indirizzi hardware, aritmetica dei 
puntatori, ecc..
Se non trovi qualcosa di riadattato e ricompilato, temo che dovrai 
restare a compilare su delphi win32. Finchè non esce qualche componente 
commerciale riscritto.
-- 
morde
QT 4.7
Delphi (5,6,7.. expired)
Firebird Database

 seriali che sia compatibile con XE2?
 
Prova a pubblicare gli errori: magari si tratta di aggiustare qualche costante per fare sì che venga riconosciuta la versione corretta di Delphi all'interno del sorgente. Se non ricordo male, una parte della migrazione a Unicode era stata completata (da Nick Hodges, se non ricordo male).
 
Ciao,
  Marco.
 
-- 
Marco Breveglieri
   (
http://www.marco.breveglieri.name
)

 seriali che sia compatibile con XE2?  
 
TMS Async32 è compatibile con XE2. Non è open source, e non so se
supporti i 64 bit, ma la licenza costa poco e, soprattutto, funziona.
 
-- 
Alessandra
 
Un mito, . è una religione a cui nessuno crede più - James Feibleman


Ora provo a vedere ma ad occhio mi pare un impresa e non da poco
Newsgroup: it.comp.lang.delphi
Titolo: Tutti ma proprio tutti i controlli di una forms...

per accedere alle proprieta dei controlli di una form pensavo di usare
     for i := 0 to mainform.ControlCount -1 do
	mainform.Controls[i].ecc ecc ecc
ma questa non mi restituisce che i controlli contenuti nella form e
non quelli contenuti nei sottoelementi ex panels ecc...
c'e' un modo per accedere a tutti?
grazie
--------------------------------------------------
Brayan Fix Kirys Solfory
Remove DELTHIS from the address to replay
Kirys Tech 2000: 
http://www.kt2k.com

 Kirys Tech 2000: 
http://www.kt2k.com
Prego,
Andrea

grazie
Devi fare la stessa cosa ma ricorsiva.
Ogni componente di un form ha il suo parent.
Ma se form1 contiene panel1 e panel1 contiene edit1, edit1 non vede form1 ma 
solo panel1.
Chiaro?
_________________________________________________________________________
Get Your Private, Free E-mail from MSN Hotmail at 
http://www.hotmail.com
.
-- 
Posted from [212.177.19.163] by way of 
law2-f41.hotmail.com
 [216.32.181.41] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 c'e' un modo per accedere a tutti?
for i := 0 to MainForm.ComponentCount-1 do
  if MainForm.Components[i] is TComponent then
    with TComponent(Components[i]) do begin
       // codice da eseguire x ogni componente
    end;
-- 
Roberto Lupi

 c'e' un modo per accedere a tutti?
[oops, nella prima versione di questo post ho scambiato TControl con 
TComponent]
for i := 0 to MainForm.ComponentCount-1 do
  if MainForm.Components[i] is TControl then
    with TControl(Components[i]) do begin
       // codice da eseguire x ogni controllo
    end;
-- 
Roberto Lupi

Newsgroup: it.comp.lang.delphi
Titolo: Manuale Delphi

Salve ragazzi,
qualcuna sa dirmi dove trovare un manuale, tutorial anche in inglese su
Delphi o l'Object pascal.
Sono riuscito a convertire un amico a passare da VB a Delphi e ora gli
servirebbe una mano.
Grazie,
Emanuele

free,
www.marcocantu.it
, 
www.manuali.it
, 
www.manuali.net
, 
www.drbob42.com/delphi
a "pago",
Programmare con delphi5,6 del buon marco cantů,
delphi 4,5,6 developer's guide degli straordinari teixeira e pacheco
inoltr, dulcis in fundo, questo magico newsgroup!!!

 Delphi o l'Object pascal.
"Delphi 6 Developer's Guide" - Teixeira-Pacheco
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 wrote in message
news:a5ljv4$46v$1...@newsreader.mailgate.org...


 wrote in message
news:e9160964901242cc01b...@mygate.mailgate.org...


> "Delphi 6 Developer's Guide" - Teixeira-Pacheco
Confermo.
AS
"Se è Microsoft non funziona"

Newsgroup: it.comp.lang.delphi
Titolo: Re: Firebird Case Sensitive

 Ovvero non vorrei che 'abc' venisse dopo 'Z' ma dopo 'AB' e prima di 'ABD'.
credo (ma non ho provato) che se definisci un campo con
VARCHAR(100) 
CHARACTER SET ISO8859_1
COLLATE IT_IT
te li dovrebbe ordinare correttamente.
-- 
Mauro Falzari 
   [ 
http://digilander.libero.it/mauro.falzari
 ]
 
 "Se guardi nell'abisso, anche l'abisso guarda in te." 
   (Friedrich Nietzsche)

Buon giorno a tutti.
Avrei bisogno che FB non eseguisse un ordinamento (order by) in base al
fatto che un carattere è maiuscolo e/o minuscolo .
Ovvero non vorrei che 'abc' venisse dopo 'Z' ma dopo 'AB' e prima di 'ABD'.
E' possibile.
Uso delphi 6 (e può essere d'aiuto per suggerirmi un strada alternativa)
Grazie.
Guido
Newsgroup: it.comp.lang.delphi
Titolo: VertScrollBar in TScrollBox non visibile con creazione Panel runtime

 Salve a tutti,
al rientro dalle ferie sto litigando con un piccolo intoppo: In una 
scrollbox creo a runtime alcuni Panel, ma che non riesco ad utilizzare 
perchè la TScrollBox non mi mostra la barra di scorrimento verticale; se 
però le aggiungo a design time tutto va regolarmente...
Come ne vengo fuori?
Grazie in anticipo.
Fra.
--- posted by geoForum on 
http://www.delphiedintorni.it

 
ho provato a mettere giu' una prova a funziona.
procedure TForm1.Button1Click(Sender: TObject);
var t : TScrollBox;
     p1 : Tpanel;
     c1 : Integer;
begin
   t := TScrollBox.Create(self);
   t.parent := form1;
   t.width := 400;
   t.height := 300;
   t.left := 10;
   t.top := 50;
   for c1 := 1 to 10 do
   begin
     p1 := TPanel.Create(self);
     p1.parent := t;
     p1.left := 10;
     p1.top := 10+c1*90;
     p1.height := 80;
   end;
end;
ciao
-- 
-------------------------------
per scrivere in privato
togliere "1975nosp"
to reply remove "1975nosp"

Grazie mille, :-D
avevo appena risolto quando ho poi letto la tua risposta. In realtà c'era 
lo strano comportamento era dovuto al fatto che ai panels impostavo la 
proprietà [Align := alTop] e questo pare sia mal digerito dalla 
ScrollBox. Forse c'è qualcosa che non so?
Grazie ancora. :-D
Ciao.


 ScrollBox. Forse c'è qualcosa che non so?
alTop fa si (tra le altre cose ) che i componenti assumano la larghezza 
del componente quindi non dovrebbe influire sulla scrollbar verticale.
A meno che i pannelli che crei abbiano un'altezza tale da non superare 
l'altezza del contenitore, in quel caso non c'e' ragione di mostrare 
nessuna scroll bar.
ciao
Giacomo

 Giacomo
Grazie ancora.
Cià

Newsgroup: it.comp.lang.delphi
Titolo: Monitoring di tabella in tempo reale

Devo implementare un monitor di tabella dove al suo interno persistono dei
i dati di job applicativi: quest'ultimi possono passare per stati
differenti, e il mio compito č quello di dare all'utente la possibilitą di
visualizzare questi dati, un po' come fa lo spooler di windows per le
stampe..
Che tipo di modello implementativo mi suggerite?
Un'ipotesi consiste nel caricare una query e poi farne il refresh ad
intervalli regolari, ogni 2, 5 secondi...ma non č troppo pesante per il db?
Il db e' DB2.
Saluti
-- 
Morde

 Che tipo di modello implementativo mi suggerite?
Il polling è sempre una soluzione orribile, ma necessaria se non ci sono
altre strade. Io avrei pensato a costruire un trigger after
insert/update/delete su db, che in qualche modo (per esempio sfruttando
qualche message queue) notificasse all'esterno l'avvenuto cambiamento.
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 qualche message queue) notificasse all'esterno l'avvenuto cambiamento.
Indagherò su questa strada, se percorribile visto il database utilizzato,
DB2 v 7. (vecchio)
Lo svantaggio e' che dovrò progettare degli adapter che possano inviare i
messaggi, in funzione del database su cui l'applicativo leggerà.
Cosi' facendo rimango slegato dal database, e resta solo il peso dello
sviluppo del singolo adapter.
Ciao e grazie per l'opinione.
-- 
Morde
Newsgroup: it.comp.lang.delphi
Titolo: ComboBox

Salve,
avrei un consiglio da chiedervi.
Sto lavorando su una Form in Delphi6 su cui ho un Ttable agganciata ad
una tabella contenente un elenco di persone con i loro dati.
Alla creazione della form vado ad aprire la tabella.
All'interno della form ho anche una griglia per la visualizzazione
della tabella ed una ComboBox.
Quello che voglio è questo:
Alla creazione della form e quindi anche all'apertura della Ttable, la
ComboBox dovrà contenere tutti i record della tabella (ad esempio il
campo NOME) dopodichè, una volta selezionato un record nella ComboBox,
posizionare il cursore nella griglia sul quello selezionato.
Ciao
Stefano M.

 ha scritto nel messaggio

Ciao
credo ti serva la DbComboBox o DbLookupCombo
GP

Grazie mille!!
Ciao
Stefano M.

Ho provato però non ottengo il risultato sperato.
All'apertura della tabella mi viene visualizzato il campo scelto del
recordo corrente, mentre io vorrei vedere tutti i record per poi poter
selezionare quello che desidero.

news:1146128625.0...@t31g2000cwb.googlegroups.com...

DBgrid ?
GP 

??
Non ho capito bene la tua domanda, comunque mi spiego meglio.
Io ho una DBGrid sulla form che contiene un certo numero di record
relativi a persone.
Quello che voglio e una comboBox all'interno della form stessa che
contiene, per esempio, la lista dei Cognomi (campo COGNOME) di TUTTI i
record esistenti nella tabella e non di uno solo.
Così, una volta selezionato dall'elenco quello che desidero, il
puntatore all'interno della Griglia vada a posizionarsi su di esso.
Spero di essere stato chiaro.
Grazie!
Stefano M.

 Spero di essere stato chiaro.
Ciao,
secondo me ciň che dovresti fare č posizionare nella form un TEdit 
nel quale digitare il cognome che vuoi cercare, esempio:
nell'evento OnChange del TEdit
     Tabella.FindNearest([Edit1.Text])
questo funziona se hai un indice attivo sul campo cognome.
Questo ti permette di trovare ciň che cerchi man mano che digiti 
il cognome, in pratica vedrai un riposizionamento del puntatore 
della DBGrid ad ogni carattere digitato nel TEdit.
Ciao
Micky
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Newsgroup: it.comp.lang.delphi
Titolo: Problema con news - outlook

 Salve a tutti.
Come al solito sono a sottoporvi un quesito, che spero sia di facile 
risoluzione.
Mi servirebbe conoscere la connessione per accedere con outlook a questo 
news group, considerando che nella mia ditta abbiamo un collegamento ADSl 
interbusinnes.
il server è 
news.tin.it
?
--- posted by geoForum on 
http://www.delphiedintorni.it


    Nome Server : 
PowerNews.libero.it

Come immaginavo, grazie comunque



Senza utente e password non vedo it.comp.lang.delphi.
Che utente e password posso utilizzare?


> Che utente e password posso utilizzare?
non c'e n'è bisogno !!!

Allora devo essere un po "sfigato" ...
Non mi accede a questo newsgroup, mi fa vedere solo quelli di 
news.tin. ... non vedo it.comp ...
Grazie



Mars University: «Knowledge brings Fear»

 ha scritto nel messaggio
news:4hZ1c.4993$Hl1....@tornado.fastwebnet.it...

Newsgroup: it.comp.lang.delphi
Titolo: ShellTreeView

salve!!
vi propongo questo quesito. Ho utilizzato una ShellTreeView in cui l'utente
può selezionare la cartella dove salvare dei file di testo che vengono
creati dal programma. Tutto funziona correttamente quando si seleziona un
disco rigido (c:\, a:\, ecc) ma quando si seleziona una cartella del disco
si ha un percorso come c:\documenti. Ora quando vado a creare il file di
testo, esso viene memorizzato in c:\ e non nella cartella documenti dato che
nel percorso manca la "\". Quindi il file ha il nome della ultima cartella
selezionata + il nome standard che do io. Questa "\" la potrei aggiungere
nell'assignfile ma se l'utente seleziona la "c:\" il percorso poi
risulterebbe "c:\\", dandomi quindi un errore. Come posso ovviare a tutto
ciò?? Grazie per la sicura risposta.
--
°°°°°°°°°°°°°°°°°°°°°°°°°°°°°
Messaggio inviato da: Bruno Cannavacciuolo
Nick su C6: HeartEarth
Nick su ICQ: HeartEarth (86322518)
E-mail: 
heart...@libero.it
Sito personale: 
www.heartearth.cjb.net
Chat personale: 
www.heartearth.cjb.net

 risulterebbe "c:\\", dandomi quindi un errore.
fai un check prima di andare a salvare sul disco.
if length(path) <> 3 then
   Insert('\', path, length(path)+1);
o forse ancora migliore sarebbe
if path[length(path)] <> '\' then
   Insert('\', path, length(path)+1);
Ciao
--
- Carlo -
c.b...@libero.it

ciň?? Grazie per la sicura risposta.
Ti consiglio di usare la funzione di Delphi
IncludeTrailingPathDelimiter( qui ci metti il tuo path, al resto ci
pensa la funzione ).
Spero di esserti tornato utile!
Ciaooooo  :))

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

Salve a tutti!
sto cercando di generalizzare questa istruzione parametrizzandola, passando
un tstrings per il nome dei campi e cerco di creare dinamicamente un array
di variant
  Locate('Company;Contact;Phone', VarArrayOf(['Sight Diver', 'P',
'
408-431-1000
']), [loPartialKey]);
nel seguente modo
.......
function TdmBase.LocateRecord(dsMaster,dsDetail: TDataset;
  Fields: TStrings): Boolean;
var
  sFields: string;
  NFields, i: Integer;
  vValues: Variant;
begin
      sFields:= '';
       Result:= False;
      if Fields <> nil then
      begin
            NFields := Fields.Count;
            if NFields > 0 then
            begin
                  for i := 0 to NFields-1 do
                  begin
                        sFields := sFields + Fields.Strings[i];
                        if i < (NFields-1) then
                       sFields := sFields + ';';
                  end;
              vValues := VarArrayCreate([0, NFields], varOlestr);
              for i := 0 to NFields-1 do
                    vValues[i] :=
dsDetail.fieldByName(Fields.Strings[i]).AsString;
              Result := dsMaster.Locate(sFields, VarArrayOf(vValues),
[loCaseInsensitive]);
          end;
      end;
End;
ma quando provo ad eseguire la locate mi da come errore 'Invalid Variant
Type Conversion". Qualcuno sa dirmi dove sbaglio?
Grazie in anticipo dell'aiuto;

 wrote in message
8h8des$dch$1...@fe1.cs.interbusiness.it...

se togli vararrayof cosa succede?

Newsgroup: it.comp.lang.delphi
Titolo: Domanda un po' curiosa....

Ciao! Avete presente il famoso "Questo programma ha eseguito una operazione
non valida e sarà terminato."?
Beh.....quando uno schiaccia "Dettagli" la finestra si "allunga" e appaiono
delle scritte....che font è quello di quelle scritte? Qualcuno me lo può
dare, se ce l'avete?
Grazie mille!
CIAO!

 dare, se ce l'avete?
Non conosco il nome del font... però a ragion di logica dovresti avercelo
pure tu, visto
che compare anche a te, no? [prova a guardare con il browser dei font del
pannello di controllo]
Ciao, Davide DG.

 CIAO!

...

Dovrebbe essere il classico Courier New
Stile Normal
Size 8.
Matteo

Newsgroup: it.comp.lang.delphi
Titolo: [D6 - QuickReport] Aggregazione di dati

Da un database estraggo, attraverso una query, una serie di dati, più o meno
nel seguente formato
DataEvento - OraEvento - IdEvento - DescrEvento - NumeroImpianto
La data naturalmente può essere ripetuta in quanto più eventi possono
accadere nello stesso giorno.
Mi è stato chiesto di riportare i dati aggregati per DataEvento, piu o meno
così:
Data:    DataEvento
OraEvento    IdEvento    DescrEvento    NumImpianto
...
...
Data: DataEvento
OraEvento    IdEvento    DescrEvento    NumImpianto
...
...
...
Ma non so effettivamente come fare mantenendo un'unica query.
L'unica soluzione che mi viene in mente è usare una tabella master dove
estraggo UNIQUE tutte le date ed associarvi la mia query per creare un
dettaglio.
Gianluca.

 OraEvento    IdEvento    DescrEvento    NumImpianto
se la query la ordini per data evento , nel report metti una groupband
basata sul campo e opla !
Forse con maggiori dettagli ti posso aiutare di più : inoltre, non uso QR da
anni.
Ciao , Giulio

 anni.
Ed infatti ringrazio perchè funziona!
Non serve niente altro: era solo una banalissima aggregazione, che in
genere ho sempre affrontato utilizzando report e sotto-report perchè
partivo da relazioni master-detail.
A volte mi sembra di essere come quello che cerca gli occhiali e non
li trova perchè li sta indossando ;-)
Ciao.
Gianluca.

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

cerco corsi di delphi 6  a REGGIO EMILIA O PARMA


    Via De Gasperi, 14 - 42019
    Scandiano (Reggio Emilia)
Newsgroup: it.comp.lang.delphi
Titolo: CGI

Scusatemi la domanda: come posso creare delle CGI con Delphi 3.0 Standard?
Posso provarle con personal web server di Win98? Scusatemi per queste
domande cosi' cretine, ma mi avvicino per la prima volta a queste
problematiche!
--
Giuseppe Fraddosio
fradd...@libero.it
fradd...@supereva.it

 
fradd...@supereva.it
Andrea

 Posso provarle con personal web server di Win98?
Nonso, ma sul PWS di NT giravano.
Saluti
Paolo Arosio

 so.
Scusate la mia ignoranza, ma che sono "stdin" e "stdout"?


 Scusate la mia ignoranza, ma che sono "stdin" e "stdout"?
Normalmente l'input e l'output standard di un programma. In
(Object)Pascal la Read agisce sullo stdin, la Write sullo stdout. Per
qual che ricordo, ci dovrebbe essere almeno un altro stream standard
(stderr, ma non so come ci si scriva (penso citandolo esplicitamente)).
Saluti
Paolo Arosio

Si possono realizzare applicazioni CGI che non siano richiamate da
delle form? Chi ha mai provato a fare applicazioni del genere?


guarda il TWebDataModule
davide

Newsgroup: it.comp.lang.delphi
Titolo: form immobile

Salve a tutti!
avrei una domanda da farve (strano....): come si riesce a rendere immobile
una form? non mi dite di togliere la barra in alto perchè quella mi serve...
credo si debba intercettare qualche messaggio alla form, ma non so da che
parte rifarmi.... ;P
Grazie



unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls,
Forms, Dialogs,
  StdCtrls, AppEvnts;
type
  TForm1 = class(TForm)
  private
    procedure WMMoving(var M: TMessage); message WM_MOVING;
  public
  end;
var
  Form1: TForm1;
implementation
{$R *.DFM}
    procedure TForm1.WMMoving(var M: TMessage);
    begin
      PRECT(M.LParam)^.Left := Form1.Left;
      PRECT(M.LParam)^.Top := Form1.Top;
      PRECT(M.LParam)^.Right := Form1.Left + Form1.Width;
      PRECT(M.LParam)^.Bottom := Form1.Top + Form1.Height;
    end;
end.
-- 
Andrea Laforgia (
walkie...@libero.it
)
"Usenet is a strange place" [Dennis Ritchie]

Grazie mille Andrea, era proprio quelloche cercavo: avevo anch'io una cosa
del genere ma non sapevo ridefinire la gestione del messaggio; mi sa che
dovrò studiarmi un po' di object pascal sul serio... ;P

Newsgroup: it.comp.lang.delphi
Titolo: Perchè nn funziona?

1 procedure TFormPrincipale.Edit4KeyUp(Sender: TObject; var Key: Word;
2  Shift: TShiftState);
3 var appoggioedit:string;
4 begin
5 if CheckBox1.Checked=True then //opzione OK
6   begin
7   AppoggioEdit:=Edit4.Text;
8   if length(AppoggioEdit)>1 then //nn è la prima lettera
9      begin
10      if AppoggioEdit[length(AppoggioEdit)-1]='' then //lettera precedente
= Spazio
11         if (AppoggioEdit[length(AppoggioEdit)] in ['a'..'z']) then
//minuscola?
12            uppercase(AppoggioEdit[length(AppoggioEdit)]);
13      end
14   else if (AppoggioEdit[1] in ['a'..'z']) then //controllo se la prima
lettera è minuscola
15        UpperCase(AppoggioEdit[1]);
16   Edit4.Text:=AppoggioEdit;
17 end;
18 end;
Problemi
1: Non mi accede a "length(AppoggioEdit)", benchè AppoggioEdit abbia la
stringa giusta all'interno
2: Quado l'if sulla riga 14 mi da True (cioè la prima lettera è minuscola),
la funzione alla riga 15 nn fa nulla.
Mille grazie
--
Ciao da Marco "Kaiser" Baldini
akira_sendo[at]
libero.it
Togli "NOSPAM" per risposte via E-Mail
----------
http://www.ragnatela.it
----------
When i'm walking a dark road I am a man who walks alone
----------
Dio nn è ke il primo e fino ad ora meglio riuscito esempio di strategia di
marketing basata sull'immagine
[M.B.]

 la funzione alla riga 15 nn fa nulla.
vedi sopra il problema gia' spiegato della funzione
Ciao, Sandro

 cosa intendi dire con "non mi accede"?
Che mi restituisce nulla. Se provo in passo-passo mi dice inaccesible value

 Che mi restituisce nulla. Se provo in passo-passo mi dice inaccesible
value
quello dipende dall'ottimizzazione del compilatore, che non ti fa vedere
valori che poi non siano usati successivamente; assegnalo alla caption di
una label piazzata sulla form e cosi' lo vedi:
labelprova.caption:=inttostr(length(appoggioedit));
Ciao, Sandro