mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.delphi
Titolo: creazione oggetto runtime

ciao
ho un problema nella creazione di un oggetto TDatabase a runtime.
Ho dichiarato una mia classe TmyDB che contiene un oggetto TDataBase e un
oggetto TQuery.
dichiaro delle variabili come :
myDB1,myDB2:TmyBD;
nel programma principale creo le istanze alle classi con il seguente metodo
:
myDB1 := TmyDB.Create(self);
L'errore che ricevo in fase di esecuzione del programma è : "Duplicate
Database name"
ho provato ad usare il seguente costruttore :
constructor TmyDB.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  Inc(myCount);
  BDEConnection.DatabaseName := 'dbname'+IntToStr(myCount);
end;
ma il problema persiste perchè quando creo l'oggetto ne eredito anche il
nome che è duplicato e proprio questo genera l'errore,
potete aiutarmi percortesia ??
grazie ciao!!!
Alberto

end;
Non mi e' chiaro se myCount e' membro di TmyDB. (dal costruttore
sembrerebbe di si)
Se cosi' fosse ad ogni create di tMyDB myCount avrebbe sempre lo
stesso valore.
myDB1 := TmyDB.Create(self); /// MyCount è 0,
BDEConnection.DatabaseName := 'dbname0'
myDB2 := TmyDB.Create(self); /// MyCount è sempre 0
BDEConnection.DatabaseName := 'dbname0'
Questo se ho capito bene, ma non credo....
Ciao
Morde
Newsgroup: it.comp.lang.delphi
Titolo: BDE installazione

Salve a tutti,
Sto realizzando un programa in delphi che deve sfogliare un file DBF in un
server di rete, insieme ad un suo programma gemello.
Ovviamente non ho installato l'alias sul client...e vorrei instalarlo in
modo da poter usare gli aliAS sul programma visto che ho provato a fare
direttamente riferimento alla cartella di rete ma senza successo..il
programma mi dice sempre che gli manca qualcosa del BDE.
Sto usando delphi 7. Se qualcuno sa come risolvermi questa grana in maniera
rapida e semplice mi farebbe un gran favore. Ho fatto diversi tentativi e ho
avuto successo solo usando ODBC alias e "immergendo" il mio programma nella
directory BDE presa dal cd di D7...metodo un po' brutale...
Grazie a tutti
Gianluca, programmatore decisamente inesperto.
supe...@libero.it

modo da poter usare gli aliAS sul programma visto che ho provato a fare
Non so se ho capito bene quello che devi fare però è possibile col BDE
installare l'esegubile del tuo software, ovviamente installare il BDE
e non avere bisogno di alias configurati a mano, si tratta di caricare
i parametri dell'oggetto database da file. P.es. 
dbCars.Params.LoadFromFile(sdir + '\alias.ini');
e alias.ini è
PATH=D:\work\gino\DATA
OPEN MODE=READ/WRITE
fe...@delenda.net
-- 
Bienvenido al club del los imposibles
de balas perdidas con siete vidas

Newsgroup: it.comp.lang.delphi
Titolo: Compressione con Delphi e Kylix

Ciao a tutti,
ho un problema che non riesco a risolvere. Devo far comunicare due programmi
che lavorano in ambiente windows e linux via tcp/ip comprimendo però i dati.
Per la trasmissione uso i componenti tcp/ip di indy mentre per la
compressione
avevo pensato di usare zlib ma non ho trovato una versione per il kylix.
Qualcuno conosce dei componenti che eseguano la compressione di stream si
in ambiente delphi che in quello kylix?


Mars University: «Knowledge brings Fear»

 Ciao!
Proprio quello che cercavo!!
Grazie mille!
Newsgroup: it.comp.lang.delphi
Titolo: Breakpoints

A volte mi capita.. (non sono riuscito a capire il nesso)
che in debug ..mi compila ...la procedura funziona ma
non si ferma sui breakpoint.. infatti se vado a vedere
sull'editor non mi mette i classici pallini di codice compilato
e il pallino del breakpoint è contrassegnato con una crocetta.
Da cosa dipende?
Raf

Magari ti sei posizionato su del codice sul quale mai passerà!
ad esempio nella procedura che vedi di seguito ti fa mettere i breakpoint
dalla prima all'ultima riga ma in esecuzione quelli realmente attivi saranno
solo il quarto e l'ultimo...
procedure TForm1.FormCreate(Sender: TObject);
var a : INTEGER;
begin
  if a = 1 THEN
  begin
    inc(a);
  end
    else
      begin
        dec(a);
      end;
end;
spero di esserti stato utile!!!
--
Max Etere
massimili...@programmando.org
http://www.programmando.org

 ha scritto nel messaggio
news:71d%8.105252$Jj7.2...@news1.tin.it...


 che viene eseguito.
posta il codice... sicuramente il compilatore non è impazzito ;)


 ha scritto nel messaggio
news:Uhd%8.105380$Jj7.2...@news1.tin.it...


 ha scritto nel messaggio
news:iUc%8.105193$Jj7.2...@news1.tin.it...


Hai letto il mio primo post?
..quei pallini non vengono inseriti..
..ma il codice viene eseguito!
Raf
"BerserKer" <inf...@telecomponenti.puntoit> ha scritto nel messaggio
news:Gsd%8.105469$Jj7.2...@news1.tin.it...


 ha scritto nel messaggio news:iUc%8.105193$Jj7.2...@news1.tin.it...



Ops, I'm sorry.

 ma non riesco a trovarla.
credo dipenda dall'ottimizzazione del codice che fa il compilatore,
per esempio se metti il breakpoint su una riga in cui inizializzi una 
variabile ma poi questa variabile non viene mai usata il compilatore salta 
la compilazione di quella riga, quindi anche il breakpoint, inoltre ti 
dovrebbe dare un hint:
[Hint] [cut]: Value assigned to 'i' never used
ciao, Antň.
P.S.
L'ottimizzazione del codice č disattivabile.

 L'ottimizzazione del codice è disattivabile.

Ciao innanzi tutto, noi abbiamo lo stesso identico problema e vorremmo
porti una domanda... stai debaggando su un sistema con Windows XP
Professional... perche noi su due sistemi diversi ma sempre con Windows
XP rileviamo lo stesso fastidioso problema che non si verificava su
sistemi precedenti a Windows XP. Il problema a noi pero si verifica solo
debuggando DLL. Ciao.

 ha scritto nel messaggio news:ahp9d2$kuk$1...@gossip.excite.it...


Newsgroup: it.comp.lang.delphi
Titolo: [consiglio] componente per fare zoom su jpeg

ciao a tutti, dovendo applicare ad un immagine jpeg uno zoom 1x, 2x, 4x, 8x, 
ecc. esiste qualche componente per fare questo? cosa consigliate voi grandi 
delphisti?
Simo 

 delphisti?
Se il classico "StretchDraw" non basta, magari puoi indirizzarti verso 
qualcosa come la libreria *Graphics32* che suggerisco sempre (sai com'è, 
è normale essere entusiasta di qualcosa quando ti soddisfa...). :-)
Il sito ufficiale è questo:
http://www.graphics32.org/
Ciao,
   Marco.
-- 
MARCO BREVEGLIERI
  (
http://www.marco.breveglieri.name
)
Newsgroup: it.comp.lang.delphi
Titolo: File report Fuzzy e pdf

Ciao a tutti.
ho cercato in lungo e in largo, ho chiesto anche a miei amici più esperti di
me, ma non ho trovato niente.
Cerco un componente che possa leggere anche un report salvato su un file e
lo trasformi in pdf. Qualcuno conosce la sua esistenza.
grazie
ciao
stp


Open Delphi Manual (
http://groups.yahoo.com/group/delphi_open_manual/
)
Newsgroup: it.comp.lang.delphi
Titolo: domandona da esperti

Ciao a tutti, sarà già difficile spiegarmi comunque ci provo.
Ho creato un programma in Delphi (carico/scarico) che utilizza un database
access tramite ADO.
Il programma funziona in tre computer diversi (tre magazzini) in località
diverse.
Ogni database ha degli indici univoci perchè si riferiscono all'ubicazione
che si trovano (es:01-001 per magazzino 1, 02-001 per magazzino 2 ecc).
Ora vorrei: ed è qui il bello sincronizzare tutti e tre i database in un
unico database depositato su uno spazio in internet (aruba) ogni volta che
ne ho la necessità all'interno del programma mio. (quindi senza dover uscire
e magari caricare l'esplorer ecc. ecc.)
Sapreste aiutarmi in questo senso.... ovvero la prima domanda è come passare
tutte le informazioni al database che è residente in internet.
Stefano

 ha scritto nel messaggio
news:b869s6$1rh$1...@fata.cs.interbusiness.it...


 Simo
Aruba mi da lo spazio (lo compro) per tenere un database fatto in access con
la possibiltà di essere gestito in ASP

 ha scritto nel messaggio
news:b869s6$1rh$1...@fata.cs.interbusiness.it...


Newsgroup: it.comp.lang.delphi
Titolo: file CSV

Sto esportando dei dati in formato testo CSV per aprirli poi in Excel . Come
separatore uso il punto e virgola( ; ) , che Excel utilizza di diffalta come
separatore secondo le impostazioni italiane. Il file viene aperto e
formattato correttamente, l'unico problema č che i campi che identificano
una data (es: 10/03/2007) sono sostituiti da cancelletti (es: ########## ).
Qualche suggerimento ?? Grazie mille.
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

 Qualche suggerimento ?? Grazie mille.
Le date sono racchiuse da "" ? Oppure Prova a cambiare formato, qualcosa 
del genere di: 2007-03-10
ciao
Giacomo

Prova a cambiare formato, qualcosa del genere di: 2007-03-10
Farò questa prova. Un'altra casa è che se soffermo il puntatore su questa
striscia di cancelletti (########) , appare un tooltip con la data !
PS: Su Calc di OpenOffice, non vi sono problemi invece.


 data !
Hai provato ad allargare la larghezza della colonna?
-- 
Vuoi distribuire il tuo sito web su CD/DVD?
Prova 
http://www.dwebpro.com/
Vuoi diventare un esperto analista Delphi?
Vieni a fare uno stage con noi: 
http://www.creativepark.it/stage/

> Hai provato ad allargare la larghezza della colonna?
In effetti allargando la larghezza di una cella, la data viene visualizzata.
Esisterà un modo per farla allargare ad Excel direttamente ? (sempre
attraverso un file CSV intendo) .
Inoltre, volevo sapere se qualcuno aveva la documentazione dei caratteri di
controllo utilizzati da Excel, da preporre a un campo CSV, per far assegnare
ad Excel un formato dati specifico (es: stringa, numero, valuta, etc... ).
Normalmente Excel se trova dei numeri assegna il formato numero, se trova
una data, il formato data, etc...


 controllo utilizzati da Excel, da preporre a un campo CSV, per far assegnare
pur essendo OT, è un argomento trattato fino alla nausea nei vecchi
post.
Pax vobiscum.
A.
Newsgroup: it.comp.lang.delphi
Titolo: Eseguire un eseguibile in Delphi

Qual'è il codice per eseguire un file exe tramite il programma delphi? e se
volessi passargli anche dei prametri....mi accontenterei se anche mi
rispondesse a una sola delle domande...GRAZIE

Compilando con "Run"
inoltre vedi:
ParamStr(n);
ParamCount
per il passaggio di parametri all'EXE


Dai un'occhiata a ShellExecute() e WinExec()
--
Lawrence "Rhymes" Oluyede
rhy...@myself.com
http://www.foxhound-games.it

 Dai un'occhiata a ShellExecute() e WinExec()
Ignora WinExec() che č obsoleta, l' alternativa a ShellExecute(Ex) č
CreateProcess()
--
- Carlo -
c.b...@libero.it
http://members.fortunecity.it/cbertu
Newsgroup: it.comp.lang.delphi
Titolo: [D6] Colore TrackBar

Ciao, qualcuno sa che cosa devo fare per cambiare il colore di una trackbar?
Qualcosa del tipo di quello che si usa fare con le ProgressBar...
   PostMessage(TrackBar1.Handle, PBM_SETBARCOLOR, 0, clYellow);
   PostMessage(TrackBar1.Handle, PBM_SETBKCOLOR, 0, clBlack);
E, magari, anche se si puň e se sě come inserire dei valori di fiando alle
tacchettine.
E' la prima volta che la uso.... e cosě... su 2 piedi... mi sembra un po'
poverina....
Ciaoux e grazie

 Qualcosa del tipo di quello che si usa fare con le ProgressBar...
Credo che il massimo possibile sia di cambiare il colore di background
ricorrendo a TTrackbar.Brush.Color
--
- Carlo -

Understood, ciao, Grazie

RiCiao Carlo.
Stamattina ho provato a fare quello che mi hai suggerito. Ma succede una
cosa strana :
il colore non cambia fin quando non passo il fuoco al controllo.
Ho anche provato, subito dopo l'istruzione per cambiare il colore, a
chiamare la repaint e addirittura l'invalidate della form, e poi la repaint
del controllo, ma senza risultati.
Uhm?

Newsgroup: it.comp.lang.delphi
Titolo: Cambiare colore sfondo di una singola cella in StringGrid, come ?

Salve,
come faccio a cambiare il colore dello sfondo della singola cella
attiva, di una StringGrid ?
La cella e' editabile.
GRAZIE 1000
faf...@tiscalinet.it

attiva, di una StringGrid ?
Con il componente standard non credo sia possibile, io uso (ma poi ho
problemi con D5...), un componente preso dalla DSP che si chiama
"StringAlignGrid" che, oltre ai colori, permette tante altre belle
cosucce.
ZioBit

On Mon, 03 Jan 2000 16:00:57 GMT, zio...@usa.net.usa.net.only.once
(ZioBit) wrote:
Io ho fatto cosi' :
Preso l'algoritmo di una ComboBox in una StringGrid da DTT, al posto
della ComboBox Ho messo un Edit, funziona e anche bene.
CIAO
faf...@tiscalinet.it

 wrote in message
3871b2b...@news.tiscalinet.it...


 La cella e' editabile.
Dai un'occhiata all'OnDrawCell...
Erano passati vari esempi (qui sul Ng) per fare cose simili.
Ciao :-)
--
(¯`·.¸¸.·´¯`·.¸¸.-> Andrea <-.¸¸.·´¯`·.¸¸.·´¯)
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: Filtro Edit

Salve,
che n'e' pensate di questo filtro-edit per far inserire solo numeri
reali ?
procedure TForm1.KeyPress_reale(Sender: TObject; var Key: Char);
var
 testo:Pchar;
begin
  //serve per far diventare RETURN uguale al TAB
  if Key=Char(VK_RETURN) then
  begin
    Key:=#0;
    PostMessage(Handle, WM_NEXTDLGCTL,0,0);
  end;
  StrPCopy(testo,Edit2.Text);
  //se ho premuto il '.' e gia' c'e' ne' uno non lo legge
  if (key='.') and (StrScan(testo,'.')<>nil) then
    key:=#0
  else
  begin
    //solo il primo carattere puo' essre anche '-'
    if Length(Edit2.Text)=0 then
    begin
      if (StrScan('-.0123456789',Key)<>nil) or
(Key=Char(VK_BACK))=false then
        Key:=#0;
    end
    else
      if (StrScan('.0123456789',Key)<>nil) or
(Key=Char(VK_BACK))=false then
        Key:=#0;
  end;
end;
procedure TForm1.Edit2Exit(Sender: TObject);
begin
  //se l'edit e' vuoto la conversione non funziona, quindi metto 0
  if Edit2.Text='' then
    Edit2.Text:='0';
end;
SALUTI
faf...@tiscalinet.it

 reali ?
Mhmm... non ho provato il tuo codice ma così ad occhio direi che per
funzionare funziona...
Giusto cambierei il '.' con DecimalSeparator (così ti metti al riparo da
eventuali differenze di impostazioni).
Cmq, per essere un po' + conformi all'approcio OO sarebbe + giusto
ridefinire (o derivare una nuova classe ed implementare, in caso non ci
fosse già) la procedura di Get della proprietà Text e fare lì i controlli
del caso ...
Ciao :-)
--
(¯`·.¸¸.·´¯`·.¸¸.-> Andrea <-.¸¸.·´¯`·.¸¸.·´¯)
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: Help per TTcpClient e Server

Qualcuno può molto brevemente inllustrarmi come gestire questi componenti al
semplice fine di mandare e ricevere messaggi fra 2 computer in rete?
Mille grazie, Poochie

 Mille grazie, Poochie
Scaricati la suite Indy (se non e' gia' compresa nella tua versione di
delphi). Tra i demo ci sono alcuni esempi che fanno al caso tuo.
-- 
I'am what I'am, I do what I can

Folder $(DELPHI)\Demos\Indy\BasicClientServer
--
Acqua
-------------------------------------------------------
Download new version of my PixExperts for Delphi 6/C++ Builder 6 at
http://www.salexander.supereva.it/Pix_Exp171D6.zip

Mille grazie, Poochie
	Ciao
	MassimoB
 

Mi hanno fatto scancherare un po' ma sono vermanete adorabili! Grazie a
tutti!
Newsgroup: it.comp.lang.delphi
Titolo: D7e - MYSql

Un saluto a tutti.
Sto facendo 2 cosette con MySql.
Lo step successivo potrebbe essere scrivere qlcs in PHP.
Ho girato un po tra google e ovviamente il sito di Mysql.
Vi faccio alcune domande cretine su 2 cose per le quali non ho trovato risposte affidabili...Attenzione: non parlo di  ISAM...
 
 
MySql non ha un qualcosa tipo generator/sequence come firebird, oracle, interbase, db2 etc....
Il suggerimento è usare campi autoinc per poi usare questa:
 
http://dev.mysql.com/doc/refman/5.0/en/information-functions.html#function_last-insert-id
 
 
per recuperare l'ultimo autoinc. La domanda è..
Uos una stored procedure che fa una insert sul db.
Quindi, la procedure fa insert into, chiama last_insert_id e assegna tale valore ad un parametro inout in modo da restituirlo all'applicazione.
Ora, questa cosa è affidabile, funziona oppure ogni tanto ha le use cose?
Ancora, lavorando in un contesto multithread, per garantire che il valore restituito da last-insert_id  sia congruo si devono per forza di cose utilizzare connessioni diverse?
 
Dovendo gestire una tabella di contatori c'e' qualcosa che semplifica la vita o si lavora nei classici modi da trincea?
 
Piu' specificamente riguardo delphi, non volendo usare zeos, conviene usare DBX o andare via Ado+ODBC?
C'e' qualche differenza da considerare qualcosa il motore db non girasse su winzozz ma su qualche distro linux?
 
Infine, cosa vi fa incazzare e cosa apprezzate in questo prodotto?
 
Grazie per ogni dritta.
 
A.
 
 
 
 
 
 
 
 

premetto che la mia esperienza con mysql è limitata ad archivi di dimensioni ridotti, comunque utilizzando last_insert_id non ho avuto mai problemi, per l'interfacciamento ho sempre utilizzato zeos che ha tra i suoi componenti ZSQLMonitor che permette, sopratutto in fase di sviluppo, di registrare tutte le operazioni e le risposte del db, ciao Brunello

Hai casini usando le stored procedure con zeos in MySql?
Le tue app sono multithread?
 
A.

 Infine, cosa vi fa incazzare e cosa apprezzate in questo prodotto?
Non ho un'opinione in merito perchč non ho mai scelto di usarlo.
 
 
-- 
morde
Android
QT 4.7
Delphi (5,6,7.. expired)
Firebird Database
Newsgroup: it.comp.lang.delphi
Titolo: URGENTE

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

"Mirko" ha scritto
OGGETTO: .... ???

Capisco che per chi posta č importante primariamente il proprio messaggio,
ma per chi legge non č bello trovarsi una sfilza di messaggi URGENTI. E fa
anche passare la voglia di rispondere...
Ciao.
Gianluca.

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

Sembra strano ma non riesco a ricercare un'orario particolare nel mio
database. Con alcuni valori trova il record con altri invece no.
Per di piu adesso facendo le prove utilizzando sql builder, e tantando di
inserire un valore non riesco ade eseguire l'sql.
Ho provato ad inserire:
NomeCampo = "08.00.00"
NomeCampo = "08:00:00"
NomeCampo = "08.00"
NomeCampo = "08:00"
NomeCampo = "08:00:00 AM"
NomeCampo = "08.00.00 AM"
ma o mi da errore nella stringa sql o non trova il dato. Chi mi sa dire dove
sbaglio. O se è necessario fare qualcosa prima?
Utilizzo Paradox. Delphi5.
Grazie Marco.

...


Utilizzo Paradox. Delphi5.
SELECT *
FROM "smpl2.db" 
Where Ora > '14:59:08'
mi ritorna un risultato corretto con DBDesktop. Cmq il tutto dipende
anche dalle impostazioni del BDE.
Consiglierei quindi di utilizzare un parametro nella query: in questo
modo puoi usare il tipo predefinito TDateTime.
SELECT T.*
FROM "Tabella.db" T
WHERE T.Ora = :Ora
qry1.ParamByName('Ora').AsTime := EncodeTime(8, 0, 0, 0);
hth
Paolo Arosio

Newsgroup: it.comp.lang.delphi
Titolo: debug di un package

Ciao a tutti
Se si hanno i sorgenti come si fa ad entrare nel codice di una BPL ?
ho una BPL FREE di cui ho tutti i ma non riesco ad entrare nel codice, 
mi permette solo di fare un debug assmbler. Come posso risolvere ?
Grazie
Ing Giuseppe Monteleone

1) non fai il debug del package ma delle unit che esso contiene
2) devi avere i SORGENTI delle unit e non solo i DCU
3) In Prj-options-compile devi spuntare "use debug dcu"
4) fai una BUILD  e non un compile
5) una cosa che tanti NON fanno e' spuntare la casella "stop on delphi
exception" in tools-debugger options-langiage exceptions
A.

Alberto Salvati ha scritto:

Grazie Alberto, prover� a fare come tu dici
G.

 permette solo di fare un debug assmbler. Come posso risolvere ?
nel menu "Run"->"Paramteres" puoi definire un'applicazione che fa da host 
all'package. Usa questo per specificare l'applicazione che usa il package. 
Il debugging poi fai nel package.
Saluti,
Fritz
Newsgroup: it.comp.lang.delphi
Titolo: Mosaico Sorgente : Kylix ?

Ciao,
scusate l'intrusione ma averi la necessita' di un chiarimento:
Ho assistito ad una presentazione del prodotto mosaico x (
http://www.teammosaico.biz/
 ) e credo di aver capito che sia stato
sviluppato con Kylix ).
Ora non so cosa questo voglia dire esattamente: Kylix produce un codice php
che deve essere installato in un webserver Apache Linux ? La formula di
'cessione' del sorgente sotto licenza GNU\GPL cosa vuole dire ? viene dato
tutto il sorgente ed uno fa tutte le modifiche del caso o esistono
componenti\librerie ecc... che 'devono' cma essere acquistate dal produttore
?
Non so poi quale sia il futuro di kylix...
Grazie 1000 a chi mi ragguaglia...
ciao
grenzo

 cma essere acquistate dal produttore ?
Non conosco il prodotto, comunque se fai modifiche adun GNU/GPL DEVI
rilasciare le modifiche come sorgenti sotto la stessa licenza.
-- 
I'am what I'am, I do what I can

 rilasciare le modifiche come sorgenti sotto la stessa licenza.
mmm .. avevo sentito che il produttore del programma Mosaico si 'finanziava'
proprio tramite la cessione di 'componenti' necessari alla ricompilazione
del software ....
cmq grazie
ciao

 quale linguaggio vengono scritti ( Perl, C ? )
In delphi/Kylix 
http://www.borland.com/kylix/pdf/kyl3_feamatrix.pdf
 .


 In delphi/Kylix 
http://www.borland.com/kylix/pdf/kyl3_feamatrix.pdf
 .
ok, grazie .. un'ultima cosa: questo ambiente di sviluppo ha un futuro? (
non vorrei investire troppo  in un prodotto che ha i giorni contati...)
ciao

 contati...)
Kylix e' un RAD multilinguaggio di Borland. Ti suggerisco di investire
in un linguaggio piuttosto che in un prodotto.
Es. C++ ha sicuramente un futuro, Delphi non si sa bene che fine fara'.


Newsgroup: it.comp.lang.delphi
Titolo: erro entry point

caricando una dll scritta in VB ottengo questo errore
The procedure entry point XYZ could not be located in the dynamic link
library ABC.dll
ne capite l'arcano motivo?????
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 ne capite l'arcano motivo?????
Sei sicuro di usare il nome giusto per la procedura?
Puoi postare il codice?
Newsgroup: it.comp.lang.delphi
Titolo: Win32 SDK

Ciao
non capisco DOVE posso trovare Win32 SDK!
mi aiutate?
--
<< Fred...@Libero.it >>

Che io sappia. si compra...
Correggetemi se sbaglio.

Correggetemi se sbaglio.
E' incluso in Delphi 4...cmq penso che si possa scaricare anche da
Internet!!
--
- Carlo -
BSSoftware Tips Mailing-List Support

io l'ho trovato anche nell edizioni passate del builder o cmq della
maggior parte delle edizioni varie del C++, contando che spesso le
puoi trovare anche in edicola....ti consiglio di comprarti una rivista
contenente il C ( che tanto non guasta mai ) piuttosto che abbronzarti
davanti al monitor in attesa del download ( peraltro con qualche
ricerca sarebbe pure reperibile senza troppi sforzi... )
Buon divertimento 
Carlo

Correggetemi se sbaglio.
forse non ti sbagli.
Non lo so di preciso.
Diciamo che io il Win32Sdk me lo sono trovato davanti e l' ho dovuto
accettare com' è !! :-)))
Comunque è incluso in Delphi.
Forse tu ti riferisci alla guida MSDN.....è si, quella costa !!
Marco,
se vai nella sottodirectory "Help" di Delphi trovi i file di Help e anche un
tool per costruirli.
Comunque il file di help che ti interessa è "Win32.hlp" che da me occupa
(possiedo Delphi 3
Professional)  ben 10,7 Mb !!!
Ci dovrebbe essere anche almeno un' altra versione di questo Win32Sdk.
Mi spiego meglio. Tempo fa installai il C++ Builder della Borland e il
Win32Sdk occupava ben 12 Mb.
Nota bene che 2 Mb in più di help sono tanti......è solo testo !!
Non ho mai notato differenze !!
C' è anche un file Win32s.hlp che è più piccolo (102 Kb ) ma poi si aggancia
sempre all' altro.
Ora non so cosa apporta.....dovrei vedere meglio.
Ok, vi saluto !!
Ciaoooo !!!!
Antonio Tarolla
BSSoftware Tips Mailing - List Support

Ho D4 C/S e win32sdk c'era già dentro, tu cosa usi?
Cmq non ti conviene chiedere a qualcuno di spedirtelo (poi ti viene la
voglia di farlo...) è grosso un bordello


Newsgroup: it.comp.lang.delphi
Titolo: Creare collegamenti

Ecco il mio quesito: come fare a creare un collegamento (un file .lnk, x
intenderci) ad un file in una qualunque cartella ? Sto cercando l' help di
win32 mal' ho perso ... cmque il mio scopo finale è di fare l' installazione
di un programma che ho creato, senza usare programmi di creazione di setup a
pagamento, o il pessimo (a livello di output grafico finale) InstallShield.
grazie ... e speriamo bene ...

grazie ... e speriamo bene ...
scusa se sarň breve.
Per far ciň che chiedi, devi utilizzare le interfaccie della shell.
L' interfaccia in questione si chiama IShellLink. Se possiedi il manuale
Delphi 3 di Cantů, a pag. 223 trovi trattato proprio ciň !!
Diciamo che sei fortunato perchč utilizzare le interfaccie non č che mi
sembra molto semplice !!!
Ti saluto.....ciao !!
Antonio Tarolla
BSSoftware Tips Mailing - List Support
Newsgroup: it.comp.lang.delphi
Titolo: Un aiuto VELOCE please

Salve,
sono riuscito a superare il problema di definire vari POP all'interno del
runtime...e sono riuscito a fare tutto il programma.
Mi succede però una cosa molto strana che non riesco a spiegarmi.
In pratica ho un oggetto TNMPOP3 che si chiama POP....
A un certo punto quel che succede è che dò l'istruzione POP.Connect come si
fa per collegarsi...e a quel punto ho definito l'evento OnConnect negli
"Events" di POP che mi esegue la procedura
procedure TForm1.POPConnect(Sender: TObject);
La cosa incomprensibile è che...non la esegue! Ho rpovato per accertarmi del
fatto a mettere come procedura
procedure TForm1.POPConnect(Sender: TObject);
begin
  Halt(1);
end;
...ma a tutti gli effetti non fa niente!!! Eppure negli "Events" è indicata
correttamente.
Non so dove sto sbagliando....mi sapete aiutare anche stavolta?
Grazie mille.
--
Giulio Pipitone (
www.FIGHTERS4WEB.COM
)
#mirror italiano ufficiale 
http://spam.abuse.net#

 "Events" di POP che mi esegue la procedura
La cosa logica a volte è quella giusta... sei sicuro al 100% che hai impostato i
parametri corretti per collegarti? Non è che usi un server proxy o wingate o
roba del genere?
Monitora anche gli altri eventi e vedi quale viene generato, probabilmente se
non viene generato un OnConnect verrà generato un OnConnectionFailed...
Spero di esserti stato d'aiuto perché non ne so un granché di componenti
internet.
--
Jax
Newsgroup: it.comp.lang.delphi
Titolo: RemoveDir:x forza vuota?

C'è il modo di aggirare la limitazione di RemoveDir:funziona solo se
la Dir è vuota.
Ho già trovato un link (
http://www.latiumsoftware.com/en/delphi/00016.php
 )dove c'è una
procedura completa x farlo ricorsivamente ma è "grandina".
Non c'è qualche API che risolve il problema?
Chiamare il comando DOS "deltree" non funge sotto WinXP.
Grazie

 ha scritto nel messaggio
news:v6uh00ppeb9una2va...@4ax.com...

Ti pasto una unit di un esempio .. dovrebbe funzionare
unit del;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, shellapi;
type
TForm1 = class(TForm)
Button1: TButton;
Edit1: TEdit;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
function CancellaDirectory(dir: String): boolean;
var fos: TSHFileOpStruct;
begin
ZeroMemory(@fos, SizeOf(fos));
with fos do begin
wFunc := FO_DELETE;
fFlags := FOF_SILENT or FOF_NOCONFIRMATION;
pFrom := PChar(dir+#0);
end;
Result:=(0=ShFileOperation(fos));
end;
procedure TForm1.Button1Click(Sender: TObject);
var Cartella :String;
begin
Cartella := Edit1.text;
if CancellaDirectory(Cartella)=true then
begin
ShowMessage('Directory eliminata.');
end;
end;
end.
ciao
erik

Ti pasto una unit di un esempio .. dovrebbe funzionare
Grazie mille, la provo subito....

GRANDE!!!!!
FUNZIONA!!!
grazie mille

Newsgroup: it.comp.lang.delphi
Titolo: Mandare in stampa una Tstrings

Come si stampa il contenuto di una tstrings come se volessi stampare un
file txt.
--- posted by geoForum on 
http://www.delphiedintorni.it


La seguente procedura stampa il contenuto di un tmemo: adattarla ad 
una
stringlist e' abbastanza banale
procedure StampaMemo (AMemo : TMemo);
var
  RigaDaStampare: Integer;
  TestoDaStampare: TextFile;
begin
  AssignPrn(TestoDaStampare);
  Rewrite(TestoDaStampare);
  try
 
Printer.Canvas.Font.name
 := 'Courier New';
    Printer.Canvas.Font.size := 12;
    for RigaDaStampare := 0 to AMemo.Lines.Count - 1 do
     Writeln(TestoDaStampare, AMemo.Lines[RigaDaStampare]);
  finally
    CloseFile(TestoDaStampare);
  end;
end;
Ciao
ACSH 


Anche se in ritardo... Grazie!


Newsgroup: it.comp.lang.delphi
Titolo: Conversione query SQl da Paradox ad Access

Devo modificare un programma che usa archvi Paradox perchè usi archivi
Access.
Il vecchio usa  query in paradox che fanno riferimento al nome dei file ,
tipo: select * from clienti.db .....
Qualcuno sa dirmi se basterà solamente cambiare il nome del file
tipo: select * from clienti.mdb .....
o è necessario fare altro?
(Sempre che sia possibile!?!)
Scusate la pigrizia, ma devo ancora configurare DSn, Alias etc.. per usare
Access.
--
Ciao, Ivan
----------------------------


select * from NomeTabella , quindi "clienti" è il nome di una tabella
contenuta nel file MDB
Paradox e Access sono molto diversi , qundi preparati  a diversi cambiamenti
.... , io ho migrato parecchi programmi da paradox a interbase e ho dovuto
praticamente riscrivere la parte di accesso ai dati , sopratutto per la
diversa gestione delle transazioni.
Giulio

 dati , sopratutto per la diversa gestione delle transazioni.
Grazie per la risposta,
ma portando un programma da Paradox a MySql non ho avuto grossi problemi, se
non per la data in formato YYYY-MM-DD (specialmente per la trasformazione di
moduli quick report con filtri sulla Data)
L'importante è sapere che si può fare, a fatica, ma si può!
Grazie
--
Ciao, Ivan
----------------------------
Newsgroup: it.comp.lang.delphi
Titolo: [OT] SQL

Ciao a tutti,
  un po OT ... scusate ...
Nella tabella ho un campo (FLAG) che puo' avere 5 settaggi da 0 a 4.
Per ogni valore devo eseguire una somma e oggi utilizzo
 
select sum(Prezzo) as TotPrezzo from Tabella where Flag=0
 
e la eseguo 5 volte per avere i 5 prezzi totali che servono.
 
C'e' la possibilita' di fare tutto in un'unica interrogazione?
 
Grazie
 
Daniele

 C'e' la possibilita' di fare tutto in un'unica interrogazione?
 
se il database che utilizzi supporta il CASE potresti utilizzare quello.
 
https://msdn.microsoft.com/it-it/library/ms181765.aspx
 
 
Ciao da Enrico c/o Anthelios

ha scritto nel messaggio 
news:7fd51564-e506-49c2...@googlegroups.com...

Oppure, usa Union all 
 
 
---
Questa e-mail è stata controllata per individuare virus con Avast antivirus.
https://www.avast.com/antivirus
 
 

 Oppure, usa Union all 
 
UNION ALL non rappresenta un'unica interrogazione.

 C'e' la possibilita' di fare tutto in un'unica interrogazione?
 
L'unico modo per farlo e`, come ti diceva Enrico, usare un CASE o analogo sul tuo db. Io pero` suggerirei, se i record non sono tanti, di fare una query unica, scorrere e sommare in memoria. E` probabilmente piu` efficiente ed evita di sovraccaricare inutilmente il tuo statement SQL.
 

Prova con 
 
Select flag, sum(valore) ad valore from tabella
group by flag

"Daniele"  ha scritto nel messaggio news:ohu0v6$ml5$1...@gioia.aioe.org...
 
Ciao a tutti,
  un po OT ... scusate ...
Nella tabella ho un campo (FLAG) che puo' avere 5 settaggi da 0 a 4.
Per ogni valore devo eseguire una somma e oggi utilizzo
 
select sum(Prezzo) as TotPrezzo from Tabella where Flag=0
 
la eseguo 5 volte per avere i 5 prezzi totali che servono.
 
C'e' la possibilita' di fare tutto in un'unica interrogazione?
Grazie
Daniele
 
select sum(Prezzo) as TotPrezzo from Tabella where Flag=0 union all
select sum(Prezzo) as TotPrezzo from Tabella where Flag=1 ....
 
E' vero, non è un'unica interrogazione, ma la esegui in un botto solo..
Non è questo che cerchi ? 
 

 Non è questo che cerchi ?
 
Ma perche` insistere con questa soluzione subottimale quando altri hanno suggerito vie migliori?

 
 
"4ndre4"  ha scritto nel messaggio 
news:39ea6f3e-9926-4f0c...@googlegroups.com...

Lo so che è migliore, ma per esempio il local Sql il case non ce l'ha 
 

 Lo so che è migliore, ma per esempio il local Sql il case non ce l'ha
 
Non mi riferivo al case. Leggili tutti i messaggi.
 


Ma c'č un index su FLAG ?
Newsgroup: it.comp.lang.delphi
Titolo: [OT] Alla ricerca di un editor

Salve a tutti,
scusare il messaggio off topic ma ho veramente bisogno di un aiuto: sto
cercando un editor come voglio io!!! Più o meno dovrebbe avere questo:
+-----+--------------------+
|     |                    |
| {1} |                    |
|     |                    |
|     |                    |
+-----+        {3}         |
|     |                    |
| {2} |                    |
|     |                    |
|     |                    |
+-----+--------------------+
{1}: lista delle directory
{2}: lista dei file della directory correntemente selezionato
{3}: testo del file
Grazie a tutti

 ha scritto nel messaggio
news:4n7R7.105$G53....@twister2.libero.it...


 wrote in message
news:4n7R7.105$G53....@twister2.libero.it...


Newsgroup: it.comp.lang.delphi
Titolo: novo componente stringgrid

Mi serirebbe un componente stringgrid più flessibile, quindi ho provato a 
costruirmene uno.
La prima cosa che vorrei facesse è colorarmi le celle e il testo con colori 
scelti.
quindi ho implementato due procedure: coloracelle e coloratesto.
posto il codice alla fine. Il problema è che i colori non sono permanenti, 
appena esco dalla cella tutto torna come all'origine. Perchè?
Mi piacerebbe anche riuscire a unire celle e centrare il testo (un po' come 
excel unisci e centra).
Mica avete un'idea?
Codice componente
unit myStringGrid1;
interface
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Grids;
type
  TmyStringGrid1 = class(TStringGrid)
  private
    { Private declarations }
  protected
    { Protected declarations }
  public
   procedure coloracella(c,r:integer;colore:tcolor);
   procedure coloratesto(c,r:integer;colore:tcolor);
    { Public declarations }
  published
    { Published declarations }
  end;
procedure Register;
implementation
procedure Tmystringgrid1.coloracella(c,r:integer;colore:tcolor);
var rect:trect;
begin
 rect:=cellrect(c,r);
 Canvas.Brush.Color := clRed;
 Canvas.FillRect(Rect);
 Canvas.TextOut(Rect.Left+2,rect.Top+1,Cells[c,r]);
end;
procedure Tmystringgrid1.coloratesto(c,r:integer;colore:tcolor);
var rect:trect;
begin
   rect:=cellrect(c,r);
// Canvas.Brush.Color := clRed;
// Canvas.FillRect(Rect);
   canvas.font.color:=colore;
   Canvas.TextOut(Rect.Left+2, rect.Top+1,Cells[c,r]);
end;
procedure Register;
begin
  RegisterComponents('Samples', [TmyStringGrid1]);
end;
end.

Mi serirebbe un componente *stringgrid più flessibile*
Credo che sringgrid sia stato concepito per offrire il massimo di
flessibilità. Forse direi meno primitivo e più di alto livello.
Comunque non credo che si possa prescindere dal metodo ondrawcell  per
quanto intendi fare.
Ciao
Matteo Miranda
Newsgroup: it.comp.lang.delphi
Titolo: modificare testo ascii

Avrei in mente un piccolo programmino che mi permettesse di modificare un 
testo ascii complesso (cioè distributo in più righe,come ad esempio un testo 
ascii copiato da word) incollato ad esempio in edit1.text e trasformarlo 
secondo una determinata prassi facendolo apparire in edit2.text.
Mi spiego meglio:
quali funzioni utilizzare per portare un testo del tipo "1 2 3 4 5 6 
7"<CR>"1 2 3 4 5 6 7"<CR> presente in edit1
 a "1-2-3-4-5-6-7"<CR>"1-2-3-4-5-6-7" in edit2?
Grazie


Edit2.text := StringReplace(edit1.Text,' ','-',[rfReplaceAll, rfIgnoreCase])

Newsgroup: it.comp.lang.delphi
Titolo: SysOOD Cos'é?

Qualcuno sa indicarmi cosa è e a cosa serve il SysOOD (Systematic Object
Oriented Design) ideato da Carlo Pescio, articolista della rivista "Computer
Programming"
Grazie
Luigi
--
Posted from [195.223.215.35] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Programming"
Ma se ancora devi imparare un linguaggio di programmazione, com'e' che
ti metti a chiedere di ingegneria del software??
Vacci piano, altrimenti tra un po' non ci capisci + niente
Ciao
--
Piero Bonanno
bop...@libero.it
pie...@tiscalinet.it
bop...@tin.it
bpie...@hotmail.com
______________________________________________
"Madame, lei ha tra le gambe uno strumento
che puo' offrire piacere a migliaia di persone,
e tutto quello che sa fare e' grattarlo"
- Sir Thomas Beechan a una violoncellista

Sono MOOLTO curioso in fatto di informatica, specie programmazione :)


Sono MOOLTO curioso in fatto di informatica, specie programmazione :)
OK, pero' vacci piano, non buttarti su tutto quello che ti sembra
interessante :)
Comincia con l'imparare le basi della programmazione, strutturata/a
oggetti, e man mano che metti su applicativi di una certa dimensione,
comincia a studiare e ad applicare le metodologie di progettazione.
Tra parentesi il SysOOD non e' una metodologia a se' stante, ma si
applica all'interno di quelle esistenti, che quindi dovrai gia'
conoscere...

Newsgroup: it.comp.lang.delphi
Titolo: Perchè errore?

Il seguente statement dà l'errore "Cannot assign a Read only property":
 
DBGrid1.Fields[0].DisplayName:='Data';
 
Volevo cambiare il titolo della colonna del DBGrid a runtime. Cos'è che 
sbaglio ? Cambio anche le dimensioni con:
 
DBGrid1.Fields[0].DisplayWidth:=10;
e questo va bene...
 
 
 
---
Questa e-mail è priva di virus e malware perché è attiva la protezione avast! Antivirus.
http://www.avast.com
 
 

 DBGrid1.Fields[0].DisplayName:='Data';
 
Perche' e' una ReadOnly, ovvero la puoi solo leggere (come dice l'errore !)
 
Se vuoi cambiare la scritta devi usare DisplayLabel (sempre dall'help).
 
ciao
 
Daniele
 

 
"Daniele"  ha scritto nel messaggio news:m6faei$uss$1...@speranza.aioe.org... 
Se vuoi cambiare la scritta devi usare DisplayLabel (sempre dall'help).
Daniele
 
E' vero! Ma da quale Help?


> E' vero! Ma da quale Help?
 
Scusa, di quale sw stai parlando??? 
 
A.

 E' vero! Ma da quale Help?
 
Quello in linea di delphi, basta entrare in un qualsiasi componente e 
premere F1.
ti si apre l'help di delphi (sempre che tu l'hai installato durante 
l'installazione).
 
Ciao
 
Daniele
Newsgroup: it.comp.lang.delphi
Titolo: delphi 5

Vorrei imparare a programmare in delphi.
Vorrei comprare un libro, o eventualmente piu' di uno, se occorre, che mi 
aiutasse sia nella parte grafica che nel codice, magari con esempi, del 
genere.... delphi for dummies........
Apogeo fa solo "programmare in delphi..." Pensate che iniziando dal 
delphi 5 vado bene? Qualcuno si vende questo libro????...
Saluti
G.C.
--- posted by geoForum on 
http://www.delphiedintorni.it

E' appena uscito il libro di Cantů della Apogeo su delphi 7 in italiano.
Il libero riguarda la penultima versione di delphi uscita.
Oppure l'ultima se non si prende in considerazione l'ambiente .NET.
Ciao
Mario
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

Su questo link trovi gratuitamente i manuali degli autori di delphi versione
5 e 6.
http://safariexamples.informit.com/0672321157/Ebooks/



Mi sembra un po' troppo avanzato per me, ho dato un'occhiata e non mi 
sembra di aver visto qualcosa che riguardava l'ambiente grafico.
Grazie


Ci sono anche in italiano ..... per caso
No, non sono stati tradotti. Cosi' come per tutte le altre cose inerenti
delphi: solo in inglese, perche nelle altre lingue non avrebbero mercato.
Ciao
-- 
Morde. 
(
mo...@despammed.com
)
M-List di icld: 
http://it.groups.yahoo.com/group/icld/

Ciao
Questo non è affatto vero
i testi vengono tradotti anche in italiano... anche se la traduzione
arriva ovviamente un po' piu' tardi
Io ho la versione di Pacheco del delphi 4 in italiano..
solo che sono 7 Mb per il solo PDF mentre circa 200 Mb per tutta la
cartella comprensiva dei progetti di esempio...
...sono con la linea con il modem e non saprei quindi come passarteli
Puo' darsi che con una linea veloce e un programma di file sharing
sulla rete riesci a trovare qualcosa
..io la mia versione di delphi 4 l'ho avuta assieme al libro
acquistato... a caro prezzo :(
:)))

Questo non è affatto vero
Sono ben felice di sbagliarmi! :-)
Anche se ritengo che non si trovi null'altro che riguardi versioni recenti....
;-)


Se ti interessa qualcosa di specifico per la grafica gli unici libri che
conosco _in inglese_ sono :
'Tomes of Delphi 3: Win32 Graphical Art'
'Learn Graphics File Programming with Delphi 3 '
Che puoi ordinare con AMAZON.
A 
www.amazon.co.uk
 : sito inglese
Ciao
Mario
P.S. Anche questi non sono un poco difficili

Newsgroup: it.comp.lang.delphi
Titolo: maschera di bit

Ciao. Sapete come si crea una maschera di bit in delphi ??
In C dovrebbe essere una dichiarazione del tipo:
ip_v:4
Qualcuno mi puo' aiutare?
Grazie,
Luca.

 ha scritto nel messaggio
news:8SS1a.103491$ZE.28...@twister2.libero.it...


Sapete come si crea una maschera di bit in delphi ??
Non si può.
-- 
Andrea Laforgia
#exclude <windows.h>


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

 ha scritto nel messaggio
news:r232a.163634$0v.46...@news1.tin.it...


"Andrea Laforgia" <x@x.x> ha scritto nel messaggio
news:62dh4v0455eonkgn3...@4ax.com...

Unit MaschereDiBit;
interface
b00000000=0;
b00000001=1;
b00000010=2;
b00000011=3;
// etc.
implementation
end.
Fatti tutte 256 le combinazioni e hai le maschere di bit di un byte :)))
Ciao
Giorgio

 Fatti tutte 256 le combinazioni e hai le maschere di bit di un byte :)))
Auguri! :-D


 Fatti tutte 256 le combinazioni e hai le maschere di bit di un byte :)))
In genere si predispongono delle costanti solo per le potenze di due.
Il numero delle costanti dipende dalle dimensioni delle variabili e quindi
può essere 8, 16 o 32.
Per testare/settare piu bit in contemporanea basta mettere in *or* due o piu
maschere.
Ciao
Gianluca.
Newsgroup: it.comp.lang.delphi
Titolo: [?] Ricerca record su DBF tramite BDE: GotoKey

Salve a tutti, sono un nuovo programmatore in delphi (da 5 giorni!!) e mi
sto imbattendo in un alcuni problemi che forse qualcuno di voi ha già
risolto.
Accedo a una tabella FoxPro (DBF con indici CDX) tramite BDE, questa tabella
ha quattro indici con chiave multipla, io devo utilizzare il quarto indice
formato dai campi fTipo+fImp, dove fTipo è fisso e fImp è un flag di tipo
carattere che io imposto a "S" quando il record è stato importato.
L'archivio DBF è attualmente gestito da un programma DOS in clipper.
Ho un ciclo di questo tipo:
With DbScarichi.TbLogFile Do
begin
    IndexName := 'LOGFILE3';   // Quarto indice della tabella
    Open();
    SetKey();
    FieldByName('fTipo').AsString := 'D' ;
    FieldByName('fImp').AsString := 'N' ;
    lFound := GoToKey;
    while lFound do
    begin
        ......
        Edit();
        FieldByName('fImp').AsString := 'S';
        Post();
        ......
        SetKey();
        FieldByName('fTipo').AsString := 'D' ;
        FieldByName('fImp').AsString := 'N' ;
        lFound := GoToKey;
    end
    close
end;
Ora la GotoKey mi ritorna quasi sempre FALSE,  infatti a volte effettua un
ciclo ed esce alla seconda gotokey, mentre nella tabella di record con
chiave DN ce ne sono 35000! Cosa sto dimenticando?
Se utilizzo la funzione
lFound := Locate('fTipo;fImp', VarArrayOf(['D', 'N']), [loCaseInsensitive]);
mi ritorna sempre trovato ma è un po' lenta.
Il flag originariamente era di tipo booleano, visto che non sono riuscito a
posizionarmi ho provato a metterne uno carattere, è possibile utilizzare la
GotoKey con una chiave di tipo logico?
Il campo fImp prima era impostato a ' ' (spazio) ma la GotoKey con chiave
D+Spazio proprio non ne voleva sapere di funzionare; la locate funziona
sempre. Perchè?
Grazie a chi mi puo' rispondere a queste tre domande..
Vescovo Fabio
E-Mail 
Ves...@tin.it

Hi,
 ti sconsiglio di utilizzare il BDE con DBF e CDX, ma soprattutto di non
utilizzarlo sugli stessi database che vengono utilizzati da un programma
clipper (se devi proprio, utilizzalo da solo o  in lettura).
Secondo me devi rifare gli indici ....
bye Max



 wrote in message
8lrnms$fsu$1...@fe1.cs.interbusiness.it...


la gestione del database con APOLLO. Non ci sono altre soluzioni?
Con il BDE non so, io uso Apollo e mi trovo abbastanza bene.
come alternativa c'e':
Halcyon ad esempio che e' una engine in OOp che viene linkata
insieme all'exe, senza dll di appoggio.
Lavora su DBF con indici CDX NTX NDX ecc....
Oppure :
ADS e' un'altra engine C/S su tabelle dbf
e' della Extended System
 
Ciao,
Eugenio Belli.
p.s. e hai lo storico di questo Ng
e fai una ricerca con NTX o CLIPPER 
trovi diverse risposte.
Newsgroup: it.comp.lang.delphi
Titolo: XE7 Form1.Cursor := crHourGlass   solo sulla form e non sui controlli?

Salve ragazzi!
Sicuramente sbaglio qualcosa ma.....
In un lungo loop, imposto i lcursore così:
 
Form1.Cursor := crHourGlass;
 
il problema è che sui controlli come bottoni ed altro, sparisce la 
clessidra e compare i lcorsore normale, mentre se torno nelle zone vuote 
della form tutto è regolare (clessidra).
 
Idee?
 
Grzie tante! Magari è una banalità che mi sfugge....

 Idee?
 
Screen.cursor := chHourGlass;
 
A.

 Screen.cursor := chHourGlass;
 
Io mi assicurerei di inserire questa struttura:
 
  Screen.Cursor := crHourGlass;
  try
    // TODO: Tuo codice...
  finally
    Screen.Cursor := crDefault;
  end;
 
in modo da garantire che il cursore torni al suo stato predefinito al termine della procedura, anche in caso di eccezione.
 
Ciao,
  Marco.
 
-- 
MARCO BREVEGLIERI (Software and Web Developer)
 #Home: 
http://www.marco.breveglieri.name
 
 #Blog: 
http://www.compilaquindiva.com
 
 #DelphiPodcast: 
http://www.delphipodcast.com
 


 
grazie and entrambi :) :)
i vostri consigli sono sempre rapidi e perfetti!
grazie!

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

Piccolo quesito sulla funzione fileread:
primo modo di chiamarla: provo a leggere tutta la struttura in un
colpo solo con questa riga di codice:
//      FileRead(F, parametri, sizeof(TParametri));
risultato non funziona, si disallinea di 4 byte e sbaglia a leggere i
dati.
Riprovo per capire in questo secondo modo:
      FileRead(F, parametri.descrizione, sizeof(TAG_STR));
      FileRead(F, parametri.TipoDati, sizeof(smallint));
      FileRead(F, parametri.NumOperazioni, sizeof(integer));
      FileRead(F, parametri.dayInVal, sizeof(smallint));
      FileRead(F, parametri.numrecval, sizeof(integer));
      fileRead(F, parametri.indebug, sizeof(smallint));
      fileRead(F, parametri.basedir, sizeof(TAG_STR));
Tenere presente che TParametri è definito come qui di seguito:
    TParametri = record
        Descrizione : tag_str;
        TipoDati : smallint;
        NumOperazioni : integer;
        dayInVal : smallint;
        numrecval : integer;
        indebug : smallint;     // -1 true; 0 false
        basedir : tag_str;
    end;
e cosi' funziona correttamente... allora mi chiedo qual è la
differenza? Non dovrebbe essere la stessa cosa tirare su una struttura
intera o leggerla un pezzo alla volta?
Saluti e grazie,
Mecch


Prova a dichiararlo cosi':
var
  TParametri = PACKED record
    Descrizione : tag_str;
    TipoDati : smallint;
    NumOperazioni : integer;
    dayInVal : smallint;
    numrecval : integer;
    indebug : smallint;     // -1 true; 0 false
    basedir : tag_str;
  end;
Ciao,
Stefano