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

 
          Buongiorno a tutti!
Ho un piccolo problema. Ho una dll (compilata in c++) che esporta una
classe. Ora vorrei importare la classe in un'applicazione Delphi.
Ho letto in giro che non è possibile... ma mi sembra strano. In giro non
trovo niente sull'argomento.
Qualcuno può darmi una mano?
Grazie,
Cosimo.
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

> Ho letto in giro che non è possibile... 
...salvo si tratti di un com/activex.
altrimenti credo anche io che non sia possibile.
Questo lo puoi fare solo su .Net usando reflection et simila.
AS


Gia... in molti siti sconsigliano di usare le dll; al loro posto utilizzare
package... in tal modo non avrei problemi.
Il problema è che ho dll... :)


classe. Ora vorrei importare la classe in un'applicazione Delphi.
Il problema è che una classe Delphi e una classe C++ possono essere molto
diverse quanto a struttura interna. Quando il compilatore genera le
chiamate, deve sapere com'è fatta questa struttura. Borland C++ Builder
può chaimare classi Delphi ma "sa" come sono fatte.
Meccanismi come COM o CORBA "virtualizzano" questa struttura per tutte le
parti in gioco, e assicurano che le chiamate e i passaggi di parametri
siano corretti.
Un possibile workaround potrebbe essere quello di scrivere un'altra DLL in
C++ che faccia da facade per la DLL con la classe, esponendo funzioni
invece di metodi, e con due funzioni per istanziare/distruggere l'istanza.
Luigi D. Sandon - D&amp;D Support Team
--- posted by geoForum on 
http://www.delphiedintorni.it

Newsgroup: it.comp.lang.delphi
Titolo: Timage, coordinate cursore e hint

ho un Timage e voglio che nell'hint mi compaiano le coordinate (la X) del cursore quando sposto il mouse.
nell'evento onMouseMove ho messo questo codice
image.hint:=inttostr(X)
purtroppo l'hint sembra avere un ritardo in quando non si aggiorna come dovrebbe
come mai?


La visualizzazione dell'hint non è immediata ed è destinato a uno scopo leggermente diverso da quello che stai utilizzando tu.
 
Però potresti piegarlo al tuo scopo usando il componente *TApplicationEvents*.
 
Prova a leggere questo articolo per qualche spunto:
http://zarko-gajic.iz.hr/have-hints-for-some-delphi-controls-stay-longer-control-specific-hint-hide-timeout-values/
 
 
Ciao,
  Marco.
 
-- 
MARCO BREVEGLIERI (Software and Web Developer)
#Home: 
http://www.marco.breveglieri.name
 
#Blog: 
http://www.compilaquindiva.com
 
#Podcast: 
http://www.delphipodcast.com
Newsgroup: it.comp.lang.delphi
Titolo: Aiuto stampante!

Salve, qualcuno sa come si fa a leggere i dati della porta parallela da
delphi?
o + semplicemente usare _PORT_INFO_3 per capire in che stato è la stampante?
grazie
--
Lord Zyx °°(0oo0)°° --- 
lor...@lordzyx.it
www.lordzyx.it

"LOrd ZYx" ha scritto nel messaggio
| + semplicemente usare _PORT_INFO_3 per capire in che stato è la
stampante?
|
Non ho mai provato, ma per conoscere lo stato della stampante credo che tu
debba usare l'APi GetPrinter con la struttura PRINTER_INFO_2.
Vedi l'help per maggiori informazioni.
--
Ciao.
ACSH
[D4]
---------------------------
Chi fa da se'
fatica il doppio
Newsgroup: it.comp.lang.delphi
Titolo: funzione EURO

come faccio a creare un funzione generica che mi trasformi i campi di tipo
numerico/float in EURO (e viceversa) all'interno della mia form???
Penso che prima dovrei leggere il valore assegnato a tutti i campi delle
tabelle che mi servono, in modo da sapere quali campi contegnono valori che
possono essere convertitti in Euro e poi fatto questo credo che dovrei
applicare una funzioncina....(non è che per caso c'è qualcuno che può darmi
una mano???)
Grazie,
Alberto

 numerico/float in EURO (e viceversa) all'interno della mia form???
Hai tutti gli importi in lire sul db?
Saranno sempre in lire sul db?
Se è così, puoi farlo o direttamente sul db o specificare
qualcosa nella sintassi della query...
 
Saluti
AS
-- 
Posted from  [212.177.19.163] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

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

ciao a tutti, una domanda semplice semplice:
voi che profiler usate diciamo con delphi 5 o bcb 4
io ero abituato al turbo profiler e mi piaceva tantissimo, ora sono
costretto a "profilare"son win 9x
e non so che cosa si usa normamente
ciao
grazie

 wrote in message
news:9qk29n$8g2$1...@serv1.albacom.net...

PRODELPHI.
Efficace.

il biscia wrote:

gpProfile che e' freeware o Z Profiler

Newsgroup: it.comp.lang.delphi
Titolo: itemindex radiogroup scatena evento ????

Scusate ma se da codice cambio il valore di ItemIndex di un RadioGroup 
questo scatena l'evento associato OnClick ma come è possibile ? Non 
dovrebbe per nulla fare una cosa del genere no ??? Ho cambiato qualcosa 
che non dovevo ??
Daniele

Daniele
Andrea
Andrea Raimondi
http://codecentral.borland.com/codecentral/ccweb.exe/authors
--- posted by geoForum on 
http://www.delphiedintorni.it

Dan ha scritto:

E' il comportamento corretto... se vuoi evitare questa cosa devi fare
RadioGroup.OnClick := nil;
RadioGroup.ItemIndex := x;
RadioGroup.OnClick := RadioGroupClick;
(ovviamente sostituisci RadioGroup con il nome del tuo RG...)
Non è bello ma funziona.
-- 
Jax

 
Ah ah ha ok ok grazie e che leggendo nella guida di Delphi (solo la 
proprietà in oggetto) non ho visto nulla a riguardo di questo 
comportamento e quindi mi sono spaventato un pò.
Grazie moltissime delle spiegazioni.
Daniele
Newsgroup: it.comp.lang.delphi
Titolo: textfile

perchè questa procedura mi restituisce un
errore I/O Error 103(cioè file non aperto)
nella riga Writeln?
Come devo fare per aprire un file di
testo ed appendere delle stringhe?
Grazie in anticipo..
var F:TextFile
begin
  AssignFile(F, nomefile);
  Rest(F);
  Writeln(F,'prova');
  CloseFile(F);
end;

RG wrote:
[CUT]
var F:TextFile
begin
  AssignFile(F, nomefile);
  Rewrite(F);
  Writeln(F,'prova');
  CloseFile(F);
end;
Il comando Reset apre un file in lettura. Per poterci scrivere devi usare 
il comando Rewrite che se non esiste lo crea, se esiste lo cancella e poi 
lo crea.
La variabile globale FileMode (che regola il tipo di accesso ai file) non 
e' valida per i file di testo.
-- 
Ciao,
   Stefano

 ha scritto nel messaggio
news:as05on$lqo95$2...@ID-154342.news.dfncis.de...


 l'accesso da entrambe le procedure?
[CUT]
Non ho capito cosa devi fare. Perche' non posti le due procedure e mi 
spieghi meglio?
-- 
Ciao,
   Stefano

 ha scritto nel messaggio
news:as07jq$mtggm$1...@ID-154342.news.dfncis.de...


Newsgroup: it.comp.lang.delphi
Titolo: Programma nel menù a tendina

Salve a tutto il NG.
Avrei bisogno di inserire un mio programma nel menů a tendina che si apre
clikkando col tasto destro su un file. (Un pň come Winzip).
Sapreste aiutarmi?
Grazie,
Paolo.

"BerserKer" ha scritto nel messaggio
| Avrei bisogno di inserire un mio programma nel menů a tendina che si apre
| clikkando col tasto destro su un file. (Un pň come Winzip).
|
| Sapreste aiutarmi?
Non e' semplice: come Pacheco e Teixeira insegnano,
devi implementare le interfaccie IShellExtInit e
IContextMenu.
Prova a cercare su 
http://www.tamaracka.com/search.htm
questi due termini, forse trovi qualche esempio completo.
--
Ciao.
ACSH
[D4]
---------------------------
Chi fa da se'
fatica il doppio

 wrote in message
news:%VTq9.5755$o7.2...@news2.tin.it...

Se vai sul sito di Macro Cantů (
www.marcocantu.it
 /.com) nel code reposity
di Mastering Delphi 6, capitolo 19 (COM Programming) c'č un esempio che
dovrebbe fare al caso tuo (ShCut)
Saluti

Grazie dei consigli!
Ciao.

 di Mastering Delphi 6, capitolo 19 (COM Programming) c'è un esempio che

Newsgroup: it.comp.lang.delphi
Titolo: aggancio database

Salve a tutti,
ho sviluppato una piccola applicazione, che una un database access, quindi
ho usato componenti ADO.
Mi chiedevo, adesso la mia applicazione si trova nell'unita F:\cartella, ma
sei in dovessi spostarla o fare un setup di questa applicazione, si
installarebbe sotto C:\.
Di conseguenza non mi rileva il database, come posso fare ?
Premetto che ho usato il componente TADOConnection e ho inserito la stringa
pe r connettere il database.
aiutatemi.
-- 
Daniele Napoli
s_mu...@tin.it

 Di conseguenza non mi rileva il database, come posso fare ?
Metti la stringa di connessione in un file esterno e all'apertura del
progetto la imposti a runtime sull'oggetto adoconnection: in questo modo non
hai problemi:
procedure TForm1.FormCreate(Sender: TObject);
var ft: TextFile;
    ep: String;
    cnlcl: String;
begin
    ADOConnection1.Close;
    ep := ExtractFilePath(Application.ExeName);
    AssignFile(ft, ep + 'DbConnection.txt');
    try
        Reset(ft);
        Readln(ft, cnlcl);
    finally
        CloseFile(ft);
    end;
    if Trim(cnlcl) <> '' then
    begin
        ADOConnection1.ConnectionString := cnlcl;
        ADOConnection1.Connected := True;
    end
    else
        raise Exception.Create('Errore nella stringa di connessione ADO
locale');
end;
Saluti
        Marco Bortolani
        info @ 
marcobortolani.it

ma

ottimo metodo ma mi sa che non risove il problema  ...
Il problema credo che sia la arbitrarietà della dir di
installazione. Lo risolverebbe solo nel caso che, ad
ogni istallazione, dopo che l'utente ha deciso qual'è
la cartella di installazione, ricreassi il file TxT con
la stringa di connessione corretta.
Io userei o una stringa di connessione con percorso
della sorgente dati relativo
Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=data/db1.mdb;Persist Security Info=False
dove la tua applicazione all'installazione crea una
cartella data nella dir di install con dentro il DB.
Poi questa stringa può anche andare in un file di testo
come dice Marco che sicuramente è un ottimo metodo.
Oppure generi la stringa di connessione a runTime
utilizzando ExtractFilePath(Application.ExeName) per
conoscere la cartella di installazione.
ADOConnection.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;'
  +'Data Source='
  +ExtractFilePath(Application.ExeName)
  +'data/db1.mdb;Persist Security Info=False';
Spero di aver interpretato bene le parole di Danievile
e Marco ... in caso contrario non "me ne vogliate male"
;)
Ciao MassimoB
---------------------------
http:\\
www.massimobeschi.it
Newsgroup: it.comp.lang.delphi
Titolo: Compatibilità da Delphi 2005 a Delphi 2007 for Win32

Salve,
se volessi effettuare un upgrade da Delphi 2005 a Delphi 2007 for Win32,
a quali problemi di compatibilità andrei incontro relativamente ai sorgenti
realizzati con Delphi 2005 ?
Chiaramente chiedo il parere in base alla propria esperienza, sempre che
ci sia qualcuno che abbia eseguito un upgrade diretto da 2005 a 2007.
Grazie anticipatamente,
Riccardo
-- 
* Immolo - Portale immobiliare
* 
http://www.immolo.it

 Riccardo
Se hai usato solo liberie fornite con Delphi forse anche nessuna modifica
(hai ustao Indy 9?), se hai usato librerie di terze parti devi verificare
il caso specifico.
Ciao
 

 realizzati con Delphi 2005 ?
Dovresti indicare qualche informazione in più in merito al tuo progetto, 
come è organizzato, quali componenti utilizza, su quali piattaforme si 
basa (per l'accesso ai dati, ad esempio) e così via per ottenere 
informazioni specifiche, poiché possibili problemi di compatibilità 
dipendono principalmente da questi fattori.
Ciao,
   Marco.
-- 
MARCO BREVEGLIERI
  (
http://www.marco.breveglieri.name
)

 ha scritto nel messaggio 
news:47d44e29$1...@news.x-privat.org...

Ok, hai ragione... ecco un sunto.
Si tratta di un gestionale WIN32 su database Firebird gestito attraverso 
dbExpress.
In linea di massima, i componenti ricorrenti a parte quelli più classici e 
banali
sono TSQLDataset, TProvider, TClientDataset, TDataSource.
Utilizzo abbastanza massicciamente anche i componenti JEDI (JCL/JVCL).
Per interfacciarmi con Crystal Report ho anche dovuto far generare dei 
componenti/unit
partendo dalle DLL di Crystal Report dato che su Delphi 2005 per WIN32 non 
esisteva
alcun componente di comunicazione per interfacciarsi con i Report RPT (esite 
per .NET).
In uno o due moduli utilizzo anche un componente TZipMaster ed i componenti 
Indy
principalmente per effettuare download di files via FTP.
Grazie,


 principalmente per effettuare download di files via FTP.
Non conosco il componente *TZipMaster*. :-|
Per quanto riguarda i componenti Indy, è possibile che tu debba migrare 
da una versione precedente alla più recente, ma nel sito ufficiale è 
presente la documentazione relativa con un documento che descrive le 
modifiche più ingenti da apportare (dipende dalle versioni che hai 
utilizzato).


 ...
Ok, grazie sei stato molto gentile e preciso.
;)

Newsgroup: it.comp.lang.delphi
Titolo: Applicazione in background

ciao a tutti scusate se disturbo :-)
mi sono avvicinato da poco a Delphi e vorrei sapere se è possibile far
girare un'applicazione in background.
Sto creando un'applicazione per l'invio e la ricezione dei fax e sto usando
il componente della turbopower Async Professional. Tale apllicazione deve
girare sotto win 95/98/me/2k/nt e mi serve che resti in background nella
fase di ricezione dei fax.
Se potete dare una mano vi sarò immensamente grato.
--
ciriciao
Casty

...concordo con alemin, ridurre ad icona la propria applicazione è un'ottima
soluzione e ti consente di richiamarla in qualsiasi momento con un semplice
click sull'icona nella tray area.
vai su 
www.torry.net
 e cerca CoolIconTray e dagli un'occhiata, adesso lo uso
anche io e va che è un amore!!! :)
Massimiliano Etere
maxe...@infinito.it

girare un'applicazione in background.
"Girare in backgound" non ha molto senso sotto Windows.
Windows e' un sistema multitasking e ogni task gira in
background rispetto a tutti gli altri.
Se ti stai riferendo alla tray area, ci tengo a dirti che le
applicazioni che lasciano un'iconcina in quella zona dello
schermo, non girano "in background", ma sono solo "nascoste"
alla vista dell'utente.
--
Andrea Laforgia - walkietalkie(at)
libero.it
http://www.geocities.com/AndreaLaforgia

> Sto creando un'applicazione per l'invio e la ricezione dei fax e sto
usando il componente della turbopower Async Professional. Tale
apllicazione deve girare sotto win 95/98/me/2k/nt e mi serve che resti
in background nella fase di ricezione dei fax. <<
dovrai se non ricordo male installare driver diversi a seconda del so
target (visto che il driver per NT e' diversio da quello per 9x).
Inoltre mi pare ci fosse qualche problema anche nel passaggio dal nt a
2k.
cmq, il supporto della TurboPower e' imho eccellente
(
news.turbopower.com
) turbopower.public.support.apro.fax per tutto cio'
che riguarda i componenti per faxare.
Quanto all'avere l'app. "in background" sottoscrivo il consiglio di
tenere cmq qualcosa di visibile nella tray area. Una volta che hai
sviluppato e testato l'app basta droppare uno dei componenti che ci sono
in giro sulla main form e il gioco e' fatto.
Se invece intendi che i componenti Apro ti mostrano una form quando il
modem sta ricevendo un fax, sono sicuro che esiste una proprieta'
(magari runtime-only) che disabilita la visualizzazione della form
(StatusDisplay?).
Saluti
Paolo Arosio
Newsgroup: it.comp.lang.delphi
Titolo: TTabControl - Come colorare le "linguette"

Innanzi tutto buona giornata a tutto il NG...
Avrei un quesito da porvi:
è possibile colorare le "linguette" del TabControl?
NB: il TabControl si colora tranquillamente ma le linguette mi rimangono 
griglie, come posso fare per utilizzare lo stesso colore ovunque?
Grazie di nuovo
--- posted by geoForum on 
http://www.delphiedintorni.it


mettendo OwnerDraw a true (sul tab control) e lavori nell' evento drawtab
es.    control.Brush.Color:=clred;      le colora di rosso
Giulio

Ok , mettendo OwnerDraw a true risolvo il mio problema (il colore diventa 
giusto) ma se ne crea un'altro: non mi si visualizzano le scritte nelle 
liguette...
Come risolvo questo?
Grazie 

--- posted by geoForum on 
http://www.delphiedintorni.it

 Come risolvo questo?
siccome Owner Draw significa all'incirca "disegno proprietario", implica che 
puoi disegnarti tutto tu, quindi anche le scritte.
Per scrivere del testo si usa la TCanvas.TextOut (o TextRect), tipo così:
procedure TForm1.TabControl1DrawTab(Control: TCustomTabControl;
  TabIndex: Integer; const Rect: TRect; Active: Boolean);
begin
  with Control.Canvas, Font do
  begin
    Size:= 12;
    Style:= [fsBold];
    Color:= clRed;
    TextOut(6, 3, 'ciao');
  end
end;
-- 
Mauro Falzari 
   [ 
http://digilander.libero.it/mauro.falzari
 ]
 
 "Se guardi nell'abisso, anche l'abisso guarda in te." 
   (Friedrich Nietzsche)

 ha scritto nel messaggio
news:vcTcc.27646$jY1....@tornado.fastwebnet.it...



Allora , se metti OwnerDraw a true , se tu che ti preoccupi di 'disegnare'
l'oggetto.
Quindi sei tu che devi scriverci o disegnarci dentro (vedi "canvas").
Comunque ecco uno spunto ...
case tabindex of
 0 : control.Canvas.TextOut(rect.Left+2 ,rect.Top+2,'pippo');
 1 : control.Canvas.TextOut(rect.Left+2 ,rect.Top+2,'pluto');
end;
come vedi rect viene passata all'evento e contiene le coordinate del tab che
viene "disegnato".
TabIndex contiene invece il numero del tab ( 0 . 1 . 2  ecc.).
Buona esplorazione delle possibilita .....
Giulio

Lo supponevo (mi tocca scrivermi tutto)... ma siccome ultimamente sono 
MOLTO MOLTO sfaticato speravo di trovare qualcosa di più rapido.
COMUNQUE GRAZIE A TUTTI


 COMUNQUE GRAZIE A TUTTI
MA COME, prima ci chiedi aiuto e poi una volta avuto, lo rifiuti :-) ....

Newsgroup: it.comp.lang.delphi
Titolo: Convertire da Db in DBF

Ho la necessita´ di convertire una serie di tabelle da Paradox in DBF per poter
usare una vecchia applicazione. Ho provato a definire due TTable, a copiare la
lista dei campi dalla tab origine a quella destinazione, ed ho trimmato i campi
a 10 caratteri. Copio tutta la tabella (con uno scifido for)(c´e´ un modo +
efficiente?), vedo la tabella in una dbgrid, ma se apro la tabella creata con il
DBU (utilitz clipper) mi da´ un errore di tabella corrotta. Qualcuno che ha
fatto una cosa simile, mi puo´ aiutare?.
--
/* Angelo Pampalone                  *
 * Giovacchini S.C.A R.L.            *
 *                                   *
 * 
ap.giova...@mail.omnitel.it
 *
 * togli ZzZ se vuoi email-armi      */

 wrote in message
news:cvas1tkdqh6djejfj...@4ax.com...

Devi usare il componente BatchMove con il quale trasferisci i record della
tabella Paradox in una nuova tabella DBF creata con gli stessi campi.
Ciao e Buon Lavoro
Luigi Maestrale
nord...@iol.it

Se hai la versione enterprise puoi usare anche il DataPump
Massimo
m.m...@bigfoot.com
Newsgroup: it.comp.lang.delphi
Titolo: Blob field

Salve ragazzi,
sto sviluppando un'applicazione che tra l'altro archivia delle immagini
all'interno in un database (MySql acceduto tramite BDE).
Nel caso le immagini superino i 63Kb esse mi vengono troncate.
(debbuggando il programma ho notato che la funzione CopyFrom
effettivamente ritorna il numero di bytes totali dell'immagine copiata.
In ogni caso nel database ho un campo valorizzato a 63Kb).
Qualche idea in merito?
Grazie.
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 Grazie.
Risolto:
se puň essere d'aiuto a qualcuno.
Il tipo blob di MySql gestisce campi di lunghezza massima non superiore
ai 64Kb. Per lunghezze superiori č preferibile longblob.
Ciao.


Newsgroup: it.comp.lang.delphi
Titolo: [ADO] Errore in un'operazione composta da più passaggi

Succede che durante operazioni (anche semplici) su file mi viene fuori il
messaggio di errore EOLEEXCEPTION "Si sono verificati errori in
un'operazione composta da più passaggi. Controllare i singoli valori di
stato'.
  Domanda: Da cosa piò dipendere questo errore, come posso debuggarlo e come
posso risolvere il problema....
Ciao.

Grazie per aver risposto, ma non penso sia questo il mio caso. Ci sono altri
suggerimenti?
"Fabio V." <nos...@ecspam.ah> ha scritto nel messaggio
news:9aXma.17868$LB6.4...@news1.tin.it...


suggerimenti?
Ci sarebbero se ci fornissi piu' informazioni: codice incriminato, tipi di
dati, punto preciso dell'errore (post?refresh?requery?), se usi tabelle o
query, quanti caffe' bevi in una giornata, se ieri hai mangiato spaghetti o
riso.... ;)
Ciao
-- 
Morde. 
morde[at]programmer[.]net

 Il problema era che tentavo di assegnare stringhe piů lunghe della


Newsgroup: it.comp.lang.delphi
Titolo: domanda su DBISAM

Vorrei sapere come ricostruire
un indice danneggiato .IDX con DBISAM.
o come costruirlo da zero se cancellato
Grazie
--
Carlo


http://www.elevatesoft.com/manual_Verifying_Repairing_Tables.htm
Ciao
Gello

 ha scritto nel
messaggio news:PqVrb.4174$hV.2...@news2.tin.it...

Grazie comunque !!
Ma la domanda è precisa.
Non ho un file danneggiato, ma un indice danneggiato.
Faccio un esempio "assurdo" per spiegarmi meglio.
Ho una tabella con un indice.
Salvo da qualche parte l'indice.
Faccio un aggiornamento alla tabella.
Ricopro l'indice con il precedente salvato.
Succede che nel file il dato c'è ma non lo vedo
perchè l'indice attuale "non sa" che ho aggiunto un record.
Tutte le funzioni dbisam continuano a funzionare, senza errori apparenti.
Come ricostruire l'indice ?
Grazie a tutti

> Come ricostruire l'indice ?
con il DBSYS, usando l'opzione Repair.
Ciao, Sandro
Newsgroup: it.comp.lang.delphi
Titolo: Ecco quello che sono riuscito a trovare sull'ia.

Ecco quello che sono riuscito a trovare sull'ia.
Grazie a tutti ma penso si possa trovare ancora di più. Quindi vi
rinvito a segnalarmi ogni cosa attinente.
Hofstadter"Godel ,Escher,Bach" [BASILARE]
      Hofstadter D. L'io della mente
      Mazzoli G. L'ambigua frontiera del virtuale
      Mazzoli G. Profili sociali della comunicazione e nuove
tecnologie
      Boccia Artieri G. Lo sguardo virtuale
www.vialattea.net
\odifreddi\sommario.html  [pare non funzionare]
http://newk.alma.unibo.it/oscar
www.davassi.freeweb.org
 .[Sulla Macchina di Turing] TESI COMPLETA!
http://members.tripod.it/pomas/artintro.htm
http://www.eloisa.it
http://digilander.iol.it/newtech/ailab
   sito sull'IA, introduce vari
aspetti e contiene molti links a siti + specifici
http://www.ce.unipr.it/people/poggi/teaching/ia/
 
www.aimovie.com
 vai
a "parlare" con Alice, una Bot che
interagisce (molto bene) con l'utente: provare per credere !
http://ai.about.com/compute/ai/
Ecco tutto. Grazie mille
felis

 ha scritto nel messaggio
news:9ep6cd$2ur$5...@lacerta.tiscalinet.it...


Newsgroup: it.comp.lang.delphi
Titolo: DISTRIBUZIONE DI UNA APPLICAZIONE (???)

Qualcuno mi sa indicare quali sono i passaggi per generare un dischetto
autoinstallante di una applicazione (molto elementare) fatta con Delphi 4
Client/Server?
Grazie per i consigli.

 wrote in message
zzgs4.31971$317.3...@news.infostrada.it...

Newsgroup: it.comp.lang.delphi
Titolo: aprire un nuovo messaggio del client di posta

Ciao a tutti,
ho creato una applicazione in delphi7 che genera un report in formato PDF,
ed ho necessità di inviare questo file in allegato con un'email.
Come posso aprire un nuovo messaggio del client di posta predefinito con già
presente in allegato il file PDF?
Inoltre, sempre con la stessa applicazione, devo aggiornare un sito web,
facendo l'upload direttamente dall'applicazione. Come posso fare?
Spero di non chiedere troppo
Salutoni
Bernie

 web, facendo l'upload direttamente dall'applicazione. Come posso fare?
Presumo che tu lo aggiorni via FTP, in tal caso devi usare idFTP.
--
Jax
Journeying Artificial Xenomorph

 componente idSMTP.
questa è l'alternativa se non vuoi mapi e per astrarsi dal client usato.
Ciao
-- 
Fabrizio Mancini - <f[.]mancini[@]tin[.]it> 03/11/2003 16.31.34
Open Delphi Manual (
http://groups.yahoo.com/group/delphi_open_manual/
)

 un'altro discorso ;-))
No, niente desunzioni :) Ho detto OE per fare da premessa al fatto che,
anche se con OE si fosse potuto, sarebbe stata una soluzione legata ad uno
specifico client; cosa che, salvo situazioni particolari, non è auspicabile.
In fondo lo sforzo di mandare una mail dalla propria applicazione è ripagato
dall'indipendenza di quest'ultima dal software di terzi.
Ovviamente alla fine la valutazione dei pro e dei contro e la decisione
spetta allo sviluppatore, perché solo lui sa a cosa gli serve.
Con la mia soluzione si ha un'applicazione indipendente;
con un client di posta esterno si hanno altre possibilità quali
l'archiviazione nella "posta inviata" del client.


Vi ringrazio per le risposte e la celerità. Ovviamente intendevo il client
di posta che l'utente ha indicato come predefinito.
Mi serve il client di posta per poter tenere traccia delle email inviate,
cosa che non ottengo se utilizzo un componente come idSMTP
Bernie

 inviate, cosa che non ottengo se utilizzo un componente come idSMTP
Brutto affare allora. Purtroppo (o per fortuna) ogni client prevede
comportamenti diversi e, siccome non sai a priori che client usa il tuo
utente medio, mi sa che ti dovrai accontentare di un idSMTP; magari puoi
tener traccia tu stesso nel tuo programma delle mail inviate.
Prova a dare comunque un'occhiata alle MAPI, ma su queste io passo la mano
:)
--
Jax
Newsgroup: it.comp.lang.delphi
Titolo: Impostare IP e Gatewary

Cia oa tutti, ho un problema con un piccolo tool che sto facendo. In
pratica devo cambiare le proprietą di rete impostando l'ip il gateway la
subnet e il dns, ho trovato una soluzione con i comandi dos da riga di
comando solo che al riavvio della macchina si perde il tutto.
Qualcuno ha idea di come impostare il tutto senza passare dal dos??
Grazie e ciao!
--- posted by geoForum on 
http://www.delphiedintorni.it

 Grazie e ciao!
Sistema operativo?
Comunque, e' una domanda piu' adatta a it.comp.programmare.win32
Ciao
ACSH
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

Ciao, la domanda é riferita a windows xp sp1 e sp2
Grazie e ciao


 Cia oa tutti, ho un problema con un piccolo tool che sto facendo.
Sparisci troll.


Newsgroup: it.comp.lang.delphi
Titolo: Perche my inno setup non funziona?

Ho copiato i sorgenti in una cartella
ma  non funzionano mi dice che mancano
files cosa debbo fare?
Grazie 10000

 files cosa debbo fare?
Che risposta si puo' dare ad una domanda del genere e posta in questo modo?
Oddio, una risposta ci sarebbe, ma potrei ritrovarmi una querela sopra per
averla data ;)
Ciao, Sandro

 ha scritto nel messaggio
news:8u3oui$n6k4$1...@ID-43509.news.dfncis.de...


> Grazie 10000
se non circostanzi la tua domanda, non dici che versione di Delphi, che
genere di messaggio di errore, e facendo che operazione, la risposta e'
forse meglio chiederla al Mago di Arcella e al suo pendolino ;) ..comunque
di solito ci sono degli ottimi help & faq nei siti o nei componenti, e c'e'
anche l'email dell'autore normalmente per quesiti tecnici. Buon lavoro.
Ciao, Sandro

 ha scritto nel messaggio
news:8u5afq$r2u4$1...@ID-43509.news.dfncis.de...

Newsgroup: it.comp.lang.delphi
Titolo: Delphi Personal uso commerciale

Buonasera,
ho appreso che la versione personal di Delphi non può essere utilizzata per
fini commerciali;
in altre parole, non è possibile realizzare programmi da vendere per trarne
vantaggio economico.
Cortesemente, qualcuno può darmi informazioni esatte?
Cordialità.
Toni

Cortesemente, qualcuno puň darmi informazioni esatte?
Le informazioni di cui sei in possesso _sono_ esatte.
Con Delphi 6 non puoi produrre codice destinato a usi commerciali.
-- 
Andrea Laforgia
#exclude <windows.h>

 Con Delphi 6 non puoi produrre codice destinato a usi commerciali.
Puramente a scopo informativo, anche se ho curiosità di sapere la
provenienva di un file che mi hanno dato, si può risalire dall'eseguibile in
qualche modo se lo stesso è stato creato con delphi o altri linguaggi? E nel
caso fosse fatto con delphi, si può capire anche la versione usata per
compilare?
Grazie :)

 compilare?
si! E' possibile per via di alcune costanti all'interno dell'exe.

 ha scritto nel messaggio
news:4TC_9.68799$YG2.1...@twister1.libero.it...


Ho letto che la versione personal non puņ essere impiegata per usi
commerciali ma non mi č chiara una cosa.
Se io ho una azienda e mi scrivo un programma in delphi con la
versione personal, il programma non viene venduto perņ mi serve per la
mia azienda quindi tramite esso incremento i miei profitti, si puņ
considerare ugualmente un fine commerciale anche questo ?
Daniele

qualche modo se lo stesso è stato creato con delphi o altri linguaggi? 
Teoricamente no, però generalmente ogni compilatore lascia delle
tracce tipiche nel compilato, quindi si può risalire facilmente ad
esso.  Per esempio, con il vecchio Turbo C, veniva riportato il
copyright Borland nei file eseguibili.


considerare ugualmente un fine commerciale anche questo ?
A mio avviso sě.  Lo scopo commerciale č quello che prevede l'uso del
programma ai fini di una _produzione_ che ti porti dei profitti.  E`
un pň come la distribuzione di Oracle per gli sviluppatori (che č
gratuita), ma non puoi usare la stessa distribuzione di Oracle per
gestire i dati aziendali.



E con le versioni precedenti??
        BedBedrosian

> A mio avviso sě.  Lo scopo commerciale č quello che prevede l'uso del
Confermo non puoi utilizzare delphi per sviluppare software interno
all'azienda.
serve solo per uso informativo.
Newsgroup: it.comp.lang.delphi
Titolo: Errore

Siete mai incappati o avete mai sentito il seguente errore?
THE FILE IS NOT A VALID COMPOUND FILE

 THE FILE IS NOT A VALID COMPOUND FILE
No, però se ci dici quando ti compare...
--
Jax
Journeying Artificial Xenomorph

senza subject, senza codice, senza versione di delphi, senza alcuna info
riguardo il contesto nel quale si verifica l' errore.....
A

 ha scritto nel messaggio
news:SF8Ya.25045$an6.8...@news1.tin.it...

Lo so, sono stato un pò troppo sbrigativo...
Ho una procedura client/server scritta in delphi utilizzando i web services
e un db SQL Server 2000. Premesso che su un server (Win2000 A.S.)
funziona, ho configurato un secondo pc nello stesso modo, con l'unica
differenza
rispetto al primo che non è legato ad un dominio nt.
Dopo aver lanciato il client e inserito login e pwd per l'accesso,
torna questo benedetto messaggio di errore...
Sinceramente non so neanche se questo messaggio è OT, ma sto
cercando di capire da cosa potrebbe dipendere l'errore e se è legato
al sistema operativo, in qualche modo a delphi, oppure al db.

 THE FILE IS NOT A VALID COMPOUND FILE
Prova a dare uno sguardo su googlegroups, qualcosa ho trovato... vedi se ti
puņ aiutare.
http://makeashorterlink.com/?V24945285

Newsgroup: it.comp.lang.delphi
Titolo: Programmino che reagisce ad un pacchetto

Scusatemi per la richiesta un po' sempliciotta, ma non avendo mai trafficato
con il tcp/ip in delphi, sono un po' dubbioso sul dafarsi: dovrei fare un
piccolo programmino che sta nella tray (e fin qua :)) e, quando un computer
remoto lo "contatta", scriva su un db il suo hardware.
La parte misteriosa è la seconda: come faccio a dire al programmino tray che
deve ascoltare una porta tcp? E come faccio a sapere che è l'altro programma
che l'ha chiamato? E come.... ok, basta :)
--
Jax
Journeying Artificial Xenomorph

deve ascoltare una porta tcp? 
Guarda la suite di componenti Indy, c'č tutto quello che ti serve,
lato client e lato server.  Il "programmino" client viene "svegliato"
da un evento.

 da un evento.
Purtroppo conosco il significato del 2% di quella marasma di componenti:
signor Bonolis, non può darmi un aiutino? :)


 componenti: signor Bonolis, non può darmi un aiutino? :)
Che versione di Delphi hai?
Se hai la 6 Pro hai i componenti ServerSocket e ClientSocket che vanno
benissimo per fare qualche esperimento e provare, ma anche per cose un pò
più
complesse... gli Indy hanno un concetto dietro che non è proprio immediato.
Andrea

Purtroppo conosco il significato del 2% di quella marasma di componenti:
Prova a guardare il TClientSocket e il TServerSocket di serie con
Delphi.

 immediato.
Ho la 7. Ho visto che non sono propriamente per principianti, per questo ero
un po' perso.


 Delphi.
Ce l'ho fatta con gli indy e i relativi Command: mi stupisco ogni giorno di
più della semplicità di Delphi...

Newsgroup: it.comp.lang.delphi
Titolo: Problema con eccezioni

Ciao a tutti, ho questo codice:
            Try
              Readln (IDVP);
            Except On EInOutError: Exception Do
              Idvp := 100;
            End;
La variabile IDVP ad esempio � una variabile intera. Se viene inserito un 
valore non valido per IDVP (es: una stringa) dovrebbe senza interrompere 
l'esecuzione del programma assegnare alla variabile automaticamente il 
valore 100; purtroppo per� ci� non accade.
Ringrazio in anticipo chi pu� aiutarmi a risolvere questo problema e ne 
approfitto per augurare un buon anno.
Cooper. 


Ciao
la funzione ReadLn legge una riga di testo e poi va alla successiva.
(preso dall'help di delphi)
l'eccezione che hai scritto si verifica soltanto se c'è un errore di
lettura dal file (input/ output appunto).
Quello che devi fare è convertire il valore che trovi in IDVP in un
intero e in caso di errore mettere un default, cioe:
var I: Integer;
I:= StrToIntDef(IDVP, 100)
Ciao
Micky

 Micky
Ma infatti IDVP � gi� una variabile intera; se la convertissi in una stringa 
non ci sarebbe nessuna eccezione nel caso inserissi un numero.
 

 - Mostra testo citato -
prova così:
   Try
      Readln (IDVP);
   except
     on E: EConvertError do
        IDVP:= 100;
   end;
ciao
Micky

 Micky
e se l'eccezione � del tipo EInOutError ???
^_Goblin_^

 ^_Goblin_^
   Try
      Readln (IDVP);
   except
     on E: EConvertError do
        IDVP:= 100;
     on E: EInOutError do
        IDVP:= 100;
     else
         Raise
   end
Ciao
Micky

 Micky
mmmm nel caso di "altro errore" la tua variabile resta "sporca" ... il 
punto �: � giusto sollevare un eccezione nel caso di errore diverso da 
conversion e inout ? se la risposta � positiva allora ti sei dimenticato 
di gestire la tua variabile IDVP, altrimenti se per qualsiasi eccezione 
la tua variabile deve essere settata a 100 allora basta un
On on E: Exception do
begin
   IDVP:= 100;
   GestioneErrori(E.Message); <--- dovr� pur sapere da qualche parte che 
ho dovuto settare la variabile a 100
end;
^_Goblin_^
Newsgroup: it.comp.lang.delphi
Titolo: accidenti...webbrowser--

...ciao a tutti, il mio problema è questo ho cercato ovunque ma nulla...
ho un componente twebbrowser..
sto navigando tranquillamente e tutto funziona, ma come si fa a fare in modo
che se clicco in un link che fa aprire un'altra finestra non mi apra
internet explorer???
non ci riesco =((
grazie
Lord Zyx

 ha scritto nel messaggio
news:ave74t$jf$1...@newsreader.mailgate.org...


Newsgroup: it.comp.lang.delphi
Titolo: Mal funzionamento  o errata costruzione?

 Creo una memory table e la mando ad un report di fuzzy report per la 
stampa solo che i campi a volte vengono stampati a volte no e rimangono 
totalmente vuoti.
perche? sbaglio io in qualcosa o č fuzzyreport?
Un'altra domanda quando ho riempčito la tabella con i miei record come 
faccio a "ripulirla"? 
grazie a tutti
pawer ranger
--- posted by geoForum on 
http://www.delphiedintorni.it

 Creo una memory table i cui campi corrispondono alle variabili che 
verrann visualizzate nelle memo del report, solo che nn sempre nella 
stampa mi visualizza i campi di tale report, infatti a volte viene 
stampato il report vuoto(o meglio solo con l'intestazione).
perche? sbaglio io in qualcosa o č fuzzyreport? come posso risolvere?


 faccio a "ripulirla"?
Basta fare un close , quando rifai open č vuota.
Giulio 

vedi cosa ti visualizza .....
NOn ho capito cosa intendi

Newsgroup: it.comp.lang.delphi
Titolo: RICHEDIT E COLORAZIONE TAG HTML

Come posso in un rich edit colorare la sintassi html? ho provato
selezionando , cambiando attributie deselezionando, ma e' lento e brutto.

 selezionando , cambiando attributie deselezionando, ma e' lento e
brutto.
E' solo un'idea ... potresti rendere invisibile il componente rich edit
(o usarne un secondo di "appoggio"), fare le modifiche, e renderlo di
nuovo visibile (/ trasferirne il contenuto dal secondo al primo).
Così elimini di sicuro la "bruttezza", non so dirti (ma credo di sì) per
la velocità.
--
Ciao !  Davide DG.

 ha scritto nel messaggio
news:dtlb7.13170$fA3.5...@news.infostrada.it...

no, la velocita' nn cambia di sicuro in quanto il procedimento e' lo
stesso...
ho provato ma quando assegno il campo text i colori nn li copia....ma nn c'e
un controllo gia fatto? vedo che molta gente fa gli editor html col
delphi...e coi colori...
Newsgroup: it.comp.lang.delphi
Titolo: ASCII

Salve, volevo creare un piccolo prog che trasformasse delle stringhe immesse
nei relativi codici ASCII dei caratteri...ma non sò che metodo usare.
Consultando l'help in linea ho notato che e' possibile usare la funzione ORD
, ma vale solo per i char, come fare con le stringhe??

, ma vale solo per i char, come fare con le stringhe??
Per le stringhe ? fai un ciclo
--
Lawrence "Rhymes" Oluyede
rhy...@myself.com
http://www.foxhound-games.it

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


piccolo esempio
procedure TForm1.Button1Click(Sender: TObject);
var txt : String;
    num : Array[1..10] of integer;
    c1  : Integer;
begin
  txt := 'ciaociaoc1';
  for c1 := 1 to length(txt) do
  begin
    num[c1] := ord(txt[c1]);
  end;
end;
ciao
--------------------------------------------
Per rispondere in privato rimuovere "1975"
--------------------------------------------

end;
Grazie per avermi anticipato..^_^


 wrote:

function StringToASCII(S: String): String;
var
  I: Integer;
begin
  Result := '';
  for I := 1 to Length(S) do
  begin
    Result := Result + IntToStr(Ord(S[I]));
  end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
  MyString: String;
begin
  MyString := InputBox('Scrivi una stringa', '', '');
  ShowMessage(StringToASCII(MyString));
end;
-- 
The Follet

 ha scritto nel messaggio
news:3bfe3f3f...@news.tin.it...

Newsgroup: it.comp.lang.delphi
Titolo: Aprire form da Treeview

Come si fa per far aprire una form con un doppio click su una voce di una
Treeview quando
si trova sull'ultimo figlio del ramo e non quando ci sono altre voci sotto ?
Ciao e grazie.
Enrico



if not TreeView.Selected.HasChildren then 
  apriform
Massimo.
-----------
Ore 18.30: premo invio.

HasChildren is True if the node has subnodes, 
or False if the node has no subnodes. 
If ShowButtons of the tree view is True, 
and HasChildren is True, a plus (+) button will appear 
to the left of the node when it is collapsed, 
and a minus (-) button will appear when the node is expanded. 
Note:	If a node has no children, 
setting HasChildren to True will show a (+) plus button, 
but will not add any child nodes and the node cannot be expanded.
Preso direttamente dalla guida di D5
Bye
AS
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

  apriform
Dubito che questo procedimento sia solo per l'ultimo figlio
del ramo...
-- 
Andrea Laforgia (
walkie...@libero.it
)
"Usenet is a strange place" [Dennis Ritchie]

del ramo...
Perché? Se un TreeNode non ha figli è l'ultimo figlio del ramo.
Per ultimo figlio del ramo si intende che non abbia nodi discendenti.
Nel caso in cui, invece, si intenda *anche* che sia l'ultimo fratello
di una lista basta aggiungere "and node.GetNextSibling = nil". 
Ma non credo sia il nostro caso.


Newsgroup: it.comp.lang.delphi
Titolo: Virgola sul tastierino numerico

Scusate se vi importuno con questa sciocchezza ma non so come risolverla.
Uso le rxlib ed in particolare il componente CurrencyEdit per l'inserimento
dei valori numerici con virgola.
Il problema è che quando si preme il punto posto sul tastierino numerico,
non c'è verso di far capire al componente che si tratta della virgola (ho
provato la sostituzione del punto con la virgola attraverso i vari onkey...
ma nulla).
Voi come avete risolto?
Grazie per le risposte.
Raffaele

 non c'č verso di far capire al componente che si tratta della virgola ..
Nella versione fino a D4 funzionava da solo.
Adesso sto usando D7 e non funziona. Allora sono andato nel codice di
CurrEdits.pas (lo trovi nella cartella Units delle RX) e ho cambiato le
seguenti righe nell'evento procedure TCustomNumEdit.KeyPress(var Key: Char);
begin
<snip> 8 righe piů in basso
    ho lasciato le 2 righe orginali commentate
  //if Key in ['.', ','] - [ThousandSeparator] then
  //  Key := DecimalSeparator;
  if Key in ['.', ','] then
    Key := DecimalSeparator;
Opla !
Ciao da Giulio
Newsgroup: it.comp.lang.delphi
Titolo: File di Testo...

Ho realizzato una procedura che mi trasforma un File XLS in file di
Testo.
Il file di XLS è compostO da 19 colonne ed 'x' righe.
Per ogni riga di Excel la procedura deve trascriverla nel file di
Testo.
.... pertanto il file di testo conterrà tante righe quante sono quelle
di Excel....
PROBLEMA : lancio la procedura .... mi crea il file di testo ma quando
apro il file di testo questo è formato da troppe righe in quanto non
riesce ad andare a capo al termine ma quando vuole lui.....
Esempio :
Riga 1 : ABCDEFGHILMNOP
Riga 2 : 12345678901223345
... il file di testo esce cosi :
ABCDEFGH
ILMNOP
1234567890
1223345
.....
COME POSSO FARE ?

 riesce ad andare a capo al termine ma quando vuole lui.....
Dipende dal codice che scrive il file di testo e dal contenuto delle celle
del foglio elettronico.
Per me hai degli "a capo" nella cella di excel che leggi.
Se cosi' non fosse, posta il codice con cui estrai cella per cella e la
scrivi sul file.
ciao
-- 
Morde


Si in effetti il problema sta proprio li ... in excel ho delle celle
che contengono testo con "a capo"....
tramite il comando
Variabile := sheet.cells.item[riga,11];
assegno a Variabile il contenuto della cella.....
Ma poi come posso esaminare la Variabile e "cancellare" tutti quei "a
capo" ?
Grazie
Alberto

 capo" ?
Io lo farei con StringReplace
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/
Newsgroup: it.comp.lang.delphi
Titolo: Costanti e file che cambiano!

Ciao a tutti,
nella Main ho un listbox che carica (OnCreate) i dati contenuti in un file
'Pippo.txt' (indicato in una costante):
Const     nomefile_caricato: 'pippo.txt';
Ma prima della Main vorrei lanciare un form in cui indicare (per esempio in
una label) il nome del file da aprire. Qualcosa del genere:
Const    nomefile_caricato: 'label1.caption';
Pensate sia possibile? E come?
Vi prego di spiegarvi con un esempio di codice.

 Const    nomefile_caricato: 'label1.caption';
non ho ben capito cosa vuoi fare.
Vuoi per caso stampare nella Label il nome del file caricato e cioè quello
memorizzato nella costante "nomefile_caricato" oppure cambiare il valore
della costante indicando un nuovo file da aprire ?
Bè, il primo caso è facilmente risolvibile con un assegnazione del genere:
Label1.Caption:=nomefile_caricato;
per quanto riguarda il secondo caso, perchè non usi una variabile invece di
una costante ?
Cioè:
var nomefile_caricato : string;
e poi all'interno della procedura o del blocco begin - end scrivi:
nomefile_caricato := 'pippo.txt';
Se invece vuoi assegnarli il nome del file che andrai a scrivere in un
componente TEdit e non TLabel, dovrai scrivere:
nomefile_caricato:=Edit1.Text;
e tutto funziona, a patto che il file esiste e non siano stati commessi
errori di sintassi. In tal caso è meglio usare i  componenti TFileListBox
( per i file ), TDirectoryListBox ( per le directory ) e TDriveComboBox (
per le unità fisiche sul PC ) associati ad una label che riporta il percorso
completo del file ed il suo nome.
Oppure se vuoi evitare tutto ciò, usa anche il componente TEdit ma poi fai
un controllo sull'esistenza del file tramite la funzione
"FileExists".
Non ho altro da dirti. Ricordati di usare una variabile invece di una
costante !!
Ti saluto...ciao ciao
Antonio Tarolla

Newsgroup: it.comp.lang.delphi
Titolo: Problema con i thread del socket..

ciao a tutti.
Più che un problema è che non ho capito come funziona il Metodo
GetClientThread.
Ho il socketServer che accetta più chiamate, e vorrei identificare il client
appaena si connette, in modo da poterlo rintracciare anche dopo.
come devo fare?
la guida dice di usare GetClientThread ma ci ho perso un sacco di tempo
senza ricavarci niente..
grazie, Olaf3

    Il componente ServerSocket ha una array Connections che tiene traccia di
tutti i socket correntemente utilizzati... Per identificare un client è
sufficiente che tu faccia un ciclo For sull'array e interroghi il socket...
Una volta che l'hai trovato, fai quello che vuoi!
    Saluti!
_________________________________
Gian Luca Dalla Torre
E - Mail: 
gianluca....@casteo.net
_________________________________
Newsgroup: it.comp.lang.delphi
Titolo: Help! funzione

Ciao a tutti... Vorrei sapere con quale metodo potrei stabilire il valore di
tag più alto per i componenti (TImage) presenti su una maschera. Es. ho 10
componenti image presenti su una maschera e vorrei stabilire chi ha il tag
più alto. Grazie anticipato a tutti coloro sapranno aiutarmi ed un salutone
a tuta la news.


cantando, intonava allegramente:

SELECT MAX(Timage.Tag) FROM TForm1.Components;
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
.
LOL!!! :-D
Scusa la bischerata: 
http://makeashorterlink.com/?D2CF12CA8
prendi spunto da questo,per fare un ciclo che estragga il piu' altro non credo
tu abbia problemi, basta salvarti il componente col tag maggiore che incontri
in ogni ciclo.
Ciao :P
-- 
Morde. (
mo...@despammed.com
)
M-List di icld: 
http://it.groups.yahoo.com/group/icld/
Firefox, il miglior browser: 
http://www.gxware.org/mozilla/

"Lorenzo Cuciniello" nel precedente post ha scritto:

questa funzione ti ritorna il valore che vuoi
--------------------------------------------------------------
Function GetImageMaxTag(AOwner: TComponent): Integer;
Var
  I: Integer
Begin
  result := -1;
  For I := 0 To AOwner.ComponentCount-1 Do
    If (AOwner.Components[I] Is TImage)
        And (AOwner.Components[I].Tag > result)
    Then
      result := AOwner.Components[I].Tag;
End;
-----------------------------------------------------------------
il codice l'ho scritto di getto quindi potrebbe avere
qualche errore di ortografia.
	Ciao
	MassimoB
 
---------------------------
http:\\
www.massimobeschi.it

Grazie mille ed un salutone a tutta la news.