mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.delphi
Titolo: Chiamare metodo Action da stringa

Salve avrei la necessita di chiamare il metodo execute di un oggetto action
il cui nome è salvato da una stringa, per intenderci la stringa s='myAction'
come posso fare per puntare all'oggetto myAction ed eseguire il metodo
execute?
Grazie in anticipo.

Fabrizio ha scritto:

Dovrebbe essere sufficiente richiamare il metodo /FindComponent/ del 
componente che funge da Owner per l'oggetto *TAction* che intendi 
eseguire; una volta ottenuto il riferimento, esegui il "cast" a 
*TAction* e richiami il metodo /Execute/.
Ciao! :-)
-- 
Marco «Alka» Breveglieri
  (marco [@] abls [.] it)
  ABLS Team S.n.c. - Software & Web
  42019 Scandiano (Reggio Emilia)
 
http://www.abls.it


Grazie.
Newsgroup: it.comp.lang.delphi
Titolo: soundblaster

Scusate, ma esistono: componenti ,risorse,o listati free; per far generare
alla sound blaster varie forme d'onda con delphi?Ho bisogno di
documentazione di questo genere.
                                                         grazie.

doom wrote:

Hai fatto una ricerca sui soliti siti prima di postare?
http://www.torry.net/audio.htm
http://www.google.it/search?hl=it&lr=&ie=UTF-8&oe=UTF-8&q=delphi+sound+b
laster+generate+sound&spell=1
-- 
I'am what I'am, I do what I can

Newsgroup: it.comp.lang.delphi
Titolo: Eliminazione record via SQL

Ciao a tutti, io dovrei elimanre dalla mia tabella che si chiama LOG i 
record dove la data ed il call sono vuoti, come posso fare? Grazie 1000
-- 
Lorenzo Mendini Iz2FOS
http://www.polopositivo.org
 (Home Page) 

 
L'istruzione SQL "DELETE" è stata pensata apposta. :-)
Se il problema è solo questo sei un po' fuori tema (= [OT]), altrimenti 
spiega meglio cosa stai usando e dove ti sei bloccato.
Ciao
Maurizio

record dove la data ed il call sono vuoti, come posso fare? Grazie 1000
Lorenzo, rispetta il topic di questo gruppo, per cortesia.  Qui dentro
non si parla di SQL.
Newsgroup: it.comp.lang.delphi
Titolo: Nascondere dalla taskbar

Cia Ragazzi,
vorrei che della mia applicazione venga visualizzata solo la Form, mentre
vorrei nascondere
la finestra che si trova giů nella Taskbar. ( NO CTRL+ALT+CANC)
Ho visto nelle FAQ ma non c'č nulla?
Come si puň fare?
Grazie.

program Project1;
uses
  Windows,
  Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2};
{$R *.RES}
begin
  Application.Initialize;
  Application.ShowMainForm := False;
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
  ShowWindow(Application.Handle, SW_HIDE);
  ShowWindow(Form1.Handle, SW_SHOWNORMAL); //Only add this if you want your
form to show.
  Application.Run;
end.
TUTTE LE SO!!! TUTTE!!! :)))))
--
Massimiliano
Eteremassimiliano.etere@programmando.orghttp://
www.programmando.org
Newsgroup: it.comp.lang.delphi
Titolo: Project Option

In projectOption for ..... vi è una tabella contenente informazioni del tipo
CompanyName, FileVersion...  Comments.
Mi chiedo se sia possibile all'interno di un programma, estrarre questi 
valori
per farli comparire magari all'interno della Finestra About.

"ferradini" nel precedente post ha scritto:

basta cercare un pò su google gruppi in questo
NewsGroup ... ;)
http://groups.google.it/groups?hl=it&lr=&c2coff=1&threadm=9ph3it%247ci%241%40pinco.nettuno.it
ma ce ne sono tanti altri ... ci sono anche unit con
funzioni già scritte che fanno proprio questo o piccoli
componentini ... etc 
	Ciao
	MassimoB
 
---------------------------
http://www.massimobeschi.it/

 ha scritto nel messaggio 
news:9AKJd.7028$fq5....@news.edisontel.com...


Non era proprio quello che chiedevo
l'esempio che mi hai gentilmente inviato
assolve perfettamente acon l'impiego di GetInfiversion....
a dare la versione del programma.
ma per  CompanyName, FileVersion... , Productname, Comments ecc
come la risolvi???
Newsgroup: it.comp.lang.delphi
Titolo: DisplayFormat - EditFormat

Ciao a tutti.
Utilizzo D5 pro + Database DBIII
vnrdecI  =  numero decimali da visualizzare / utilizzare
DM2.TTROffCPRUNIT = campo del database da settare
Attualmente utilizzo questa procedura e funziona perfettamente
//
   if vnrdecI=0
   then begin
           DM2.TTROffCPRUNIT.DisplayFormat:='#,##0';
           DM2.TTROffCPRUNIT.EditFormat   :='#,##0';
        end;
   if vnrdecI=1
   then begin
           DM2.TTROffCPRUNIT.DisplayFormat:='#,##0.0';
           DM2.TTROffCPRUNIT.EditFormat   :='#,##0.0';
        end;
   if vnrdecI=2
   then begin
           DM2.TTROffCPRUNIT.DisplayFormat:='#,##0.00';
           DM2.TTROffCPRUNIT.EditFormat   :='#,##0.00';
        end;
   if vnrdecI=3
   then begin
           DM2.TTROffCPRUNIT.DisplayFormat:='#,##0.000';
           DM2.TTROffCPRUNIT.EditFormat   :='#,##0.000';
        end;
..............
//
Qualcuno di voi č in grado di crearmi una funcion che faccia tutto questo
piů semplicemente.
Io ho creato la seguente, ma non funziona perchč indica che DisplayFormat
non č valido.
   SetDec(DM2.TVendPR_UNIT,vnrdecI);
function SetDec(Campo : TField ; Lung: Integer) : TDisplayDevice;  //
TDisplayDevice  non so se č giusto
begin
   if Lung=0
   then Campo.DisplayFormat := '#,##0';
   if Lung=1
   then Campo.DisplayFormat := '#,##0.0';
   if Lung=2
   then Campo.DisplayFormat := '#,##0.00';
   if Lung=3
   then Campo.DisplayFormat := '#,##0.000';
   if Lung=4
   then Campo.DisplayFormat := '#,##0.0000';
   if Lung=5
   then Campo.DisplayFormat := '#,##0.00000';
end;
Grazie
Ciao
--
Marco
Reporter Professional srl
supp...@reporterprofessional.it

 ha scritto nel messaggio
news:avk9rk$1rc$1...@lacerta.tiscalinet.it...

Prova con questa:
procedure SetDec(Campo : TField ; Lung: Integer);
var s:String;
begin
   if Campo is TNumericField then
     begin
       s:='0,';
       if Lung>0 then s:=s+'.'+StringOfChar('0',Lung);
       (Campo as TNumericField).DisplayFormat := s;
     end;
end;
Ho sostituito '#,##0' con '0,' perchč i '#' sono superflui.
Prova e fammi sapere.
Ciao
Giorgio

Grazie, sei stato gentilissimo.
Funziona tutto perfettamente.
Ciao

Newsgroup: it.comp.lang.delphi
Titolo: ShellExecute

In un mio programma ho bisogno di conoscere il nome dei  file che sono
in un determinato zip.
Quindi:
ShellExecute(handle, 'open','pkunzip' ,PChar('-@'+'inhalt.txt
'+ZipFilename),PChar(dir), SW_HIDE);
(In questo modo ottengo un inhal.txt  nel quale ho la lista dei file del
zip. Fino q quí va tutto bene.)
Il mio problema é che ho bisogno di sapere quando la funzione ha
completato questo inhal.txt.
Grazie, Paola.

Ciao Paola (WOW una donna nel NG :),
prova a dare un'occhiata al Repository del NG di Cantů, c'č un post di
Lorenzo Grio,
il subject č "Execute File And Wait". Potresti trovare qualcosa di
interessante.
Ciao
--
- Carlo -
BSSoftware Tips Mailing-List Support

 completato questo inhal.txt.
Ciao Paola,
                    puoi usare la ShellExecuteEx (è simile alla
ShellExecute) che ti permette di avere (nel membro hProcess della struttura
che passi) l'handle del processo che avvii...
Una volta avuto questo puoi chiamare su di esso la WaitForSingleObject per
aspettare che sia terminato.
[l'handle di un processo diventa "signaled" quando il processo termina]
Per una gestione più "fine" potresti usare la MsgWaitForMultipleObjects che
ti permette anche di servire la coda dei tuoi messaggi durante l'attesa...
Scrivi pure se hai problemi, posso anche farti un piccolo esempio se
preferisci
;-)
Ciao :-)
--
(¯`·.¸¸.·´¯`·.¸¸.-> Andrea <-.¸¸.·´¯`·.¸¸.·´¯)
Ps: sei l'unica donna del NG, brava ! :-)
AntiSpam: rimuovere il trattino basso dall'indirizzo per rispondere
AntiSpam: remove the underscore from the e-mail address to reply

Newsgroup: it.comp.lang.delphi
Titolo: FFT component

ho trovato in rete un componente molto ben fatto che implementa la
trasformata veloce di fourier, ma essendo shareware funziona solamente se il
progetto viene fatto partire dal compilatore, sapete se in rete c'č qualche
componente che effettua la trasformata inversa di fourier freeware????
grazie mille e saluti
Newsgroup: it.comp.lang.delphi
Titolo: Combo con Key

Salve a tutti,
Ho una questione semplice (e molto comune) sulle combobox in delphi,
di cui non sono affatto esperto.
E' possibile *in modo semplice* popolare una combo con un elenco di
nomi, e per ciascuno memorizzare una key relativa?
Ad esempio, avendo una tabella IdComune e Comune di questo tipo:
0010 Roma
0015 Milano
0045 Torino
0050 Napoli
...
(attenzione: non necessariamente da database. Vorrei poterla riempire
anche manualmente da codice, magari prelevando l'elenco da un banale
file txt).
Visualizzare l'elenco dei nomi, e recuparare l'IdComune del comune
selezionato?
In Visual Basic mi pare di ricordare che ci fosse una lista
"parallela" alla "Items" delle stringhe visualizzate, dove memorizzare
per ogni Items un codice "a piacere".
Mi pare pure che fosse una lista limitata ad "integer", che creava
qualche problema quando c'era la necessità di "key" alfanumeriche.
Dato che vorrei fare questa cosa su una quarantina di applicazioni,
ognuna con decine di combo, spero di trovare un sistema semplicissimo
magari già presente in Delphi senza dover scrivere codice :-)
Grazie per gli eventuali consigli.

 nomi, e per ciascuno memorizzare una key relativa?
jh_combobox su torry...
ciao
S

 nomi, e per ciascuno memorizzare una key relativa?
Hai diverse possibilita':
1 - usare un ClientDataSet e una DBLookupCombo.
2 - usare la proprieta' Objects della TComboBox: puoi inserire numeri 
direttamente, attraverso qualche cast
// non testato
Combo1.AddObject( 'pippo', TObject(pointer( 42 )) );
Combo1.AddObject( 'pluto', TObject(pointer( 66 )) );
Combo1.AddObject( 'paperino', TObject(pointer( 99 )) );
...
ID := int(pointer(Combo1.Objects[ Combo1.ItemIndex ]));
Se i cast ti sembrano una soluzione un po' troppo sporca oppure hai 
bisogno di memorizzare dati piu' complessi puoi definire una classe che 
contiene il tipo che ti serve:
// non testato
type
   TKey = class
     Value : integer;
     constructor Create( aValue : integer );
   end;
constructor TKey.Create( aValue : integer );
begin
   Value := aValue;
end;
Combo1.AddObject( 'pippo', TKey.Create( 42 ) );
Combo1.AddObject( 'pluto', TKey.Create( 66 ) );
Combo1.AddObject( 'paperino', TKey.Create( 99 ) );
...
ID := TKey(Combo1.Objects[ Combo1.ItemIndex ]).Value;
Attenzione pero' che in questo caso gli oggetti devono essere distrutti.
ciao
Giacomo

Newsgroup: it.comp.lang.delphi
Titolo: le BDE sono sempre obbligatorie?

Ho realizzato un programma che non sfrutta database ne alcun'altra 
fonte di dati ma quando lo installo su un computer questo va in crash
richiedendo le BDE... mi chiedevo se è possibile farne a meno!?
Ciao e grazie
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Domanda: Non utilizzi TTABLE o TQUERY o altro?
Controlla che nelle USES non ci siano le unit DBTables o BDE....


se non usi database e cose simili derivate dal BDE puoi farne a meno, come
sto facendo io.
--
--------------------------------------------------
Per rispondere in privato togliere 1975 dall'indirizzo
Newsgroup: it.comp.lang.delphi
Titolo: Info Contatore

Salve raga mio fratello mi ha preparato un programmino con delphi per
catalogare i miei cd ora ho riscontrato un problema secondo me lui facendo
le prove prima di spedirmelo non ha resettato il contatore di progressione
cioe anziche partire da 1 in automatico parte da 13 ora volevo chiedervi la
cortesia visto che mio fratello non ha il tempo per aiutarmi come posso far
partire il contatore da 1 anziche da 13??? ciao  a tutti e grazie mille.
N.B. posseggo il delphi 5

 ciao  a tutti e grazie mille. 
Prego.
-- 
Ciao, Anto', [35, 143, AQ] 
MB C SC 220 CDI Magma Red

 se ci dici quele ha usato tuo fratello sarŕ piů facile aiutarti.


partire il contatore da 1 anziche da 13??? ciao  a tutti e grazie mille.
Se hai access, dopo aver svuotato l'archivio, effettua la compattazione del
database.
Ciao
--
Morde. 
morde[at]programmer[.]net

 paradox
con il database desktop devi modificare la struttura della tabella
cambiando il tipo al campo interessato, da contatore a intero quindi di 
nuovo da intero a contatore, questa operazione dovrebbe resettare il 
contatore a 0(zero).


 ha scritto nel messaggio
news:Xns93526151D3706an...@195.31.190.132...


"Antò LuZombi" ha scritto

Se la tabella è vuota (o svuotabile) puoi procedere nei due modi:
- da Delphi chiami il metodo EmptyTable;
- da Database Desktop utilizzi il Tool Empty Table.
In entrambi i casi la tabella viene completamente svuotata ed i contatori
eventualmente azzerati.
Se hai già dentro dei dati che non puoi perdere, non c'è niente da fare se
non modificare il campo da contatore ad intero, modificare a mano tutti i
record e poi rimetterlo contatore.
Ciao,
Gianluca.

 ha scritto nel messaggio
news:m0Sia.49794$Jg1.1...@news1.tin.it...


 accompagnarmi te ne sare i grato o se vuoi ti mando il file del data
premesso che, come ha gia detto Gianluca, la tabella deve essere vuota:
apri il database desktop;
File->Open->Table e apri la tabella
Table->Restructure e si apre una finestra con la struttura della tabella
ci sono 5 colonne, quella che interessa a te e la colonna "Type", e nel 
campo interessato ci dovrebbe essere una "+", fai click con il destro sul 
segno "+" e nel menu contestuale scegli "Number" quindi Salva. A questo 
punto ripeti la procedura per cambiare da "Number" a "+".


 ha scritto nel messaggio
news:Xns935282CA01870an...@195.31.190.131...

Newsgroup: it.comp.lang.delphi
Titolo: Resizing della form e posizione bottoni, label ecc

Uso D5 Pro+AdoExpress
Ho una form, su questa ho piazzato un panel, su questo dei bottoni, label
ecc
Vorrei che quando vario le dimensioni della form i bottoni ecc rimanessero
nella posizione stabilita a design.
Ho fatto questo a design :
La Form ha WindowsState ->wsMaximized
Il panel ha Align -> alClient ( ok si dimensiona sulla Form)
Un bottone che a design è in basso a Dx del panel ha
Anchors ->[akRight,akBottom]
Quando lancio l'eseguibile, la form si "massimizza", il panel la segue, ma
il bottone rimane fermo, non va cioè in basso a Dx ??
Sicuramente dimentico qualche cosa, ma non riesco a trovalo :o(((
Il bello (o il brutto) è che altre form, con la stessa logica, mi funzionano
perfettamente !!
--
Gianluigi Genasi
--------------------------
Minisystem Srl
Server di posta Kpnqwest - 
www.kpnqwest.it

perfettamente !!
Controlla il Parent del Bottone
Ciao
seby

 seby
Il Bottone non ha parent (almeno a design)
Ho invece scoperto dove sbagliavo:
La form aveva WindowsState a wsMaximized gią a design, questo probabilmente
comportava il fatto che alla creazione della form questa si "massimizzava"
il panel la seguiva ma gli altri controlli rimanevano dove erano, forse non
sentono il resizing perchč creati dopo la form "massimizzata".
E' stato sufficente mettere WindowsState = wsNormal  a design, quindi
metterlo a wsMaximized a runtime in .FormActivate
Ciao
Newsgroup: it.comp.lang.delphi
Titolo: [ot] individual.net non è piu' gratis

ciao a tutti, come posso fare per leggere ancora il newsgroup dall'ufficio
(ho connessione tin 191 adsl)... ???
Simone

prova
www.mailgate.org
non so quanto sia affidabile... cmq esistono molti servizi come questo...
ciao,
        Ste 

 dall'ufficio (ho connessione tin 191 adsl)... ???
Come è già stato discusso in passato, o usi un altro newsserver gratuito
(tipo x-privat), oppure, come ho fatto io, paghi questi 10 euro all'anno...
-- 
Jax
====
C'è una sola religione, benché ne esistano un centinaio di versioni.
(Shaw)

 (tipo x-privat), oppure, come ho fatto io, paghi questi 10 euro all'anno...
Anche io ho sborsato i 10 euro, e consiglio a Simone la stessa cosa: non
farti problemi, e' un server buono, e 10 euro li guadagni in un'ora di
lavoro :-)
-- 
Morde. 
M-List di icld: 
http://it.groups.yahoo.com/group/icld/

Newsgroup: it.comp.lang.delphi
Titolo: Delphi e funzioni Perl

ciao a tutti,
avrei bisogno di tradurre alcune funzioni Perl in Delphi (ad es. pack(),
crypt(), ecc.), posso trovare da qualche parte qualcosa di gia' pronto?
grazie, ciao

iNDiGO wrote:

Utilizza le funzioni della shell per eseguire script per tramite
l'interprete e recuperarne l'output.
-- 
I'am what I'am, I do what I can

eh, ma io vorrei evitare che chi utilizza il software debba installare anche
l'interprete :/
e' questo uno dei motivi per cui sto riscrivendo tutto per Delphi
"Setec Astronomy" <setec@_NO_NOSPAM_freemail.it> ha scritto nel messaggio
news:lx_Fb.209436$e6.79...@twister2.libero.it...


 e' questo uno dei motivi per cui sto riscrivendo tutto per Delphi
Scusa, e come credi di poterlo fare in Delphi? Non e' mica Perl!!!
Implementa le funzioni che ti servono direttamente in delhpii, o
utilizza perl2Exe per creare una versione eseguibile dello script e poi
utilizza il metodo esposto precedentemente,


 utilizza il metodo esposto precedentemente,
la roba spezzettata in + eseguibili mi fa abbastanza schifo ^^.. sto
rifacendo tutto in Delphi per migliorarne le prestazioni, il Perl essendo
interpretato e' naturalmente poco efficiente..
grazie comunque dei consigli, ciao
Newsgroup: it.comp.lang.delphi
Titolo: Come creo e gestisco i file ".ini"?

Sono un neofita, vi sarei grato se qualche buon'anima mi dicesse come creare
e gestire dei file ".ini" tipo per una rubrica.
per esempio:
  [nomesezione]
nome=valore
cognome=valore
ecc...
Il tutto deve essere un'applicazione console senza grafica!
Grazie Mille!!!
Este

Leggi l'help...ci sono esempi MOLTO esaustivi, cmq mi pare che la unit si a
TIniFile (ma non ne sono sicurissimo)

 creare e gestire dei file ".ini" tipo per una rubrica.
In Delphi c'è un tipo che si chiama TIniFile. Prova a dare un'occhiata 
nella guida di Delphi a tale proposito. 
-- 
Una volta che avete conosciuto il volo, camminerete sulla Terra guardando 
il cielo, perché là siete stati e là desiderate tornare (Leonardo da Vinci)

Estevan scriveva fra l'altro:

La classe di riferimento e' TIniFile (TMemIniFile per limitare gli
accessi a disco).
Supponendo che la tua rubrica sia in una lista di TContatto, potresti
avere (v.sotto); per leggere la lista, ti potra' essere utile il metodo
ReadSections che ti carica i nomi delle sezioni presenti su file in una
TStrings.
Saluti
Paolo Arosio
uses IniFiles;
...
procedure TListaContatti.SalvaConNome(aFN: TFilename);
var Ini: TIniFile;
    curCont: TContatto;
    i: integer;
begin
  if Count = 0 then Exit;
  Ini := TIniFile.Create(aFN);
  try
    for i := 0 to Count-1 do begin
      curCont := Items[i] as TContatto;
      Ini.WriteString('Contatto ' + inttostr(i+1),
        'Nome', curCont.Nome);
      Ini.WriteString('Contatto ' + inttostr(i+1),
        'Telefono', curCont.Telefono);
      ....
    end;
  finally
    Ini.Free;
  end;
end;

e gestire dei file ".ini" tipo per una rubrica.
Marco Breveglieri ha scritto un piccolo tutorial sull'uso dei file
.INI che andrà integrato nel progetto Open Delphi Manual (vedi firma).
Lo ha pubblicato nella sezione Files del sito:
http://groups.yahoo.com/group/delphi_open_manual/files/Uploads/
C'è la versione .XML (da usare con XMLMind Editor), che sfrutta il DTD
di DocBook, ma è un esperimento.
Tu puoi scaricare la versione per Word zippata.  E` fatto bene.
-- 
Andrea Laforgia
Open Delphi Manual
http://groups.yahoo.com/group/delphi_open_manual/

 ha scritto nel messaggio

---------------------------------------------------------
io ho imparato  quì  
http://digilander.libero.it/delphiknight/rub3.htm
quì c'è pure una guida all'uso del registro(che è in parte simile al file
ini)
http://www.fuckinworld.org/programmazione_delphi_corso.htm
ciao
erik
Newsgroup: it.comp.lang.delphi
Titolo: immagine a schermo pieno

Ho il seguente problema:
Desidero avere sul monitor del Pc un' immagine (o un filmato) a schermo
pieno
cioè senza barre, icone, ecc.....
E' possibile con Delphi??
Come fare...
Grazie ferradini

 cioè senza barre, icone, ecc.....
Certo, basta mettere la proprietà BorderStyle della form a bsNone e
WindowState a wsMaximized.
Per l'immagine vedi se ti basta un TImage, per un filmato un TMediaPlayer
(palette System) dovrebbe andarti bene, basta che sulla form ci metti un
Panel allineato con alClient e alla proprietà Display del TMediaPlayer ci
assegni quel panel.
-- 
Jax
====
Mai parlare con un deficiente: qualcuno non potrebbe notare la
differenza.

Newsgroup: it.comp.lang.delphi
Titolo: Da array a class

Ciao a tutti,
    ho un array di record che vorrey trasformare in class.
Nell'array ci sono una serie di string e di tfont per il selezionare il 
carattere di stampa, x1,y1,x2,y2..... per indicare dove stampare le stringhe 
nel canvas, un paio di flag per indicare il colore da usarsi nel font un 
paio di byte che indicano quante volte stampare la stringa ecc...
Uso delphi 6.0 e dato che ho sempre usato gli array .... non so come 
definire la classe, con l'array si fa in fretta ( array[n..n1] ) ma con le 
classi non so come fare.
Qualche suggerimento??
Grazie
Ciao
Daniele 

 Qualche suggerimento??
Qui c'e' un tutorial introduttivo su oggetti e classi:
http://programmazione.html.it/guide/lezione/1220/classi-ed-oggetti-introduzione/
ciao
Giacomo

 
http://programmazione.html.it/guide/lezione/1220/classi-ed-oggetti-introduzione/
Grazie 1000, davvero.
Ciao e buon fine settimana !!
Daniele

Newsgroup: it.comp.lang.delphi
Titolo: Declare Cursor

 uso interbase 6
se da ibconsole immetto il comando declare pippo cursor ...
ottengo SQL error -104 che indica che pippo e' un token sconosciuto...
cosa mi succede, dove è il mio errore??????
lo stesso se una in una IBQuery immetto il comando
con Add(declare pippo cursor)

 ottengo SQL error -104 che indica che pippo e' un token sconosciuto...
hai verificato nella guida di ib6 in quali contesti puo' essere 
utilizzato il comando?
A
Newsgroup: it.comp.lang.delphi
Titolo: Class da una stringa

Ciao,
Ho fatto una routine che passandogli come parametro una classe,
restituisce su una stringlist (anch'essa come parametro) la lista dei
sui antenati.
Questo e' il prototipo:
procedure AncestorClass(AClass: TClass; AList: TStringList);
E la chiamo così AncestorClass(TButton, Flist);
Ora vorrei fare in modo che il parametro classe da passare alla
routine, sia da "estrarre" da una stringa, questo per fare in modo di
mettere a video un TEdit dove digitare il nome della classe.
Si può fare ?
Tutto questo perché fino a Delphi 6, all'interno della scatola, davano
il poster con tutte le classi, che per me era molto comodo, mentre con
delphi 2006 ti danno una "misera" scatola con 5 cd (manco DVD!).
Ho provato a cercare con google ma non ho trovato nulla. Esiste
qualche cosa Free OR Open Source che faccia al caso mio ?
Grazie
Max

 Si puň fare ?
Sě, ma solo se le classi sono registrate (vedi RegisterClasses()). In tal
caso, puoi usare FindClass().
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it
Newsgroup: it.comp.lang.delphi
Titolo: Sapere i nomi dei file di una cartella ?

Ciao a tutti
Come posso conoscere il nome dei files di una determinata cartella?
Non devo nè copiarli nè fare altre operazioni, devo solo saperne il nome.
Grazie
Andrea

FindFirst, FindNext

Cerca:
file management routines
nella guida di delphi.
Bye
A.


Ok grazie

...


 Ciao spero di averti aiutato
Ho provato il tuo codice...una bomba
devo però indicare un handle per la proprietà parentwindow al
controllo.Dando form1.handle il file listbox si posiziona sulla form,
appunto
Se io volessi che si visualizzasse da solo senza form? Devo per forza creare
una form per il controllo impostandolo magari client?
Comunque grazie mille, già così ho risolto molto
Ciao grazie
Andrea

 una form per il controllo impostandolo magari client?
I controlli grafici devono necessariamente risiedere su una Form, non
possono stare a mezz'aria da soli.
Puoi, eventualmente, creare una form senza bordo e caption della dimensione
esatta del controllo. Il risultato visivo è identico ad un controllo a
mezz'aria.
Ciao
Matteo

 ha scritto nel messaggio
news:Spi19.15742$n04.4...@twister2.libero.it...

Newsgroup: it.comp.lang.delphi
Titolo: "Usando" lo stesso record

Salve,
tempo fa sviluppai un software gestionale, molto semplice ma funzionale.
Oggi, a distanza di tempo mi si chiede di farlo funzionare in rete.
Io per farla semplice decido quale sarà il PC server, faccio qualche
semplice modifica al programma attuale e poi sviluppo un programma con la
stessa interfaccia grafica che metterò sul PC client. I dati saranno
ovviamente tutti sul PC server e questo starà sempre acceso....altrimenti
che rete è !!
Il gestionale come supporto dati, utilizza database paradox.
Tempo fa ricordo che utilizzai paradox in rete per un'altra applicazione e
funzionava abbastanza bene, però ricordo anche un "problema" dell'accesso
simultaneo allo stesso record.
In pratica, è possibile modificare contemporaneamente lo stesso record da
postazioni diverse ?
Se non è possibile non fa niente, mi basta gestire l'eccezione che viene
sollevata mostrando all'operatore che sta cercando di modificare quel
record, un messaggio con scritto : "guarda che lo stesso record lo sta
modificando il tuo compagno di scrivania. Lascia stare e lavora" :-)))
Già, perchè la rete è contenuta in una stanza di 20 metri quadri ed è tra 2
PC, quindi nulla di particolare.
Oppure qualche esperto fra voi vede la cosa ancora più semplice ?
Grazie a tutti.
Saluti
Antonio Tarolla

Antonio Tarolla
	Ciao
	MassimoB
 

 in quanto restituisce lo stesso messaggio per qualsiasi problema sull'Edit
già, se a te andava bene, l'utente finale non sa se la maniera usata è rozza
o meno, anzi se la diciamo tutta non si rende proprio conto del problema.
Ora che so che il problema è una cosa comune, non mi devo impazzire per
risolverlo, ma solo aggirarlo :-))
Ti saluto...alla prossima.
Antonio Tarolla

Antonio Tarolla
	Ciao
	MassimoB

Newsgroup: it.comp.lang.delphi
Titolo: Problemi ShellExecute

Ho D7 e Windows 2000 Pro.
Vorrei usare la funzione API di windows ShellExecute ma il Delphi non mi
riconosce la chiamata.
Come mai ?
Non riconosce nessuna chiamata riguardante la stessa famiglia.
Graize a tutti

uses ShellApi
Ciao

Uhm, un po' alla volta risolvo qualche piccolo problema, lascio un lavoro,
ne comincio un altro, in generale non più di 2, ma sapete, per lavoro si fa
una cosa, per hobby un'altra ecc... Dunque dunque, ho creato un bot x irc,
fa tutto quello che mi serve, solo che dovrei aggiungere una piccola
feature... Dcc e CTCP... Sugli rfc non ho trovato niente, c'è qualche
esempio in giro di come fare il download e l'upload di file via irc? Non uso
il componente IDIrc, uso un IdTcpClient...
Grazie e Ciao

Come mai ?
Devi includere la unit ShellAPI.
-- 
Andrea Laforgia
Open Delphi Manual
http://groups.yahoo.com/group/delphi_open_manual/
Newsgroup: it.comp.lang.delphi
Titolo: BDE dove trovare......

Ciao a tutti, mi servirebbe il file che installa il BDE (solo il BDE) su un
pc di una mio amico; dove posso trovarlo?
ciao e Grazie a tutti

pc di una mio amico; dove posso trovarlo?
L'installazione del BDE è isolabile con InstallShield Express,
distribuito con Delphi.  A dire il vero, non so da quale versione in
poi IE viene distribuito (io uso la Enterprise).
-- 
Andrea Laforgia - a.laforgia(at)
libero.it
"There are three kinds of people in this world; 
 those who are good at maths and those who aren't".

 poi IE viene distribuito
Se non erro dalla 4



Ho usato il termine sbagliato con "versione", intendevo dire da quale
tipo di distribuzione: Professional o Enterprise...


pc di una mio amico; dove posso trovarlo?
ci sono parecchi post vecchi a riguardo con spiegazioni abbastanza
dettagliate e specifiche per estrarre l'installazione, installare o 
far installare dal proprio prog di generazione file di installazione il
VECCHIO BDE.
cerca su google in questo newsgroup.
	Ciao
	MassimoB
 

Setup generico del BDE 5.01 senza alias ne' driver particolari:
http://www.altastagione.com/download2/installabde.exe
Ciao, Sandro

Grazie 1000

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

ciao a tutti.
uso un programma, da me realizzato, con il componente tclientdataset. è una
rubrica (non ancora finita).
ho inserito la possibilità di esportare il database in un file *.csv (un
componente trovato in rete) ed anche la possibilità di importare. il tutto
funziona bene. però funziona solo se il database ha sempre gli stessi campi.
se io volessi aggiungere un campo e importare da un file *.csv i dati, non
funzionerebbe perchè il file *.csv è mancante di un campo.
esiste la possibiltà o un componente  per creare una tabella (con il
tclientdataset) con i campi di un file *.csv  qualsiasi?
spero di essermi spiegato, visto che forse chiedo una cosa impossibile.
grazie, non disdegno di qualche esempio.
ciao

 impossibile. grazie, non disdegno di qualche esempio.
Se ho capito bene, tu vorresti importare dati da un file csv ad un db,
senza sapere a priori quanti campi ci sono nel db...
A grandi linee mi sembra possibilissimo... devi solo fare un ciclo in
cui, per ogni campo del db (for i := 0 to DB.Fields.Count - 1), leggi un
valore delimitato dalle virgole; se questo valore non c'č perchč,
mettiamo, sei in questa situazione:
DB:  campo1,campo2,campo3
CSV: pippo,pluto
basta che setti il valore del campo corrispondente a null.
--
Jax
--
Jax

Non ripetere i post!
Cmq già t'ho risposto a quello precedente.
Newsgroup: it.comp.lang.delphi
Titolo: Coamdare porta seriale

Salve a tutti sono nuovo del gruppo.
Mi servirebbe ( se qualcheduno lo ha o se mi sa indicare il sito) un
listato in pascal per comandare la porta seriale.Mi spiego meglio č mia
intenzione comandare l'accensione delle luci col pc e ho gia fatto il
programma in pascal solo che non so come mandare l'impulso di accensione
al rele della scheda che controlla le luci.
Grazie

 wrote in message
397DF50C...@hotmail.com...

semplice: con l'assembler.
devi trovare un po di specifiche per l'uart e poi vai di:
ASM
  ...
  mov  dx,3F8h
  mov  al,80h
  out  dx,al
  ...
END;
ma se devi solo comandare un rele forse ti viene piu' semplice passare dalla
parallela (moolto piu semplice).
comunque anche in pascal ci sono tutte le funzioni che ti servono; ora non
le ricordo, ma sei hai un manuale...
se non ne esci, fammi un fischio in email.

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

Ciao a tutti,sono uno studente di Ingegneria,
mi sono da poco avvicinato a questo bel linguaggio di programmazione e il
mio Prof. mi ha consigliato come guida base generale quella di Marco
Cantů,sulla versione 2.0 in quanto spiega anche alcuni concetti basilari
dati per scontati sulle edizioni successive.
Mi piacerebbe sapere dove č possibile acquistare tale libro (la casa
editrice č la McGrawHill),se qualche libreria ne ha ancora una copia,on
line,o anche usato.
GRAZIE

 ha scritto nel messaggio
news:9ds8s9$6kf$1...@nreadB.inwind.it...


 GRAZIE
se vuoi un consiglio da uno che di programmazione ne sa meno di niente e
come te si sta avvicinando a Delphi, ho iniziato con il libro (che tuttora
sto leggendo) : GUIDA COMPLETA A BORLAND DELPHI 4 (totalmente in italiano)
di KENT REISDORPH editore APOGEO (lo stesso editore che usa ora Marco Cantů)
Parte da Zero e spiega molto bene (come molti libri ....sorgenti in linea
scaricabili su 
www.apogeonline.com
 ) il prezzo di copertina č Lit.88.000
ISBN88-7303-454-3 .
Ho anche comprato Masterizzare in Delphi 4 e Masterizzare in Delphi 5 di
Cantů, che perň sono un po troppo difficili per un "novello".
Ho scaricato il trial di Delphi 5 su 
www.borland.com
 per iniziare i primi
passi, la fregatura stŕ che il trial dura poco, penso che comprerň Delphi 6
il prima possibile.
Ciao ciao maurizio

 Cantů, che perň sono un po troppo difficili per un "novello".
Non dirmi che quella č la traduzione di "Mastering Delphi X"? :)
Se posso consigliare un testo valido suggerisco Delphi 4 di Pacheco/Texeira
o Delphi 2 di Calvert ... tuttavia ti consiglio di leggerti D2 di Cantů per
iniziare.
Ciao! :)
--
- Carlo -
c.b...@libero.it


E' uscito anche Masterizzare in Delphi 10X con buffer da 2mb, okkio ;-))
Newsgroup: it.comp.lang.delphi
Titolo: XE5/7 - Device android compatibili

..lo so: esiste una app free che ti dice sel il device è compatibile o no.
E poi ci sono queste note:
 
http://docwiki.embarcadero.com/RADStudio/XE7/en/Android_Devices_Supported_for_Application_Development
 
 
Ma dovendo acquistare un device android non posso certo dire poi al venditore "te lo restituisco etc".
 
 
Da qui la mia domanda: quali device android utilizzate, siano essi tablet smartphone, tv, tostapane, forni a microonde etc?
 
Ovviamente (ma non per tutti) quando dico "compatibile" intendo che:
 
1) collegando il device ad un pc windows 7 via usb il pc stesso lo vede senza dover fare riti vodoo, sedute spiritiche e senza dover installare software particolari diversi dai driver.
Questa precisazione è importante: ho un tablet android della mediacomm che non sono MAI RIUSCITO a collegare a nessun pc, xp o win7 che sia
 
2) lanciando xe5/7 lo vedete nei device disponibili come destinazione per l'esecuzione di una app senza dover fare i riti vodoo di cui sopra
 
3) si riesce a fare il debug usando i breakpoint
 
 
Tutte ste cose riesco a farle con il mio motorola moto g penultima serie.
E voi?
 
 
 
 
A.
 
 
 

 quali device android utilizzate, siano essi tablet smartphone, tv, tostapane, forni a microonde etc?
 
Io ho debuggato ed eseguito con successo le applicazioni Delphi su
 
- Samsung Galaxy S3
- Samsung Galaxy S5
- Samsung Galaxy Tab 2
 
Ciao,
  Marco.
 
-- 
MARCO BREVEGLIERI (Software and Web Developer)
#Home: 
http://bit.ly/marcobreveglieri
 
#Blog: 
http://bit.ly/compilaquindiva
 

Ciao Alberto,
 
AS> quali device android utilizzate, siano essi tablet smartphone, tv, tostapane, 
forni a microonde etc?
 
Io ho utilizzato con successo i Google Nexus 3, 4 e 5.
 
David
 
 

 Da qui la mia domanda: quali device android utilizzate, siano essi tablet smartphone, tv, tostapane, forni a microonde etc?
 
Io ho un Sony Xperia Z. Lo programmo con Android Studio, pero`. Ho abbandonato Delphi da un pezzo. E si`, si puo` collegare a Windows (molto strano che tu non riesca a collegare il tuo) e si puo` fare debugging passo passo. Non so quanto tutto questo ti aiuti se usi Delphi (ma immagino che se il debug si puo` fare da Android Studio, lo si possa fare da Delphi allo stesso modo).
Newsgroup: it.comp.lang.delphi
Titolo: Vorrei imparare a programmare in delphi!

Salve a tutti.
fino a qualche giorno fa il vb era il mio pane qutidiano ma da quando una
persona mi ha mostrato le potenzialità del delphi, vorrei imparare, chiedo
il vostro aiuto per:
 link a siti che parlano di delphi,
 libri
suggerimenti vari e tutto quello che secondo voi potrebbe servire
mi interessa in prticolarmodo la connessione con db in access,record,
querrry, reporrt griglie e tutto quello che si utilizza pere creare
programmi tipo aggende, gestionali etc...
grazzie a tutti e spero di poter trovare in questo ng un aiuto
NB.. AUGURI DI BUON ANNO A TUTTI

Ciao!
Per prima cosa BENVENUTO NEL NG!! (ng, e NON ml... cosi' Alan Solo e'
contento!! ;)
Io sono nelle tue stesse condizioni... anche per me fino a qualche tempo fa
esisteva solo VB... poi x caso mi sono imbattuto in una versione trial di
Borland C++ Builder ed e' stato amore a prima vista!!
Adesso mi sono messo in testa di imparare sia BC++ che Delphi (sono pazzo,
lo so!)
Siti su Delphi ce ne sono un bel po'... cmq prova a guardare su
http://www.programmazione.it
 oppure, se te la cavi con l'inglese c'e' un
sito che io sto guardando proprio in questi gg... l'indirizzo... aspetta che
lo trovo... ecco! 
http://code.box.sk
 ci troverai un sacco di sezioni...
clicca su delphi e il gioco e' fatto! da li' poi clicca su "Delphi Internet
resources" ti si visualizzeranno una serie di links... a te la scelta!
Ps: questo sito lo consiglio a tuttissimi!!!!
Buon anno!!!
Leo
-- 
Posted from 
smtp4.libero.it
 [193.70.192.54] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 lo so!)
Piu' che pazzo.. dove lo trovi il tempo?
Io lavoro da libero professionista, uso Delphi e non ho tempo non solo di
studiare alcune cose del linguaggio che vorrei migliorare/imparare, ma manco
di respirare :))), figurarsi di prendere un altro linguaggio di
programmazione!
Ciao, Sandro

il vostro aiuto per:
Io conoscevoi Delphi da qualche anno ma pensavo fosse più difficile di
VB. Credo che dopo un avvio più lento (ad imparare) poi sia molto più
facile di VB. Mi sto rendendo conto che la MS fa proprio schifo.
L'altro giorno volevo modificare un mio prg fatto in VB, ma dopo aver
reinstallatto per l'ennesima volta winzozz....ahimè!!! il programma
non funziona più!!!!! Non riconosce il COMCTRL32.dll dice che manca la
licenza, e meno male che VB l'ho comperato davvero!!! Sic!!! Invece ho
rispolverato vecchi programmini Delphi dopo 4-5 anni ed eccoli l':
funziaonano al primo colpo.
In ognoi caso: 
www.torry.net
 o 
www.torry.ru
Buon lavoro.
Ciao
Robin
Newsgroup: it.comp.lang.delphi
Titolo: Gestione utenti con NT.

Nella rete ho un server NT.
Come posso gestire le autenticazioni degli utenti della mia applicazione
direttamente co NT?  (Lista utenti, gruppi, privilegi etc.).
Grazie :-)
--
.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:
: Fabio Cardin                             Phone: 
++39 0434 571110
 :
: Tecnico Networking                         Fax: 
++39 0434 572830
 :
: Satel Group                        mailto:
fca...@satelgroup.net
 :
: Pordenone/Italy                        
http://www.satelgroup.net
 :
:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:.:..:

Grazie :-)
Dovresti trovare qualcosa di interessante sul NG di cantů nella sezione
Repository.
E' un post dell' Ing. Pierre Greborio.
Ciao
--
- Carlo -
BSSoftware Tips Mailing-List Support

Newsgroup: it.comp.lang.delphi
Titolo: Programmini semplici per principiante...

Ciao, sono uno che ha installato il Deplhi 5, io (che conosco il Pascal) con
un amico che conosce il Visual Basic vorremmo provare a capirci qualcosa con
questo linguaggio di programmazione nuovo e potente. Sapreste qualche sito
italiano dedicato alla programmazione Dephi dove si possono scaricare
semplici programmini ? A noi servono programmini semplici, molto mirati
sopratutto per me che sono digiuno di programmazione ad oggetti. Grazie per
l'attenzione ciao.



sul cd di delphi ci sono gia svariati programmilli :)
comunque c'e' anche
www.torry.net
 ma non e' in italiano...
in italiano non ne conosco :)
-------------------------------------------------
Kirys <Remove DELTHIS from the address to reply>
 /|// /____/ Kirys Tech 2000: 
http://www.kt2k.com
/_|\\  // 2000

 ha scritto nel messaggio
news:6ZTe7.13706$KX2....@news2.tin.it...


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

Esiste una funzione simile? cioe sapere in che numero di settimana e una
data in parametro?
Dall'Help ho pochissime funzioni su DateTime, ... bah.
Grazie
Ciao Davide


ABLS Team - 
www.abls.it
SINTESI S.r.l. - 
www.sintesi.com
Newsgroup: it.comp.lang.delphi
Titolo: Lettura registro

Ho un problema con la lettura di un valore del registro.
Usando InstallShield 10 provvedo ad installare il mio client e sempre con 
InstallShield creo una chiave in 
HKEY_LOCAL_MACHINE\Software\MiaChiave\MiaSottoChiave - nella sottochiave ci 
sono alcuni valori stringa ed un valore boolean settato a 0
Quando lancio la mia applicazione dovrei leggere il valore della boolean e 
come da help:
const
  MyRootKey = HKEY_LOCAL_MACHINE;
...
...
...
procedure ....
var
  Reg: TRegistry;
  StartAgain: boolean;
begin
  Reg := TRegistry.Create;
  Reg.RootKey := MyRootKey;
  if Reg.OpenKey('\Software\MiaChiave\MiaSottoChiave', false) then
    StartAgain := Reg.ReadBool('MioValore');
  ...
  ...
  Reg.CloseKey;
  Reg.Free;
end;
ma mi restituisce errore: Failed to get data for MioValore
Il valore del campo è zero...
La procedura è giusta?
Valter

 Ho un problema con la lettura di un valore del registro.
ho risolto con
const
  MyPathKey = '\HKEY_LOCAL_MACHINE\Software\MyKey\MySubKey';
procedure ...
var
  Reg: TRegIniFile;
  StartAgain: boolean;
begin
  try
    Reg := TRegIniFile.Create(MyPathKey);
    StartAgain := Reg.ReadBool('', MyValue, False);
    ...
    ...
  finally
    Reg.Free;
  end;
end;
Ma non mi è chiaro perchè la procedura precedente non lavora.
Se avete suggerimenti tra il preferire TRegIniFile o TRegistry fatemi
sapere.
Grazie
Valter

Newsgroup: it.comp.lang.delphi
Titolo: cos'è un ocx? scusate l'ignoranza... :-)

 vorrei sapere che cos'è un ocx, a cosa serve come si può utilizzare in 
delphi. è come un dll? grazie e scusate, ma nn so molto di 
programmazione grazie
--- posted by geoForum on 
http://www.delphiedintorni.it

 programmazione grazie
Ciao.
Un OCX è come se fosse un controllo VCL, però basato su COM, 
utilizzabile quindi in qualsiasi ambiente che lo supporta(VB, 
Delphi,ecc).
Nota bene che moltissimi sviluppatori Delphi non vedono
questa tecnologia tanto di buon occhio(giustamente...) perché ha
tutti i problemi di COM, più altri :-)
Ciao,
Andrea
Andrea Raimondi
http://codecentral.borland.com/codecentral/ccweb.exe/authors


Newsgroup: it.comp.lang.delphi
Titolo: CI RIPROVO - DEH-P7400M vs KDC-M9021

So di essere monotono,
ma vorrei qualche parere da voi ragazzi "esperti e non" su questi due
modelli di hi-fi car, come qualità del suono, ricezione possibilità di
installarle su una GOLF visto che l'autoradio precedente inibiva il
cicalino x le luci accese a motore spento e la luce di cortesia del lato
guida, smontata la radio tutto e ritornato a funzionare. Esistono anche
modelli simili della ALPINE? io punto alla qualità del suono e ad una
buona ricezione della radio.
PIONEER DEH-P7400M
KENWOOD KDC-M9021
Mi piacioni tanti i display grafici e colorati.
GRAZIE PER L'ATTENZIONE (SPERO CHE QUALCUNO RISPONDA STAVOLATA!!)
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 wrote in message
4a4c19ddac6a412f5ee...@mygate.mailgate.org...


Scusate ho sbagliato a postere il messaggio.
Ciao Max

Newsgroup: it.comp.lang.delphi
Titolo: Passaggio di array dinamici a una funzione

Salve, vorrei passare un array dinamico a una funzione e impostare la
dimensione del vettore all'interno della funzione tramite la SetLength. Ho
provato a dichiarare la funzione cosě:
function MiaFunzione(var Vett: Array of String): Boolean
ma non funziona.
Sapete darmi qualche consiglio?
Grazie.
Alessandro

 ma non funziona.
Devi tipizzare il tuo array dinamico prima di passarlo alle funzioni:
Per esempio, ( prima della sezione var ) metti
 type dinarr = array of integer;
 var arrayqui:dinarr;
 procedure SettaLunghezza(var a:dinarr; lunghezza:integer);
  begin
    setlength(a, lunghezza);  //utilissima questa procedura !!
  end;
 begin
  settaLunghezza(arrayqui,5);
 end;


Funziona, grazie.
Alessandro

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

C'è una funzione in Delphi che mi permette di arrotondare un numero in base
a un dato passato
come parametro?
Mi spiego....
Ad esempio... io ho "12.300" e voglio arrotondarlo alle 1.000 inferiori (con
conseguente risultato
di 12.000) oppure alle 1.000 superiori (risultato 13.000)
Io ho provato a creare una mia procedura ma il risultato è 0!!!
Grazie, Dario
-- 
Posted from IDENT:qmailr@[217.57.169.195] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 di 12.000) oppure alle 1.000 superiori (risultato 13.000)
e che ci vuole?
arrot.inferiore: risultato:=trunc(valore*1000.0)/1000.0;
arrot.superiore: risultato:=round(valore*1000.0+'.49999)/1000.0;
Ciao, Sandro

arrot.superiore: risultato:=round(valore*1000.0+'.49999)/1000.0;
Scusa? O___O
non dovrebbe essere il contrario?
(risultato:=trunc(valore/1000)*1000;)
se prima moltiplichi per 1000, poi prendi la parte intera e infine
dividi per 1000 ottieni il numero di partenza!
-- 
Claudio "Elder" Bertoli

> non dovrebbe essere il contrario?
Naturalmente. E' stato un lapsus. Gli operatori vanno invertiti.
Ciao, Sandro
Newsgroup: it.comp.lang.delphi
Titolo: Problema sul funzionamento di TCustomEdit.Modified

Non sto più assolutamente capendo come funziona
Faccio un'esempio per spiegarmi :
- Porto il fuoco sopra una edit
- Scrivo qualcosa nella edit
- Esco dalla edit
procedure TfrmMyForm.edtMyEditExit(Sender: TObject);
begin
   if edtMyEdit.Modified then begin
     MessageDlg('modificato',mtInformation,[mbOk],0);
   end;
end;
....e giustamente mi appare la finestra di dialogo
A questo punto chiudo la finestra di dialogo :
- Porto nuovamente il fuoco sulla edit
- Non scrivo nulla ma premo solamente il TAB
..... compare nuovamente la finestra di dialogo
E' normale ?!?!?
Non mi sembrava che dovesse funzionare così
Cordialità,
Stefano Campri

 ha scritto nel messaggio
news:GCi9b.318460$Ny5.10...@twister2.libero.it...


> Resetta manualmente il valore di Modified.
se faccio così poi mi sembra che
rimanga sempre a false, non ne sono
sicuro ma credo di avere provato ed il risultato
dovrebbe essere come appena detto
.....
con la stessa proprietà ho un problema
sull'oggetto TComboEdit delle RXLibrary :
in questo caso Modified rimane sempre a false
Ogni suggerimento è ben accetto
Cordialità,
Stefano Campri

Tu rifallo. E' la procedura corretta.
L'Edit può dirti se è stato modificato, ma tu utente devi decidere quando
resettare il flag Modified.
Ma perché TCustomEdit e non TEdit?
Direttamente dall'SDK di Win.
An application sends an EM_SETMODIFY message to set or clear the
modification flag for an edit control. The modification flag indicates
whether the text within the edit control has been modified. It is
automatically set whenever the user changes the text. An EM_GETMODIFY
message can be sent to retrieve the value of the modification flag.

 It is automatically set whenever the user changes the text.
questo però non avviene sul controllo TComboEdit delle RXLibrary
qualcuno mi sa illuminare ?!?!
mi pare derivi da TEdit quindi se esco dopo aver modificato
il testo dovrei avere TComboEdit.Modified a true sull' evento OnExit;
in realtà mi succede che Modified mi restituisce sempre false
Cordialità,
Stefano Campri

 il testo dovrei avere TComboEdit.Modified a true sull' evento OnExit;
Facciamo così: ricontrolla il genitore e poi riposta. I Combo non hanno
proprietà modified. Prima sei partito da TCustomEdit, ora spunta fuori sto
ComboEdit. (?)
Ricava l'handle dell'Edit e interrogalo sulla sua proprietà modified. Win32
SDK Reference.
Ciao.

 ComboEdit. (?)
Sono partito da TCustomEdit perchè è la classe padre
che ci posso fare se è questa la gerarchia ! :-)
Cordialità,
Stefano Campri
Newsgroup: it.comp.lang.delphi
Titolo: Directory progetto

E' possibile sapere tramite codice la directory ove risiede il mio
progetto ? (oppure l'esewguibile del progetto) ?
Grazie

 progetto ? (oppure l'esewguibile del progetto) ?
miadirectory := ExtractFilePath(Application.ExeName) ;
-- 
================================================================
Alberto Rubinelli - A2 SISTEMI 
news.aioe.org
 ThunderBird 2.0.0.14
Via Costantino Perazzi 22 - 28100 NOVARA - ITALY
Tel 0321 640149   Fax 0321 391769   BBS 0321 392320
Mail: 
alb...@oldcomputers.de
skype: albertorubinelli  ICQ : 49872318
Visita il mio museo di computers: 
http://www.oldcomputers.it
================================================================

 ================================================================
grazie molto gentile.....
devo realizzare un'applicazione che all'avvio inserisca nei controlli
ADOTable del data modulo la stringa di connessione.....
ci sono riuscito ma volevo un chiarimento....
è corretto il seguente codice :
DataModulo.TBLCliente.close;
DataModulo.TBLCliente.connectionstring:='miastringa';
DataModulo.TBLCliente.open;
... grazie

 DataModulo.TBLCliente.open;
io di solito faccio il close solo se open (per precauzione ) e metto 
l'open dentro un blocco try except
per il resto direi che va bene
-- 
================================================================
Alberto Rubinelli - A2 SISTEMI 
news.aioe.org
 ThunderBird 2.0.0.14
Via Costantino Perazzi 22 - 28100 NOVARA - ITALY
Tel 0321 640149   Fax 0321 391769   BBS 0321 392320
Mail: 
alb...@oldcomputers.de


 ================================================================
...perfetto....ora però mi succede una cosa stranissima
ho creato diverse form ....
nelle proprietà del progetto ho messo FrmMain all'avvio....
Eseguo il programma e se ne aprono due ..... (frmMain e frmArticoli)
già che ci sono ... quali metodi posso utilizzare per aprire e
chiudere il form
mi sa che sto sbagliando qualcosa in quanto quando chiudo la prima
Form ... non si apre la seconda ma si chiude il progetto....
Grazie