mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.delphi
Titolo: Auguri & BDE...

Ciao a tutta la ML,
per prima cosa, anche se in ritardo (e vi prego di perdonarmi x cio'!):
AUGURISSIMI!!!!!!!
2^ cosa:
'sta volta niente flame, lo giuro!!!!
Ricordate il mio dubbio esistenziale... Delphi o Builder???
Beh... sapete che sto facendo?? Sto portando avanti di pari passo tutti e
2!!!
Un lavoro lo faccio con uno, un lavoro con l'altro, finche' nn capiro'
qual'e' la mia vera "vocazione"
Ma dato che ci sono volevo chiedervi una cosa:
Se faccio un programmino, Delphi o Builder che sia, posso evitare di
installare il BDE dal cliente??? Sinceramente questa e' una prova che ancora
non ho fatto....
In questo caso NON dovrei utilizzare il BDE x sviluppare il programmozzo e
il gioco sarebbe fatto, giusto??
Mi basterebbe utilizzare un componente TDatabase??
Ok, devo studiare un po' di piu'....
Va beh, + che altro questo mex era x gli auguri... le domandine infami le
rimando all'anno prossimo!!
AUGURI A TUTTI QUANTI!!!
Leo  :)
-- 
Posted from 
smtp2.libero.it
 [193.70.192.52] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 AUGURI A TUTTI QUANTI!!!
anche a te, ciao!
Alan Solo
Newsgroup: it.comp.lang.delphi
Titolo: Libro object pascal

Ciao.
Dove REperire libri su object pascal,in versione cartacea.
Alcuni giorni fa mi hanno consigliato Essential
pascal ,ma io vorrei qualcosa di più inerente al linguaggio puro e non
abbinato a delphi.
E ,naturalmente di un pò più approfondito.
A proposito ,non vi sembra che i libri per
principianti sottointendano un pò troppe cose?
Grazie,a presto.

 Dove REperire libri su object pascal,in versione cartacea.
una rapidissima ricerca su Google con le parole "libro pascal"...
et voilà! la prima voce è "Complementi ed esercizi di programmazione in
PASCAL" 
http://www.dis.uniroma1.it/~pascal/
--
Mauro Falzari.
"Se guardi nell'abisso, anche l'abisso guarda in te."
(Friedrich Nietzsche)

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

Come si ottiene il longfilename di un fiile in form 8+3?

 Come si ottiene il longfilename di un fiile in form 8+3?
Funzioncina scritta al volo:
function FindLongName(sDosName: String): String;
var
    SR: TSearchRec;
begin
    if FindFirst(sDosName, faAnyFile, SR) = 0 then
        Result := SR.Name
    else
        Result := '';    //oppure Result := sDosName;
    FindClose(SR);
end;
--
Jax

 Funzioncina scritta al volo:
O molto piu' semplicemente: GetLongPathName, tra le API Windows.

Newsgroup: it.comp.lang.delphi
Titolo: Specie di DataPump

Salve, mi hanno chiesto di fare un programmino per esportare i dati da un
db esistente a dei file txt da mandare a un centro di smistamento
C'è qualche modo indolore per salvare una tabella di un db specificando un
formato che voglio io?
Ho provato con SaveToFile di ADO ma la cosa non è personalizzabile
A me servirebbe salvare i campi giustificandoli in un certo modo
(aggiungendo zeri in quelli numerici e spazi negli alfanumerici) e separarli
con il carattere 0Ah (dovrebbe essere il LineFeed)
Idee?
-- 
____________________________________
Edmondo Di Tuci 
www.powernetsi.it/edmondo

Per scorrere i campi di una TTable puoi usare le property Fields e
FieldCount:
Table1.First;
while not Table1.EOF do
begin
    for i := 0 to Table1.FieldCount - 1 do
    begin
        if Table1.Fields[i].DataType = ftString then
            <crea stringa formattata per tipo String><aggiungi separatore di
field>
        else
        if Table1.Fields[i].DataType = ftInteger then
            <crea stringa formattata per tipo Integer><aggiungi separatore
di field>
        ...
    end;
    <salva la tua stringa completa dove vuoi (es. file di testo)
    Table1.Next;
end;
Saluti
        Marco Bortolani
 
infoN...@marcobortolani.it

Idee?
Scorrere "a mano" tutte le tabelle e scrivere su txt, oppure cercare qualche
componente apposito in giro per la rete.
esempi:
http://www.torry.net/tools_dbconversion.htm
 -> DBExport 
http://www.torry.net/db_directother.htm
 -> CopySort v.3.0 
ecc...
-- 
Morde. 
(morde at programmer dot net)
Newsgroup: it.comp.lang.delphi
Titolo: Come disab. userid e password db

Come disabilito la richiesta di userid e passowrd
di un data base access?
Sono alle prime armi
Grazie

you wrote:

Usa un componente TDatabase e imposta la proprieta' LoginPrompt su
false.
--
Andrea Laforgia (
andrea_...@bigfoot.com
)
---------------------------------------------
#exclude <windows.h>

 wrote in message
4sorns0jeroi7l6bh...@4ax.com...


Newsgroup: it.comp.lang.delphi
Titolo: [OT] - UML: consiglio su libro

Vorrei migliorare la mia (scarsa) conoscenza su UML e sulle tecniche di
progettazione software
Ho fatto una ricerca sui testi disponibili e ho "isolato" questi
INGEGNERIA DEL SOFTWARE CON UML E UNIFIED PROCESS
ZUSER W., BIFFL S., GRECHENIG T., KOHLE M. ; 
MCGRAW HILL ITALIA .
UML DISTILLED
FOWLER M.;
PEARSON EDUCATION ITALIA S.R.L..
UML PRATICO
DAMIANI E., MADRAVIO M.;
ADDISON WESLEY ITALIA.
 
UML
VETTI TAGLIATI L.;
HOPS.
Qualcuno sa consigliarmi in merito a questi o altri titoli ?
Ringrazio e saluto
Andrea

Il primo step consiste nel *ignorare* i testi in italiano.
Come gia' detto in passato le traduzioni, volendo essere gentili, sono 
fatte uno schifo.
Quindi, cerca magari su amazon, ma rigorosamente in inglese.
Poi, UML non è una metologia ma una notazione.
AS
-- 
Alberto Salvati
A NEAPOLITAN Delphi Developer who is studing c# and .net
"Dicette 'o pappece 'nfaccia 'a noce dammi 'o tiempo che pure te spertoso"

 Il primo step consiste nel *ignorare* i testi in italiano.
Io ho "UML Distilled" in italiano e devo dire che non è male.
Comunque concordo sul fatto di comprare i testi in lingua originale.
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it
Newsgroup: it.comp.lang.delphi
Titolo: Problema con lookup combobox

Ciao a tutti ho un LOOKUPCOMBOBOX nel mio programma
che deve essere collegato con un capo della mia tabella,
allora imposto come segue:
listSource ---> dataSource (che č collegato alla mia tabella)
keyField ---> nomeCampo
e tutto funziona, solo che i valori non sono ordinati alfabeticamente
ed inoltre sono ripetuti:
Esempio:
Ottengo:
 cavallo
 cane
 cane
 cavallo
 bue
 cavallo
Invece di:
 bue
 cane
 cavallo
Cosa dimentico? 

 Cosa dimentico? 
Dal tuo messaggio, mancano alcune informazioni riguardo l'impostazione 
delle proprietà "chiave" del controllo *TDBLookupComboBox*; ad esempio, 
la corretta impostazione di /DataSource/ e /DataField/, ma forse non hai 
semplicemente inserito queste informazioni nel messaggio e tutto invece 
è impostato regolarmente.
Per quanto riguarda il tuo problema specifico, se desideri visualizzare 
dati ordinati nella casella di riepilogo, è necessario che tu faccia 
questo ordinamento a monte, all'interno del DataSet dal quale vengono 
prelevati i valori.
Le modalità sono varie a seconda del DataSet di riferimento; se si 
tratta di una query, ad esempio, devi includere la clausola ORDER BY 
nello statement SQL; se si tratta di un ClientDataSet, puoi impostare 
uno degli indici disponibili nel componente per l'ordinamento dei dati o 
crearne uno personalizzato.
Ciao,
   Marco.
-- 
MARCO BREVEGLIERI
  (
http://www.marco.breveglieri.name
)

Per iniziare sbagli ad assegnare la reponsabilità.
La combo è passiva e si limita a MOSTRARE cio che contiene il dataset
indicato in listsource.
La responsabilità dell'ordinamento spetta al dataset.
Ora, xche il tuo dataset mostra i record in ordine sparso?
AS

 ha scritto nel messaggio 
news:4342862f$1...@newsgate.x-privat.org...


 Che cretino perchč non ci ho pensato prima?
I newsgroup sono utili ma sono una brutta bestia. Hai mai provato a fare una
cosa qualsiasi e avere un amico, esperto in quella cosa, lě vicino?
Io sě, e spesso capita che finisco per chiedere anche per quelle cose a cui
potrei arrivare da solo, con un po' di impegno...
Allo stesso modo, il fatto di sapere di avere una schiera di programmatori
pronti a risponderti, se non lo si prende col giusto spirito, č un forte
deterrente verso l'autodidattica.
-- 
Jax
====
Il ricco vive come vuole, il povero come puň.

STRAQUOTO!
AS

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

Ciao a tutti!!!!
Da poco ho iniziato ad interessarmi a Delphi, ma avrei bisogno di un buon
manuale per "principianti". Se qualcuno volesse darmi una mano gli sarei
molto grato.
Grazie Gio.

comprate la guida completa di apogeo..
comunque vai su 
libriinformatica.it
ciao Daniele
--
Posted from 
twingo.tiscalinet.it
 [195.130.224.85] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Delphi 5 cantů
--
Gna...@Wappi.com
ICQ# 76488613
http://gnaffy.tripod.com/
Newsgroup: it.comp.lang.delphi
Titolo: Form Con Risoluzione Maggiore

Ciao a tutti,
 
mio cognato senza dirmi nulla ha cambiato i video dei pc mettendo la risoluzione a livello di computer grafica ( 1920 x 1080 o qualcosa del genere ), a questo punto si è accorto che l'applicativo che gli ho fatto ha le form piccoline ( ma va ?!?! ). Volevo chiedervi, dato che io sviluppo su portatile che ha una risoluzione inferiore come dovrei fare per adattare le form sia sul mio video che su quelli di mio cognato ? Lo so che esistono componenti che fanno un resize automatico delle form, infatti ho già visto qualche componente free, ma quello che vorrei è, una volta disegnata la form adatta sul mio pc vorrei che sul pc di mio cognato venga più grande adattandola allo schermo, il resize non mi interessa dato che una volta visualizzata correttamente mio cognato non la utilizza mai. 
Spero di essere stato esaustivo.
 
Un salutone a tutti, in particolare a Marco Breveglieri, Alberto Salvati e a Morde.
 
Ciao da Enrico.

 correttamente mio cognato non la utilizza mai. 
 
Se ho capito bene il problema, penso che l'unica soluzione sia quella di "riscalare" i componenti del Form usando i metodi *ScaleBy* e correlati, applicando il fattore corretto in base alla dimensione da raggiungere per la risoluzione che è stata impostata rispetto a quella presa a campione.
 
Oltre a questo, ci sono comunque diversi accorgimenti da prendere.
Vedi questo argomento della documentazione in linea per un approfondimento:
http://docwiki.embarcadero.com/RADStudio/XE7/en/Considerations_When_Dynamically_Resizing_Forms_and_Controls
 
 
...e non dimenticare di impostare 
 
  Cognato.Enabled := False;
 
;) :D
 
Un saluto,
  Marco.
 
--
MARCO BREVEGLIERI (Software and Web Developer)
#Home: 
http://bit.ly/marcobreveglieri
 
#Blog: 
http://bit.ly/compilaquindiva
 

 
 
Ciao Marco,
 
intanto ti ringrazio moltissimo per il supporto, tecnico e morale. Non ti preoccupare, ho già provveduto a cazziare mio cognato :-))
 
Ciao da Enrico.
Newsgroup: it.comp.lang.delphi
Titolo: array di TLabel

Salve, vorrei poter inizializzare un array di oggetti (ad esempio di TLabel)
con un ciclo.
La soluzione estesa che sto adottando ora è molto semplice:
...
const
    n = 100;
var
    arrDati : array [1..n] of TLabel;
begin
    arrDati[1]  := (frmZoomZ1.lblCod1);
    arrDati[2]  := (frmZoomZ1.lblCod2);
    arrDati[3]  := (frmZoomZ1.lblCod3);
    arrDati[4]  := (frmZoomZ1.lblCod4);
    arrDati[5]  := (frmZoomZ1.lblCod5);
    arrDati[6]  := (frmZoomZ1.lblCod6);
    arrDati[7]  := (frmZoomZ1.lblCod7);
    arrDati[8]  := (frmZoomZ1.lblCod8);
    ...
    arrDati[100]  := (frmZoomZ1.lblCod100);
Quando mi trovo a dover inizializzare un array con un centinaio di elementi,
il lavoro è veramente
pesante!
Siccome il Label.Name degli oggetti ha sempre una desinenza numerica
ordinata e crescente, ho cercato di inizializzare l'array costruendomi il
nome dell'oggetto da caricare ad ogni ciclo e usando un oggetto TLabel come
'buffer'. Ho provato a gestirlo in diversi modi ma senza alcun risultato.
Non so se sia una domanda sensata, mi basta anche una soluziona alternativa
un po' meno pesante di quella che sto adottando ora.
Grazie,
    Ilaria.

     Ilaria.
Ciao, Antò.

 end;
Io avrei scritto:
lblArray[I] := TLabel(FindComponent(FORMAT('Label %D',[I]));
Bye
AS
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 Ciao, Antò.
Ciao, Ilaria.

 lblArray[I] := TLabel(FindComponent(FORMAT('Label %D',[I]));
E' più veloce e/o meno pesante di IntToStr e della concatenazione di
stringhe?
Ciao,
Ilaria.

 stringhe?
Si.
creo che anche come leggibilità sia migliore.


lblArray[I] := TLabel(FindComponent(FORMAT('Label %D',[I]));
lblArray[I] := TLabel(FindComponent(Format('Label%d',[I])));
-- 
Andrea Laforgia - walkietalkie(at)
libero.it
Spostare "Windows" nel cestino ?

> lblArray[I] := TLabel(FindComponent(Format('Label%d',[I])));
Sorry...
Andavo di fretta e ho messo uno spazio galeotto...


Grazie mille.
Ciao,
        Ilaria.
Newsgroup: it.comp.lang.delphi
Titolo: XML Data Binding

Salve a tutti!
Come da oggetto, sto cercando di capire come funziona questa cosa...
Ho creato un piccolo documento del tipo:
  <?xml version="1.0" encoding="UTF-8"?>
  <Message>
    <Header>127.0.0.1</Header>
    <Body>This is the message...</Body>
  </Message>
L'ho dato in pasto al XML Data Binding Wizard e lui mi ha creato 
l'interfaccia...
All'interno del mio programma voglio inviare lungo le sockets documenti di 
questo tipo...
Il codice che connette la socket ed invia il messaggio è il seguente:
  Client.Host := IPAddress.Text;
  Client.Connect;
  try
    AddLogLine ('Contacting a remote node...');
    aMessage := NewMessage;
    aMessage.Header := LocalIP;
    aMessage.Body := Memo1.Lines.CommaText;
    Client.WriteLn (aMessage.XML);
  finally
    Client.Disconnect;
  end;
e funziona perfettamente, senonchè dal lato server:
  try
    XMLDocument1.XML.Text := Thread.Connection.ReadLn;
    for i := 0 to Pred (XMLDocument1.XML.Count) do
      AddLogLine (XMLDocument1.XML.Strings[i]);
    aMessage := GetMessage (XMLDocument1);
*    if aMessage.Header <> LocalIP then
//      varie ed eventuali
    else
      AddLogLine ('You should not contact yourself...');
  finally
    Thread.Connection.Disconnect;
  end;
e non appena l'esecuzione giunge alla linea di codice contraddistinta 
dall'asterisco ottengo il messaggio d'errore:
Project Prototype.exe raised exception class EOleSysError with message 
'CoInitialize' non è stato chiamato'. Process stopped. Use Step or Run to 
continue.
Nell'Help ho letto che invece dovrebbe andare tutto bene... il trasferimento 
del messaggio attraverso la socket va a buon fine, come ho constatato 
aggiungendo il contenuto di XMLDocument1.XML al log...
Che cosa sbaglio? A cosa è dovuto questo errore?
Grazie e ciao,
            Stefano 

 continue.
Qual'č il tuo problema con un messaggio d'errore tanto chiaro?
Vuoi evitarlo? Usa OpenXML come dom(cerca in rete trovi come
risolvere) e non avrai piů quella eccezione.
Ciao,
Andrea

Andrea, grazie mille!
Newsgroup: it.comp.lang.delphi
Titolo: Free del form

Ho creato un form a runtime nel seguente modo:
frmMio = TfrmMio.Create (frmMio)
come si fa a liberarlo?
Ho usato sia Release, Destroy e Free ma se guardo cosa
contiene frmMio dopo, mi da un valore diverso da nil!
L'unica cosa che sono riuscito a fare è:
frmMio := nil
Questa soluzione non è la più bella! Come si fa?
Grazie!

1) se fai la free manuale non devi idncare l'owner alla creazione:
frmMio = TfrmMio.Create (nil)
(Questa cosa me la fece notare La Forgia)
2) freeandnil
Bye
A


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

On Tue, 3 Jun 2003 11:29:21 +0200, Alberto Salvati wrote:
Se il form è un mdiChild allora nell'evento OnClose del form devi
specificare la action, cioè
action:=caFree;
poi se vuoi ci puoi appendere anche questa riga:
tuoform:=nil;
che dal libro di M. Cantù diceva che non faceva mai male fare questa
operazione, per liberare tutti i puntatori al form
ciao fabrizio

Newsgroup: it.comp.lang.delphi
Titolo: ListBox Riposizionamento selezione a run time

Qualcuno può dirmi come posso eseguire uno spostamento della scrollbar di
una listbox in base ad una voce selezionata a runtime?
Espongo meglio il mio problema:
dopo aver selezionato una voce della list box tramite il suo indice, la
stessa voce viene selezionata ma devo manualmente muovere la scrollbar per
poterla vedere a video. Esiste una routine che mi permette il refresh della
lista a quella determinata posizione indice della voce selzionata?
Grazie anticipatamente a chi volesse rispondermi

 wrote in message
whI55.281655$VM3.2...@news.infostrada.it...

<TListBox.TopIndex>
Specifies the index number of the item that appears at the top of the list
box.
property TopIndex: Integer;
Description
Use TopIndex property to find or set the first item displayed at the top of
the list box. TopIndex can be used, for example, to change the topmost item
to a different item in the list.
-----------
In poche parole se metti l'indice scelto nella proprieta' TopIndex della
ListBox, l'elemento in questione si trovera' come primo nella porzione di
lista visualizzata... spero fosse quello che cercavi...BYE! :)

Newsgroup: it.comp.lang.delphi
Titolo: Database Express & applicazioni multithread & interbase...

.. come da soggetto.. che faccio ?
Ogni thread crea una sua connessione (istanziando una TSQLConnection) o
c'è un metodo di session management sulla linea delle sessioni BDE?
Se, come penso, ogni singolo thread deve farsi la sua connessione non è
che rischio di cozzare col numero di connessioni (1 server e 5 client)
definite dalla licenza di interbase? C'è qualche scappatoia in
proposito?
E' possibile "fregarsene" (nel senso sapere se è sicuro epoi
fregarsene...) e far usare a tutti i thread lo stesso oggetto
TSQLConnection??
sono proprio incasintao!!!
tante grazie in anticipo.
l.
-- 
* Chi non ha testa abbia gambe *

 E' possibile "fregarsene"
E' sempre possibile...
--
Marco Kregar
marco....@FirebirdSQL.it
www.FirebirdSQL.it
"over the bench the goat sings, under the bench the goat dies"
Newsgroup: it.comp.lang.delphi
Titolo: Acquisizione barcode

Come da sbj

 Come da sbj
Prova, ma non so, a vedere se c'č qualche componente bell'e pronto su Torry o 
DSP (gli url sono sulle FAQ)
Ciao,
Davide DG.
-- 
All resistance is futile! Prepare to be disassembled !

Newsgroup: it.comp.lang.delphi
Titolo: Skin diversi

Ciao,
ho un software, volevo sapere se era possibile avere diverse l'interfaccie
grafiche. Cioè attraverso un parametro, quando viene lanciato cambiare
automaticamente qualche colore o qualche font o immagine.
Non vorrei fare tutto a runtime perchè sono parecchi form. Con i file  DFM è
possibile fare qualcosa ?
Grazie mill.

 possibile fare qualcosa ?
Se per te il tempo e' denaro scarica la demo di vclskin, provala, e se ti
piace acquistalo. 80 euri te li ripaghi subito con il primo software che
vendi. 
-- 
Morde. 
FAQ di icld (beta-version): 
http://icld.altervista.org
 
M-List di icld: 
http://it.groups.yahoo.com/group/icld/

Newsgroup: it.comp.lang.delphi
Titolo: Problema con MessageDlg

Salve a tutti! Mi sono appena iscritto a questo gruppo e spero di poter
aiutare ed essere aiutato :D
Ho infatti un problema con la function MessageDlg, che purtroppo mi offre
solamente i pulsante in inglese :(((
C'è qualche modo per cambiare la lingua o comunque far apparire i pulsanti
col testo che voglio io?
Ringrazio tutti quelli che mi risponderanno ;)
RedXIII

 ha scritto nel messaggio
news:k514b.2591$ti2....@news2.tin.it...

Mi sono scordato di dirvi che ho già cercato su google e sull'help di Delphi
senza successo, ho anche provato la funzione MessageDlgEx appartenete alla
JEDI Code Library ma non riesco a farla funzionare :(

 ha scritto nel messaggio
news:jg14b.2637$ti2....@news2.tin.it...

Devi copiare la unit Const.pas che si trova in
"C:\Programmi\Borland\Delphi7\Source\Vcl" nella directory del tuo progetto e
poi la devi tradurre.
Ricompili tutto e il gioco è fatto.
Ciao
Giorgio

 pulsanti col testo che voglio io?
Perche non usi la MessageBox?
var msg:string;
begin
msg:='Io sono il messaggio';
if MessageBox(Handle,pChar(Msg),'Attenzione!',(MB_YESNO + MB_ICONWARNING))=
mrYes
  then
   //fai qualcosa
end;
Ciao
  Miyomo

 ha scritto nel messaggio
news:GE84b.3661$nw1.1...@news1.tin.it...


Perchè non usi:
Application.MessageBox(Text,Caption,Flags);
Es.
Application.MessageBox('Si desidera salvare le modifiche apportate?',
'Conferma', MB_YESNO+MB_ICONQUESTION);
Ti consente di visualizzare i pulsanti in Italiano
Sperando di esserti stato utile....   LR
Newsgroup: it.comp.lang.delphi
Titolo: Copiare Schede

Ragazzi, una domanda:  Se credo un progetto con n schede (form), come faccio 
a copiare pari pari quelle schede in un altro progetto senza doverle rifare 
??...credo esista un modo sia ereditando sia con spostamento diretto dei 
file vero??...è possibile sapere quali diversi modi esistono ??
thx a tutti!!
Max 

Max-Libero ha scritto:

La prima cosa che mi viene in mente è creare un unico package dove sono
memorizzate le form, registrarle tramite la procedura RegisterClasses, e
quindi caricare il package a run-time da qualunque applicazione con la
funzione LoadPackage e infine ottenendo un class-reference alle form con
la funzione GetClass si possono richiamare le form desiderate. Spero di
esserti stato di aiuto ciao.
--- posted by geoForum on 
http://www.delphiedintorni.it


Ah dimenticavo, per operare sulle form ci sono due metodi importanti della
classe TObject cioè FieldAddress e MethodAddress che restituiscono
l'indirizzo di un campo o di un metodo. Questo perchè il class reference
ottenuto con la funzione GetClass è di tipo TPersistentClass, e poichè un
TPersistent è anche un TObject, quelle due funzioni ricadranno su ciascuna
Form....ciao.


Max - Libero ha scritto:

Se ti riferisci alla condivisione di una "finestra modello", 
eventualmente personalizzabile in seguito nel singolo progetto, puoi 
fare uso della "Object Repository" di Delphi.
Cerca l'argomento nella Guida in linea della tua versione Delphi di 
riferimento: troverai probabilmente tutte le istruzioni per inserire e 
creare nuovi file a partire dai modelli memorizzati.
Per un riutilizzo dello stesso identico Form in più progetti, affinché 
sia sempre lo stesso e in modo che qualsiasi manutenzione (risoluzione 
di bug) o miglioria vada a beneficio di tutti i progetti, meglio 
condividere il Form in una cartella comune (da includere nel "Search 
Path") o creare un package che lo contenga e lo renda fruibile alle 
applicazioni che ne fanno uso.
Ciao,
   Marco.
-- 
MARCO BREVEGLIERI
  (
http://www.marco.breveglieri.name
)

 Per un riutilizzo dello stesso identico Form in piů progetti, affinché sia 


 fa??
Intendo dire che puoi creare una cartella in cui riporre tutti gli 
elementi (es. Form, Frame, Unit, ecc.) da referenziare all'interno dei 
tuoi progetti e da compilare nella tua applicazione.
Non facendo però parte del progetto (trovandosi in una cartella 
differente e condivisa con più progetti), questi file devono essere 
raggiungibili dal compilatore: per fare questo, è possibile modificare 
per il singolo progetto o per tutti i progetti il percorso di ricerca, 
che viene generalmente identificato come "Search Path" nelle opzioni del 
progetto, o come "Library Path" nelle opzioni dell'IDE (menu 
"Tools|Options").


 ha scritto nel messaggio 
news:4910...@news.x-privat.org...

Newsgroup: it.comp.lang.delphi
Titolo: Synedit e Font

Ciao a tutti,
ho un altro problema e non so se sia risolvibile con qualche opzione da
impostare.
In pratica il TSynEdit che sto usando visualizza qualsiasi font a larghezza
fissa.
Ho provato a cambiare qualcosa, ma addentrandomi nei meandri del componente
non sono riuscito a trovare soluzione. Mi scoraggia anche l'esistenza di una
proprietą, CharsInWindow, che restituisce il numero di caratteri massimi che
possono stare in una riga.
Da notare che il Courier, carattere a larghezza fissa, viene impostato come
default nel costruttore. E' indicativo di quel che penso? Non si possono
visualizzare correttamente dei caratteri fpVariable (Font Pitch Variable)?
Sto usando il Synedit 2 beta su XP pro e D6.
Ditemi per favore che sto sbagliando e una soluzione c'č. :-)
Ciao
Giuseppe

 possono stare in una riga.
L'ho usato poco come componente, e sicuramente non ho mia visto la versione
che tu usi, ma non credo sia possibile usare font con "variable pitch". 
Il componente lavora "per colonne" di caratteri, e un font a dimensione 
variabile non avrebbe senso con questa caratteristica.
Appena ho la possibilita' verifichero' meglio, ma non credo tu abbia molte
speranze.
Ciao
ACSH
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it
Newsgroup: it.comp.lang.delphi
Titolo: Componenti per BarCode

Ciao a tutti,
 
premetto che ho fatto un po' di ricerche ma le idee continuano ad essere 
poche e molto confuse, comunque mi occorrerebbe un set di componenti che 
permettessero il riconoscimento di un barcode (1d o 2d) data un'immagine 
in ingresso. Il/i componenti dovrebbero essere robusti (come codice), di 
"facile" o quasi utilizzo e che non sino Activex.
Lo sviluppo avverrà con delphi 2006 o XE (questo è ancora da decidere - 
purtroppo non riguarda me) e non importa se siano commerciali o meno.
 
Grazie a tutti,
 
David

 in ingresso. 
 
Io conosco quelli prodotti da LEADTOOLS:
http://www.leadtools.com/sdk/barcode/default.htm
 
 
Ma in più occasioni mi hanno dato un sacco di problemi, più che altro nel deploy e nella loro farraginosità. :)
 
Comunque prova a dare un'occhiata.
 
Ciao,
  Marco.
 
-- 
MARCO BREVEGLIERI
#Home: 
http://www.marco.breveglieri.name
 
#Blog: 
http://www.compilaquindiva.net
 

Microges ha scritto:

ImageEn per l'acquisizione immagini
 
www.bardecode.com
 per il riconoscimento dei barcode.
 
Garantiti. Non devi cercare altro.
 
-- 
http://www.kiva.org
 
http://www.wwoof.it
 
Microsoft gives you Windows... Linux gives you the whole house.
Per il ng it.hobby.hi-fi: a*fan*ulo 'sta ca**o di hifi/hiend, tutte
put*an*te.
Delphi 3, 5, 7, XE (stopping...)
C++, .net, wxWidgets,
Firebird, Oracle e molto altro ancora.
 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it
 
 
 

> 
www.bardecode.com
 per il riconoscimento dei barcode.
 
Questo mi pare favoloso ma non ho ben capito il fatto delle licenze.
Se acquisto un licenza per sviluppo devo anche comprare licenze per dare 
l'applicativo? Sinceramente è un punto un po' scuro dato che in Delphi 
non esiste una vera e propria istallazione ma solamente una copia di dll 
nel sistema.
Hai qualche info a riguardo?
 
Grazie,
David
 

 Hai qualche info a riguardo?
 
Io ho la licenza developer e basta. Su questo argomento deve approfondire
e decidere la societa' per cui lavori.
 
Dimenticavo di dirti: ho usato questa libreria da D5 fino a XE senza
problemi. Uso un wrapper .pas per gestire il tutto.


 
Grazie, si ho scaricato il demo e vedo pure io il wrapper

Il giorno martedì 6 marzo 2012 15:13:27 UTC+1, Microges ha scritto:

Prova a guardare qui, hanno dei componenti per leggere barcode 1D:
 
http://www.java4less.com/vision/vision.php?info=GuideDelphi
 
 
Noi usiamo i componenti per generare i barcode (non per leggerli)
quindi non posso dirti quanto sono buoni quelli per decodificare.
 
Quelli che usiamo noi sono dotati di sorgenti. Sono chiaramente 
scritti in java e  convertiti brutalmente in delphi e IMHO
non sono nemmeno un gran bell'esempio di bella programmazione,
ma ci ha fatto cmq comodo perche abbiamo potuto adattarli per
essere usati anche dentro QuickReport (e anche a correggere
un bel bug di off-by-one sulla lunghezza di una stringa :-)
 
ciao
Giacomo
Newsgroup: it.comp.lang.delphi
Titolo: Campo risultante da SQLJoin vuoto

  sSQL:='SELECT C.Citta, C.Cap, C.Provincia, 
C.ID
, C.ID_NAZIONE, N.Nazione 
NomeNazione'+
        ' FROM TB_CITTA C join TB_NAZIONI N on 
N.ID
 = C.ID_NAZIONE';
  with frm_Dati do
  begin
    CDS_Nazioni.Close;
    SQL_Nazioni.CommandText:='SELECT * FROM TB_NAZIONI';
    SQL_Nazioni.Open;
    CDS_Nazioni.Open;
    CDS_Citta.Close;
    SQL_Citta.Close;
    SQL_Citta.CommandText:=sSQL;
    SQL_Citta.Open;
    CDS_Citta.Open;
  end;
  DBGrid1.Columns.Clear;
  DBGrid1.Columns.Add; DBGRid1.Columns[0].FieldName:='CITTA';
  DBGrid1.Columns.Add; DBGRid1.Columns[1].FieldName:='CAP';
  DBGrid1.Columns.Add; DBGRid1.Columns[2].FieldName:='NomeNazione';
la query viene eseguita , e restituiisce tutti i record presenti ,
ma il campo NomeNazione risulta sempre vuoto
sto usando ClientDataSet con Firebird 2 e D2007
Maurizio 

> ma il campo NomeNazione risulta sempre vuoto
ho risolto , erano i campi persistenti del ClientDataSet a non
fare visualizzare il campo risultante.
Maurizio
Newsgroup: it.comp.lang.delphi
Titolo: manovra di avvicinamento

Mi sto avvicinando per la prima volta a Delphi.
Qualche consiglio da darmi?
grazie
Ciao

>Qualche consiglio da darmi?
Delphi non morde... vai tranquillo!
Gurdati gli esempi e sfrutta l'help in linea.
AS
"Se è Microsoft non funziona"

 ha scritto nel messaggio
news:8q5uqh$cmv$1...@fe1.cs.interbusiness.it...


prova qualche libro di cantů,  io ho comprato sia il due che il 5, cmq se
hai appena iniziato ti consiglio il due. per il resto segui il newsgroup e
se hai domande falle pure che bene o male ti rispondiamo sempre.
ciao ciao
--
Gna...@Wappi.com
bmq...@tin.it
ICQ# 76488613
http://gnaffy.tripod.com/

Newsgroup: it.comp.lang.delphi
Titolo: Attivare una condivisone disco con Delphi

Ciao a tutti.
Come posso Attivare/Disattivare una condivisione di un disco
dall'interno di un programma Delphi?
Ciao Grazie
Vincenzo



 dall'interno di un programma Delphi?
Io ho fatto una funzione cosě:
//**************************************************************************
****
procedure EseguiMappatura(XFissa, XDrive, XNomeRete: string);
var
  NR: NETRESOURCE;
  Res: DWord;
  Fissa: DWord;
begin
NR.dwType := RESOURCETYPE_DISK;
NR.lpLocalName := PChar(XDrive);
NR.lpRemoteName := PChar(XNomeRete);
NR.lpProvider := nil;
Fissa := 0;
if (XFissa = 'S') then Fissa := CONNECT_UPDATE_PROFILE;
Res := WNetAddConnection2(NR, nil, nil, Fissa);
{case Res of
  ERROR_ACCESS_DENIED: ShowMessage('1');
  ERROR_ALREADY_ASSIGNED: ShowMessage('2');
  ERROR_BAD_NET_NAME: ShowMessage('3');
  ERROR_BAD_DEVICE: ShowMessage('4');
  ERROR_BAD_DEV_TYPE: ShowMessage('5');
  ERROR_BAD_PROFILE: ShowMessage('6');
  ERROR_BAD_PROVIDER: ShowMessage('7');
end;}
end;
//**************************************************************************
****
Per disattivarla usi questa API:
Res := WNetCancelConnection2(PChar(XDrive), CONNECT_UPDATE_PROFILE,
FlagLongBool);
Spero che riesci a capirti, a me funziona regolarmente.
Ciao
PS. devi includere la unit ShellApi nel tuo progetto.

Mi sa che ho letto male (troppo velocemente) il messaggio.
Hai chiesto come rendere condiviso un disco e ti ho risposto su come
mappare un disco di rete.
Pazienza.
Comunque se guardi sul Win32 programmer's reference fornito con
Delphi trovi tutte le api che vuoi e si usano come nel mio esempio.
Cercando velocemente nell'indice ho trovato questa  api:
NetShareAdd
che però va solo su NT.
Cerca con la parola "share" e vedi diverse robette utili.
Ciao

 ha scritto nel messaggio
news:%SMm6.19744$q97.3...@twister1.tin.it...

Newsgroup: it.comp.lang.delphi
Titolo: Ma i componenti CLX hanno il Canvas?

Salve a tutti! Ma i componenti CLX dove effettuano le loro operazioni di
"imbrattaggio"? :) Volevo appunto imbrattare un TTreeView CLX con
un'immagginetta di sfondo ma ho scoperto che i CLX sono allergici ai Canvas
(forse ho avuto una svista ed in questo caso l'unica punizione possibile e'
quella di uccidermi ;) ). A questo punto quale oggetto devo torturare al
posto del Canvas? Grazie per la risposta in anticipo
HellHound - uccidi CERBERO per l'indirizzo


In generale si, hanno i canvas. Alcuni controlli pero' non l'hanno pubblico,
per cui non vi si puo' accedere. TForm e TImage ad esempio l'hanno pubblico,
mentre molti controlli no.
Il consiglio e' di usare gli eventi di disegno appositamente presenti in
TTreeView, ovvero gli eventi OnCustomDrawXXXXX.
Se proprio devi stravolgere tutto, allora puoi tentare di derivare una tua
TreeView da TCustomTreeView e pubblicare Canvas. Pero' non saprei ne se
funzia, ne se ne vale la pena.
Ciao!

Newsgroup: it.comp.lang.delphi
Titolo: domanda su: try...except...

Ciao a tutti!!
ho un quesito su questo comando...non mi funziona!!
vi faccio vedere il codice forse sbagliero' io....
procedure TForm1.Button1Click(Sender: TObject);
var
ciao : real;
begin
ciao := StrToFloat(edit1.text) / 1.2 ;
try
memo1.lines.add(FloatToStr(ciao));
except
on EConvertError do memo1.lines.add('ok');
end;
end;
tutto qui!
pero' non mi funziona l'except!!
perche'?!
grazie : )

anche la riga
ciao:= 
va inserita nel try...except.
Cosi':
procedure TForm1.Button1Click(Sender: TObject);
var
   ciao : real;
begin
   try
      ciao := StrToFloat(edit1.text) / 1.2 ;
      memo1.lines.add(FloatToStr(ciao));
   except
      on EConvertError do memo1.lines.add('ok');
   end;
end;
Duilio

 ha scritto nel messaggio
news:399d96fd....@news.tiscalinet.it...


Newsgroup: it.comp.lang.delphi
Titolo: Evento dblclick di una listbox

Ho un problema di facile soluzione:
vorrei fare in modo che quando clicco 2 volte su un elemento di una listbox
(evento dblclick) la caption di una label mi cambi nell'elemento stesso ma
non riesco. Non so come fare riferimento all'elemento, nei parametri
dell'evento non viene passato...
Esempio
ListBox di 4 elementi:
CICCIO
PAPPO
BANANA
SIBILLA
se clicco su PAPPO la caption della label deve diventare 'PAPPO'


ABLS Team - 
www.abls.it
SINTESI S.r.l. - 
www.sintesi.com
Newsgroup: it.comp.lang.delphi
Titolo: QuickReport e Selezione Stampanti

Qualcuni di Voi puo' essere cosi' gentile da indicare ad un neofita come si
puo' fare a selezionare la stampante ed il numero di copie utilizzando
quickreport in delphi 3 ?
Io ho provato con printerindex ma mi stampa dappertutto meno che sulla
stampante che richiedo :))
Grazie da Rik

 ha scritto nel messaggio
news:9tgmbs$t1e$1...@fe2.cs.interbusiness.it...


 perchč non mi risponde nessuno :((
perche sei stato molto vago, posta il codice che usi per selezionare la 
stampante.
Ciao, Antň.

Grazie Antonio, il codice che uso è questo
     if form1.printdialog1.execute then
        begin
             repordini.PrinterSettings.PrinterIndex := printer.PrinterIndex;
             for x:=1 to form1.printdialog1.Copies do repordini.print;
        end;

 ha scritto nel messaggio
news:9tgmbs$t1e$1...@fe2.cs.interbusiness.it...


 Nell'help c'č, ma č ben nascosto.... "report", ovviamente, č il mio QR...
...

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

Ciao a tutti, vorrei sapere che si usa in genere per creare il setup ai
propri programmi? Mi sto cimentando con installshield express fornito con
delphi 6. Inoltre vorrei sapere se esiste qualcosa del genere in italiano.
Grazie anticipato a tutti coloro sapranno aiutarmi.

 Grazie anticipato a tutti coloro sapranno aiutarmi.
Prego in ritardo :o)
-- 
Ciao, Anto', [37, 143, AQ] 
MB C SC 220 CDI Magma Rot
"Di sempre cio' che senti e fai cio' che pensi."
    G.G. Màrquez
Newsgroup: it.comp.lang.delphi
Titolo: Help: Database ACCESS

Ciao a tutti...
Ho un problema con un database creato in Access (o Ac-cesso). :-)
Accedendo con il BDE, controlli data-aware, DBNavigator ecc. ecc., quando
aggiungo un record nuovo, il contatore dei record, che in access è definito
come tipo incrementale, non si incrementa affatto, ma prende un numero
casuale.
 mah.....
--
___________________> Giulio <____

Ho un problema con un database creato in Access (o Ac-cesso). :-)
Confessa: che Access, che Delphi e come accedi (nativo od ODBC)?
Ciao,
Marco
_________________________________________________________________
Get your FREE download of MSN Explorer at 
http://explorer.msn.com/intl.asp
-- 
Posted from [194.184.86.122] by way of 
f125.law7.hotmail.com
 [216.33.237.125] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

>Confessa: che Access, che Delphi e come accedi (nativo od ODBC)?
Access97, Delpi 5 ed accedo con il driver nativo.
Di + nin zo!

Newsgroup: it.comp.lang.delphi
Titolo: compilare a run time

Ciao, ho una domanda per il NG :-)
 Come posso compilare una DLL da linea di comando? Ecco il codice della DLL
(solo resources), nel caso servisse:
library Resources;
{$R *.RES}
{$R 'resource.res' 'res.rc'}
begin
end.
grazie mille
giuliano

trovato !
brc32 -r file.rc
bcc32 file.dpr
:-)
giuliano

e che c'entra il runtime ??
--
Consonni Davide
mail:    
davidec...@virgilio.it
icq:     [134231707]
webmaster of:
www.traduzioniellepi.com

Newsgroup: it.comp.lang.delphi
Titolo: Recupero Dati

Ciao a tutti,
  per la cancellazione sicura dei dai esiste una funzione apposita?
 
Ho cercato in giro e ho trovato molte risposte simili tra loro ovvero, 
aprire il file da cancellare e riscriverlo piu' volte (almeno 5, dicono piu' 
volte e' meglio e') alternativamente riempiendolo con #0 e #255.
Alla fine di questo ciclo rinominarlo con nome i fantasia ('$000000.TMP') e 
procedere con Deletefile.
 
Secondo voi, quanto e' sicuro questo modo di procedre ?
 
Grazie
 
Ciao
 
Daniele 
 

Io darei un occhio a sysinternals, quanto meno per capire.
 
A.

 Secondo voi, quanto e' sicuro questo modo di procedre ?
 
Questo funziona sugli HD normali (anzi, su quelli moderni non hai
nemmeno bisogno di ripetere piu' volte la scrittura, basta una sola
volta)
 
Sui dischi SSD c'e' il controller che esegue una "rotazione" per
garantire che tutte le celle di memoria vengano usate in modo
omogeneo quindi il SO crede di scrivere nella stessa posizione
del "disco" ma in realta' il controller scrive in un punto diverso.
Quindi su un SSD il dato vecchio non viene cancellato a meno di
azzerare tutto quanto il disco (probabilmente basta ripetere
tante volte quanto dimensioni file / dimensioni disco)
ma questo al costo di usurare leggermente tutto il disco.
 
Sulle chiavette USB la tecnologia e' la stessa degli SSD
ma non so se c'e' un controller come per i dischi, quindi
potrebbe anche bastare una sola passata come per gli HD.
 
ciao
Giacomo
Newsgroup: it.comp.lang.delphi
Titolo: ripulire un Tabella ADO..

Il mio componente "TADOTable" si chiama ADOAccess
l'ho collegato ad un Database di Access..
Devo cancellare tutta la tabella allora ho provato..
while not ADOAccess.IsEmpty do
 begin
  ADOAccess.Delete;
  ADOAccess.Next;
 end;
ma non funge.. mi genera un errore come devo fare???
Ho provato ad usare
ADOAccess.DeleteRecords(arAll);
ma nulla nulla da fare..
sbaglio sicuramente io.. ma cosa...
sull'Help non sono riuscito a trovare una MAZZA.. (un esempio)..
AIUTATEMI!!!!!..
ciao e grazie..

ADOAccess.First;
while not ADOAccess.Eof do
 begin
  ADOAccess.Delete;
  ADOAccess.Next;
 end;
Cosě dovrebbe andare Non so se ci sia un metodo piů veloce

E tu allora fai il furbo cancellane un tot per volta e risolvi (forse!)
PS Ma quanti records sono?

No già provato nemmeno UNO.
Newsgroup: it.comp.lang.delphi
Titolo: Quick Sort decrescente

Salve a tutti
Ho provato l'algoritmo quicksort in modalità crescente, ma non sono riuscito
a modificarlo per farlo funzionare in modalita decrescente.
Qualcuno può aiutarmi ?
Grazie a tutti

 ha scritto nel messaggio
news:b51dvd$2j8$1...@fata.cs.interbusiness.it...


Newsgroup: it.comp.lang.delphi
Titolo: ItDevConv 2010

 a Verona il 17-18-19 novembre.
Chi ci va? Esperienze passate? Val la pena? non costa poco...
ciao! 

 Chi ci va? Esperienze passate? Val la pena? non costa poco...
Io ci sono stato l'anno scorso. L'organizzazione ï¿œ stata ottima, anche 
se quest'anno non penso potrï¿œ parteciparvi (anche per altri problemi di 
natura fisica...) :)
Penso che come iniziativa possa essere utile se non hai mai sentito 
parlare degli argomenti trattati nella scaletta, o in modo solo accennato.
Le sessioni hanno un tempo dedicato un po' stretto, perï¿œ ï¿œ sufficiente 
per introdurre gli argomenti, che sono trattati comunque da valida gente 
esperta in grado di affrontare senza problemi domande specifiche.
E' chiaro che non ci si deve aspettare una trattazione esaustiva, poichï¿œ 
per ogni argomento si potrebbe parlare 10 minuti come 10 giorni.
Non bisogna comunque dimenticare che anche le chiacchiere e i feedback 
di altri sviluppatori nei "tempi morti" possono essere istruttivi.
Si tratta di una valutazione comunque soggettiva.
Ciao!
   Marco
-- 
MARCO BREVEGLIERI
  (
http://www.marco.breveglieri.name
)

MArco
anch'io ci sono stato l'anno scorso ed era stata interessante. 
Confermo che i tempi stretti delle sessioni ti consentono almeno di intuire cosa sia fattibile oggi e come...
poi a casa si studia...
se avessi tempo ... verrei..

Newsgroup: it.comp.lang.delphi
Titolo: [ADO] Missing Connection or Connectionstring

QUello in subject è l'errore che mi viene quando cerco di accedere al
contenuto di un database con questo algoritmo:
procedure TForm1.Button4Click(Sender: TObject);
begin
  Database.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=C:\prova.mdb';
  Database.Connected:=True;
  ADOTable1.Active:=True;
  Database.Connected:=False;
end;
accedo col "Jet Driver" come potete vedere e nel "testing" incluso nei
settaggi non ci sono.
Dove sbaglio?
--
Giulio Pipitone (
www.fighters4web.com
 )
#sito per la lotta agli abusi in rete#

Ignorate il emssaggio..ho risolto 5 secondi dopo l'incio..mi ero dimenticato
di fare uan relazione nella ADOTable....


 contenuto di un database con questo algoritmo:
Complimenti per aver postato il msg di errore.
Ma non dici quale riga lo genera....
Bye
A.

 Ma non dici quale riga lo genera....
L'errore era generato dalla riga di ADOTable1....ma comunque non era lì
l'errore. Il codice infatti è corretto, l'unico problema era che avevo
dimenticato una relazione nell'object inspector...il codice andava bene.
Ciao.
--
Giulio Pipitone (
www.FIGHTERS4WEB.COM
)
#mirror italiano ufficiale 
http://spam.abuse.net#
Newsgroup: it.comp.lang.delphi
Titolo: libreria Word_tbl.dll e Excel_tbl.dll

Premesso che uso Delphi 3 Professional,
ho trovato su Mastering Delphi 4 di Marco Cantů un bellissimo esempio
(project DBOFFICE.DPR) che fa uso delle librerie WORD_TBL e EXCEL_TBL, ma
non riesco a trovare i file delle suddette librerie.
Qualcuno sa dirmi dove le posso trovare.
Grazie
Luigi Maestrale
nord...@iol.it

 ho trovato su Mastering Delphi 4 di Marco Cantų un bellissimo esempio


Newsgroup: it.comp.lang.delphi
Titolo: TDBgrid e Tcolumns

usando il componente TDBGrid mi sono imbattuto nella (mia ovviamente)
incapacità di modificare
le proprietà di una colonna quali ad esempio il Fieldname, Visible ecc.....
ogni chiamata del Tipo DBGrid1->Columns[2].Fieldname = "PIPPO", fornisce il
messaggio
FieldName non appartiene all'oggetto DBGri.......
Dove sbaglio?????
grazie  gianni

Se ho ben capito usa ;
Table1.FieldByName('NomeCampo').AsString := 'Ciao' ;
Ciao
Mario
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

Mi correggo.
Dbgrid1.Columns[0].Title.Caption := 'Ciao' ;



Si ok...
il problema è che se tu usi il Delphi è Ok
ma se trasponi in c++ (CBuilder 6)

Newsgroup: it.comp.lang.delphi
Titolo: determinare una data di scadenza

Salve,
partendo da una data contratto inserita dall'utente dovrei determinare una
data scadenza dopo che l'utente attraverso una dbcombobox esegue una scelta
tra : mensile , bimestrale, trimestrale, quadrimetrale, semestrale e
annuale.
Come posso gestire la data di scadenza??

> Come posso gestire la data di scadenza??
Cioč, vuoi sapere come CALCOLARE la data di scadenza?
A.

si
"Alberto Salvati" <x@x.x from office> ha scritto nel messaggio
news:anubfg$2ki4$1...@newsreader1.mclink.it...


Ma ti serve una data unica o varie date tipo Rate?
Cmq con il DecodeDate e l'EncodeDate puoi fare il lavoro che ti serve, basta
variabilizzarti il mese e l'anno e fai dei semplici Inc(Mese, NumeroMesi).
Se il mese supera il valore 12, resetti il mese a Mese-12 e incrementi
l'anno. Niente di troppo complicato ;)
Ciao,
  Fabio



const
    mmBimestrale = 2;
    mmTrimestrale = 3;
    mmQuadrimestrale = 4;
    mmSemestrale = 6;
    mmAnnuale = 12;
DataScadenza := IncMonth(DataStipula, mmSemestrale);
--------------------------------
Inviato via 
http://usenet.libero.it

anch'io avevo pensato in questo modo. Ma non sorge un problema con i mesi di
31 gg??
"Andrea Laforgia" <x@x.x> ha scritto nel messaggio
news:80Z105Z34Z80Y1...@usenet.libero.it...


Caxxo c'hai ragione, esiste un IncMonth.... non c'avevo mai fatto caso!
Grazie, ciao
  Fabio

 31 gg??
No, prova.


 Caxxo c'hai ragione, esiste un IncMonth.... non c'avevo mai fatto caso!
Ci sono molte funzioni mal documentate o sepolte chissa' dove nell'help.
Se solo Borland si sforzasse di scrivere i reference manual come quelli del
Turbo C++ !!! :)

Newsgroup: it.comp.lang.delphi
Titolo: registratore di macro

Avrei bisogno di registrare una serie di azioni operate su un
programma per permettere all'utente di rendere automatica la loro
esecuzione.
Ho pensato che sarebbe bello creare una specie di registratore di
macro che usa Word.
unit UCreaMacro;
interface
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs,
  StdCtrls;
type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
type tmessaggio=record
 ms:tagmsg;
 wh:thandle;
 u1,u2:word;
     end;
var
  Form1: TForm1;
  fine:boolean;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
var
f:file of tmessaggio;
messaggio:tmessaggio;
begin
assignfile(f,'macro');
rewrite(f);
fine:=false;
repeat
getmessage(
messaggio.ms
,messaggio.wh,messaggio.u1,messaggio.u2);.
write(f,messaggio);
application.processmessages;
until fine;
closefile(f);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
fine:=true;
end;
procedure TForm1.Button3Click(Sender: TObject);
var
f:file of tmessaggio;
messaggio:tmessaggio;
begin
assignfile(f,'macro');
reset(f);
repeat
read(f,messaggio);
postmessage(messaggio.wh,
messaggio.ms
,0,0); //qui ci vuole l'aiuto...
application.processmessages;
until eof(f);
closefile(f);
end;
end.
Il problema č: Postmessage non funziona....
come faccio a far eseguire i messaggi intercettati con getmessage?

 until fine;
GetMessage rimuove i messaggi dalla coda dei messaggi del thread
principale, facendo crashare l'app !
Invece di GetMessage forse potresti usare PeekMessage con PM_NOREMOVE.
Cmq, mi ripeto, ti sconsiglio di seguire questa strada :)
--
Ciao !  Davide DG.

Newsgroup: it.comp.lang.delphi
Titolo: Sybase Anywhere e Delphi 6

Salve a tutti.
Ho delle difficoltà a visualizzare in progettazione su Delphi 6 Enterprice 
il contenuto di una base di dati Sybase Anywhere 8.0
1) Ho provato con i componenti classici del BDE e riesco a vedere le tabelle 
e ad assegnarle al componente TTable. Il collegamento ad TDatasource va pure 
bene. Quando associo il datasource ad una DBGrid e il database è aperto, non 
vedo il contenuto della tabella che ho selezionato.
2) Allora ho usato il componente ADOConnection e correlati ma da questi non 
so come collegarli alla DBGrid.
Ci sono componenti creati ad hoc per questi driver Sybase Anywhere??
GRAZIE! 


Prego

 Ci sono componenti creati ad hoc per questi driver Sybase Anywhere??
dovrebbe esistere un driver dbx x sybase, ma non ho dati certi a
portata di mano.
Altrimenti, fai una ricerca sui soliti siti
A.