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

Salve,
sto realizzando un programmino per elaborere gli ID3, niente di
complicato, un codice lungo ma leggibile.
Un giorno modifico alcune funzioni e vado a provare il programma.
beh.. dal quel giorno il piccolo software non parte più.
allora, il processo di debug non mi da nessun errore ne warning
solo quando vado a eseguire il programma mi si incastra.
se lo provo con RUN direttamente da Delphi mi da questo messaggio di
errore:
"Project project1 raised excpection class EStackOverFlow with mesage
'Stack overflow'. process stopped. Use Step or Run to continue"
non riesco a quale stack si riferisce e quale potrebbe essere il
problema.
vi chiedo aiuto :)
ciao

problema.
Purtroppo qui non sono presenti maghi che possono capire dove stia l'errore,
dovresti
postare un piccolo pezzo di codice, per la precisione quello che ti da
errore cosě
che gli possiamo dare un'occhiata....l'errore dello stack puň essere dovuto
a tante cose.
Tranquillo, qui nessuno (o quasi :) vuole rubarti il codice,ma č necessario
per capire l'errore.
Ciao
--
- Carlo -
BSSoftware Tips Mailing-List Support

 problema.
Lo stack, se ben ricordo dal corso di Architettura 1, è la memoria in
cui il programma memorizza i suoi dati: quando chiami una procedura,
nello stack si forma una sua immagine detta Frame, in cui ci sono tutte
le variabili locali e altre michiate.
In definitiva, dipende da cosa fa il tuo programma l'overflow, che altro
non è che il voler scrivere oltre il limite dello stack, che ovviamente
è impossibile...

 'Stack overflow'. process stopped. Use Step or Run to continue"
ti dirņ, io ho dedotto questo studiando assembler, poi non so se č molto
esatto. quando richiami una procedura o una funzione viene eseguito un push
per salvare l'indirizzo corrente, questo occupa spazio nello stack, e quando
č finita la procedura o la funzione viene eseguito un pop e si continua
dalla riga di codice dopo il richiamo della procedura.
se richiami troppe procedure (o funzioni) lo stack viene saturato e se si
tenta di accerdervi ancora in scrittura si ottiene appunto una exception
EStackOverFlow.
comunque bisognerebbe vedere l'algoritmo, probabilmente avrai fatto qualche
errore e non te ne sei accorto.
comunque le eccezzioni si possono controllare con TRY...EXCEPT.
see you
--
Davide - 
Gna...@wappi.com

Tranquillo, qui nessuno (o quasi :) vuole rubarti il codice,ma è necessario


 basta.
Comunque esistono delle direttive del compilatore per impostare la
dimensione dello stack...
Sono:
{$MINSTACKSIZE 1024}
{$MAXSTACKSIZE xxxxxx}
Anche se probabilemente il tuo overflow è dovuto ad un errore concettuale
prova a dargli un'occhiata..
Ciao..

 'Stack overflow'. process stopped. Use Step or Run to continue"
probabilmente c'e' una chiamata ricorsiva infinita (e' l'errore piu'
comune).
puo' darsi che una funzione richiami direttamente o indirettamente se stessa
in un ciclo infinito, controlla bene gli eventuali eventi provenienti dal
form
o da componenti.
Newsgroup: it.comp.lang.delphi
Titolo: Iconcine per bottoni

Ciao a tutti,
dove posso trovare un po' di iconcine (32x32 o altri formati) da mettere sui
bottoncini dei miei programmi?
Mi sapete dare un link?
Ciao e grazie

 ha scritto nel messaggio
news:sDZBa.33711$g92.7...@news2.tin.it...

prova qua:
http://www.iconolog.net/ico/index.html
MAX

bottoncini dei miei programmi?
la mia istallazione di delphi 6 mi ha messo nella cartella
C:\programmi\file comuni\borlad shared\images\button
un pò di icone delphi style 16x16
forse ho detto una banalità ... ma è sempre meglio saperlo
per applicazioncine "mordi e fuggi" 
poi se vai su google sezione Gruppi e con qualche click
arrivi su it.comp.lang.delphi, puoi cercare la parola icone
nel newsgroup ...
fra le risposte trovi un pò di threads che potrebbero fare
al caso tuo ...
se hai già fatto ciò ... 
non posso aggiungere altri links, sorry
se no ...
 avrai un bel pò di icone da spulciare ;)
 	Ciao
	MassimoB
 
	------------------P.S.[OT]-----------------
	Sto usando un newsreader fatto da me
	per qualsiasi problema di leggibilità
	o non convenzionalità del messaggio
	vi prego di comunicarmelo.
	-------------------------------------------

 >bottoncini dei miei programmi?
Abbuffati di icone XP !!! :-)
Ciao
 Miyomo
 
http://makeashorterlink.com/?V3B5324C4

 ha scritto nel messaggio
news:jkiCa.38548$g92.8...@news2.tin.it...


Newsgroup: it.comp.lang.delphi
Titolo: Errore I/O 183

Ciao a tutti.
Qualcuno mi puň indicare dove trovare un elenco (completo) degli errori di
I/O?
In particolare continuo ad ottenere l'errore 183 con le seguenti istruzioni
e non capisco perchč:
var
    fbin : file of byte;
    // ho provato anche con fbin : file; ma non cambia
begin
  AssignFile(fbin, MioFile); // Mio file esiste
  Reset(fbin);
Mi sembra che dovrebbe essere molto semplice.
Vorrei solo aprire il file in modo da leggervi dei blocchi di dati.
Ciao

 In particolare continuo ad ottenere l'errore 183 con le seguenti
istruzioni
l'erore 'è : 183L := ERROR_ALREADY_EXISTS
Saluti NEA

 l'erore 'è : 183L := ERROR_ALREADY_EXISTS
Ok, visto su MSDN... ma... lo so che il file esiste! :)
Infatti lo voglio leggere!
Ciao

 183... boh
se non ricordo male se nel tab trova scrivi 183L o ERROR_ALREADY_EXISTS
nella lista dovrebbe apparirti qualcosa come numerical.....prova
Saluti NEA

 nella lista dovrebbe apparirti qualcosa come numerical.....prova
Sě, ok.
Voglio comunicare il perchč dell'errore cosě se puň servire ad altri...
Subito prima dell'
AssignFile()
Reset()
c'era un
{I-}
mkdir()
{I+}
a quanto pare l'IOResult (183 file already exists si riferiva alla dir che
cercavo di creare) rimaneva latitante fino al Reset() (che non c'entrava una
cippa!) dove scoppiava... boh!
E' bastato resettarlo cosě:
{I-}
mkdir(...);
{I+}
IOResult;
AssignFile(...);
Reset(...);
Ciao
Newsgroup: it.comp.lang.delphi
Titolo: Undeclared identifier

perchè mi da questo errore?
il pulsante è stato dichiarato.
[Error] Email.pas(262): Undeclared identifier: 'Down'

 [Error] Email.pas(262): Undeclared identifier: 'Down'
Mi spiace ma la sfera di cristallo 2.01 ancora non mi è arrivata .. AZZZ 
eppur l'avevo chiesta sia a babbo natale che alla befana :(
Con queste poche righe non credo che si possa rispondere alla tua domanda,
chi è Down?
dove è definito?
è scritto correttamente
varie ed eventuali
^_Goblin_^
-- 
Ibis et redibis non morieris in bello
http://goblinland.myminicity.com/

lo scanner è collegato?
A.


ho dei label come componenti ma mi dice che non sono dichiarati, ma ho 
contrallato ci sono, puo essere che ne sono troppi?


No, stai tranquillo! :)
Se ti dice che non e' dichiarato potresti averli dichiarati con un nome
diverso.
Comunque senza vedere un po di codice facciamo fatica a darti una mano.
ciao
Giacomo
Newsgroup: it.comp.lang.delphi
Titolo: constructor per una form

Ciao a tutti.
Qualcuno mi sa indicare l'uso delle constructor?
Praticamente devo modificare la creazione di un form in modo tale da
passargli dei valori, o meglio dei puntatori a valori, come posso fare?
Ho provato come scritto nel manuale, ma mi sa che le traduzioni in Italiano
sono piene di bacchi.
In sostanza ho inserito nella public del form il constructor creacondati e
l'ho definito con tutte le variabili di interfaccia che mi servono:
private
  beppe:pointer;
  nino:pointer;
 ciccio:pointer;
public
  constructor CreaConDati(a,b,c:Pointer; Owner :Tcomponent);
implementation
constructor CreaConDati(a,b,c:Pointer;Owner :Tcomponent);
Begin
ciccio:=a;
beppe:=b;
nino:=c;
End;
Mi da errore sulla CreaConDati della sezione Implementation. Mi dice
identificatore inesistente "CreaConDati".
--
Chrys-bj
http://digilander.iol.it/chrysbj

 constructor CreaConDati(a,b,c:Pointer;Owner :Tcomponent);
...
Manca la classe: constructor TTuaForm.CreaConDati;
Potrebbe inoltre essere utile, all'interno dell'implementazione, chiamare
inherited Create(AOwner);
Un consiglio: una volta dichiarato un metodo nell'interface, usa
Ctrl-Shift-C per attivare il completamento automatico.
hth
Paolo Arosio

Grazie.
--
Chrys-bj
http://digilander.iol.it/chrysbj

  constructor CreaConDati(a,b,c:Pointer; Owner :Tcomponent);
otra alla classe mancante (come suggerito da Paolo) ti consiglio di
fare un Create "overloadato", in pratica
constructor Create(a,b,c:Pointer; Owner :Tcomponent); overload;
cio' significa che il compilatore scegliera un costruttore o l'altro
in base al numero etipo di parametri
un TTuaClasse.Crate(Form) ... richiamera' il create "standard"
mentre
TTuaClasse.Crate(a,b,c,Form) ... richiamera' il create "overloadato"
Ciao,
Alan Solo


wrote:

Non vorrei dire un stupidata ma, nel caso specifico, non servirebbe
anche la direttiva reintroduce?
Ciao,
Massimo.
-- 
"Ciao Rex, che cavolo di situazione eh? Due dentro, due fuori, puo' succedere di tutto!"

anche la direttiva reintroduce?
direi di no,
"If you overload a virtual method, use the reintroduce directive when
you redeclare it in descendant classes."
e il costruttore non e' virtuale...
accetto, smentite / conferme (mi hai messo dei dubbi atroci!! ;)
Ciao,
Alan Solo



beh se parliamo del TForm.Create, si' è deriva da TComponent.create
che è virtual.
Ciao,
Massimo..


che è virtual.
TForm e' derivata da TCustomForm il cui costruttore non e' virtual,
o no? almeno dall'help risulta cosi'...
Ciao,
Alan Solo
Newsgroup: it.comp.lang.delphi
Titolo: [FIREBIRD/INTERBASE] Database CAP d'Italia (gratis)

Su 
www.firebirdsql.it
un database (.gbk) dei
CAP/PROVINCIE/COMUNI/ZONE
d'Italia.
--
Ciao!
--
Marco Kregar
marco....@FirebirdSQL.it
www.FirebirdSQL.it
"over the bench the goat sings, under the bench the goat dies"

Ciao!
CIAO!!!!
-- 
Morde. 
(morde at programmer dot net)

utilizzavo nella mia base dati. 
Se volete, io ho la base dati passatami dall'INAIL.  E` abbastanza
completa (10510 record, compresi i paesi esteri).  Posso pubblicarla.

 ha scritto nel messaggio
news:bkuvqq$8j0$1...@lacerta.tiscalinet.it...


 completa (10510 record, compresi i paesi esteri).  Posso pubblicarla.
Wow... mi sembra un'ottima cosa!!! 
Posta il link una volta che l'hai pubblicata! Grazie
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 dati.
I dati sono quelli ufficiali delle poste italiane....


credo sia un backup di un db interbase. nel case, basta fare il restore
A

il cf è un hash basato su cognome, nome, comune e data di nascita e l'ultima
cifra è un check digit.
Se gli passi gli stessi dati, dovrebbe ti generare lo stesso codice.
Ma *sembra* che il ministero abbia un sistema per la risoluzione di questi
conflitti.
Ergo, occhio alle varie routine di calcolo,sopratutto se le usate per cose
serie, alias, tasse&soldi.
AS

 ha scritto nel messaggio
news:bkv1p9$64puc$1...@ID-203820.news.uni-berlin.de...


Posta il link una volta che l'hai pubblicata! Grazie
http://www.geocities.com/andrealaforgia/myfiles/comuni.zip

 completa (10510 record, compresi i paesi esteri).  Posso pubblicarla.
se puoi posta pure, altrimenti mandamelo via email che lo metto sullo spazio
di altervista che ho.
ciao 
-- 
Fabrizio Mancini - <f[.]mancini[@]tin[.]it>
25/09/2003 17.59.43
Open Delphi Manual (
http://groups.yahoo.com/group/delphi_open_manual/
)

conflitti.
Esatto, ci sarebbe anche il modo di procedere alla generazione dei
codici alternativi, ma non conosco l'algoritmo.  

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

ufficiali delle poste italiane
Grazie Marco, è utilissimo.  Il POSTEL mi rimanda indietro gli
indirizzi che non riportano un CAP corretto (!).

a quei dati ufficiali.
Grazie Marco per i chiarimenti, ribadisco il suggerimento di inserire un
readme.txt nel file che fornite in download che ne certifichi la provenienza.


 d'Italia.
Veramente utile! Non č che potresti postare anche l'algoritmo di calcolo che
magari s'interfaccia proprio con questo file? Thanks a lot!
Med

 magari s'interfaccia proprio con questo file? Thanks a lot!
Un algoritmo a caso o qualcosa di specifico?


> Un algoritmo a caso o qualcosa di specifico?
Scusa hai ragione non so perchè ma ho dato per scontato che questa tabella
servisse al calcolo del codice fiscale. Intendevo proprio questo tipo
calcolo effettuato avendo la tabella su file .gdb Bye
Med
Newsgroup: it.comp.lang.delphi
Titolo: RANGE CHECK ERROR

ciao a tutti, qualcuno sa dirmi cos'è l'errore RANGE CHECK ERROR in fase di
runtime (me lo da su un applicazione bde solo ad alcuni clienti, non tutti)
Simone

Le possibili cause di un Range Check Error potrebbero essere:
1. Stai cercando di recuperare un elemento da una arrary fornendo un indice
superiore o inferiore al Range stesso dell'array.
Per esempio, il seguente codice produce l'errore di sui stiamo parlando:
procedure TForm1.Button2Click(Sender: Tobject);
var
 i: integer;
 a: array[1..16] of integer;
begin
 i := 17;
 a[i] := 1; // Stai cercando di assegnare un valore all'elemento 17 (che non
esiste)
end;
2. Stai cercando di assegnare ad una variabile un valore troppo grande per
il type della variabile stessa.
Per esempio, una Variabile di tipo Byte può contenere valori fino a 255. Se
cerchi di assegnare a tale variabile un valore negativo o superiore a 255
verrà generato il Range Check Error.
Per maggiori info cerca sull'help di Delphi "Range Checking"
--
Acqua
-------------------------------------------------------
Download new version of my PixExperts for Delphi 6/C++ Builder 6 at
http://www.salexander.supereva.it/Pix_Exp171D6.zip

 runtime (me lo da su un applicazione bde solo ad alcuni clienti, non tutti)
Forse tali clienti hanno nel loro database un dato troppo grande per 
essere memorizzato nella variabile che tu hai scelto?
Ciao,
   Luca

grazie... indagherň sui dati del cliente
Simo

Newsgroup: it.comp.lang.delphi
Titolo: RIVISTE SPECIALIZZATE PER DELPHI

Siamo una swh e ci stimao affacciando solo ora all'ambiente, potreste darci
il nome di qualche rivista e o editore che si occupa di delphi per
programmatori.
        GRZ

programmatori.
in inglese:
The Delphi Magazine
email:  
ma...@itecuk.com
sito: 
www.TheDelphiMagazine.com
Ciao
Duilio

io vi conosco, siete concessionari della EasyCom che fornisce i driver ACE/400
per il DB2 dell'AS/400 IBM; una societą di trasporti nazionale su Gomma č mia 
cliente e ha i vostri prodotti... avete fatto un po' di macello con le chiavi
di
attivazione....ciaooooooo:---))
-- 
Posted from  [213.82.192.70] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 per il DB2 dell'AS/400 IBM; una società di trasporti nazionale su Gomma è


io programmo della gol
ne siamo soddisfatti anche se il caro vecchio Delphi/400 (co404,5,ecc)
vostro concorrente e sostenuto dalla borland permette di specificare più
as/400 nelle proprie configurazioni associandovi il proprio indirizzo IP, di
modo che uno possa switchare come meglio crede.. Sul software di
configurazione di accesso di EasyCom invece tutto questo non c'è (o non l'ho
trovato io?)
Ciaoooo

 ha scritto nel messaggio
news:9o744i$86r$1...@newsreader.mailgate.org...


Grazie!!
Era quello che cercavo, adesso ok ma quando sparisce BDE??
Mah forse aggiorneranno il tutto....
Newsgroup: it.comp.lang.delphi
Titolo: TRichEdit.Print ed Interruzioni di pagina

Salve a tutti...
Non ho trovato soluzione nell'help di Delphi e le mie "prove" non hanno 
portato a nulla, quindi ecco che mi rivolgo a voi...
Ho un TRichEdit in cui ho salvato in successione diversi blocchi di testo 
formattatto (una 40tina di righe ciascuno con alcune parole evidenziate in 
grassetto ed alcuni titoli e sottotitoli di diversa grandezza e colore) che 
sono ognuno il risultato di una certa elaborazione. Ho necessità di stampare 
il contenuto di quel TRichEdit, ma vorrei che ogni nuovo blocco di testo 
finisse in una nuova pagina...
NB: è opportuno che mantenga tutti i blocchi di testo nello stesso 
TRichEdit, non posso usare diversi TRichEdit (uno per blocco di testo) da 
selezionare tramite TTabSelector o simili ed inviare in successione stampe 
da ognuno di loro con un ciclo.
Ho provato ad inserire tra un blocco di testo e l'altro un Chr(12) ovvero il 
codice ASCII per FF (FormFeed) nella speranza che giunto in quel punto 
l'elaborazione della stampa procedesse in un nuovo foglio (mi pare che col 
Turbo Pascal sotto DOS funzionasse) ma senza ottenere l'effetto 
desiderato... Evidentemente al giorno d'oggi lo scambio di informazioni tra 
sistema e stampante è molto più complesso dell'universale codice ASCII che 
veniva usato una volta...
Cosa mi suggerite di fare? E' possibile gestire la stampa come voglio io 
senza dover aggiungere componenti aggiuntivi?
Grazie e ciao,
       Stefano 

senza dover aggiungere componenti aggiuntivi?
Guarda adesso cerco in google, pero' prima ti suggerisco come farei io: con un
ciclo scorro tutto il testo, mi istanzio un trichedit a runtime, ci copio
dentro il paragrafo che mi interessa di volta in volta, e ne invoco il metodo
print.
Ciao
-- 
Morde. 
(
mo...@despammed.com
)
M-List di icld: 
http://it.groups.yahoo.com/group/icld/

Guarda adesso cerco in google,
ecco un'implementazione: 
http://tinyurl.com/6d7o8


Do un'occhiata all'indirizzo che mi hai consigliato, sennò implemento la 
soluzione che mi hai suggerito anche tu...
Speravo ci fosse una maniera intelligente per fare capire al componente di 
passare ad una nuova pagina, ma evidentemente no!!!
Grazie ancora,
   Stefano 

Il link che mi hai mandato č fantastico...
Ma son proprio cosě scemo che certe cose non sono capace di treovarmele da 
per me in internet????
Mah!!!
Ste 

per me in internet????
Google e' come un oracolo: devi fare la domanda giusta, per avere la giusta
risposta.
(mordeZen)
Ciao :)

Newsgroup: it.comp.lang.delphi
Titolo: ODBC

Ciao a tutti,
che oggetti mi consigliate di usare per collegarmi ad un database tramite
una chiave ODBC?
Premetto che devo per forza usare una chiave ODBC...purtroppo!
Grazie in anticpo
Rino
--------------------------------
Inviato via 
http://usenet.libero.it


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


Ma ho appena finito di leggere che potrei anche usare solo DBGO for ADO.
Ma non so se funziona anche per DB non Microsoft.
Qualcuno ne sà di più?


 Qualcuno ne sà di più?
ADO è una libreria Microsoft di accesso ai database la quale include anche
un driver per poter accedere allo strato software ODBC, che alla fine dei
conti non è altro che un'altra libreria per l'accesso ai dati. Puoi accedere
ad un'origine dati ODBC usando ADO, come hai detto tu, o anche con il BDE,
definendo opportunamente un alias attraverso il "BDE Administrator" nel
Pannello di Controllo.
ADO è compatibile anche con database non Microsoft...basta trovare il driver
OLE DB corrispondente (ad esempio, esiste un driver ADO anche per
InterBase...).


Qualcuno ne sà di più?
ADO affonda le radici nella tecnologia UDA (Universal Data Access) di
Microsoft e prevede la distinzione tra oggetti "consumer" e oggetti
"provider".  Questi ultimi si occupano di accedere e manipolare i
dati.  Quindi, ADO è valido per _qualsiasi_ DB, a meno di possedere il
"provider" per l'accesso e la manipolazione dei suoi dati.  Con il
nome "dbGO" sono solo stati ribattezzati i componenti ADO che c'erano
già in Delphi 5 e che non solo altro che "wrapper" per gli ActiveX di
Microsoft.  Per i tuoi scopi puoi usare ADO interfacciandolo a ODBC.
Le prestazioni, probabilmente, non saranno eccezionali, ma il tutto
funziona.  Lato Delphi sei avvantaggiato dal fatto che l'interfaccia
verso gli ADO veri e propri è piuttosto semplice (molto simile a
quello delle TTable/TQuery che venivano usate col BDE).  
La situazione ideale vorrebbe che vi fosse un OLE DB Provider, al
posto del driver ODBC, ma non sempre i provider sono disponibili,
specie per DB come IB o Firebird che hanno utilizzi relativamente "di
nicchia".  Molto più frequente è la disponibilità di driver ODBC.
-- 
Andrea Laforgia
"God is dead." -- Nietzsche
"Nietzsche is dead." -- God

 Premetto che devo per forza usare una chiave ODBC...purtroppo!
Il termine "chiave" in un contesto database significa, in poche parole "dato
per accedere ad un record".
In questo contesto quelle che tu chiami "chiavi" si chiamano FONTI DATI.
vedi anche il pannello di controllo della tua versione di Winsozz.
Bye
A.
Newsgroup: it.comp.lang.delphi
Titolo: Ricerca di un File in tutto C:

ciao a tutti
sono Pier volevo sapere se qualcuno ha qualche idea per fare la ricerca di
un file all'interno di tutto l'hard disk!
in pratica voglio fare un  programmini in D5 che premendo un Button mi
faccia la ricerca del file "miofile.exe" all'interno di tutto il disco e C e
se lo trova mi dica il percorso!! esiste quanlche componente che realizza
quanto foglio fare io oppure qualcuno ha qualche idea di come potrei
fare?!?!?!?!
grazie a tutti per la collaborazione
ciao a tutti Pier
ayse...@libero.it

Pierluca wrote:

E' già stato postato un esempio che fa ciò. Prova a guardare bene negli articoli
precedenti.
By Enri'S


Questa procedure legge tutto il disco C.
Modificala per ottenere quello che vuoi.
PROCEDURE LeggeC;
      VAR NewDir : String;
PROCEDURE Scan;
      VAR SR     : TSearchRec;
          Found  : Integer;
          DirPos : String;
    BEGIN
          Found := FindFirst('*.*', faArchive+faReadOnly+faHidden+faSysFile,
SR);//file
          While Found=0 Do
             Found:=FindNext(SR);
          Found := FindFirst('*.*', faDirectory+faHidden+faSysFile,
SR);//cartelle
          While Found=0 Do
             Begin
             If (SR.Attr And faDirectory <> 0) And (Copy(SR.Name,1,1)<>'.')
Then
                 Begin
                 GetDir(0,DirPos);
                 If Copy(DirPos,Length(DirPos),1)='\'
                    Then NewDir:=DirPos+SR.Name
                    Else NewDir:=DirPos+'\'+SR.Name;
                 ChDir(NewDir);
                 Scan;
                 ChDir(DirPos);
                 End;
             Found:=FindNext(SR);
             End;
          FindClose(SR);
    END;
    BEGIN
          NewDir := 'C:\';
          ChDir(NewDir);
          Scan;
    END;
Newsgroup: it.comp.lang.delphi
Titolo: Relazioni M/D su Interbase

se usi le tabelle potresti fare cosě:
Ti ringrazio molto per la tua risposta + che celere, ma questo e' un
metodo che non posso usare: le TTable non sono adatte all'uso su
server SQL (troppo inefficienti), quindi devo usare TQuery +
TUpdateSQL, oppure SQL liscio.
Se uso le prime, finche' non rilascio la transazione, il motore non
assegna l'ID, perche' materialmente il record si trova ancora nella
cache del client. Usare i bookmark in questa fase provoca un errore,
perche' la tabella non e' univocamente indicizzata (manca ancora il
famoso progressivo!).
Se uso un normale costrutto SQL UPDATE ecc ecc, non ho neanche in
questo caso la possibilita' di sapere l'ID.
Cmq ho trovato per adesso una soluzione accettabile: anzieche'
inserire l'ID attraverso un trigger, uso una stored procedure che mi
restituisce un porgressivo che assegno manualmente.
Cmq sarei lo stesso curioso di capire se esiste un metodo adatto e +
"automatico" :-\
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

...
Che versione di Delphi hai ?
Con D5 hai i componenti apposta per interbase.
Cmq io uso Sql Server + TTable e problemi di performances non ne ho.
Per il discorso degli ID autoincrementanti ho sviluppato un componente
TTable che richiama delle Stored procedure...penso che sia la migliore
soluzione...
Ciao
Solid Snake

soluzione...
Un po' quello che ho fatto io, anche se ho definito una funzione
all'interno del datamodule.


 restituisce un porgressivo che assegno manualmente.
e' il metodo corretto, per il contatore puoi usare un oggetto
generator (sono fatti apposta).
Newsgroup: it.comp.lang.delphi
Titolo: Bug D6?

Salve
succede solo a me che il Lock Controls di D6 a volte non funzioni ? Quello
di D5 mai problemi..
Ciao
Andrea

Andrea
	Ciao
	MassimoB
 


Sulla barra dei menů -> Edit -> Lock Controls
Serve a bloccare i componenti della form per evitare di spostarli
accidentalmente.
Lo trovo molto utile quando la "grafica č apposto", ma su D6 e non sul mio
D5 a volte non funziona..

D5 a volte non funziona..
ah ... ok ho capito, pensavo intendessi un metodo
runTime o altro ;) ... purtroppo non utilizzando mai
questa utilità di IDE non ti posso dare un feedback ...
l'ho provato ora per la pima volta su un progetto
abbastanza articolato come interfaccia e *ovviamente*
:) va bene ... se mi capiterà qualche problema in
futuro riferirò sul Ng :)
Ciao MassimoB
 

 ha scritto nel messaggio
news:KHokc.30182$Qc.11...@twister1.libero.it...

In particolare prova a settarlo e poi ad aprire un'altra unit del progetto e
verificare se è ancora ok
Ciao e grazie

)

Marco «Alka» Breveglieri
	Ciao
	MassimoB
 

 [...]
Apparentemente, sembra che per ogni tipo di elemento (Form, Frame, Data
Module...) che ha una rappresentazione differente a livello di
progettazione si debba sbloccare/bloccare nuovamente i controlli usando
la voce di menu corrispondente per fare in modo che per quel determinato
tipo di elemento i controlli siano effettivamente bloccati, qualsiasi
file si vada ad aprire.
Comunque sě, credo ci sia un po' di confusione in quell'opzione... :-)



Posso assicurarti che in D5 una volta settato rimane attivo per tutte le
unit del dpr.
Comunque non è grave..
Ciao

Newsgroup: it.comp.lang.delphi
Titolo: Indirizzo IP

Sto sviluppando un programma che deve inviare una richiesta ad un server web
modificando l'indirizzo IP della mia macchina.
Il programma e' praticamente finito, ed ho utilizzato il componente TNMHTTP,
tuttavia la proprieta' LocalIP di tale componente e' read-only quindi non la
posso utilizzare.
E' possibile realizzare quanto ho detto ?
Come ?
Devo utilizzare un server proxy ?
Ciao.
Simone.
==============================
...e Dio disse: "pkunzip universo.zip"
e-mail: 
drfa...@tiscalinet.it
web: 
http://go.to/drfalken
 (internet
su numero verde, pascal, assembler,
mp3 player, tips'n'tricks)
==============================

 Sto sviluppando un programma che deve inviare una richiesta ad un server
web
non capiso perchč tu debba modificare l'IP della tua macchina. Per farlo si
deve praticamente scaricare e rilanciare le dll che governano la rete.
Penso che non sia possibile facilmente a meno di non attivare un server
dhcp. In questo caso devi procurarti anche il suddetto server.
Ciao ZioPino
.
Newsgroup: it.comp.lang.delphi
Titolo: TTree view

Buongiorno a tutti...
Ho un piccolo problema per voi ( ma grande per me..)
Vorrei, in fase di creazione di una form, far espandere automaticamente la
root del TTreeView in modo da trovarlo gia aperto quando visualizzo la form
ma non so come farglielo capire.
Qualcuno puņ aiutarmi ?
--
Alberto Menghini
alb...@asoft.it

 ha scritto nel messaggio
news:y3g95.46440$2s6.5...@news.infostrada.it...


> Crei l'albero a run time?
no a design time ... ma credo di avere risolto mettendo questo nel create
  tvFolderList.GetNodeAt(0,0).Expanded := True;
...non so se č la maniera piů bella .... ma funziona.
grazie.

    Hai provato:
    tvFolderList.Items[0].Expand(False)  oppure
tvFolderList.Items[0].Expand(True)  ?
    George.
Alberto Menghini wrote in message ...


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

Newsgroup: it.comp.lang.delphi
Titolo: [OT] MSDN Originale Vendesi

Vendo i seguenti numeri di MSDN Library Originali:
-MSDN July 2001 (3 CDs) 100.000 lire (ULTIMO NUMERO USCITO!!!)
-MSDN April 2001 (3 CDs) 60.000 lire
-MSDN January 2001 (3 CDs) 40.000 lire
-MSDN Library Archive (1 CD, tutta la documentazione per Win16) 100.000 lire
Inoltre questi prodotti: (se associati a un numero di MSDN Library a metà
prezzo!).
-Component Source MSDN 01/2001 Edition (1 CD) 20.000 lire (ULTIMO NUMERO
USCITO!!!)
-MS SQL Server 7.0 Kit di valutazione (1 CD) 16.000 lire
-MS Windows DNA (1 CD) 16.000 lire
-MS Internet Business Development Kit (4 CDs) 12.000
-MSDN V.3 Sampler CD (1 CD) 12.000 lire
-MS TechNet Sample (1 CD) 6.000 lire
-MS Year 2000 Resource CD (1CD)  2.000 lire
-MSDNNews Mar/Apr 2001 (opuscolo) 4.000 lire
-MSDNNews May/Jun 2001 (opuscolo) 10.000 lire (ULTIMO NUMERO USCITO!!!)
Spese di spedizione a carico del destinatario.
Scrivete a 
fran...@yahoo.it

 Spese di spedizione a carico del destinatario.
Ti sei dimenticato di spiegare che, salvo MSDNNews che sono praticamente delle
riviste, tutto il resto e' costituito da CD contenenti SW di cui tu non hai il
diritto di vendere la licenza.
Pertanto nel caso che qualcuno li acquistasse sia tu che lui rischiereste una
denuncia penale (per te: pirateria informatica e/o ricettazione. Per
l'acquirente: lo stesso, oppure, se ha culo, semplicemente incauto acquisto).
Inoltre ti segnalo, visto che non e' la prima volta che posti messaggi del
genere, che alla prossima scatta la segnalazione sia alla MS che alla GdF.
--
Andrea Ferro
---------
Brainbench C++ Master. Scored higher than 97% of previous takers
Scores: Overall 4.46, Conceptual 5.0, Problem-Solving 5.0
More info 
http://www.brainbench.com/transcript.jsp?pid=2522556

genere, che alla prossima scatta la segnalazione sia alla MS che alla GdF.
Frankbus andrebbe denunciato penalmente per i seri danni
testicolari che provoca a molte persone che leggono questo
gruppo.  Da che frequento Usenet non ho mai visto un
messaggio di Frankbus diverso dal precedente.
Sto cominciando a pensare che il suo (loro) intento sia
quello di trolleggiare e basta.
--
Andrea Laforgia - walkietalkie(at)
libero.it
http://www.geocities.com/AndreaLaforgia
Newsgroup: it.comp.lang.delphi
Titolo: Griglia invertita

Non riesco a trovare un componente griglia che abbia le righe e colonne
invertite: ho bisogno che le righe rimangano fisse, mentre le colonne siano
in numero variabile. Quando vado in insert edit, ecc. aggiungo una colonna e
non una riga. Ogni riga corrisponde ad un valore, mentre le colonne sono i
periodi nel tempo.
Ho trovato griglie olap & co, ma non vanno bene. Non mi va di creare qualche
centinaio di colonne a runtime, inoltre ho anche il problema dell'editing.

 wrote in message
news:d7oth6$vs7$1...@newsreader.mailgate.org...


 semplice sia un ClientDataset, oppure ogni volta devi usare un alter
table)
La mia griglia deve essere associata ad una query.
Non posso mettermi a modificare a runtime la tabella sottostante.
Per il momento il programma si tiene la griglia normale e con calma mi vedo
come funzionano le griglie e me le modifico in modo da farla funzionare come
voglio.

Ho risolto, quello che cerco è sugli InfoPower, dalla versione 3000 in su.
Newsgroup: it.comp.lang.delphi
Titolo: Invio File con Outlook

Ho la necessità di inviare un file come allegato di posta elettronica, nel
libro di cantù ho trovato la funzione API ShellExecute che spiega come
inviare il messaggio tramite Outlook (o altro predefinito), ma non spiega
come allegare un file, qualcuno sa come fare? Grazie Daniele


Su IoProgrammo di questo mese nella sezione Tips c'è un esempio ... devi
utilizzare l'OLE Atomation!
Ciao!
--
- Carlo -
ps : io non ho quell'esempio altrimenti te lo posterei ... lo ho visto sulla
rivista di un amico!

Newsgroup: it.comp.lang.delphi
Titolo: Sql e aggregazione

Salve.
Ho un problema con sql sul quale sto un po tozzando.
Ho una tabella cosi composta:
id: integer
tiporiga a oppure b
valore integer
dentro questa tabella le righe compaiono come le seguenti:
1,a,100
1,b,150
2,a,10
2,b35
e cosi via
Sto cercando il modo di ottenere con una sola select (se possibile), un
risultato del genere
1,100,150
2,10,35
Intanto comtinuo, ma se qualcuno ha qualche suggerimento, è ben accetto.
TIA
Bye
AS

La butto li...
select id, sum(valoreA), sum(ValoreB)
from (
select id, valore as valoreA, 0 as valore B
from tabella 
where tiporiga='a'
union
select id, 0 as valoreA, valore as valore B
from tabella 
where tiporiga='b'
)
group by id
P.S..  sempre che tu non usi paradox e TQuery :-)))))))
Ciao, Rocco

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

Qualcuno mi manderebbe un progetto semplice basato su DB tanto per farmi
rendere conto di come si usano.
E' la prima volta che mi avvicino ai DB.
Mi basterebbe qualche piccolo progetto d'esempio.
Grazie !!!!!!!!!!!!! x 2000


Grazie !!!!!!!!!!!!! x 2000
de...@inwind.it
Newsgroup: it.comp.lang.delphi
Titolo: Font e unicode

Salve nel mio programma con D7 ho necessità che un componente Label utilizzi 
i font estesi (unicode) come faccio? Se provo ad incollacene uno mi appare 
sempre " ? "
Grazie a tutti 


La parte visuale della VCL non ha mai supporto Unicode.
Hai due possibilita':
- scarichi componenti appositi che lo supportano (su sourceforge
trovi componenti free che lo fanno, ma non ricordo il loro nome).
- aspetti l'imminente versione di Delphi che lo supportera'
nativamente (o quasi: non sono molto informato a proposito).
Ciao
ACSH
-- 
Il più grande sbaglio nel progettare software
a prova di stupido è sottostimare l'enorme
ingegnosità degli stupidi. 


Delphi 2008 sarà compatibile UNICODE
e D2009 sarà compatibile con WIN64.
Questi sono gli annunci ufficiali.
 D2008 credo però che non uscirà "subito".
C.

Newsgroup: it.comp.lang.delphi
Titolo: [OT] Scaricare Delphi 1 ... 3

Salve a tutti...
Qualcuno ha l'indirizzo di qualche sito da dove e' possibile scaricare
una versione tra la 1 e la 3 di delphi? Lo vorrei rimettere sul mio
vecchio 486, o su un amd pr133
grazie
Antonio

 vecchio 486, o su un amd pr133
solo la versione 1 e' free, e comunque non e' scaricabile, le altre versioni
sono commerciali e quindi, a maggior ragione, non sono scaricabili. Comunque
dicono che sui siti russi si trovi materiale, se conosci il cirillico facci
un giro :D
Ciao, Sandro

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

Newsgroup: it.comp.lang.delphi
Titolo: programmi esterni....

Salve a tutti,
in un'applicazione che sto sviluppando uso un programmino esterno
lanciandolo con il comando
winexec(path,sw_normal);
subito dopo il lancio disabilito l'icona che lo fa partire.
come faccio a catturare quando tale programma viene chiuso dall'utente per
riabilitare l'icona???
come posso poi chiudere tale programma esterno dal mio codice???
Grazie
Giň
--
SGNAUZ !!!!!!
Non c'e' niente di piu' pericoloso di un grande pensiero in un piccolo
cervello
------------------------------
GiňVanni Giň 17
icq contact: #74691597
----------------------------------------------------------------------------
Se vuoi piangere, non farlo: chi non ti capisce, ride; chi ti odia gode,
machi ti vuol bene soffre.


Con WinExec, non puoi. Ma con CreateProcess, puoi. Per pił dettagli, vai a
vedere su 
www.tamaracka.com
 e cerca "createprocess program terminate" o
qualche altra parola del genere.
IceCream

riabilitare l'icona???
ShellExecuteEx + WaitForSingleObject
Newsgroup: it.comp.lang.delphi
Titolo: problemi con server web e CGI

Ciao a tutti,
non sň se su questo NG sono OT, ma non sň piů a chi chiedere.
Io ho fatto un CGI con il delphi e ho problemi a farlo funzionare sul un
server IIS di NT.
In pratica quando provo a lanciare la mia pagina con il Personal Web server
tutto funziona bene, la pagina carica il CGI e fa tutto quello che deve
fare, quando metto le stessa pagine sul server internet, continua a venirmi
fuori il seguente errore:
HTTP 500 - Errore interno del server Internet Explorer
Che cosa puň essere...
Forse c'č qualche configiurazione che non conosco?
Grazie a chiunque mi piů fare una mano...
Tomas

HTTP 500 - Errore interno del server Internet Explorer
Posta il codice (se non è 'segreto') ... anche io andai incontro a questo
errore, se non sbaglio era causato dal fatto che chiamavo il CGI fornendo un
path senza passare da http ... forse sarà necessario postare anche la pagina
che ti da errore (ovviamente non sul ng)!
Sei sicuro che il path del Server sul quale hai caricato la pagina sia in
condivisione Web?
Ciao!
--
- Carlo -







mettere le mani.
In teoria devi solo attivare la pubblicazione Web sulla cartella in cui si
trova il CGI e successivamente richiamare il CGI come percorso di rete
mediante http.
Ma stai utilizzando Personal Web Server?


 ha scritto nel messaggio
news:fo_A5.39284$3R6.8...@news.infostrada.it...

Newsgroup: it.comp.lang.delphi
Titolo: Eliminare il rettangolo blu da una string grid

Vorrei sapere se e' possibile eliminare il rettangolo blu di selezione di
una cella da una stringgrid.
Se potete aiutarmi grazie
--- posted by geoForum on 
http://www.delphiedintorni.it

 una cella da una stringgrid.
Cerca con Google nel gruppo: ne abbiamo parlato proprio recentemente.
Ciao,
   Marco.
-- 
MARCO BREVEGLIERI
  (
http://www.marco.breveglieri.name
)
     Non hai la possibilità di scaricare Turbo Delphi Explorer?
     Te lo spedisco io!! [
http://www.marco.breveglieri.name/?p=48
]

>Cerca con Google nel gruppo: ne abbiamo parlato proprio recentemente.
OK, grazie puntualizzo con:
procedure TForm1.StringGrid1Exit(Sender: TObject);
var M : TGRidRect;
M.Bottom:=StringGrid1.RowCount+1; M.Left:=0; M.Right:=0; M.Top:=M.Bottom;
StringGrid1.Selection:=M;
StringGrid1.TopRow:=0;
end;
THANKS ;-)


Meglio con 
StringGrid1.TopRow:=1;
tiene conto anche della Riga fissa.
Sorry.


Definitivamente
procedure TForm1.StringGrid1Exit(Sender: TObject);
var M : TGRidRect;
M.Top:=-1; M.Bottom:=-1; M.Left:=0; M.Right:=0; 
StringGrid1.Selection:=M;
end;
Che figuraccia, peccato che non si possono cancellare i post! Questa e' 
giusta!


Hai anche il *vizio* di risponderti da solo...
Certo che ci sono davvero *TROPPE* somiglianze con il troll che ha rotto
in questi giorni, per non essere tu !
Giuseppe

 in questi giorni, per non essere tu !
Mah si che č lui. Prova a mandare una mail al suo 
ma...@katamail.com
E' davvero scarso non solo come troll, ma proprio come persona.
Ma poverino, c'č gente nel pianeta che si diverte cosě ... scommetto anche 
che sua mamma č incinta!
-- 
- Carlo - 

Non sono io, questo e' veramente l'ultimo mio OT. 
Mi spiace che Carlo non mi creda perche' ho letto suoi post pieni di 
spunti interessanti.
Purtroppo ho postato del codice in modo avventato e mi sono reso conto 
appena dopo che il codice non era scritto nel modo migliore.
Per quanti dicono che ho dimestichezza con il NG, ho detto che era il 
mio primo post (qui), non in assoluto.
La mail sopra e' sbagliata, e' marco.****@
katamail.com
 (purtroppo e' 
katamail come quella del Troll, ma non posso farci niente).
Spero Carlo che mi crederai, del resto se fossi il Troll, sarei cosi' 
stupido da usare lo stesso provider ? 
Ciao, spero che col tempo capirai la mia buona fede.
Mia mamma non e' incinta ma mia sorella si 
( e preciso di suo marito ) :-)
Ciao


 ( e preciso di suo marito ) :-)
Dai sparisci.
-- 
- Carlo -
Newsgroup: it.comp.lang.delphi
Titolo: Errore in modifica dati su ADOTable

Questo e' uno degli errori piu' strani che io abbia visto su una ADOTable...
In pratica: esiste un campo del database che non posso modificare,
altrimenti mi "salta" la chiave primaria...
Il codice e' il seguente:
    DataModule2.TblPratica.Edit;
    DataModule2.TblPraticaNumColli.Value := NumColli;
 
DataModule2.TblPratica.Post
;
Cioe', in sostanza, il codice piu' semplice che conosco per modificare il
valore di un campo di tipo intero...
Se invece del campo "num colli" utilizzo qualsiasi altro campo, il programma
funziona. Peccato che mi serva proprio modificare quello... :-( :-(
Appena arriva al Post, mi esce questo messaggio: "Impossibile individuare la
riga specificata per l'aggiornamento. e' possibile che alcuni valori siano
stati modificati dopo l'ultima operazione di lettura"...
C'e' qualche proprieta' che devo impostare, o che posso aver impostato per
sbaglio ad un valore non appropriato? Non so piu' dove sbattere la testa...

 sbattere la testa...
Risolto, cancellando il campo da dentro Access e ricreandolo con lo stesso
nome...
Non che questo mi tranquillizzi, ma almeno per ora funziona (anzi, mi
preoccupa ancora piu' di prima.)

(anzi, mi preoccupa ancora piu' di prima.)
Questa si chiama saggezza da esperienza!
;)
-- 
Morde. 
(morde at programmer dot net)

 Questa si chiama saggezza da esperienza!
Diciamo che una volta raggiunta la consapevolezza che non era un errore mio,
i colpevoli potevano essere solo Borland o Microsoft. Se fosse stato Delphi
mi sarei preoccupato di meno, ma un problema cosi' in M$ Jet mi lascia piu'
che perplesso...

 stesso nome...
Un tentativo da fare poteva esser quello di usare FieldByName al posto
del campo persistente (btw, il campo di chiamava "NumColli" o "Num
Colli"?).
Saluti
Paolo Arosio
-- 
"La dimostrazione dell'esistenza di specie intelligenti nell'universo
 e' che non ci vengono a trovare"

 Colli"?).
Il campo si chiama "NumColli", proprio per evitare problemi con gli spazi
nei nomi.
Ho cercato di riprodurre il problema, puo' dipendere dal fatto che il campo
aveva un valore di Default a 0, e che Delphi non lo sapesse. Comunque
restera' un grande mistero, anche se fosse cosi', perche' sono sicuro che
non ho impostato io quel valore...

Newsgroup: it.comp.lang.delphi
Titolo: come imparare il delphi?

grazie a tutti coloro che mi daranno riferimenti di testi e siti web, dove
poter apprendere questo linguaggio.


Prima lezione: togli "il"

A dicembre esce un manuale di delphi6 in inglese di Pacheco&Texeira.
Ho sfogliato il volume scritto da loro su d4 e l'ho trovato
ottimo.
Quelli di Cantu non riscuotono molto le mie preferenze.
Infine, Delphi ha una guida in linea fatta abbastanza bene, salvo
alcune eccezioni come i Socket e alcune cose del dbexpress.
Bye
AS
-- 
Posted from  [212.17.220.41] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ha scritto nel messaggio
news:WJiG7.23516$zl4.6...@news2.tin.it...


collane Apogeo.
I migliori sono quelli di Calvert e di Pacheco-Teixeira. IMHO
--
Rhymes
rhy...@myself.com
http://www.foxhound-games.it
Newsgroup: it.comp.lang.delphi
Titolo: Testo cambia colore!

Qual'č il modo migliore per ottenere l'effetto del testo che cambia
colore quando ci si passa sopra col puntatore del mouse.
Mi spiego meglio, cambiando il colore nell'evento OnMouseMove, il colore
cambia, ma quando mi sposto dal testo rimane uguale, mentre io vorrei
che tornasse come prima.
Avevo pensato di usare un evento OnMouseMove del form e vedere quando
entrava come coordinate nel campo testo, ma volevo sapere se c'č una
soluzione piů elegante!
Grazie
MaTTeO.

 soluzione piů elegante!
Ciao,
         non hai specificato il componente con cui visualizzi il testo...
Comunque io darei un occhiata a CM_MOUSEENTER e CM_MOUSELEAVE...
Ciao :-)
--
Andrea Magni
E-Mail: 
ama...@interac.it

 MaTTeO.

"Fabio Giliberti":
| Se non ti va di lavorare sugli eventi CM_MOUSEENTER e CM_MOUSELEAVE come
| ti ha suggerito giustamente Alan Solo ...
???
:)

 E-Mail: 
ama...@interac.it
Grazie 1000
MaTTeO.

 
Darò sicuramente un occhiata a questi componenti!
Grazie
MaTTeO.
Newsgroup: it.comp.lang.delphi
Titolo: Aiutino x funzione "gg tra date"

Ciao sono a corto di idee.
Mi aiutate per una funzione che estrapoli uno ad uno i giorni del mese tra
due date?
In sostanza vorrei saapere il metodo per incrementare una data di un giorno,
considerando
anche i mesi di 30 28 e 29 gg....
es.
input
datainizio 27/02/2002
datafine   02/03/2002
output
27/02/2002
28/02/2002
01/03/2002
02/03/2002



Puoi usare la funzione IncDay (unit DateUtils)
-----------
Ore 18.30: premo invio.

var
   Anno, Mese, Giorno : Word;
begin
   DecodeDate(Date, Anno, Mese, Giorno);
Aggiungi a Giorno e usa la EncodeDate per ricostruire la data.
Nel fare il ciclo che incrementa, per fare il controllo per i mesi di 28,
29, 30, 31 non saprei dirti altro che IF, ma se qualcuno ha qualcosa di
meglio, cosě imparo anche io :))))
Ciaoux, spero di essere stato utile

In Delphi 5 6 7 ... ecco vedi io non la avevo trovata stavo guardando l'help
di D5 e non la avevo vista!!!!
Grande Massimo!!!! Grazie



Tra l'altro (per la serie č piů complicata la dichiarazione della
funzione che la funzione stessa):
function IncDay(const AValue: TDateTime;
  const ANumberOfDays: Integer): TDateTime;
begin
  Result := AValue + ANumberOfDays;
end;
:)))))


:))))

 due date?
program Project2;
{$APPTYPE CONSOLE}
uses SysUtils,
     Controls; // per il tipo TDate
procedure ScriviGiorni(DataInizio, DataFine: TDate);
var
  GG: Integer;
begin
  GG := Trunc(DataInizio);
  while (GG <= Trunc(DataFine)) do
  begin
    WriteLn(DateToStr(GG));
    GG := GG + 1;
  end;
end;
begin
  ScriviGiorni(Date + 10, Date + 20);
  ReadLn;
end.
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ha scritto nel messaggio
news:58f90f8746d14693ca4...@mygate.mailgate.org...


Impara a quotare, per cortesia, e a rispondere alle persone
giuste.
-- 
Andrea Laforgia (
walkie...@libero.it
)
"Usenet is a strange place" [Dennis Ritchie]

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

In Delphi le date sono Double con
la parte intera che indica i giorni e la parte
dopo la virgola ora e minuti...
Per incrementare di un giorno basta fare +1
Ciao
Mirko
Newsgroup: it.comp.lang.delphi
Titolo: scrittura dati lentissima, spiego !

Ok avete ragione, il codice non ha senso, ma cercavo di spiegare,
allora ho una procedura che serve alla classificazione di documenti, per 
velocizzare le operazioni l'utente mi ha chiesto di avere un tasto 
"copia", con il quale praticamente imposto i campi di un nuovo record 
con i dati del record visualizzato, in pratica l'utente cerca un 
documento, poi con copia si trova a video un nuovo documento ma con 
tutti i dati del precedente, xche' magari deve modificare solo uno o due 
campi e poi salva, per fare cio' io sull click del tasto copio tutti i 
campi del record su variabili dichiarate all'interno della procedura
poi creo un nuovo record, muovo sui campi della tabella quallo che ho 
sulle variabili di appoggio e salvo con "post", a questo punto l'utente 
si trova a video praticamente un nuovo record (xche' la key e' cambiata) 
ma tutti i dati del rec precedente, modifica cio' che vuole, spesso solo 
uuno o due valori e salva, il problema e' che se propongo la mask con un 
nuovo record pulito la visualizzazione e' immediata, se faccio questa 
operazione di passaggio dei dati del rec letto su variabili e poi la 
insert sulla tabella e il passaggio dalle variabili ai campi della 
tabella l'operazione diventa lentissima.
ho fatto il debug passo passo, praticamente ogni spostamento campo rec 
variabile e poi variabile campo rec impiega molto tempo e piu si va 
avanti e piu ne impiega, sembra che aumentino le chiamate alle proc 
interne (che non conosco) in modo esponenziale.
preciso che lo stesso tipo di procedura (il tasto copia) c'e' anche per 
altri tipi di rec (tabelle diverse) su altre mask, e tutto funziona 
benissimo.
non so proprio dove cercare il problema !
grazie a tutti per l'interessamento
ciao

 interne (che non conosco) in modo esponenziale.
Puoi postare il pezzo incriminato del tuo codice originale?
-- 
Jax
Newsgroup: it.comp.lang.delphi
Titolo: Help per salvare e caricare delle stringhe ...

Ciao,
non essendo esperto a sufficienza avrei bisogno che qualche buona anima mi
dia qualche esempio su come salavare e caricare da un file su disco delle
stringhe.
Quello che devo fare è salvare delle stringhe (corte , sicuramente sotto i
256 caratteri, ma anche meno) e caricarle tutte quando mi servono.
Per il mio scopo anche un array di lunghezza e dimensione fissa potrebbe
andare bene, se però ci sono metodi più furbi ben vengano.
Grazie in anticipo
        Roberto

 su disco delle stringhe.
Usa una TStringList.
Esempio:
procedure InvertiFile(const srcFile, destFile: TFilename);
var src, dest: TStringList;
    i: integer;
begin
  if not fileexists(aFile) then raise Escherzone.Create(aFile + ' non
esiste');
  src := TStringList.Create;
  dest := TStringList.Create;
  try
    src.LoadFromFile(srcFile);       // carica il file
    for i := src.Count-1 downto 0 do
      dest.Add(src[i]);              // copia le stringhe al contrario
    dest.SaveToFile(destFile);       // salva l'array di stringhe su
disco
  finally
    dest.Free;
    src.Free;
  end;
end;
Saluti
Paolo Arosio
-- 
"La dimostrazione dell'esistenza di specie intelligenti nell'universo
 e' che non ci vengono a trovare"

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

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

 
Guarda i metodi TStringList.Insert, TStringList.Names e
TStringList.Values.
Ciao