mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.delphi
Titolo: Gestione stampa in delphi

Io dovrei riuscire a prelevare delle informazioni riguardanti
altezza,alrghezza,font ecc. dal driver della stampante che mi viene
selezionata dall'utente .
Cioč l'utente seleziona la stampante , appena questo avviene , decide
il font , io da programma devo calcolare in base a quel font il numero
di righe che stanno nel foglio ...
Il problema non č tanto quando seleziono la stampante predefinita , ma
quando seleziono una stampante in rete , non riesco a prelevare le
impostazioni di default per quella stampante , e non riesco neanche a
settarla ...
per favore qualcuno puň darmi qualche consiglio ???
(Se č possibile in delphi 6)
Ringrazio fin d'ora tutti quelli che mi risponderanno ...

 Ringrazio fin d'ora tutti quelli che mi risponderanno ...
Il numero di righe che ti stanno dipende da come vuoi stampare le righe e da
che cosa stampi.
Ad esempio se stampi solo in minuscolo ogni riga occuperà meno spazio
rispetto ad una in cui ci siano lettere maiuscole.
Comunque, per sapere quanto ti occupa una riga da stampare puoi usare questa
funzione:
prnt.Canvas.TextWidth(s)
dove prnt è di tipo TPrinter ed s è la stringa da stampare e TextWidth ti
ritorna l'altezza.
Per sapere le dimensioni del foglio usi:
w:=Stampante.PageWidth;
h:=Stampante.PageHeight;
per larghezza e lunghezza. Per sapere il numero di righe che ti stanno fai :
num:=h/(prnt.Canvas.TextWidth('A')+5)
dove il +5 serve per considerare uno spazio minimo tra una riga e l'altra.
Spero di esserti stato d'aiuto.

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

Ho un paio di dubbi sulla GPL:
è vero che se scrivo un programma a partire da un altro programma rilasciato
in licenza GPL devo rendere pubblico il sorgente, ma cosa succede se scrivo
un software che si appoggia ad un altro software scritto in licenza GPL?
Esempio:
il programma in licenza GPL è un tool che esegue alcune operazioni da linea
di comando e il mio software non è altro che un'interfaccia per questo tool.
Posso rilasciare entrambi i software in un unico pacchetto senza rilasciare
il sorgente del mio software?

 no, il sorgente del tuo software lo devi distribuire.
Non e' vero. Lui ha scritto, se non ho capito male, un'interfaccia al
software GPL. Penso che con "appoggiarsi", l'OP non intenda "incorporarlo"
nel suo programma, ma usarlo solo come programma esterno. Per esempio, se io
scrivessi un IDE per un compilatore a riga di comando rilasciato sotto GPL,
nessuno mi obbliga a rilasciare il mio IDE sotto GPL.
--------------------------------
Inviato via 
http://usenet.libero.it

 nessuno mi obbliga a rilasciare il mio IDE sotto GPL.
Esatto, oltretutt mantenendo i vari disclaimer sui sogenti e sulla GPL per
il programma OS puoi persino distribuirlo pacchettizzato con la sua
applicazione.

Grazie dell'aiuto ad Andrea e Satec.
Davide: non è detto che perchè tu rilasci tutto in GPL debba farlo
anch'io...


Newsgroup: it.comp.lang.delphi
Titolo: compilatori

Un saluto a tutto il NG,ho una richiesta,vorrei imparare a programmare in
delphi,e avrei bisogno di un compilatore free,ho cercato un pò in giro nella
rete ma non ho trovato niente o poco,quindi mi rivolgo a voi che spero
possiate aiutarmi e anche consigliarmi.
Grazie a tutti quelli che mi risponderanno.
Albo
P.S.
Qualche link sarebbe ottimo


Non è Delphi, ma puoi andare a vedere su 
http://www.freepascal.org/
A.

Grazie a tutti quelli che mi risponderanno.
Delphi/Kylix open edition sono free se devi imparare a programmare
direi ideali. Basta scaricarli e registrarsi sulla community di
Borland.
fe...@delenda.net
-- 
can't help it, I'm a born lever puller

"Albo" ha scritto nel messaggio
| ho una richiesta,vorrei imparare
| a programmare in delphi,e avrei bisogno di un compilatore
| free,ho cercato un pò in giro nella rete ma non ho trovato
| niente o poco,quindi mi rivolgo a voi che spero
| possiate aiutarmi e anche consigliarmi.
Non esistono compilatori free (nel senso proprio del termine)
di Delphi. Esistono le versioni Personal, limitate e - se recuperate
in qualche maniera (download o allegate ad una rivista) - gratuite.
Anche il compilatore Pascal che ti ha segnalato Annibale
e' ottimo per cominciare, ma passa appena possibile ad una
versione completa di Delphi (avrai la VCL, l'IDE, tutti i componenti).
Per Morde: per me, questa domanda e' da mettere nelle FAQ
(anche se poi nessuno le legge ...); la risposta sistemala tu
(hai voluto la bicicletta ...).
--
Ciao.
ACSH
[D4]
---------------------------
Chi fa da se'
fatica il doppio

(hai voluto la bicicletta ...).
Senz'altro lo faro', in questi giorni sono preso, ma sto lavorando 
come si dice in background sui sorgenti. 
Permettimi solo di dissentire sul fatto che nessuno le legge ;-D
dai un'occhio qui: 
http://delphifaq.altervista.org/faqStat.php
Quando saro' riuscito a mettere a posto la presentazione delle risposte
sara' un'altra musica!
Non siamo che all'inizio, e qualsiasi collaborazione e' la benvenuta: le faq
sono infatti patrimonio di questo ng e appartengono a ognuno di noi!
Ciao!
Morde.
morde [at] programmer [.] net

Newsgroup: it.comp.lang.delphi
Titolo: Delphi e SQL

Lo so che ho sbagliato news, pero' non riesco a capire perche' l'update su
un campo non funziona!!! Devo usare delle cose speciali? Questa e' la mia
query:
Update Table1 Set Note = 'Sono un programmatore Delphi' where codice = 1
...dove il codice ovviamente e' un intero!!!
Grazie a tutti, scusate per il msg poco consono al news, ciao Luigi ;)
P.S. Chiunque mi risponda, puo' farlo alla mia email : 
f.l...@libero.it

> Update Table1 Set Note = 'Sono un programmatore Delphi' where codice = 1
sembra corretta
... ma "table1" non e' l'oggetto TTable vero?? ;)
Ciao,
Alan Solo

 ha scritto nel messaggio
news:8vbt7o$42e4q$1...@ID-44131.news.dfncis.de...


> Update Table1 Set Note = 'Sono un programmatore Delphi' where codice = 1
"Note" è un blob?
$yd

> no!
1- calmati
2- mi sa che ci ho azzeccato
Newsgroup: it.comp.lang.delphi
Titolo: Funzioni con argomenti opzionali?

Ciao,
è possibile, in Delphi, creare procedure o funzioni che accettino un 
numero differente di argomenti a seconda della chiamata oppure parte 
degli argomenti definiti come "opzionali"? Ovvero, (e se la domanda ha 
senso) si può creare una routine con numero "dinamico" di argomenti? 
Forse dovrei usare una lista?
 
Grazie a tutti i risolutori dei miei angoscianti dubbi!!!
 
Antonio
--
Posted from 213.254.0.4 by way of 
smtp3.libero.it
 [193.70.192.53] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

quello che ti consiglio di fare è definire più funzioni col metodo overload
che ti permette di definire più volte la stessa funzione con numero diverso
di parametri e di usare dei default value per es.
procedure create(x:integer) overload;
procedure create(x:integer,y:integer) overload;
quando chiami la procedura in base ai parametri che vengono passati il
programma va a prendere quella giusta.
un'altra possibilità è quella di utilizzare un array

Ma naturalmente ciò equivale a scrivere proprio DUE funzioni distinte, 
quindi sia a livello di dichiarazione che d'implementazione, giusto?


purtroppo si l'unica alternativa come ti ho detto è quella di avere una sola
funzione con un parametro che è un array

 wrote in message
FTMAYC$IYmsdCp6Sg_plUMnQNGxBg...@libero.it...
Ciao,
è possibile, in Delphi, creare procedure o funzioni che accettino un
numero differente di argomenti a seconda della chiamata oppure parte
degli argomenti definiti come "opzionali"? Ovvero, (e se la domanda ha
senso) si può creare una routine con numero "dinamico" di argomenti?
Forse dovrei usare una lista?
Grazie a tutti i risolutori dei miei angoscianti dubbi!!!
Antonio
--


Forse dovrei usare una lista?
Da Delphi 4 si puo' gia' usare l'overload delle funzioni.
E' una tecnica simile a quella che si possiede in C++.
La seguente applicazione console (compilata con D5) ne e' un esempio :
program PrjOverload ;
{$APPTYPE CONSOLE}
uses SysUtils;
procedure MiaFunc( a : integer ) ; overload ;
begin
  writeln( 'sono la funzione con un solo argomento' ) ;
end ;
procedure MiaFunc( a, b : integer ) ; overload ;
begin
  writeln( 'sono la funzione con due argomenti' ) ;
end ;
begin
  MiaFunc( 3 ) ;
  MiaFunc( 3, 5 ) ;
end.
Newsgroup: it.comp.lang.delphi
Titolo: Connettersi ad un server

Salve,
come faccio a creare un programmino che si connetta ad un server di cui ho
indirizzo e porta?
Mi serve poter inviare e ricevere alcuni comandi tutti in formato testo
(ASCII).
Ho Delphi 4 Client Server Suite.
Grazie

 ha scritto nel messaggio
news:aDhwd.25913$Lg7.8...@twister1.libero.it...

Ciao Noixie
ma ... che server è ? che servizi espone ?
GP

Grazie
	Ciao
	MassimoB
 
---------------------------
http://www.massimobeschi.it/

 ma ... che server è ? che servizi espone ?
In pratica e' un server su cui c'e' un gioco testuale, un MUD. Sai cosa e'?
Ciao


Si, un vecchio (tipo di) gioco testuale.
Se il server č in ambiente Windows potresti provare ad usare
gli internet socket.
Nella cartella di installazione del tuo Delphi c'č anche una cartella DEMOS
o qualcosa di simile, Dentro c'č una cartella con un demo dei componenti
internet socket, che sono poi spariti credo dalla versione 5 o 6.
Lě trovi un esempio molto carino di colloquio di tipo ASCII tra un client
ed un server.
Se poi tu fossi meno stringato e piů esplicito nelle tue spiegazioni magari
potremmo aiutarti; cosě si tira ad indovinare. Mi chiedi cosč un MUD ma
non dici che S.O. usi, abbi pazienza....  :-(
GP

 non dici che S.O. usi, abbi pazienza....  :-(
Si scusa, uso win98 e il mud mi sa che sia su server linux.
Ciao

Newsgroup: it.comp.lang.delphi
Titolo: Delhpi XE2 & XE5

Ciao a tutti .... una domanda quasi banale ....
Delphi XE2 e XE5 possono coesistere nello stesso sistema ???
 
Il proble ma e' che uso largamente le jedi e, pare, in xe5 ci sono seri 
problemi per l'installazione.
Quindi prima di fare qualche porcheria e non far andare nessuno dei due 
..... eccomi qui a chiedere consigli.
 
Grazie
 
Ciao
 
Daniele 
 

 Delphi XE2 e XE5 possono coesistere nello stesso sistema ???
 
In genere non ci sono problemi a installare versioni diverse di Delphi sullo stesso sistema: conosco persone che ne hanno una invidiabile collezione, dalle più vecchie alle più nuove, comprese quelle più "buggate" (tipo Delphi 2005).
 
Magari, per precauzione, conviene iniziare sempre dalla più vecchia, se possibile.
 
Ciao,
  Marco.
 
-- 
MARCO BREVEGLIERI (Software and Web Developer)
#Home: 
http://bit.ly/marcobreveglieri
 
#Blog: 
http://bit.ly/compilaquindiva
Newsgroup: it.comp.lang.delphi
Titolo: CPU usage %

Qualcuno di voi mi saprebbe indicare come si fa per sapere utilizzo in
percentuale della Cpu?
Ciao e Grazie Alfio

Con NT dal TaskManager, con oltri OS nun lo saccio !

Con NT dal TaskManager
...o da programma con le informazioni prese dal Performance
Registry...


più precisamente? dove?
interessa anche a me...
--
ciao
xAERO

interessa anche a me...
Guarda la sezione "Performance Monitoring" del Platform SDK\Base
Services su MSDN.

 interessa anche a me...
Non so se Laforgia facesse riferimento a quanto sto per dirti :
HKEY_DYN_DATA\PerfStats\StatData\KERNEL\CPUUsage
Ciao!
--
- Carlo -

 Ciao e Grazie Alfio
ciao 
-- 
-------------------------
Simone "quequ" Sciamanna
qu...@inwind.it
qu...@hotmail.com

> MSDN.
cos'è ? dove si trova ?
--
 _______________________________________
        Gnaffy SoftWare
   web: 
http://gnaffy.tripod.com/
   e-mail: Gna...@Wappi.com
   e-mail: 
bmq...@tin.it
   ICQ#: 76488613
 ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯

 cos'è ? dove si trova ?
Microsoft Developer Network :
http://www.msdn.microsoft.com
il sito è un po' duro da caricare... e anche da navigare... (a mio avviso)
però è aggiornatissimo e completo degli sdk ms.
Ciao, Davide DG

cos'è ? dove si trova ?
La raccolta della documentazione ufficiale Microsoft.
La trovi online, la puoi anche scaricare, 
www.msdn.microsoft.com
.
Se sei realmente interessato ti conviene abbonarti.

veraveramente grazie.


HKEY_DYN_DATA\PerfStats\StatData\KERNEL\CPUUsage
Sei riuscito a leggere l'uso di CPU durante un programma, da questa
chiave ?

 chiave ?
Sinceramente non ci avevo mai provato ... ho scritto 2 linee di codice
appena adesso, ma sembra che il risultato ottenuto non sia realistico (100%
costante!) ,,, in fondo sono le 2 passate e sono il primo a dubitare del mio
stesso codice! Cmq o io ho sbaglaito qualcosa durante la lettura (probabile)
o quella chiave non funziona a dovere (improbabile)
--
- Carlo -

o quella chiave non funziona a dovere (improbabile)
Terza possibilita' : quella chiave non serve allo scopo ;)

 Terza possibilita' : quella chiave non serve allo scopo ;)
Mah, non ti saprei dire ... io la ricordo semplicemente perchè qualcuno
tempo fa ne parlò dicendo che aveva utilizzato quella chiave per le risorse
della CPU e una unit apposita per le risorse GDI ...
--
- Carlo -
Newsgroup: it.comp.lang.delphi
Titolo: Pos con caratteri jolly.

Esiste una funzione simile alla pos per ritrovare una sotto-stringa in
una stringa come nell'esempio.
Stringa : "Ciao mi chiamo Roberto."
SubStr: "Ro??rto" (i ? rappresentano i jolly).
Se qualcuno la conosce mi aiuterebbe molto.
Ciao Ciao

regular expression?
AS

L'ho installato ma non ho capito una mazza di come funziona.

è documentato?
AS

c'è il file help, ma in inglese sono una ciorvia.... :)
ho provato pure a controllare gli esempi per capire come funziona, ma
non sono approdato a nulla.
Ho capito solo che: data una stringa posso fare una ricerca con una
sotto stringa parametrizzata.... ma non riesco a farlo funzionare...
Sono sicuro che una volta capito ha delle ottime capacità, ma il qui
presente sta dando solo delle craniate contro i sorgenti

L'inglese tecnico è il pane quotidiano nel settore IT.
Dare le craniate è parte integrante del ns lavoro.
Benvenuto a bordo, amico! :-)
AS

sono un tipo elastico. Dato che ho dei tempi un filino ristretti ho
trovato una soluzione alternativa.
Non mi piace un granchè ma funziona. Poi con calma mi metto a vedere
regular  per implementarlo.
Grazie mille ciao ciao

Ho capito come funziona. Era anche abbastanza ovvio. Le potenzialità
da sfruttare sono enormi.
Grazie mille per il consiglio e scusatemi se sono così tedioso.
Newsgroup: it.comp.lang.delphi
Titolo: TStringList e CustomSort

Sto cercando di usare una mia procedura per ordinare una TStringList.
Dopo aver letto l'help e google non capisco cosa sto sbagliando:
type
  TFrm = class(TForm)
    ..bla..bla..
  private
    FRenamed: TStringList;
    function TFrm.FRenamedSort(List: TStringList; 
      Index1, Index2: Integer): Integer;    
    ..bla..bla..
end;
..
..
procedure TFrm.MiaProcedura;
begin
  FRenamed.CustomSort(FRenamedSort);
end;
function TFrm.FRenamedSort(List: TStringList; 
  Index1, Index2: Integer): Integer;
begin
  //
end;
Questo è quello che ho scritto, ma mi da un errore in compilazione:
"Incompatible types: 'regular procedure and method pointer'"
Quello che non capisco però è perchè tutti gli esempi che ho trovato con
google sono (o almeno, mi sembrano) identici. Ne copio qua sotto un esempio:
-----------
You need to implement a function of type TStringListSortCompare that will
return
the right values to the caller.
type TStringListSortCompare = function(List: TStringList; Index1, Index2:
Integer): Integer;
so something like this should work:
function StringDateSort (List: TStringList; Index1, Index2: Integer):
Integer;
var
  Date1, Date2 : TDateTime;
begin
  Date1 := StrToDate(List[Index1]);
  Date2 := StrToDate(List[Index2]);
  if Date1 > Date2 then
    Result = -1
  else
  if Date1 < Date2 then
    Result := 1
  else
    Result := 0;
end;
Then just call List.CustomSort(StringDateSort);
-----------
Idee?
-- 
Lis
ICQ@Home #7317603sette     ICQ@Work #16285702tre
Mercatino: 
http://lis77.bravepages.com
 (aggiornato *con foto*: 16/06/03)

 Dopo aver letto l'help e google non capisco cosa sto sbagliando:
Il problema era che mettevo la funzione all'interno di un metodo del mio
form: è bastato spostarla in una funzione "normale" e funziona
correttamente.
Che niubbo... :-/

Newsgroup: it.comp.lang.delphi
Titolo: Delphi e autocad map

Vorrei sapere se qualcuno ha esperienza con l'interfacciamento di autocad
map e delphi
In tal caso mi può fare una sintetica panoramica su cosa è necessario e
quanto è complicato, se lo è :-)
In particolare mi interessa se l'installazione ad utente finale deve
comprendere anche autocad map oppure può essere tutto gestito dalla mia
applicazione.
Premetto che ho già esperienza con disegni e mappe dxf con vari componenti ,
ma stavolta dovrei fare un'applicazione GIS.
Grazie per l'attenzione, Giulio

AutoCAD DXF DWG reader:
http://www.cadsofttools.com

Newsgroup: it.comp.lang.delphi
Titolo: Da Delphi a...

Ciao a tutti gli amici delphiniani...!
è da molto che vi seguo, in qualche occasione ho anche postato i problemi in
cui mi sono imbattutto, soprattutto perchè alle prime armi...
Ora sono alle prese con un dilemma.... e per questo mi rivolgo a voi per
chiedervi qualche consiglio...
Premettendo che le conoscenze che ho di Delphi, e quindi di Pascal, nel
mondo del Object Oriented sono ad un livello base, sapete dirmi qualcosa in
merito al Visual Fox Pro?
Avrei la possibilità di continuare a programmare in Pascal e magari iniziare
con questo nuovo linguaggio.Ci sono particolari differenze tra uno e l'altro
? La logica di scrittura del codice è profondamente diversa ?
Vi ringrazio per i consigli.
Ciao
--
Sparta

con visual foxpro, imho, ti metti in un vicolo cieco.
Tra parentesi non so se zio billy lo tiene ancora in vita.
Bye
A.
Newsgroup: it.comp.lang.delphi
Titolo: visualizzazione directory

Non riesco a capire come si chiama o come si lancia quella specie di
finestra di dialogo, o forse é un componente (tipo message box), che ti
dà la lista delle directory comprese quelle degli altri computer
connessi alla rete...
la si vede spesso nei programmi che ti chiedono, per esempio, in che
cartella vuoi salvare un dato file....
Non so più cosa fare per risolvere il problema... mi rompe farmi una
routine (avrei dei problemi a far visualizzare "Risorse di Rete") visto
che probabilmente esiste già qualcosa di "pronto"...
Grazie....
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

TSaveDialog, tab dialogs della palette di delphi
Bye
AS

 che probabilmente esiste già qualcosa di "pronto"...
Se non intendi la SaveDialog, c'è la SelectDirectory: in D6 mostra la solita finestra
standard (SHBrowseForFolder), nelle versioni precedenti, che io sappia, usa un dialog
abbastanza squallido che resiste dai tempi di D1 ;)
quindi se usi Delphi < 6 ti conviene cercarti un componente (su 
it.torry.net
 ce ne sono un
paio) che fa uso appunto della SHBrowseForFolder.
__
Jax

 connessi alla rete...
SelectDirectory.
Occhio che con Delphi ci sono due versioni (overloaded e quindi
distinte dal tipo dei parametri).
uses FileCtrl;
// versione 1
procedure TForm1.Button1Click(Sender: TObject);
var
  D: String;
begin
  SelectDirectory(D, [], 0);
end;
// versione 2
procedure TForm1.Button2Click(Sender: TObject);
var
  D: String;
begin
  SelectDirectory('Selezionare la cartella',
                  '', D);
end;


 wrote in message
news:d641bb0d57137bc83e3...@mygate.mailgate.org
Ora vado a provare.....
SIETE STATI FANTASTICI
grazie 1000

Newsgroup: it.comp.lang.delphi
Titolo: Limiti Memo

Ho scaricato un TMEMO free molto carino che colora il testo tipo l'ide del
delphi, il mio problema è che come tuti i tmemo hanno il limiti dei 32k come
si fa a superarlo ? E' possibile creare un discendente che superi questo
limite ?
Ciao e Grazie.
P.S. Delphi4 standard
--
Stefano Tampieri
ICQ 51832013

limite ?
No. E' un limite del controllo Windows.
Usa un RichEdit.

 wrote in message
gnrdvsofuh8krk41l...@4ax.com...


Non posso, il componente non è il mio, non ho i sorgenti
Mi spiace, cambia sistema operativo ;)
A parte gli scherzi : non c'e' soluzione ! :(

limite ?
Se ti va di cambiare componente, il mwEdit fa per te. Ad occhio e
croce fa tutto quello che fa l'altro e qualcosina in piů. Lo trovi
sulla Delphi Super Page, categoria "Graphics Controls".
Delphi Super Page: 
http://delphi.icm.edu.pl/
"mwEdit is a study on how to create a custom edit control without 
 using a Windows edit control. Main features: - Seven highlighters 
 included - from Pascal to Java - No inherent memory limitations even 
 when running on Windows 95 - Extensible syntax highlighting - 
 Customisable keyboard commands - Bookmarks and gutter marks - Drag 
 and drop - Free for non-commercial use"
Saluti,
Marco
--------------------------------------------------------------------------------
 t,m,e,e,t,@,h,o,t,m,a,i,l,.,c,o,m,
 Togliete le virgole per rispondere in email.
--------------------------------------------------------------------------------

 wrote in message
p9sevs0k369optl2f...@4ax.com...


 wrote in message
p9sevs0k369optl2f...@4ax.com...


 p9sevs0k369optl2f...@4ax.com...


Newsgroup: it.comp.lang.delphi
Titolo: mygrid:=stringgrid1;

Ho il seguente problema:
Ho una stringgrid riempita con dei dati.. a questo punto devo cambiare il
tipo di dati inseriti
per visualizzarne altri però mantenendo in memoria quelli esistenti così ho
deciso di
crearne una nuova dinamicamente ed appoggiarvi i dati... ma......così come
segue non và bene:
mygrid:=tstringgrid.create(nil);
mygrid:=stringgrid1;
 fin quì tutto ok..funziona..ma quando vado a cambiare i dati della
stringgrid1 cambiano anche quelli
di mygrid!!
come devo fare per far in modo che la griglia di appoggio rimanga immutata?
Grazie in anticipo...ciao.

 mygrid:=stringgrid1;
Prova ad usare MyGrid.Assign(StringGrid1);
Nella tua assegnazione crei soltanto un altro puntatore allo stesso oggetto.
Utilizzando il metodo Assign crei un nuovo oggetto in memoria completamente
indipendente dall'altro.
ciao
guastatore

 ha scritto nel messaggio
news:_XZ57.893$NZ6....@news.infostrada.it...


Cannot assign a Tstringgrid to a TStringgrid!
Hai provato con Cells.Assign, Rows.Assign, o Columns.Assign?
--
Piero Bonanno
bop...@libero.it
pie...@tiscalinet.it
bpie...@hotmail.com
______________________________________________
"Madame, lei ha tra le gambe uno strumento
che puo' offrire piacere a migliaia di persone,
e tutto quello che sa fare e' grattarlo"
- Sir Thomas Beechan a una violoncellista
Newsgroup: it.comp.lang.delphi
Titolo: image





Ciao mi potete dire come cambio l'immagine 
all'interno della "image1" ;-P usando l' "OpenPictureDalog"? (o anche 
l'opendialog)


 


 


grazie ciaoo







è  qualcosa tipo


if dialog1.execute then 
image1.loadfromfile(dialog1.filename);


 


-- 
Ciao Ciao.
Davide - 
Gna...@wappi.com

Newsgroup: it.comp.lang.delphi
Titolo: MI5 Persecution: how and why did it start?

Why would "they" wish to assassinate your character?
It's the classic case of hitting a cripple to prove you're stronger. Why
would the security services expend hundreds of thousands of pounds and more
than six years of manpower to try to kill a British citizen? Because they
are motivated by people who knew me at university and feel personal
animosity; because they knew me to be emotionally weak, and it is in the
nature of bullies to prey on those known to be weak; and because they can
rely on the complicity of the establishment, which the security services
manipulate and derive funding from. This is England's biggest humiliation
today, and the British security services are intent on preventing their
humiliation becoming reality by continuing their campaign of attempted
murder to suppress the truth from becoming public.
19
-- 
Posted via a free Usenet account from 
http://www.teranews.com

MI5V...@mi5.gov.uk
 ha scritto:
sappiamo benissimo che sei la Luciana Cenciona - a Natale calano i post
e
subentrano i numeri ...
 --
Betting on me you will be a looser because I don't have a political
party
RO
http://www.youtube.com/results?search_query=rimuda+opere&search=Search
FiL
http://www.youtube.com/results?search_query=feast+in+london&search=Search
PDM 
http://www.youtube.com/results?search_query=rimuda&search=Search
CAL 
http://www.youtube.com/watch?v=kY9gpBzlzBA
CAM 
http://www.youtube.com/watch?v=OqxzJgmkGeM

Newsgroup: it.comp.lang.delphi
Titolo: Query sbaglia

Per individuare il numero di "tipi" in un dataset, eseguo la seguente Query:
"Select Distinct TIPO from MyDBF"
e funziona come si deve. Dovendo estendere la ricerca dei diversi TIPI su 
due tabelle, ho fatto:
"Select Distinct TIPO from MyDBF1  UNION ALL Select Distinct TIPO from 
MyDBF2"
che però mi dà dei numeri totalmente sballati. Evidentemente la select è 
sballata. Come va fatta ? Scusate, ma opero con local Sql in ambiente 
dBase/BDE..
Per estrarre dati da più dataset, in genere applico i criteri di estrazione 
sulle varie select unite da UNION ALL, e funziona. Perchè con Distinct non 
va ? Qualcuno lo sa ? 

 Distinct non va ? Qualcuno lo sa ?
Ricordo anche io di aver avuto qualche casino con l'operatore union 
usando il BDE.
Purtroppo il vero problema e' che supporto SQL del BDE non e' mai stato 
un gran che e trattandosi di un prodotto ufficialmente abbandonato da 
parecchi anni non c'e' speranza che venga mai messo a posto.
(come consiglio generale, ti conviene cercare di convertire il programma 
ad altre tecnologie di accesso dati (ADO, dbExpress, ...)
Nel frattempo se non funziona la select puoi provare a scrivere una 
procedura in delphi per scorrerti le due tabelle e conteggiare tu i tipi 
manualmente record per record.
ciao
Giacomo

 MyDBF2"
Ad occhio e croce con questo sistema preleva tutti i record TIPO su
MyDBF1, poi tutti i record TIPO su MyDBF2 e poi fa la union.
Dovresti quindi comunque trovarti dei record doppi.
Per evitarlo potresti provare ad eseguire una nuova UNION:
SELECT DISTINCT TIPO FROM (Select Distinct TIPO from MyDBF1  UNION ALL
Select Distinct TIPO from MyDBF2)
Matteo

 ha scritto nel messaggio 
news:83060f93-0085-4ef1...@v22g2000pro.googlegroups.com...


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

Ciao a tutti!
Sto lavorando su un progetto in Delphi 3. Vorrei documentarmi sui Join,
sapete darmi un link dove posso trovare un manuale?
Grazie!
Ciao 
  Stefano

JOIN è un costrutto SQL indipendente da delphi.
Quello che ti serve sono info sui db relazionali, x i quali esiste un
ng dedicato.
AS
Newsgroup: it.comp.lang.delphi
Titolo: [OT] Ma a voi...

... non capita mai, mentre fate una ricerca con gugolgrups, di imbattervi in 
qualche vostro post di qualche anno fa e non ricordarvelo? E di pensare 
"ammazza com'ero scemo"? E di fare una ricerca di tutti i vostri post vecchi 
e di ripensare "ammazza com'ero imbecille"?
:)
-- 
Jax
Il problema dell'umanità è che gli stupidi sono strasicuri, mentre gli 
intelligenti sono pieni di dubbi.(Bertrand Russell) 

beh, nessuno nasce imparato....
Stefano Lorenzi
--- posted by geoForum on 
http://www.delphiedintorni.it

 e di ripensare "ammazza com'ero imbecille"?
E come no ? Ma non mi capita solo guardando i vecchi post, infatti mi
succede
anche quando riguardo i miei primi programmi nei vari linguaggi che ho
utilizzato
nel corso della mia vita lavorativa.
La cosa interessante però è che ho sempre trovato qualcuno disposto a pagare
per "questo scemo" e così sono riuscito a mangiare tutti i giorni e anche
molto
bene.
La cosa che più mi piace però è che fortunatamente ho ancora tante cose da
imparare ... se così non fosse credo che i miei prossimi 40 anni di vita (ne
ho
già impiegati 40 ad imparare) sarebbero davvero noiosi.
Odio infatti continuare a fare sempre le cose che già conosco tutti i
giorni.
Voglio imparare cose nuove e sono grato che oggi esistano strumenti come
icld e tante brave persone che sono disposte a condividere le loro
esperienze
e conoscenze.
Tutto questo è la vita che ho sempre sognato !!!
Ciao.
Marco D.T.

Io lo penso ogni volta che risolvo un problema su cui ci sto su per
diverso tempo!
E visto che sono nuovo della programmazione chissà quante volte dovrò
dirlo ancora! :-)
Impariamo, impariamo....
Ciao a tutti! :-)

 e di ripensare "ammazza com'ero imbecille"?
Io lo penso sempre...
-- 
Morde. 
ICLDweb: 
http://www2.samatel.com/icld/

 e di ripensare "ammazza com'ero imbecille"?
a me succede quando riprendo del codice vecchio per delle modifiche... 
pero' penso : "chi e' che ha fatto sto accrocco?(ero stato io):-D
Newsgroup: it.comp.lang.delphi
Titolo: Connessione a mysql5 e dbexpress

Sono disperato!
Ho appena installato la versione 5 di MySQL (essential 5.0.24a) ma non
riesco a connettermi utilizzando i dbexpress: mi ritorna l'errore
"invalid username/password". Ovviamente ho controllato e ricontrollato
di aver digitato correttamente questi valori, eppure non funziona.
Questo sia provando ad utilizzare l'user di default (root) che con uno
user che ho clonato dallo stesso tramite il tool di amministrazione di
MySQL. E' possibile che vi siano problemi di compatibilità con la
verisione 5 di MySQL?
Grazie a tutti, ciao.
Dario
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

verisione 5 di MySQL?
No, io ho usato la versione 5 di MySQL tranquillamente.  Che versione
di Delphi hai e che driver dbExpress usi ?

 verisione 5 di MySQL?
Se non ricordo male, la "feature matrix" del prodotto (BDS) descrive la 
compatibilità dei driver dbExpress incorporati con le versioni inferiori 
alla 5.
In tal caso, il supporto alla nuova versione di MySQL potrebbe non 
essere garantito, ma non indica necessariamente che il driver non possa 
funzionare. :-)
In ogni caso, sono disponibili anche driver di terze parti, come quelli 
di Core Labs, che funzionano (anche dichiaratamente) con le versioni più 
recenti.
Eventualmente, controlla meglio la configurazione dei componenti 
dbExpress e inoltrala al gruppo per verificare proprio che non sia 
davvero un problema di "setup" piuttosto che di incompatibilità.
Ciao,
   Marco.
-- 
MARCO BREVEGLIERI
  (
http://www.marco.breveglieri.name
)

 di Delphi hai e che driver dbExpress usi ?
Utilizzo Delphi verisione 7. I driver dbExpress sono quelli originali 
di Delphi, non ho scaricato alcun upgrade. 
Ah! MySQL è installato sullo stesso computer che uso per sviluppare. 
Mica sarà obbligatorio installare il MySQL-ODBC-Connector?  O_o
Grazie mille ancora, 


 davvero un problema di "setup" piuttosto che di incompatibilità.
Ups... come faccio a controllarla? Ti posto il codice che utilizzo 
per settare il componente SQLConnector però non so se è proprio quello
a cui tu ti riferivi.
function ConnettiDatabase(const Database: string): boolean;
begin
  SQLConnection.Params.Clear;
  SQLConnection.Params.Add('HostName=localhost');
  SQLConnection.Params.Add('Database=' + Database);
  SQLConnection.Params.Add('User_Name=dario');
  SQLConnection.Params.Add('Password=password');
  try
    SQLConnection.Open;
  except
  end;
  Result := SQLConnection.Connected;
end;
Ciao e grazie


 a cui tu ti riferivi.
La libreria dbExpress si connette a più database, sfruttando appositi 
driver. Questo significa che per instaurare una connessione a MySQL, il 
componente deve essere adeguatamente configurato, che significa aver 
impostato le proprietà del componente stesso in un certo modo.
Riporta i valori che hai specificato nelle proprietà del componente 
*TSQLConnection*, così verifichiamo se sono corretti.

Newsgroup: it.comp.lang.delphi
Titolo: Bug Delphi

Nessuno conosce qualche sito che contenga i bug conosciuti di Delphi?
Mi interesserebbero specialmente quelli relativi alla versione 5
--
Ciao,
David

Mi interesserebbero specialmente quelli relativi alla versione 5
http://qc.borland.com/
-- 
Ore 18.30: premo invio.

Newsgroup: it.comp.lang.delphi
Titolo: Screenshot da codice

Buongiorno a tutti,
Ho trovato sul web questo codice per salvare sul un bitmap lo
screenshot del PC sul quale il programma delphi sta girando.
procedure ScreenShot(x : integer; y : integer; Width : integer; Height
: integer; bm : TBitMap);
var
  dc: HDC;
begin
  //test width and height
  if ((Width = 0) OR (Height = 0)) then exit;
  bm.Width := Width;
  bm.Height := Height;
  //get the screen dc
  dc := GetDC(0);
  if (dc = 0) then exit;
  //copy from the screen to the bitmap
  BitBlt(bm.Canvas.Handle,0,0,Width,Height,Dc,x,y,SRCCOPY);
  //release the screen dc
  ReleaseDc(0, dc);
end;
Questo funziona benissimo ma solo se sul video sto mostrando immagini
statiche o qualche finestra di windows.
Ma se ho un video in playback mediante TMediaPlayer allora il video
rimane nero nello screenshot.
Qualcuno si e` mai imbattuto su questo problema?
Dopo qualche prova ho scoperto che si tratta di un problema di
DirectDraw dato che su una macchina XP con le DirectDraw attivate il
problema esiste mentre su un altra 2003 server in cui le DirectDraw
non sono attivate lo screenshot funziona.
Avete qualche suggerimento da darmi?
Grazie.
Luca

 Qualcuno si e` mai imbattuto su questo problema?
Dai una occhiata qui:
http://blog.rac.me.uk/2003/01/21/techy-how-to-grab-screenshots/
http://groups.google.it/group/microsoft.public.win32.programmer.directx
.
graphics/msg/efb9be798eed7fe9?hl=it
-- 
Vuoi distribuire il tuo sito web su CD/DVD?
Prova 
http://www.dwebpro.com/
Vuoi diventare un esperto programmatore Delphi?
Vieni a fare uno stage con noi: 
http://www.creativepark.it/stage/

graphics/msg/efb9be798eed7fe9?hl=it
Purtroppo non mi sono molto d'aiuto. Il primo link lo avevo trovato
qualche giorno fa e da quello ho capito che il problema era
l'accelerazione HW della scheda, ma non da suggerimenti SW
Il secondo e` una persona che ha il mio problema ma l'unica risposta
non ha risolto.
Ne approfitto per chiedere: partendo dalle basi, di cosa ho bisogno se
voglio utilizzare le DirectX con Delphi2007 ?
Devo installare forse un DSK, oppure esiste qualche Libreria Delphi
che incorpora le DirectX o cosa?
Grazie
Luca

 rimane nero nello screenshot.
Credo che il problema sia dovuto al fatto che, per velocizzare la 
riproduzione, il Media Player usa una tecnica di "overlay", cioč 
probabilmente scrive l'immagine direttamente sul video bypassando le 
funzioni che invece utilizzano i programmi tradizionali.
Come interagire con questo overlay per catturarlo, ahimč, non lo so, e 
non č probabilmente una tematica semplice. :-(
Ciao,
   Marco.
-- 
MARCO BREVEGLIERI
  (
http://www.marco.breveglieri.name
)
Newsgroup: it.comp.lang.delphi
Titolo: Datamodules

Nei miei progetti utilizzo il datamodule e mi succede una cosa strana che
penso dipenda dall'utilizzo di quest' ultimo. Ogni volta che apro un mio
progetto devo reimpostare la proprietą datasource dei componenti db. E' una
cosa che succede solo a me o anche a qualcun'altro?. Se cosi non fosse da
cosa potrebbe dipendere? Se puņ essere utile il datamodule che utilizzo non
č quello standard ma un datamodule ereditato da quelli di base che mi sono
creato .
grazie Marco

Ciao,
succede anche a me, basta che ti ricordi di aprire prima il datamodule e
poile forms del progetto!
Se te ne dimentichi è probabile che perdi i datasource collegati ai
componenti visuali...
penso sia un bug...
bye max

Che versione di delphi?
Su 4CS succede che se in un form aggiungi alle uses un datamodule che non č
aperto, il form a volte non lo vede.
AS
"Se č Microsoft non funziona"

Newsgroup: it.comp.lang.delphi
Titolo: OT...o forse no. Clausole where per archivio superenalotto

Ho scaricato da uno dei tanti siti un archivio contenente le uscite del 
superenalotto del 2010, l'ho inserito in una tabella Firebird composta 
da 7 colonne, una per ogni numero (6+jolly).
Ora vorrei interrogare il db in modo tale che mi restituisca delle righe 
utili, si insomma da 6 numeri azzeccati in gi�.
Non so proprio come impostare le clausole per la Where. :-(
...un aiutino...
Many grazie.
Tanti auguri a voi tutti. :-D
Fed.

 Fed.
Cioe' vuoi estrarre tutti i records in cui hai azzeccato da 1 a 6 
numeri?
Credo che basti usare condizioni del tipo:
select * from TbSuperenalotto
where Num1 in (Col1, Col2, Col3, Col4, Col5, Col6, Col7) or
      Num2 in (Col1, Col2, Col3, Col4, Col5, Col6, Col7) or
      Num3 in (Col1, Col2, Col3, Col4, Col5, Col6, Col7) or
      Num4 in (Col1, Col2, Col3, Col4, Col5, Col6, Col7) or
      Num5 in (Col1, Col2, Col3, Col4, Col5, Col6, Col7) or
      Num6 in (Col1, Col2, Col3, Col4, Col5, Col6, Col7)

 Cioe' vuoi estrarre tutti i records in cui hai azzeccato da 1 a 6 numeri?
Non da 1 a 6, altrimenti verrebbe fuori una serie lunghissima di righe, 
bensï¿œ da 3 a 6, piï¿œ eventuale numero jolly, il cosiddetto 5+1.

 da 3 a 6, più eventuale numero jolly, il cosiddetto 5+1.
Cosi dovrebbe andare bene
select * from TbSuperenalotto
Where (Case When Num1 in (Col1, Col2, Col3, Col4, Col5, Col6, Col7) 
Then 1 else 0 +
       Case When Num2 in (Col1, Col2, Col3, Col4, Col5, Col6, Col7) 
Then 1 Else 0 +
       Case When Num3 in (Col1, Col2, Col3, Col4, Col5, Col6, Col7) 
Then 1 Else 0 +
       Case When Num4 in (Col1, Col2, Col3, Col4, Col5, Col6, Col7) 
Then 1 Else 0 +
       Case When Num5 in (Col1, Col2, Col3, Col4, Col5, Col6, Col7) 
Then 1 Else 0 +
       Case When Num6 in (Col1, Col2, Col3, Col4, Col5, Col6, Col7) 
Then 1 Else 0 ) between 3 and 6
Newsgroup: it.comp.lang.delphi
Titolo: Posizione assoluta di un componente

Ciao a tutti,
   sapete come fare per ottenere la posizione assolutra di un componente 
rispetto allo schermo ???
In pratica devo aprire una form sotto un TEdit contenuto in un pannello che 
a sua volta e' posto in una form.
Per ora procedo cosi' (per il top):
Prendo in considerazione il top della form, aggiuingo l'altezza dello spazio 
in cui si visualizza il titolo della form, sommo il top del pannello, sommo 
il top del TEdit con la sua altezza piu' qualche pixel di spazio.
Se ho la posizione assoluta del TEdit, semplifico il tutto.
Grazie, Daniele

 rispetto allo schermo ???
Puoi usare le funzione ClientToScreen nella unit windows.
ciao
Giacomo

Ciao,
  Grazie ... era questo che cercavo .....
Daniele

Newsgroup: it.comp.lang.delphi
Titolo: TRegistry.ReadBinaryData

Ho un problema, utilizzando il ReadBinaryData, che variabile devo passare al
secondo parametro che è dichiarato come "var Buffer" e basta?
Grazie, Poochie

 wrote in message
news:gW64b.278086$Ny5.8...@twister2.libero.it...

come non detto, risolto

Newsgroup: it.comp.lang.delphi
Titolo: Funzione data

In un TEdit dovrei richiamare la funzione DayOfMonth,come faccio a
richiamarla e dove la dichiaro?
Grazie per la risposta
Paolo

 richiamarla e dove la dichiaro?
prima di buttarti a postare sul NG, prima rifletti un attimo.
- come fai a scrivere/leggere il testo di un TEdit?
- che tipo di dato è quello restituito da DayOfMonth?
- quali sono le funzioni utili a convertire un tipo di dato numerico in una 
stringa?
- e viceversa?
-- 
Mauro Falzari 
   [ 
http://digilander.libero.it/mauro.falzari
 ]
 
 "Se guardi nell'abisso, anche l'abisso guarda in te." 
   (Friedrich Nietzsche)
Newsgroup: it.comp.lang.delphi
Titolo: Quale component TCP/IP per Delphi 7 e Kylix 3?

Stò disperatamente cercando un componente compatibile sia su Kylix 3 che su
Delphi 7 per le comunicazioni TCP/IP.
A me serve che scambi solo dati e (fondamentale) venga generato un'evento
quando ci viene inviato qualche dato (suppongo si dica che il componente
debba essere "asincrono"...ma non ne sono certo).
Tempo fà usavo SimpleTCP per delphi 7 ma non ho trovato nulla per Kylix.
Grazie anticipatamente
PS: Le indy non vanno bene...non viene generato alcun evento in lettura...

synapse?
A

Newsgroup: it.comp.lang.delphi
Titolo: Chiudere applicazione dopo un certo tempo su inattività utente o mouse tastiera

Cerco un esempio di codice su come chiudere l'applicazione nel momento in 
cui vi è assenza di operatività di mouse e tastiera dopo un certo intervallo 
di tempo. Questa chiusura poi dovrebbe avvenire con tempi diversi a seconda 
della fascia oraria del giornata ad esempio 8:00 - 14:00 l'intervallo di 
tempo prima della chiusura dell'applicativo in determinate condizioni ad 
esempio 2 ore, dalle 14:00 alle 20:00 intervallo di un ora, dalle 20:00 alle 
8:00 intervallo 10 minuti. Thanks
J. 

Devi crearti un hook per i messaggi WH_KEYBOARD e WH_MOUSE
Cerca nell'help SetWindowsHookEx - non è molto difficile, in più se 
l'hook è sullo stesso applicativo non dovrai crearti neanche una dll ma 
ingloba tutto nell'eseguibile


Nell'help non ho trovato nulla (??) ma in compenso ho trovato questo
http://experts.about.com/q/Delphi-1595/setWindowsHookEx-2.htm
l'ho avrai trovato pure tu, te lo dico per scrupolo.
ciao mario
--- posted by geoForum on 
http://www.delphiedintorni.it

>l'ho avrai (!!!!!!!!!) trovato pure tu, te lo dico per scrupolo.
scusate, la fretta ( lo avrai )

Newsgroup: it.comp.lang.delphi
Titolo: Maledetto Paradox!

Ciao a tutti,
per motivi che non non sto qui ad illustrare, devo purtroppo usare dei dbase
paradox in rete.
Qualcuno sa come posso far in modo di aggiornare sul server un db dopo una
modifica da
parte di un client senza dover aprire e chiudere (mediante un banale timer)
e poi effettuare un refresh?
Se nello stesso istante del refresh (caso improbabile, ma possibile)
qualcuno modifica un record, cosa succede con questo
mio sistema?
Si, lo so è meglio Interbase, ma non posso ($empre i $oldi in mezzo...)
grazie a tutti

Intendi refreshare le griglie di TUTTI i client quando uno di questi fa un
aggiornamento? oppure assicurarti che, quando un client va in edit, questi
abbia i dati aggiornati?
Nel primo caso, il consiglio e': EVITALO! intasi la rete in modo pauroso.
Nel secondo caso, basta un refresh della tabella in questione quando
l'utente va in edit (basta intercettare l'evento).
Ciao, Sandro

Con Paradox usato in rete locale avrai senz'altro problemi in modo random di
indici o tabelle corrotte, quindi se puoi passa ad un'altra base dati, come
Advantage o DBISAM (ti consiglio il secondo), evitando invece, se usi
tabelle e locate, findkey, ecc. accuratamente Interbase, a meno che tu non
voglia riscrivere da zero le tue applicazioni.
Ciao, Sandro

 Si, lo so č meglio Interbase, ma non posso ($empre i $oldi in mezzo...)
Firebird e' gratuito e le licenze di IB commerciale hanno dei prezzi
veramente ridicoli.
--------------------------------
Inviato via 
http://usenet.libero.it

 Paradox non e' molto poco adatto per lavorare in rete.
Ovviamente volevo dire:
"Paradox E' molto poco adatto per lavorare in rete"

Newsgroup: it.comp.lang.delphi
Titolo: Errore INNER-JOIN

Utilizzo Delphi 7 con ADO per interfacciarmi ad un database MDB.
Dove sbaglio se scrivo:
  query.SQL.add('select sum(D.qt) as max');
  query.SQL.add('from docBolleDett D inner join docBolle B on
D.idDocBolla = B.id');
visto che in fase di esecuzione mi da il classico errore:
   L'istruzione SELECT contiene una parola riservata o un argomento
scritto in modo errato ....
Grazie.

Se la fai da access hai lo stesso errore?
A.

 ha scritto nel messaggio 
news:f4fc406c-c4af-4a1b...@j21g2000vbn.googlegroups.com...


..zzzo! Non lo avevo notato... :-((
A.

max nelle query lo uso da sempre e vi dirò di più:
se metto la stringa
   select sum(D.qt) as max from docBolleDett D inner join docBolle B
on D.idDocBolla = B.id
nella proprietà SQL del mio componente AdoQuery a design-time
tutto funziona e non mi da errori, mentre quando poi avvio il mio
programma mi da errore
:-(

 max nelle query lo uso da sempre e vi dirò di più:
Che nulla toglie al fatto che è una keyword riservata già in sql-92, 
così come lo è in microsoft odbc, mysql, sybase... ma ad esempio non in 
postgresql che comunque ne sconsiglia l'uso in quanto potrebbero 
implementarlo "domani".
Perchè cercare di farsi del male a tutti i costi?
- 
http://savage.net.au/SQL/sql-92.bnf.html
- 
http://msdn.microsoft.com/en-us/library/aa238507%28v=sql.80%29.aspx
-- 
Design for the future, because it will be here sooner than you think.
(C) Eric S. Raymond, from "The Art of Unix Programming"

Avevate ragione :-D
e chiedo scusa per la mia insistenza :-D
Ho riscritto meglio la query
e tutto è tornato nella normalità
GRAZIE :-)
Newsgroup: it.comp.lang.delphi
Titolo: TStringArray come result ed Incompatible types

Salve.
Ho il seguente problema:
non capisco perchè quanto descritto ad esempio nell'articolo
http://www.delphi3000.com/articles/article_2616.asp?SK=
genera un errore in fase di compilazione di Incompatible types se
sposto in una diversa Unit la funzione che mi restituisce il
TStringArray.
Feccio un esempio stringato saltando parti di codice non influenti:
--------------------------------------------------------------
-Ho una unit dove dichiaro il tipo TStringArray:
unit MiaLib;
type
  TStringArray = array of string;
---------------------------------------------------
-Se io ho come nell'esempio citato sopra sia la funzione che la
variabile nella stessa unit tutto funziona regolarmente:
Unit MiaUno
uses MiaLib
function prova:TStringArray;
begin
//non faccio niente
end;
procedure TMioOgg.MiaProc;
var s:TStringArray;
begin
  s:= prova;
end;
----------------------------------------------------
-Il problema è che io tale funzione l'ho in un'altra Unit come segue:
Unit MiaDue
uses MiaLib
function prova:TStringArray;
begin
//non faccio niente
end;
-----------------
Unit MiaUno
uses MiaLib,MiaDue
procedure TMioOgg.MiaProc;
var s:TStringArray;
begin
  s:= prova;
end;
In questo caso il compilatore si ferma sulla riga
  s:= prova;
dando l'errore "Incompatible types" senza aggiungere altro.
Dove sbaglio?
Grazie

> Dove sbaglio?
sbagli a non studiare.
A.

 Dove sbaglio?
Non ho la possibilità di verificare perché non ho Delphi sottomano, al 
momento, ma non è che magari esiste già - nella VCL o in un altro file 
accessibile dal compilatore - un tipo identificato dal nome *TStringArray*?
Prova con <CTRL+click> sul tipo per vedere, partendo dalle due unit in 
questione, dove vieni trasportato dal Code Editor.
Ciao,
   Marco.
-- 
MARCO BREVEGLIERI
  (
http://www.marco.breveglieri.name
)

Giustissimo!!!
Che svista!!!!!
Grazie mille.
Effettivamente in un'altra unit era già stato dichiarato lo stesso
TStringArray.
Come un folle non ho aggiunto tale unit alle uses ma ho ricreato il
tipo.
Come perdersi in un bicchiere d'acqua :)
Grazie ancora.

Newsgroup: it.comp.lang.delphi
Titolo: Ordine dbgrid

Ciao a tutti io ho dei dati in una dbgrid ordinati per numero crescente...
io vorrei che la mia tabella mi mostrasse solo i 10 record con il numero più
alto.. è possibile?
Grazie 1000
-- 
Lorenzo Mendini Iz2FOS
ICQ: 26993628 (Ayrton)
http://www.polopositivo.org
 (Home Page)

Grazie 1000
	Ciao
	MassimoB
 

la tabella č "alimentata da una query.... l'ordinamento l'ho fatto via "sql"
potresti dirmi come fare a prendere i primi 10 record con il numero piů
alto?
Grazie 1000

 Grazie 1000
ciao
   gabriele

Si scusa mi sono perso una cosa: coe databvase è normalissimo Tdatabase1.

Si scusa mi sono perso una cosa: coe databvase è normalissimo Tdatabase1.
Quindi usi i componenti BDE?
Sii un pò più prolisso plz :)
	Ciao
	MassimoB
 

si è un componente BDE.......

si è un componente BDE.......
una via per risolvere il tuo problema è:
supponenso che il campo su cui vuoi l'ordinamento abbia
nome "NumeroClick" (Intero) e che la query si chiami
"QueryTopTen"
La query avrà un'SQL del genere
SELECT NumeroClick, ... , ... From NomeTabellaDB ORDER
BY NumeroClick DESC;
poi Nell'evento AfterOpen della query piazzi questo
codice del genere:
Var   
  I: Integer; 
  MaxNumberRecords: Integer;
  Max: Integer;
  Min: Integer;
Begin
  MaxNumberRecords := 10;
  Max := 0;
  Min := 0;
  QueryToTen.DisableControl;
  Try
    QueryTopTen.First;
    Max := QueryTopTen.FieldValue["NumeroClick"];
    For I := 1 To MaxNumberRecords Do
    Begin
      If QueryTopTen.Eof Then 
	Break;
      QueryTopTen.Next;	
    End;
    QueryTopTen.Prior; 
    Min := QueryTopTen.FieldValue["NumeroClick"];
    QueryTopTen.Filtered := false;
    QueryTopTen.Filter := 'NumeroClick <= '
			  + QuotedStr(IntToStr(Max))
			  + ' AND NumeroClick >= '
			  + QuotedStr(IntToStr(Min));
    QueryTopTen.Filtered := true;
  Finally 
    QueryToTen.EnableControl;
  End;
End;
/* Poichè questo codice l'ho scritto di getto e non in
delphi potrebbe avere degli errori "ortografici"
cogline la "filosofia" :)  */
Anche se potrebbe non tornare sempre precisamente 10
record ma ritorna una numero di record variabile che
rientra nei limiti dei valori di NumeroClick che vanno
dal valore più alto al valore del decimo in ordine
decrescente.
Se avessi una chiave primaria dei record sarebbe tutto
più preciso ... :)
	Ciao
	MassimoB
 

perfetto funziona pefettamente. Grazie 1000

 ha scritto nel messaggio
news:JFXcc.26101$hc5.1...@news3.tin.it...


 ha scritto nel messaggio
news:JFXcc.26101$hc5.1...@news3.tin.it...


 ha scritto nel messaggio
news:JFXcc.26101$hc5.1...@news3.tin.it...
