mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.delphi
Titolo: DBGrid con checkbox

E' possibile in un dbgrid far apparire il quadratino del checkbox come
avviene su access ad esempio invece che "true" o "false"?
O almeno fa apparire qualcosa di differente rispetto a queste due parole?
Grazie mille!!!!!!!
Elisa

Elisa
Ciao.
-- 
"La velocità luce non è sufficiente Comandante Nunziatella, 
dobbiamo passare alla velocità smodata!"

Il 01 Set 2003, 11:06, "Ely77" <Elisa.Adamoli...@Tiscali.it> ha
scritto:

Devi mettere una dbGrid una dbChackBox ed una Table in una form.
la procedure dbGridColEnter (...) è
Begin
  If dbGrid.Columns [DBGrid.SelectionIndex].Field = Table1Senior
  Then DBCheckBox1.Visible := True
  Else DBCheckBox1.Visible := False ;
End ;
la procedure dbGridKeyPress(...)
Begin
  If dbCheckBox.Visible And(Ord(Key)>31) then
    Begin
      Key := #0 ;
      Table.Edit ;
      dbCheckBox.Checked := Not dbCheckBox.Checked ;
      dbCheckBox.Field.AsBoolean := DbcheckBox.Checked ;
    End ;
End ;
la procedure dbGridDrawColumnCell(...)
Begin
  If ( gdFocused in Status) And (Column = TableSenior) then
    Begin
      dbChckBox.SetBound ( Rect.Left + dbgrid.Left+1,
                           Rect.Top + dbgrid.Top+1,
                           Rect.Right - Rect.left,
                           Rect.Bottom - Rect.Top )
    End ;
End ;
L'ho copiato dal libro di cantù su delphi 5 per cui può avere errori di
copiatura.
--------------------------------
Inviato via 
http://usenet.libero.it

 Elisa
-- 
Ciao, Anto', [35, 143, AQ] 
MB C SC 220 CDI Magma Rot
"Di sempre cio' che senti e fai cio' che pensi."
				G.G. Màrquez
Newsgroup: it.comp.lang.delphi
Titolo: Browsing di cartelle

Salve a tutti,
Qualcuno saprebbe dirmi cosa devo richiamare per visualizzare un dialog di
quelli utilizzati per sfogliare le cartelle al fine di selezionare una
directory? Penso sia un'API di windows, ma non l'ho trovata...
Grazie, Poochie

directory? 
ti posto una funzione, invocala con:
bckpFolder := SfogliaCartelle(Handle);
if bckpFolder = '' then exit;
----- ritorna la path completa della cartella selezionata, senno' stringa
vuota. devi passagli l'handel della finestra del programma.
function SfogliaCartelle(OwnWndHandle: HWND): String;
var
  bi: TBROWSEINFO;
  rootp: PITEMIDLIST;
  ChosenFolder,
  pszPath: array [0..MAX_PATH-1] of Char;
begin
  Result := '';
  with bi do
  begin
    hwndOwner := OwnWndHandle;
    pidlRoot := nil;
    pszDisplayName := ChosenFolder;
    lpszTitle := 'Seleziona la cartella dei salvataggi';
    ulFlags := BIF_RETURNONLYFSDIRS;
    lpfn := nil;
    lParam := 0;
    iImage := 0;
  end;
  rootp := SHBrowseForFolder(bi);
  if (rootp <> nil) then
  begin
    SHGetPathFromIDList(rootp, pszPath);
    //Result := Format('%s\%s', [pszPath, ChosenFolder]);
    Result := Format('%s\', [pszPath]);
  end
end;
-- 
Morde. 
(
mo...@despammed.com
)
M-List di icld: 
http://it.groups.yahoo.com/group/icld/

 bckpFolder := SfogliaCartelle(Handle);
Mi mancano le uses per
	TBROWSEINFO
	PITEMIDLIST
quali sono?
Grazie!
-- 
Poochie ©
Teoricamente la teoria è uguale alla pratica, ma in pratica non lo è...

sono?
uses ShlObj


 uses ShlObj
Funziona divinamente! Grazie mille!
(pare restituire un doppio slash se seleziono un drive alla radice, ma è
facilmente correggibile)


 facilmente correggibile)
Magari dai un occhio anche alle JVCL (
www.project-jedi.org
), c'è anche un
wrapper per la BrowseForFolder che ti consente di impostare anche directory
di partenza e altre cose
-- 
Lis
Mercatino: 
http://snurl.com/sito_lis
Aiuta la ricerca contro il cancro: 
http://snurl.com/ida_team

Newsgroup: it.comp.lang.delphi
Titolo: Ridimensionamento Immagini

Avrei bisogno di ridimensionare delle immagini gif e jpg
ma non in visualizzazione...
Come fare ?
Grazie in anticipo
---
* Dott. Riccardo Fiorenza
* Dr.Soft - Soluzioni Internet
* web: 
http://www.drsoft.it
* email: 
fior...@drsoft.it

 Come fare ?
Per uno spunto, vedi la mia risposta al messaggio "TBitmap" a valv del 26/04.
--
Jax

Ok, grazie mille... mi serviva proprio uno spunto
"Jax" <rispo...@newsgroup.grazie> ha scritto nel messaggio
news:vEyz8.117862$SR5.2...@twister1.libero.it...

Newsgroup: it.comp.lang.delphi
Titolo: Dov'è finito il Table?

Ciao a tutti.
Ho da poco incominciato ad usare il Delphi 6 e mi sono accorto che, rispetto
al 5, non c'è più l'oggetto TABLE.
Dove è finito.

 Dove è finito.
ehm.. credo sia sotto il Tab BDE.
bye, Pao
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG
Newsgroup: it.comp.lang.delphi
Titolo: [?] Esempi di programmi multithread

Ciao a tutti !
Qualcuno saprebbe indicarmi se ci sono, ed eventualmente dove,
programmi di esempio che usano il multithread in Delphi5 / 6 ?
Vorrei farmi un idea di cos'e' e come funziona.
Ciao e grazie
Dave
-----= Posted via Newsfeeds.Com, Uncensored Usenet News =-----
http://www.newsfeeds.com
 - The #1 Newsgroup Service in the World!
-----==  Over 80,000 Newsgroups - 16 Different Servers! =-----


Beh, thrddemo č un buon inizio per farsi un'idea del multithread, lo trovi tra i
demo di delphi.
Masimo.
-- 
"Ciao Rex, che cavolo di situazione eh? Due dentro, due fuori, puo' succedere di tutto!"

 programmi di esempio che usano il multithread in Delphi5 / 6 ?
Nei Demo di Delphi!
C'è un semio ch imlmnta tre algoritmi di sort   per confrontarli li esege in
tre thead.
ciao
Gungo

Dave,
se vuoi anche un buon manuale sulla gestione dei thread in delphi ti
consiglio di dare un'occhiata qui. Lo trovo molto buono ! Martin Harvey č un
ottimo istruttore ;-)
http://www.pergolesi.demon.co.uk/prog/threads/ToC.html
ciao
guastatore


Trovato, grazie a tutti !
-< Dave >- <da...@hate.spam> wrote in message
j0jamtchu1r2clnhk...@4ax.com...

Newsgroup: it.comp.lang.delphi
Titolo: Delphi 5 & Quick Report - errore in chiusura preview

buongiorno a tutti
il mio problema è il seguente:
utilizzando QR per le stampe, dopo la preview, quando chiudo la finestra,
capita di avere un errore di "access violation"...
successivamente la preview non mi viene più generata segnalando un errore di
componente già presente (o qualcosa del genere, in questo momento non riesco
a
rigenerare l'errore, mentre dal cliente è sistematico)...
qualcuno sa quale soluzione adottare per risolvere questo "piccolo"
problema?
grazie in anticipo...
:-))

Potrebbe dipendere dalla path troppo lunga della variabile di ambiente TEMP.
Soprattutto in ambiente Win2000 Pro
Prova ad utilizzare un percorso "corto". Es.  c:\temp
--
Carlo Muccini
Western COnsulting
Via San Vincenzo De Paoli, 10/12   00152 - Roma
Tel. /Fax 06  532 73 170 (2 linee r.a.- segr. telefonica)
email: 
c.mu...@wco.it
 
http://www.wco.it
"Saimon" <simo...@GLIlibero.itMI> ha scritto nel messaggio
news:S2vjb.1058$e5.2...@news1.tin.it...



Ciao,
è capitato anche a me nelle tue stesse condizioni.
A volte se il Preview viene chiuso prima che tutte le pagine siano state
create (con X o close) il sistema va in TILT e non puoi più utilizzare
nessun preview finchè non esci dal programma.
Io ho risolto aggiungendo l'istruzione Prepare. Le pagine vengono create in
background e quando parte il preview hai già tutto a video.
C'è un scompenso. Se fai fare alla form delle procedure o dei calcoli
durante il preview le cose possono complicarsi, ma con un poco di prove
tutto si risolve.
Ti faccio un esempio.
           Application.CreateForm(TQRLFStatClas03, QRLFStatClas03);
           QRLFStatClas03.QR1.Prepare;
           QRLFStatClas03.QR1.Preview;
           QRLFStatClas03.QR1.Free;
Spero di esserti stato utile e se hai problemi ri-posta.
Ciao Marco
P.S. : assicurati di avere fatto il download dal sito 
www.qusoft.com
 della
l'ultima release free per D5.
-- 
MaoSw
Reporter Professional srl
supporto...@reporterprofessional.it
Newsgroup: it.comp.lang.delphi
Titolo: OCX

Scusate, ma in delphi si può utilizzate un ocx scritto in vb6?
-- 
Saluti
Andrea Moro


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

Newsgroup: it.comp.lang.delphi
Titolo: aiuto crystal reports 9

ciao a tutti, ho un problema con crystal reports 9.
in un campo formula, mettendo il segno di moltiplicazione mi accetta solo
una formula del tipo {nomecampo} * numero , se al posto del numero ci metto
un campo, esempio {nomecampo} * {nomecampo} mi dà errore. con tutti gli
altri operatori funziona...come mai?? sto strippando
grazie

 altri operatori funziona...come mai?? sto strippando
quale relazione c'è tra delphi e il tuo problema?
-- 
Alberto Salvati
A NEAPOLITAN Delphi Developer who is studying c# and .net
"Dicette 'o pappece 'nfaccia 'a noce dammi 'o tiempo che pure te spertoso"

beh, che sto realizzando un report per un programma fatto in delphi..e che
dovrò stampare da delphi...siccome non esiste un newsgroup
it.comp.crystalreports..ho scritto qui...ho sbagliato?


 quale relazione c'è tra delphi e il tuo problema?
*Crystal Reports* è incluso in Delphi2005, quindi una relazione si può 
ammettere. ;-)
Ciao,
   Marco.
-- 
MARCO «Alka» BREVEGLIERI
   (
http://www.marco.breveglieri.name
)
Leggi le FAQ di ICLD: 
http://icld.altervista.org

Newsgroup: it.comp.lang.delphi
Titolo: Lista degli IP della macchina

Salve,
avevo fatto una volta una funzione che mi restituiva la lista degli
IP della macchina in uso.
Non riesco a ritrovare tale funzione e sinceramente al momento
ho problemi maggiori, mi chiedevo dunque se qualcuno avesse tale
funzione (o una simile) di mandarmela.
Grazie
Christian
--------------------------------
Inviato via 
http://usenet.libero.it

Avrai sicuramente WSocket.pas, dentro c'č una funzione con nome LocalIPList
che ritorna una TStrings, l'avrai vista probabilmente lě.
Ciao,
  Fabio
Newsgroup: it.comp.lang.delphi
Titolo: delphi mobile?

Ciao a tutti, siccome che per le versioni di Delphi sono rimasto alla 6 e 
per quello che faccio mi va oltre che bene, vi chiedo: con le versioni nuove 
di Delphi è possibile sviluppare anche per i dispositivi mobili che hanno 
scarse potenzialità Hardware e Software? Per esempio ho visto che con Java 
hanno il J2me. Noi che usiamo l'object-pascal che alternativa abbiamo? 

lorcuci ha scritto:

E' in cantiere una VCL specifica per .NET CompactFramework, suppongo per 
la prossima versione di Delphi... forse vedremo qualche "technology 
preview" in anteprima.
Al momento, è possibile sviluppare qualcosa su .NET CF anche con D2006:
http://blog.marcocantu.com/blog/fcwithdelphi2006.html
La libreria 
CF.NET
 è tuttavia limitata, così come lo è il supporto 
(sempre "technology preview") di Delphi 2006.
Ciao,
   Marco.
-- 
MARCO BREVEGLIERI
  (
http://www.marco.breveglieri.name
)

Newsgroup: it.comp.lang.delphi
Titolo: Problemino Query

Ciao a tutti,
Io ho un tabella con alcuni campi... tra i quali BANDE e POINT QRB..... io
ho creato la seguente query
select banda,pointqrb, count(id) as numqso from log WHERE data>=:DAL and
data<=:AL
and ( IDLOG = :IDLOG or :IDLOG = 0 )
and ( RADIO = :IDRADIO or :IDRADIO = 0 )
and ( IDANTENNA = :IDANTENNA or :IDANTENNA = 0 )
AND (MODO = :MODO OR :MODO = "*")
AND (BANDA = :BANDA OR :BANDA = "*")
group by pointqrb, BANDA
in questo modo mi prende tutte le bande e tutti i qrb ma io come posso fare
a prendere solo il più alto in ogni banda?
Grazie 1000 ciao
-- 
Lorenzo Mendini Iz2FOS
ICQ: 26993628 (Ayrton)
http://www.polopositivo.org
 (Home Page)

tanto x iniziare, potresti dirci quale db usi....
A
Newsgroup: it.comp.lang.delphi
Titolo: Classi Helper

Ho bisogno di un aiuto su questo genere di classi che ho scoperto
esistere sabato scorso. Non capisco se le uso in modo corretto e se
sono effettivamente la soluzione al mio problema, oppure,
semplicemente, devo impostare la mia applicazione in modo diverso:
in una Unit ho definito alcune classi (tutte derivate da TObject).
Nell'implementazione dei metodi di queste classi ho spesso bisogno di
alcune funzioni, sempre le stesse, indistintamente in una o nell'altra
classe definita in quella Unit (nel caso specifico funzioni per le
stringhe). Io ho dichiarato, sempre all'interno della stessa unit, una
classe helper anch'essa derivata da TObject, in modo tale che potessi
applicare i metodi definiti in questa classe anche a tutte le classi
derivate da TObject:
type
  TMyHelper = class helper for TObject
    function PrepareStr(Str: String): String;
    function GetFormattedLine: String;
    function IsNotNull(Str: String): Boolean;
    function FormatStrType(OutType: Char; OutLength, OutDec: Integer):
String;
  private
    function FormatStringF(StringF, Align: String; LengthF: Integer):
String;
  end;
Questo uso è corretto o esiste un altra via per poter utilizzare dei
metodi, diciamo, "di supporto"?
Un altro problema strano che ho notato è che se dichiaro questa classe
helper in una unit separata (helpers.pas), e metto helpers nello uses
della unit che contiene le classi che vogliono usare l'helper, mi da
un errore di sistema in fase di compilazione, poi salvo, chiudo e
riapro Delphi e compila, ma la funzione IsNotNull sembra non
comunicare il Result corretto al codice che l'ha chiamata. Un baco?
Grazie

 metodi, diciamo, "di supporto"?
Pi� che altro, perch� usare i "class helper" quando puoi semplicemente 
fare una procedura o una funzione, oppure metodi in una classe statica?
-- 
MARCO BREVEGLIERI
  (
http://www.marco.breveglieri.name
)

Newsgroup: it.comp.lang.delphi
Titolo: Libreria per la manipolazione di HTML

Ciao Raga,
Qualcuno conosce un buon set di componenti per la
manipolazione NON VISUALE dell'HTML?
Grazie in anticipo,
Andrea

Andrea
	Ciao
	MassimoB
 
---------------------------
http:\\
www.massimobeschi.it
Newsgroup: it.comp.lang.delphi
Titolo: Una dritta per fare un BEEP!

Vorrei che un mio programma sviluppato in D4 facesse un beep acustico ma non
dalle casse, ma dallo speacker del PC!
Quale istruzione devo usare?
Grazie...

Ciao,
prova cosě:
procedure sound(mhz : integer);
 var
   count
: word;
   oldport,
   newport  : byte;
  begin
    count := 1193280
div mhz;
    asm
      mov al,$b6
      out $43,al
      mov ax,count
out $42,al
      mov al,ah
      out $42,al
      mov al,3
      out
$61,al
    end;
  end;
procedure nosound;
  begin
    asm
      mov
al,0
      out $61,al
    end;
  end;
bye Max
--------------------------------
Inviato via 
http://usenet.iol.it
 

 Grazie...
Se non ricordo male, in D4 era sufficiente uno stupidissimo MessageBeep(-1)
o MessageBeep(65535)
Ho riprovato in D6, ma non funge più.....

Unit
Sysutils
Category
miscellaneous routines
procedure Beep;
Description
Beep calls the Windows API MessageBeep.
preso dall'help in linea di d5.
Bye
AS
"Se è Microsoft non funziona"
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Gią, ma okkio che in XP non funge, ed il Beep esce dalla scheda sonora.....

Windows.Beep(<frequenza>,<millisecondi>)
Evviva la semplicità.....

In pascal.. basta fare
sound(valore);
delay(tempo);
nosound;
ma in delphi nn va :(
"MaxSCZ" <NO_SPAM@NO_SPAM.i> ha scritto nel messaggio
news:195Z103Z190Z2Y...@usenet.iol.it...


Grazie MaxSCZ

 Evviva la
semplicità.....
peccato che per ogni sistema operativo ha un
funzionamento diverso! ;-D
Se è Microsoft non funziona....eheheh


> Windows.Beep(<frequenza>,<millisecondi>)


Per un BEEP dalle casse:
 Messagebeep (152);
Per un BEEP dallo Speaker:
 MessageBeep(65535)
Ciao a tutti...

Newsgroup: it.comp.lang.delphi
Titolo: Lock Interbase

Ciao a tutti
volevo sapere se era possibile e come si fa a lokkare un intera tabella
Interbase cosě da impedire l'accesso ad altri utenti.
Ciao e grazie 1000

A differenza di papa' Oracle che permette di mettere in offline un
tablespace, non so se ib permette questa cosa in modo semplice.
Se tu fornissi qualche info in + riguardo cio' che devi fare magari esiste
una soluzione alternativa.
Bye
A

Interbase così da impedire l'accesso ad altri utenti.
Col tipo di lock "Read Write Table Stability" che imposta i parametri
"write" e "consistency", dovresti ottenere qualcosa di simile, benché
tu possa comunque andare in Edit sulla tabella;  non puoi, però,
applicare le modifiche.  IB, che io sappia, non prevede il lock
pessimistico a livello di tabella, è simulabile a livello di record,
ma è preferibile rifarsi al lock ottimistico.
-- 
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".
Newsgroup: it.comp.lang.delphi
Titolo: [Fatal Error] Internal error: L1333

 
          Un saluto a tutto il NG, volovo sapere se vi è mai capitato questo errore e
da cosa sia dovuto.
Sto realizzando un programma per la lettura e scrittura di SmartCard e nella
procedura di scrittura esce "[Fatal Error] Internal error: L1333".
Se qualcuno gentilmente mi può aiutare.
Grazie
Vincenzo Di Falco.
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

Se qualcuno gentilmente mi può aiutare.
Gli errori L sono erorri del linker.
Prova a eliminare tutte le .dcu del progetto e poi ricompila, spesso
il problema si risolve.
ciao.
-- 
Ore 18.30: premo invio.

che usi? incard? gemplus?...
AS

Ho tolto tutti i dcu ma l'errore mi esce sempre.


Il lettore che uso è il seguente:
BluDrive della Blutronics.
http://download.blutronics.com/it/Load.asp?Id=228


 Ho tolto tutti i dcu ma l'errore mi esce sempre.
Prova a separare le "parti" (unit, procedure e altro ancora) del tuo 
progetto per vedere se è possibile identificare la parte che provoca il 
"crash" del linker.
Più che fare attenzione al modello della SmartCard, forse bisognerebbe 
verificare quale elemento della routine di scrittura impedisce al linker 
di funzionare correttamente.
Ci sono istruzioni assembly all'interno?
Prova a fare qualche indagine approfondita e a segnalarci dettagli 
aggiuntivi.
Ciao,
   Marco.
-- 
MARCO BREVEGLIERI
  (
http://www.marco.breveglieri.name
)

A me a volte basta fare una rebuild piuttosto che ricompilare
-- 
******
L'uomo č padrone di ciņ che ha da dire ma č schiavo di ciņ che ha detto.
****** 

 A me a volte basta fare una rebuild piuttosto che ricompilare
idem. 
Altre volte sono errori nei package, compilati con versioni differenti.
-- 
Mauro Falzari 
 
 "Se guardi nell'abisso, anche l'abisso guarda in te." 
   (Friedrich Nietzsche)

Newsgroup: it.comp.lang.delphi
Titolo: OT immenso su WINDOWS98 / ME

Scusate se l'argomento và fuori dal tema del newsgroup ma è proprio urgente:
Sapete come poter attivare la memoria espansa sotto Windows 98 o Windows ME?
Ho provato a installare il gestore di memoria EMM386 da Config.sys come da
vecchio DOS ma non và, mi dice:
"Emm386 non configurato perchè non riesce a trovare la pagina di memoria
iniziale" (+ o -)
Grazie a tutti,
Paolo



it.comp.os.win.win9x
-=SIMO=-

 ha scritto nel messaggio
news:a6kovi$ilf$1...@newsreader.mailgate.org...

Newsgroup: it.comp.lang.delphi
Titolo: SetFocus su un'applicazione

Salve, esiste qualche procedura che permetta di dare il "Focus"
all'applicazione delphi, mentre è attiva la finestra di qualche altro
programma windows. 
Ad esempio, richiamando con shellexec una DLL di windows con i giusti
parametri?
Grazie

"Montella Panchinaro" <nos...@graz.ccc> ha scritto nel messaggio
news:3bad964...@news.inwind.it...

Quando la finestra è già aperta:
puoi provare a usare "ShowWindow" passandogli l'handle della finestra e
"SW_SHOW", dovrebbe portartela in primo piano e dargli il focus.
Per trovare l'handle della finestra puoi usare "FindWindow"
ciao
--
*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-
Per rispondere in privato rimuovere 1975 dall'indirizzo
*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*

Newsgroup: it.comp.lang.delphi
Titolo: ridimensionamento alla form

Ho una form dove all'interno ho un componente WebBrowser, quando
massimizzo la form, il componente rimane al centro della form. Come
posso fare in modo che il componente si adatti al cambiamento della
form? Premetto che non posso mettergli come proprietà align=client,
perchè così mi andrebbe sopra/sotto la text box che ho in cima alla
form. Grazie a tutti.
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

puoi lavorare con le dimensioni WebBrowse all'interno dell'evento OnResize
del Form. Quando le dimensioni del Form cambiano tu cambi di conseguenza
quelle del WebBrowse.
omerosx

 form. Grazie a tutti.
prego.
-- 
Ciao, Anto', [35, 143, AQ] 
MB C SC 220 CDI Magma Red


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

Newsgroup: it.comp.lang.delphi
Titolo: D7 + Access

Salve
Ho impostato dei gruppi e degli utenti sul mdb di Access 2000. Quando genero 
la Connectionstring dell'AdoConnection mi verifica con successo la 
connessione ma quando provo ad utilizzarla per i dati mi restituisce un 
errore del tipo 'Non trovo il file contenente la gestione dei permessi'.
Alfio 

usi una connessione odbc?
AS

AS

hai impostato il db di sistema nella connessione odbc?
AS

AS
Ti riferici all'AdoConnectionString? In tal caso si, l'ho impostato.

> Ti riferici all'AdoConnectionString?
non so se è la stessa cosa.
Quello che dico io è sulla fonte dati ODBC e si chiama "database di
sistema".
Lo trovi nella parte bassa della maschera di creazione di una fonte
dati odbc che usa il driver per access.
AS
Newsgroup: it.comp.lang.delphi
Titolo: Passaggio dati da TListBox a TStringList;

 
          Ciao a tutti, devo passare tutto il contenuto di una TListBox ad una
TStringList.
Ho provato in questo modo ma non funziona:
var
    MyListBox: TListBox;
    MyStringList:TStringList;
  MyStringList:=MyListBox.items;
C'è qualche altra maniera oppure devo passare gli elementi 1 ad 1?
Grazie, Mario
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 TStringList. [...]
Prova con
   MyStringList.Assign(MyListBox.Items);
ovviamente dopo aver creato un'istanza di *TStringList* ricordandoti di 
distruggerla dopo l'uso, magari con un costrutto try...finally.
Ciao! :-)
-- 
MARCO «Alka» BREVEGLIERI
   (
http://www.marco.breveglieri.name
)
Leggi le FAQ di ICLD: 
http://icld.altervista.org

 C'č qualche altra maniera oppure devo passare gli elementi 1 ad 1?


Newsgroup: it.comp.lang.delphi
Titolo: Barra di scorrimento su listbox

Ho due listbox che devo tenere sincronizzate. Sulla prima compare una barra 
di scorrimento verticale essendo la listbox piu' lunga della parte 
visualizzata. Come posso intercettare la posizione sulla listbox mentre uso 
la barra di scorrimento?
Saluti
Furio Fabbri 

 ha scritto nel messaggio
news:313Sd.42649$QG6.7...@twister2.libero.it...

Newsgroup: it.comp.lang.delphi
Titolo: orario

scusate la domanda che molti di voi toveranno da scemi, ma coe faccio ad
inserire l'ora in una label?
io ho provato con label1.caption := timetostr(time);
però mi mette l'ora e rimane li ferma..
come faccio a far scorrere i secondi?
grazie
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

usa un TTimer.
Bye
A

 come faccio a far scorrere i secondi?
Prova a sfruttare l'evento OnIdle della Form. Trovi informazioni sull'help 
e su google.
-- 
Una volta che avete conosciuto il volo, camminerete sulla Terra guardando 
il cielo, perché là siete stati e là desiderate tornare (Leonardo da Vinci)

come faccio a far scorrere i secondi?
Sfrutta l'evento OnIdle dell'applicazione.
-- 
Andrea Laforgia
Open Delphi Manual
http://groups.yahoo.com/group/delphi_open_manual/

 come faccio a far scorrere i secondi?
In questo periodo ho come una serie, costante, di dejavou :D
Andrea Corrieri, vai su 
http://groups.google.it
 e fai una ricerca. Ci sono
tonnellate di risposte sull'argomento. GASP!! EBBASTA!
Ciao, Sandro

 e su google.
Non avevo mai pensato ad utilizzare l'OnIdle, cosě in prima battuta avrei
usato anche io un Timer
-- 
Lis
ICQ@Home #7317603sette     ICQ@Work #16285702tre
Mercatino: 
http://lis77.bravepages.com
 (aggiornato *con foto*: 16/06/03)

 wrote in message
news:bfm12b$g9ai9$
1...@ID-43509.news.uni-berlin.de

si vede che mangi pesante..



Mangerà anche pesante ma ha ragione.
Del resto una ricerca su google ti facilita di molto il compito perchè nella
maggior parte dei casi hai subito la soluzione invece di aspettare che
qualcuno ti risponda sul ng.
E questo è un discorso che vale per tutti non solo per te.
Ciao,
MM

noooooo, Zortek!
Google è un giocatttolo che serve solo per le foto sexy, i crack e gli
mp3....
Mica serve x lavoro e per le cose serie... :))))
A


LOL !! a proposito di google, lo sai che su google nel tempo ho trovato le
cose piu' strane, dal motivo per cui si fa la cacca verde (giuro!) alle
risposte (TUTTE) dei quiz televisivi.. in oltre 10 anni di newsgroup
qualcuno prima o poi ha parlato di QUALUNQUE cosa ti possa venire in mente
:D
Ciao, Sandro
Newsgroup: it.comp.lang.delphi
Titolo: [ Off Topic] Per sorridere..

L'ho trovata in un newsgroup
New WinXP error:
"BREAKFAST.SYS halted... Cereal port not responding!"
Ciao, Daniele 
__________ Information from ESET NOD32 Antivirus, version of virus signature database 4634 (20091124) __________
The message was checked by ESET NOD32 Antivirus.
http://www.eset.com

 L'ho trovata in un newsgroup  [...]
La cosa che questa settimana mi ha fatto piï¿œ ridere ï¿œ la risposta di un 
utente a una persona che domandava i motivi per cui in JavaScript si 
scelgono i doppi apici o virgolette (") o gli apici singoli (') per 
rappresentare delle stringhe di testo.
Il suggerimento era quello di "utilizzare l'apice singolo perchï¿œ si 
risparmia un carattere"... :)
Ovviamente, spero che chi ha fornito questo suggerimento volesse fare 
una semplice battuta. :D
Ciao,
   Marco.
-- 
MARCO BREVEGLIERI
  (
http://www.marco.breveglieri.name
)

 una semplice battuta. :D
..in fondo non e' tanto peggio di alcune cose che sono passate su
questo ng, Marco.... :-)))))
A.
Newsgroup: it.comp.lang.delphi
Titolo: Zeos che mi combini!?!?!?

Applicazione 1: ZMySQLDatabase, server "localhost", a design time se
imposto Connected a True, si collega senza batter ciglio; a run-time mi
dice "Can't connect to MySQL server on 'localhost' (10061)".
Applicazione 2: situazione *identica*, stesso componente, stesse
proprietą, stesso server, a run-time si collega.
Mai capitato? sob :_(
--
Jax

Rispondo a Jax che ha scritto:

Non solo!!!
Sapete un'altra cosa bella? Seleziono e *copio* tutti i componenti sulla
form, li incollo su una nuova form in un nuovo progetto, copio il codice
e... tutto funziona!!!!!!!!!!!
Non ho parole.
--
Jax

Non ho parole.
Neanche io, sopratutto per certe stranezze, ad esempio componenti 
che si comportano in un modo SOLO la prima volta che li utilizzi, 
dalla seconda volta, gli dai un show e cambiano comportamento.
Mi tocca crearli e distruggerli ogni volta che mi servono.
Va be'... se avessimo tempo per studiare queste cose sarebbe una pacchia, 
a volte siamo costretti a trovare dei workaround per stare nei tempi di consegna.
Ciao
Morde

 Neanche io, sopratutto per certe stranezze, ad esempio componenti
Ma io non ci posso credere. E scommetto che neanche tu ci crederai.
Ho ricreato il progetto copiando tutti gli oggetti, l'ho provato e
funzionava alla perfezione, e non una volta sola... parecchie volte.
L'ho salvato e.... stesso errore!!!!!!!!!!!!!!
A questo punto non so più che pesci pigliare.
--
Jax

A questo punto non so più che pesci pigliare.
Ho gia' affrontato un problema simile:  ad una riunione 
di lavoro me ne uscii con la frase "ok, a questo punto applichiamo 
il "metodo capuozzo".
A parte l'ilarita' della battuta, intendevo: cerchiamo il metodo piu'
efficace, nel minor tempo possibile, magari poco elegante e conforme a
certi standard oop, ecc... MA CHE FUNZIONI.
Questo, ovviamente, se non hai + tempo e sei pressato.
prova a salvarti il progetto in altre forme (dfm come testo ad esempio)
riavvia la macchina, elimina tutti i tsr/servizi che non ti servono
cancella tutti i file che non servono (se hai gexperts c'e' una 
voce "clean directories" che ti agevola)
builda il progetto un paio di volte (si... un paio: non sempre il build 
di progetti corposi e' perfetto al primo colpo).
Se il problema persiste, loggati gli oggetti dopo la create e prima di 
riutilizzarli.
Infine, incrocia le dita.... ^__^
Ciao,
Morde

 Io uso Delphi 5 - win2000
Mi sembrava un problema *troppo* strano perché potesse dipendere da
Delphi o dagli Zeos... infatti era colpa di ZoneAlarm che non si era
disinstallato correttamente.
Che peso enorme che mi sono tolto!!!!!!
--
Jax
Newsgroup: it.comp.lang.delphi
Titolo: [D2007] WORD 2000

Ciao a tutti.
Tra le varie prove che sto facendo con la trial di D 2007 ho provato anche a 
utilizzare le oleautomation .
Con D5 , da cui provengo, avevo fatto in modo di poter gestire in automatico 
la compilazione di un foglio di Microsoft Word 2000.
Ora nel ricompilare questi sorgenti con D 2007 ho dovuto apportare qualche 
piccola correzione per poter eliminare i vari errori di compilazione, ma non 
riesco a far funzionare la procedura.
Vi sottolineo che ho provato solo con Word 2000 su una macchina XP e 
purtroppo mi occorre che funzioni proprio con la versione 2000 e questo è il 
motivo per cui non mi installo una versione di Office XP o 2003.
Vi riporto le istruzioni che utilizzo :
1) inserico dalla tool palette - server  la   "Wordapp"
2)
           try
             WordApp.Connect;
           except
             on E: Exception do
             MessageDlg(E.Message, mtError, [mbOK], 0)
           end;
3) assegno alla olevariant "nomefile" il nome di file di word già esistente
4) poi cerco di aprire il file di word con  :
WordApp.Documents.Open(nomefile, EmptyP, EmptyP,
                               EmptyP, EmptyP, EmptyP, EmptyP,
                               EmptyP, EmptyP, EmptyP, EmptyP,
                               EmptyP, EmptyP, EmptyP, EmptyP);
(emptyp è un'altra olevariant)
Il problema nasce subito sulla istruzione nr. 2
Già con "WordApp.Connect" l'utilizzo della CPU  va al 100%, Microsoft word 
viene aperto nel task manager, anche se non visualizzato ed inizia ad 
occupare il 98-99% della CPU.
Con D5 tutto funzionava a meraviglia.
Spero di essermi spiegato.
Qualcuno ha qualche idea ?
Grazie
Marco

> Qualcuno ha qualche idea ?
succede la stessa cosa se vai direttamente via ole con
CreateOleObject?
A.

L'apertura di Word , la creazione di un documento nuovo ,il salvataggio con 
nome funzionano perfettamente.
Tutto funziona, ma preferivo che funzionasse anche il resto, per non dover 
rifare le procedure.
Grazie
Ciao
Marco
Newsgroup: it.comp.lang.delphi
Titolo: Conversione ORA in DECIMALE da Excel

Ho questo problema:
leggo un campo ora di un file excel che contiene il valore esatto (es:
18.08) se lo leggo in delphi mi trovo il valore convertito in numerico
(es 0,715344444) come faccio a convertire tale valore nel valore reale?
Per leggere il file excel uso i componenti TMS
Grazie 1000
Gianluca

 ha scritto nel messaggio 
news:1123263022.7...@g49g2000cwa.googlegroups.com...


Diciamo che moltiplicando il valore per 24 mi avvicino ma non è
esatto, bisognerebbe trovare un coefficiente che vada bene.
Idee?

 
se fosse un rapporto fisso, basterebbe una semplice proporzione per 
trovare l'algoritmo corretto. Ti consiglio di mettere in un doc excel un 
po di ore note, di vedere cosa leggi da delphi, e di cercare di 
stabilire una regola. Potrebbe antrare nella regola anche il duso orario 
o l'ora legale, magari.
ZioGian
PS- facci sapere, siamo probabilmente tutti stufi di risolvere inutili 
soduko ( o come ca..pperi si chiama quel gioco)

Newsgroup: it.comp.lang.delphi
Titolo: Leggere funzioni da modulo DB Access con ADO

ciao a tutti, ho guardato nel news e su internet ma non trovo aiuto,
quindi chiedo:
ho un db access con delle query che fanno riferimento a dele funzioni
specificate in un modulo VB. se eseguo le query ovviamente in access
tutto ok, ma quando collego le query con ado mi salta fuori "funzione
non definita nell'espressione"....
accidenti come si fa a far "vedere" o capire ad ADO che la funzione
sta nel modulo? non dovrebbe farlo da solo?
Grazie

 sta nel modulo? non dovrebbe farlo da solo?
Access ti confonde le idee in quanto "da dentro" non sai, usando una
funzione, se è del database o di quella specie di IDE che si porta
dietro.
Su questa cosa ho tozzato un po per fare un favore ad un amico.
Da fuori, via sql vedi solo "motore" che processa gli statement sql e
ti mette a disposizione le tabelle e le viste (che in access si
chiamano query, tanto x confonderti le idee un altro po..)
AS
Newsgroup: it.comp.lang.delphi
Titolo: Chiudere finestra esterna all'applicazione delphi

Ciao a tutti.
Ho questo problema: devo lanciare un'applicazione esterna alla mia da riga 
di comando.
Con ShellExecute, OK lo faccio.
Questa applicazione, però, mi apre una finestra di dialogo in cui conferma 
la corretta esecuzione del comando.
Come posso chiuderla dalla mia applicazione delphi?
Help me! 

 ha scritto nel messaggio 
news:GTdpe.137471$IN.23...@twister2.libero.it...


Newsgroup: it.comp.lang.delphi
Titolo: traduzione consts.pas e dbconsts.pas

Qualcuno si è "smazzato" la traduzione in italiano e/o sà dove scaricarli ?
Grazie !

Qualcuno si è "smazzato" la traduzione in italiano e/o sà dove scaricarli ?
Lo sto facendo io, se hai la pazienza di attendere qualche
giorno :)
-- 
Andrea Laforgia (
walkie...@libero.it
)
"Usenet is a strange place" [Dennis Ritchie]

 ha scritto nel messaggio
news:3c8149b7...@news.tin.it...


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

Ho un form con una tlistview e due pulsanti (avanti ed indietro).
Vorrei che i pulsanti avanti/indietro muovessero l'item selezionato
sulla tlistview e per fare questo uso:
listview1.itemindex := listview1.itemindex +(-) 1;
Il problema č che dopo aver usato i due pulsanti, se ci vado
dentro con le frecce della tastiera, l'item selezionato cambia in
modo casuale (o forse no! Penso che sia l'ultimo item cliccato).
Come si fa?
Grazie

 listview1.itemindex := listview1.itemindex +(-) 1;
Salve! Credo che dovresti usare qualcosa del tipo:
listview1.item.itemfocused (o qualcosa del genere)
e magari dopo esegui
listview1.update
PS: io uso il C++ builder pero' qualcosa del delphi la conosco perche' l'ho
usato diverso tempo fa. purtroppo la memoria si sta arrugginendo e posso
aver commesso qualche errore. prova ugualmente. CIAO!
Newsgroup: it.comp.lang.delphi
Titolo: Newsgroup su C++ Builder

Esiste un newsgruop in italiano relativo a C++ Builder ?

Esiste un newsgruop in italiano relativo a C++ Builder ?
Ni.
http://groups.google.it/groups?&threadm=amvb8o%24jga%242%40lacerta.tiscalinet.it
-- 
Morde. 
(morde at programmer dot net)

 Esiste un newsgruop in italiano relativo a C++ Builder ?
Se le questioni sono relative alla VCL si puo' pensare di postare qui,
altrimenti direi che i ng di riferimento sono it.comp.programmare.win32
o, per questioni sul linguaggio C++ it.comp.lang.c++
Saluti
Paolo Arosio

 ha scritto nel messaggio
news:bgm14l$q8rej$1...@ID-30644.news.uni-berlin.de...


E' un problema aprire un nuovo newsgroup ?
A parte la procedura piuttosto articolata per farlo (documentati nei gruppi
gcn) il problema e' che dovresti trovare sufficenti adesioni, ma la maggior
parte degli utenti ti direbbe che questi contenuti li trovi gia' nei gruppi
citati da Paolo.
Cmq non voglio dissuaderti,anzi... potresti incominciare a pubblicare una RFD,
e da li' partirebbe il discorso...
Ciao


Builder ?
Si è pensato di farlo, ma l'apertura effettiva dipende dal GCN, che è
molto severo e selettivo (forse a ragion veduta) in quanto ad aprire
nuovi gruppi.  Temo che non si raggiungerebbe il "quorum" nella Call
For Votes, il C++ Builder, rispetto ad altri prodotti della stessa
fascia, è molto poco usato a livello professionale.  In ogni caso, è
lecito discutere di C++ Builder su it.comp.programmare.win32 (anche se
è praticamente monopolizzato dal Visual C++) e quindi il GCN non
approverebbe di sicuro, anche se ci fossero le adesioni.
-- 
Andrea Laforgia
Open Delphi Manual
http://groups.yahoo.com/group/delphi_open_manual/

approverebbe di sicuro, anche se ci fossero le adesioni.
Sto andando OT ma ci tenevo a specificare che (almeno fino a qualche anno fa)
se raggiungevi il quorum previsto durante il CFV il gcn *non* si puo' opporre
alla volonta' degli votanti. Almeno cosi' mi ricordo io, ma sono passati
anni...


se raggiungevi il quorum previsto[...]
Non ricordo il meccanismo, si ebbe qualche problema all'epoca di
it.comp.lang.python, per cui ci si dovette basare su it.comp.lang per
un bel pezzo.


Newsgroup: it.comp.lang.delphi
Titolo: Convenzioni di scrittura codice

Esiste qualche documento online che indica le covenzioni da utilizzare con
Delphi ?, capisco che sono personali pero' credo che se
mi rifaccio a qualcosa che viene dai piu' condiviso rendo il codice piu'
semplice da leggere e da far leggere.
Ciao Türtčl

 Delphi ?
http://community.borland.com/article/0,1410,10280,00.html
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 
http://community.borland.com/article/0,1410,10280,00.html
Grazie Andrea, l' articolo che mi hai segnalato risolve le mie domande.
Ciao Türtèl
Newsgroup: it.comp.lang.delphi
Titolo: bottoni form bloccati

salve,
sto creando un'applicaziona per il collegamento ad internet che dovrebbe
fornire delle statistiche (per il momento simulo le statistiche con dei
contatori che vengono visualizzati in campi label del form); io ho un
form ove ci sono pulsanti (o menu) di connessione/sconnessione e
statistiche di colegamento; pero' quando faccio partire la connessione,
si visualizzano le statistiche, ma non si riesce piu' a cliccare sul
bottone di disconnessione; ho provato anche con un thread per aggiornare
le statistiche , ma il form risulta sempre bloccato; ho provato con form
mdi: idem; io sono agli inizi, qualche idea?
grazie.
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 wrote in message
0452fd5e431c03653e6...@mygate.mailgate.org...

Prova a postare il codice interessato
Ciao

Ciao
grazie per l'interessamento, ma ho risolto (cosi' parrebbe) con
syncchronize.
ciao.


dai un'occhiata ad Application.processmessage;
--
Davide Consonni
(
davidec...@virgilio.it
)

Newsgroup: it.comp.lang.delphi
Titolo: Interagire con le pagine web 2 ( a volte ritornano : D )

Salva a tutto l'ng ho seguito con interesse la sezione prima di questa
sull'argomento, e volevo sapere se c'è la possibilità di scrivere dentro a
un campo input, ben definito, dei dati che ricevo dalla seriale.
La lettura della seriale l'ho già eseguita, solo non riesco a spedire i dati
al campo input.
Qualcuno ha una qualche idea?
Grazie ha tutti.
Simo
P.S.
Per ragioni di programmazione non posso usare componenti.
THX

 al campo input.
Se stiamo parlando di un campo input di una pagina web.....esempio in
PHP....
sulla pagina varia i campi imput in questo modo:
<input type="text" name="pippo" value="<? print $valore ?>" >
Nell'esempio sopra viene dato il valore contenuto nella variabile "valore"
al campo input "pippo", tramite l'istruzione PHP: <? print $valore ?>
(se usi questo esempio ricordati che le pagine in php in genere si devono
chiamare .php o .phtml)
nel tuo programma crea un link con la variabile "valore" che vuoi postare
es: 
www.paginaform.it?valore=quellochevuoitu
adesso richiami la pagina con quel link (magari usando le API di windows) e
il gioco è fatto.
P.S.
Ricordati di formattare correttamente i valori da postare altrimenti i
valori inviati non corrisponderanno all'originale (es: parole con gli spazi
verranno tagliate)
Ciao
Gianni Giusti
gianni...@tiscalinet.it
Newsgroup: it.comp.lang.delphi
Titolo: Delphi e Pocket PC

Qualcuno ha portato su pda Pocket PC o Phone Edition piccoli eseguibili per
la gestione dati ?
Abitualmente uso Paradox , ma qualsiasi soluzione mi va bene, pur di
ottenere un risultato.
Grazie a chiunque avesse buone notizie.

"rsorso" ha scritto

Io ho usato VB.Net per scrivere l'applicazione, ADO come tecnologia di
accesso ai dati, XML per la memorizzazione.
Sul Pocket PC viene installato il CompactFramework. Se vuoi processi che
"girano" sul PDA non credo ci sia altra soluzione diversa da C#, VB.Net o i
vecchi eVC ed eVB.
Diversamente, se hai sempre a disposizione la rete aziendale o
un'applicazione web che ti fornisce i dati, puoi sempre scrivere qualche web
service, o ASP (o qualunque tecnologia tu preferisca) da far girare su una
macchina con installato IIS. A questo punto sul server hai l'imbarazzo della
scelta dell'ambiente di sviluppo e della tecnologia di accesso ai dati.
Ciao,
Gianluca.
Newsgroup: it.comp.lang.delphi
Titolo: Stampare un foglio Excel

Scusate qual'è il metodo migliore e + veloce per mandare in stampa un
foglio di excel dall'interno di un prg D7?
magari senza far aprire la parent application (excel in questo caso).
Saluti per tutti
Giovanni Caramia

> magari senza far aprire la parent application (excel in questo caso).
dubito che esista un modo x farlo.
In genere si usa oleautomation di cui si è spesso parlato su questo ng.
A

In genere si usa oleautomation di cui si è spesso parlato su questo ng.
Concordo con l'amico Alberto: se tu vuoi la stampa che faresti con excel, devi
per forza invocarla da excel tramite l'ole automation.
Ma c'e' qualche componente che ti viene in aiuto, in questo caso ti propongo
OfficePartner di Turbopower, eccellente suite per l'automazione dell'ufficio,
utilizzando i suoi componenti puoi stampare un foglio con una sintassi di
questo genere:
var
  tSheet: OleVariant;
    for i := 1 to wb.AsWorkbook.Charts.Count do
    begin
      tSheet := wb.AsWorkbook.Charts[i];
      tSheet.PrintOut(EmptyParam,EmptyParam,1,False,EmptyParam,False,False);
    end;
Lo trovi su sourceforge, opensource
http://sourceforge.net/projects/tpofficepartner/
Invece su torry ho tovato uno zip con tanti esempi in delphi di come
interfacciarsi ad excel97:
http://www.torry.net/samples/samples/soft/excel97e.zip
Prova anche questo!
Altri metodi possibili sono nell' accedere alle info contenute nei fogli di
excel tramite ADO, un corposo articolo a riguardo lo trovi dal nostro amico
Zarko:
http://delphi.about.com/library/weekly/aa090903a.htm
Buon divertimento: ah mi raccomando facci sapere come l'hai risolto!
Ciao
-- 
Morde. 
(
mo...@despammed.com
)
M-List di icld: 
http://it.groups.yahoo.com/group/icld/

Buon divertimento: ah mi raccomando facci sapere come l'hai risolto!
posto qui il codice che ho usato:
uses comobj;
procedure TForm1.Button1Click(Sender: TObject);
 var MyExcel: olevariant;
begin
 MyExcel:=UnAssigned;
 MyExcel:=CreateOleObject('Excel.Application');
 Try
    MyExcel.Visible:=false; {oppure true se si desidera che Excel
venga  visualizzato}
    MyExcel.WorkBooks.open('..\cartel1.xls');
    MyExcel.WorkSheets.Printout;
 Finally
    if not varisempty(MyExcel) then
    begin
      MyExcel.quit;
      MyExcel := unassigned;
   end;
 end;
end;
end.
Magari a qualcuno può servire.
Ho dato un'occhiata ad OfficePartner. Mi sembra interessante anche
perchè alleggerisce parecchio l'incubo della sintassi ereditata da
VBA. Brrrrr!!!
Alla prossima occasione lo utilizzerò sicuramente.
grazie ancora per la collaborazione
Giovanni Caramia
Newsgroup: it.comp.lang.delphi
Titolo: [Delphi 5] Problemi con l'ItemIndex del Tcombobox

Salve, ho due form. In una, frmMain, c'è un bottone che apre un'altra form,
frmEdit, che contiene una textbox e una tcombobox. In frmMain ci sono due
variabili pubbliche, "testo" e "valore". La prima è di tipo string la
seconda di tipo integer.
Quando lancio il form cosi:
        with TfrmEdit.Create(Self) do
                try
                    ShowModal;
                finally
                    Destroy;
                 end;
nel textbox appare correttamente il valore di "testo", mentre però
l'ItemIndex del combobox non varia. Nell'evento OnCreate di frmEdit c'è
cboItem.Items := frmMain.cboItems.Items;
txtName.Text := testo;
cboItem.ItemIndex := frmMain.formato;
E non va, mentre prima si. Non riesco in alcun modo a farlo andare..ho
provato a spostare l'istruzione all'onshow, ma niente. Se richiamo il form
da un'altro form ancora, invece, funziona (senza che nulla cambi) . E se al
posto di cboItem.ItemIndex := frmMain,formato metto un valore numerico (del
tipo 0), questo funziona.
Come mai improvvisamente fa questi errori odiosi? grazie ciao!

 l'ItemIndex del combobox non varia. Nell'evento OnCreate di frmEdit c'č


 E non va, mentre prima si. Non riesco in alcun modo a farlo andare..
Soggetto, prego.
Hai messo un breakpoint per vadere se il codice viene eseguito? La combo
della modale viene riempita? Hai nella implementation uses della modale
la principale? Perche' := testo e non := frmMain.testo? Perche' non
usare un constructor personalizzato o, al limite, un bel metodo pubblico
Initialize nella modale da richiamare prima di ShowModal in cui passare
la TStrings, la stringa e l'intero?
Saluti
Paolo Arosio

 la TStrings, la stringa e l'intero?
Mmm...potresti spiegarmi meglio come fare? Grazie per la disponibilità!

 disponibilità!
fra i metodi pubblici di TfrmEdit aggiungi:
procedure Inizializza(anSl: TStrings; aString: string; anInt: integer);
L'implementazione sara', semplicemente,
 cboItem.Items.Assign(anSl);
 txtName.Text := aString;
 cboItem.ItemIndex := anInt;
la chiamata:
with TfrmEdit.Create do try
  Inizializza(frmMain.cboItems.Items, testo, formato);
  ShowModal();
finally
  Free;
end;
Saluti
Paolo Arosio

 ha scritto nel messaggio
news:bcklfb$k9fmb$1...@ID-30644.news.dfncis.de...

Newsgroup: it.comp.lang.delphi
Titolo: Ordinare un Dataset (non un ClientDataSet) e limitare il numero dei record

Buongiorno a tutti,
vi chiedo un aiuto, probabilmente la soluzione è molto banale, ma non
saprei che strada prendere.
Mi ritrovo con un oggetto della classe TDataSet. Ho la necessità di
orinarne i record e, per esigenze di visualizzazione in una griglia "a
pagine", ho la necessità di tenere solo i record compresi in un certo
range (per esempio dal decimo al quindicesimo).
Devo farlo a mano, implementando un algoritmo di sort, creare un altro
dataset e riempirlo con i dati di quello attuale, oppure esiste una
scappatoia? Non potrei, da questo dataset, ricavare un cliendataset?
Grazie
Francesco


Si, se la griglia non ti consente di farlo puoi usare un CDS:
// non testato
// prima crei un cds duplicando i campi dell'altro ds
MyCDS := TClientDataSet( SrcDS.Owner );
for i:=0 to SrcDS.Fields.Count -1 do
  MyCDS.FieldDefs.Add (SrcDS.Fields[i].FieldName,
SrcDS.Fields[i].DataType, SrcDS.Fields[i].Size);
MyCDS.CreateDataSet();
// ... a questo punto puoi ordinarlo
MyCDS.IndexFieldNames = 'campo1;campo2';
// ... o filtrarlo a piacimento
MyCDS.Filter := 'campo3 between 100 and 200';
ciao
Giacomo

 MyCDS.Filter := 'campo3 between 100 and 200';
ovviamente, non *cosi' tanto* a piacimento! :)
MyCDS.Filter := '(campo3 >= 100) and (campo 3 <= 200)';
ciao
  Giacomo

 MyCDS := TClientDataSet( SrcDS.Owner );
...xche non un cds+tdatasetprovider al quale collegare il dataset
sorgente? :-|
A.

Grazie Giacomo, quindi non è possibile in qualche modo passare il
DataSet già esistente ad un ClientDataSet, chessò, facendo un cast?

 DataSet già esistente ad un ClientDataSet, chessò, facendo un cast?
F1 sul dataset cosa ti dice?
Esiste un metodo di copia o di caricamento?
Mal che vada, dopo esserti copiato la struttura, fai un ciclo che scorre 
tutti i record sorgenti e li aggiunge al CDS.
Ad ogni modo, io considero la strada migliore quella di sostituire il 
dataset al CDS, linkato ad un un provider come suggerisce Alberto.
-- 
morde
QT 4.7
Delphi (5,6,7.. expired)
Firebird Database

Alla fine l'ho (me la hanno) risolta così:
passato il Dataset (aDataSet) nei parametri, insieme a FSortColIndex
(il campo da utilizzare per l'ordinamento) e FSortOrder ('ASC' per
ascendente e 'DESC' per discendente)  ...
[...]
var
  cds: TClientDataSet;
  ...
begin
  ...
  cds := TClientDataSet (aDataSet);
  cds.IndexDefs.Clear;
  indexDef := cds.IndexDefs.AddIndexDef;
  indexDef.Fields := FSortColIndex;
  if SameText (FSortOrder, 'DESC') then
    indexDef.Options := [ixDescending];
  indexDef.Name := 'myindex';
  cds.IndexName := 'myindex';
  ...
Per futura memoria.

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

dove posso trovare un buon tutorial su questo componente?!??!
Grazie

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