mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.delphi
Titolo: Proprietà read only

Salve, in un componente avrei la necessità di aggiungere una proprietà
read only da visualizzare nell'object inspector; inizialmente ho
provato a dichiararla così:
published
property Prop read LeggiProp;
ma non viene visualizzata nell'object inspector anche se risulta
disponibile tra le proprietà del componente, quindi ho provato a fare
così:
published
property Prop read LeggiProp write ScriviProp;
procedure TComp.ScriviProp();
    begin
    end;
in questo modo funziona, però non mi sembra che dichiarare una
procedura vuota per la scrittura sia la soluzione migliore: sapete se
sia possibile risolvere il problema in un modo migliore?
Grazie in anticipo.
Alessandro

No non si puo'. Una proprietą per essere visibile nel Object Inspector deve necessariamente avere le dichiarazioni Read
e Write
--
Ciao,
David

"Alessandro Vanni" ha scritto nel messaggio

Object inspector "filtra" tutte le proprietà published che siano read only.
Ed in effetti ha poco senso dare uno strumento per modificare un qualcosa
che non è modificabile.
Se comunque la tua necessità è quella di visualizzare la proprietà nell'
O.I., l'unica soluzione mi sembra sia quella di definirle un modificatore,
quindi come hai fatto. Per rendere il tutto un piu' chiaro, farei:
private
  FPprop: Integer;
published
  property Prop Integer read FProp write SetProp;
procedure TComp.SetProp(Value: Integer);
begin
  if Value <> FProp then
    raise Exception.Create('The property is read-only');
end;
Tanto per non rischiare che un eventuale utente del tuo componente tenti
invano di modificarne il valore e magari te lo segnali come bug.
Ciao,
Gianluca.
-- 
Gianluca Plevani
-----------------------------------------------------------
http://www.brain-enterprise.com

 Alessandro
Ciao
Gabriele


http://www.brain-enterprise.com
	Ciao
	MassimoB
 
---------------------------
http://www.massimobeschi.it/

 sviluppatore) secondo me ci sta ... ;)
Sono tutte informazioni che, se utilizzate solo nella fase di sviluppo,
metterei nel menu contestuale del componente (come ad esempio fa il
QuickReport) o in un Form About (magari richiamato appunto da queste voci).
In questo modo risiedono solo nel Design-Time Package del componente e non
vanno a pesare sull'eseguibile.
Gianluca.
-- 



http://www.brain-enterprise.com
	Ciao
	MassimoB
 
---------------------------
http://www.massimobeschi.it/

 Show-ReadOnly Properties.
Grazie.
Cosě funziona, tuttavia, per evitare che l'utilizzatore si dimentichi
di visualizzare anche le proprietŕ read-only, ho deciso di lasciare la
proprietŕ con il read e write.
Ciao.
Alessandro

 invano di modificarne il valore e magari te lo segnali come bug.
Grazie, seguirò il tuo consiglio, anche se ho visto che andando con il
tasto destro dell'O.I. è possibile visualizzare anche le proprietà
read-only, però non lo farò per evitare che l'utilizzatore si
dimentichi di visualizzare anche le proprietà read-only.
Ciao.
Alessandro

 sviluppatore) secondo me ci sta ... ;)
Infatti per la precisione si tratta della versione del componente.
Ciao.
Alessandro

 Alessandro
Ciao
Gabriele
Newsgroup: it.comp.lang.delphi
Titolo: Ttable.oncalcfields

Devo attivare qualcosa perchè funzioni questa funzione?
--
Chrys-bj
http://digilander.iol.it/chrysbj

 ha scritto nel messaggio
news:FoWA6.13994$r67.3...@news2.tin.it...

Questo è un gestore d'evento, quindi accade in concomitanza di un'operazione
eseguita dalla tabella, e rigurada solo i campi definiti come calcolati.
L'evento si verifica mi pare in concomitanza con un'opreazione tipo post,
apertura della tabella , ecc..., ti consiglio di guardare sull'help.

 ha scritto nel messaggio
news:FoWA6.13994$r67.3...@news2.tin.it...



 ha scritto nel messaggio
news:FoWA6.13994$r67.3...@news2.tin.it...



 ha scritto nel messaggio
news:FoWA6.13994$r67.3...@news2.tin.it...


Scusate ma alla fine ho scoperto che devo usare il pop-up menů dell'oggetto
Query o Table per vedere tutte le opzioni dei campi collegati.
Il Delphi 5 dal menu dei DefFields non si possono vedere tutti i parametri
dei fields.
Da qui sono riusci ad aggiungere i campi calcolati.
Grazie a tutti per l'attenzione.
--
Chrys-bj
http://digilander.iol.it/chrysbj
Newsgroup: it.comp.lang.delphi
Titolo: Creare un Table da codice

Ciao a tutti, come fare per creare una tTable interamente da codice (con
tanto di definizione del tipo e della dimensione dei vari campi)?
Grazie.

 tanto di definizione del tipo e della dimensione dei vari campi)?
Ma perchč non cerchi nell'help ?
La TTable ha il metodo CreateTable, di cui ti ho riportato l'help qui sotto.
The following example shows how to create a table.
with Table1 do begin
  Active := False;
  DatabaseName := 'DBDEMOS';
  TableType := ttParadox;
  TableName := 'CustInfo';
  { Don't overwrite an existing table }
  if not Table1.Exists then begin
    { The Table component must not be active }
    { First, describe the type of table and give }
    { it a name }
    { Next, describe the fields in the table }
    with FieldDefs do begin
      Clear;
      with AddFieldDef do begin
        Name := 'Field1';
        DataType := ftInteger;
        Required := True;
      end;
      with AddFieldDef do begin
        Name := 'Field2';
        DataType := ftString;
        Size := 30;
      end;
    end;
    { Next, describe any indexes }
    with IndexDefs do begin
      Clear;
      { The 1st index has no name because it is
      { a Paradox primary key }
      with AddIndexDef do begin
        Name := '';
        Fields := 'Field1';
        Options := [ixPrimary];
      end;
      with AddIndexDef do begin
        Name := 'Fld2Indx';
        Fields := 'Field2';
        Options := [ixCaseInsensitive];
      end;
    end;
    { Call the CreateTable method to create the table }
    CreateTable;
  end;
end;

 Ma perchè non cerchi nell'help ?
Confermo! :))))
Bye
AS
"Se è Microsoft non funziona"
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

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

> Scusate se ho disturbato.
No, per carità....
Non voleva essere un rimprovero, solo un consiglio.
Finchè non imparerai a cercarti da solo le cose che ti servono (dove
normalmente sono) dipenderai sempre dagli altri.
E poi, se non avessi avuto voglio di rispondere non l'avrei fatto, non ti
pare ? :-)

> Scusate se ho disturbato.
Non è una questione di disturbo.
Magari resti fermi al palo in attesa di una risposta da questo NG
per cose spiegate in modo dettagliato nella guida di delphi.
Non voleva essere un rimprovero.
Bye e scusami tu. :)))

Newsgroup: it.comp.lang.delphi
Titolo: Query pesanti che bloccano il pc

Gestionale in Delphi 6 con motore di db MySQL.
Quando eseguo una query di modifica sostanzionsa, succede che il pc rimanga
bloccato per alcuni secondi, comprese tutte le altre applicazioni
eventualmente in esecuzione.
Preferirei che fosse magari più lento nell'esecuzione ma non bloccasse tutta
la macchina.
Posso fare qualcosa per evitare l'inconveniente da Delphi, o debbo operare
su qualche parametro di MySQL? Oppure debbo eseguire la query in un thread a
parte?
Ciao e grazie

Ciao e grazie
	Ciao
	MassimoB
 

 della query, possano essere comunque disponibili nell'applicazione.
E' interessante quello che dici e mi porta ad avere dei dubbi relativi alla
"filosofia" di sviluppo dei gestionali:
Se eseguo l'operazione pesante in un thread a parte, è conveniente che
l'operatore possa fare altre operazioni con l'applicazione mentre il thread
è in funzione o piuttosto è meglio bloccarla (a parte il refresh) fino a che
l'operazione non è giunta a termine?
Sembra un quesito cavilloso,  ma sarebbe interessante leggere dei
link/manuali/testi anche sulla filosofia di sviluppo di un'applicazione
oltre ai soliti testi sul linguaggio.
Non sei obbligato a rispondere e comunque grazie

Non sei obbligato a rispondere e comunque grazie
se ho tempo cerco di rispondere ... :)
	Ciao
	MassimoB

Newsgroup: it.comp.lang.delphi
Titolo: Gestione Multi Monitor

Ciao a tutti,
esistono delle utility o librerie per gestire da delphi un'applicazione con form che devono apparire ed essere gestite su piů di un monitor?
Grazie.
-- 
madbat870 
------------------------------------------------------------------------
View this thread: 
http://www.itsistemi.net/viewtopic-855975.html
Inviato via 
http://www.itsistemi.net

> esistono delle utility o librerie per gestire da delphi un'applicazione con form che devono apparire ed essere gestite su più di un monitor?
Cerca nell'help TScreen.
Ciao
Newsgroup: it.comp.lang.delphi
Titolo: AIUTOOOO!!!

Come faccio a convertire il contenuto di un edit in un numero reale? Ho
provato ad usare i variant, ma se io inserisco 0.5, per esempio, me lo
converte in 5!!!
Aiutatemi!
Grazie
Iding

 converte in 5!!! Aiutatemi!
variabileFloat := StrToFloat(Edit.text)
Ciao,
Alan Solo

Newsgroup: it.comp.lang.delphi
Titolo: formato  tDateTime

ciao a tutti
sto utilizzando il TDateTime per gestire dati quali l'ora
non ho problemi tranne per il fatto che nel campo della  DBGrid
mi visualizza  '30/12/1899 10:30' invece di visualizzarmi solo l'ora
'10:30'
sicuramente se ne sarà già discusso tanto ma io ho cercato di leggere vecchi
post ma :(
non ci riesco.
e poi non so gestire bene i recordset uff!
un consiglio?
devo cambiare tutto ?! : )
ciao e grazie mille a tutti

 '10:30'
1) Nel dataset collegato alla dbgrid devi dichiarare i field (doppio clic
sul dataset -> si apre il fields editor -> clic con il tasto destro -> Add
all fileds)
2) Nel fields editor, selezioni il campo data che ti interessa
3) Nella rispettiva property DisplayFormat metti 'hh.nn'
Voilà.
Saluti
	Marco Bortolani
	info @ 
marcobortolani.it

o mammaaaaa      ° _ °
ehehe
grazieeeeeeeeeeee

Newsgroup: it.comp.lang.delphi
Titolo: Version Info e DLL

Come mai non posso inpostare il numero di versione in
Project/Option/Version Info se sto lavorando su una DLL ?
Ho Delphi 5...
Grazie.

Hai questo nel tuo dpr {$R *.RES}?
Ciao,
  Fabio

Hai questo nel tuo dpr {$R *.RES}?
Grazie ! Era proprio quello....
Ciao
Stefano.

Newsgroup: it.comp.lang.delphi
Titolo: IdTCPServer1Execute e reinvio di messaggi tcp

ciao a tutti, come posso fare dentro nell'evento IdTCPServer1Execute a 
inviare un altro messaggio tcp verso un determinato client????
Simone 

se nn ricordo male,
in un esempio postato da La Forgia viene ricevuto un messaggio su una
porta e smistato su un altra porta...
A.

 ha scritto nel messaggio 
news:47d7de5e$0$17943$4faf...@reader1.news.tin.it...


 Simone
Se il client e' quello che ti ha fatto scaturire l'evento basta che usi 
AContext in questo modo:
AContext.Connection.IOHandler.WriteLn();
oppure
AContext.Connection.IOHandler.Write();
Se il client non e' quello che ti ha fatto scaturire l'evento devi 
memorizzarti i vari IP (che prelevi da 
AContext.Connection.Socket.Binding.PeerIP) e, in seguito usarli per la 
comunicazione

per vedere l'ip da dove arriva il messaggio cosa posso usare?
Simo

 Simo
Come ti ho detto prima da AContext.Connection.Socket.Binding.PeerIP

Simone, gradirei non leggere le risposte che dai sul ng nella mia
casella di posta.
Grazie.
A.
Newsgroup: it.comp.lang.delphi
Titolo: Esportare applicazioni create con Kylix

Salve
vorrei sapere quali sono le librerie necessarie per eseguire un software 
compilato con kylix su un altro pc su cui kylix non sia presente.
Grazie
-- 
_-==.==-_*_-==.==-_
   _    _   __    _   " Ogni sistema ha le sue leggi :
  |_)_ |_) (_  _ |_)     alcune possono essere eluse
  | (_|| \o__)(/_| \    altre...infrante " (Morpheus)
  (Giacomo Bellucci)
 
PaR._IL_BIAN...@libero.it
      _________
     /ficm code\          Per rispondermi togliete
     \ [Hx23B] /        _IL_BIANCONIGLIO_ dall'email
      ŻŻŻŻŻŻŻŻŻ


Open Delphi Manual (
http://groups.yahoo.com/group/delphi_open_manual/
)

Newsgroup: it.comp.lang.delphi
Titolo: Fattura elettronica

Sto utilizzando il software di Aruba Key per firmare digitalmente (con CAdeS) e marcare temporalmente un file contenente una fattura elettronica da inviare ad un ente pubblico. Controllando il file utilizzando l'apposita funzione di controllo messo a disposizione dal ministero ricevo l'errore "Il campo "SigningTime" della firma deve essere inserito".
 
Sembrerebbe che il file non sia marcato temporalmente, ma se lo apro con la funzione di verifica del file di aruba key mi dice che la marca temporale è presente.
 
Qualcuno ha già avuto lo stesso problema?

Ma questa domanda ha a che fare con Delphi in qualche modo? :)
 
-- 
MARCO BREVEGLIERI (Software and Web Developer)
#Home: 
http://bit.ly/marcobreveglieri
 
#Blog: 
http://bit.ly/compilaquindiva

Newsgroup: it.comp.lang.delphi
Titolo: Etichette su immagini

Ciao a tutti, avrei la necessità (a dire il vero è il cliente ad averla
)  ) di poter applicare delle etichette di testo, cerchiolini e freccette su
delle immagini. Come potrei organizzarmi? Esiste un qualche componente
(free) che potrebbe fare al caso mio? Che stringa di ricerca potrei
utilizzare magari su Torry?
Grazie in anticipo
Davide

Davide
	Ciao
	MassimoB
 
---------------------------
http:\\
www.massimobeschi.it

> (mi sono un pò rotto dei gestionali :(  ).
anche tu? :D

[CUT]
Ti ringrazio. Proverň a cercare un po in giro...

Newsgroup: it.comp.lang.delphi
Titolo: Risoluzione stampante

Un saluto a tutti!!!
Ho la necessità di cambiare la risoluzione della stampante (es. 600x600)
senza usare
il dialog-box standard di Windows, in quanto diverse volte il driver della
stessa
non indica chiaramente la risoluzione oppure bisogna "trovarla" in qualche
finestra.
Avrei bisogno, quindi, di qualche linea di codice che mi permetta di
selezionare
direttamente la risoluzione.
Spero che qualcuno l'abbia già implementato, io purtroppo pur avendo
spulciato tra vari sorgenti che trattano di settaggi della stampante, non ci
sono riuscito.
Grazie a tutti anticipatamente!
Raffaele.

Eccomiiii
Devi usare l'api getprinter e poi modificare i parametri della struttura
DEVMODE.
Se poi hai ancora dubbi ti posto frammenti di codice
Ciaoux!
Newsgroup: it.comp.lang.delphi
Titolo: Ridimensionamento immagini runtime

Salve a tutti! Ho un componente CLX TImage chiamato con molta fantasia
Image1. Questo componente deve avere delle dimensioni fisse di 317x245.
Tuttavia qui dovranno passare immagini con dimensioni anche maggiori. Ho
alcune immagini di tipo 224x320 e cosi' via che dovrebbero entrare li dentro
ma non devono essere assolutamente "strechate". La mia idea e' di lavorare
su una variabile di tipo TPicture e controllare i valori Width e Height.
Quando faccio il controllo dei valori, noto che la variabile (si chiama
screen) ha i giusti valori (es. Width = 224, Height = 320) ma non riesco a
ridimensionare l'immagine in modo che abbia un aspect ratio uguale
all'originale. Esiste un modo di ridurla in percentuale o qualcosa del
genere? Sono stato chiaro? Spero di si altrimento riscrivo la domanda.
HellHound - uccidi CERBERO per l'indirizzo

Ti allego la breve funzione che utilizzo io da un bel po' di tempo con
successo.
Io utilizzo Una ScrollBox per gli ingrandimenti e la sfrutto come oggetto di
riferimento per ridimensionare l'immagine. Se a te non serve la scrollbox
metti un TPanel e sostituisci i riferimenti relativi all'interno della
funzione.
procedure TFormMain.ResizeImage;
var
  Rapporto : real;
begin
  Image.Stretch := false;
  Image.AutoSize := true;
  //caso 1: Image.Heigth > ScrollBoxImage.Heigth
  if (Image.Height > ScrollBoxImage.Height) then
    begin
      //riabilita le proprietà dell'immagine
      Image.Stretch := true;
      Image.AutoSize := false;
      //effettua il resize
      Rapporto := Image.Width / Image.Height;
      Image.Height := ScrollBoxImage.Height;
      Image.Width := Round(Image.Height * Rapporto);
    end;
  //caso 2: Image.Width > ScrollBoxImage.Width
  if (Image.Width > ScrollBoxImage.Width) then
    begin
      //riabilita le proprietà dell'immagine
      Image.Stretch := true;
      Image.AutoSize := false;
      //effettua il resize
      Rapporto := Image.Width / Image.Height;
      Image.Width := ScrollBoxImage.Width;
      Image.Height := Round(Image.Width / Rapporto);
    end;
  //riabilita le proprietà dell'immagine
  Image.Stretch := true;
  Image.AutoSize := false;
  //centra l'immagine nello scroll box
  Image.Left := (ScrollBoxImage.Width - Image.Width) div 2;
  Image.Top := (ScrollBoxImage.Height - Image.Height) div 2;
end;
--
Max Etere
massimili...@programmando.org
http://www.programmando.org
Newsgroup: it.comp.lang.delphi
Titolo: Aiuto X Anteprima







Ciao a tutti. Ho un piccolo problema! Sto creando 
un programma di gestione tavoli per ristoranti. Ecco il problema:


 Per stampare il conto utilizzo un RichEdit 
nel quale inserisco tutti i dati del conto e poi richiamo RichEdit.Print('Mio 
messaggio'); Nella stessa Form vi è un componente TImage. L'immaggine è la 
fotocopia della Ricevuta Fiscale. Una volta inseriti tutti i dati in RichEdit 
vorrei procedere ad una anteprima di Stampa, quindi Stampare sull'immagine per 
vedere se tutto verrà stampato al posto giusto, anche per dare al programma una 
certa bellezza.


é da una settimana che sono flippato con questo 
problema, se mi potete aiutare vi prego fatelo. Sig sig sig sig sig 
sig........



>
 Per stampare il conto utilizzo un RichEdit nel quale inserisco tutti i
dati del conto e poi richiamo RichEdit.Print('Mio messaggio'); Nella stessa
Form vi è un componente TImage. L'immaggine è la fotocopia della Ricevuta
Fiscale. Una volta inseriti tutti i dati in RichEdit vorrei procedere ad
una anteprima di Stampa, quindi Stampare sull'immagine per vedere se tutto
verrà stampato al posto giusto, anche per dare al programma una certa
bellezza.
<<
Per l'anteprima puoi sovrapporre alla timage un TPaintBox su cui scrivere
con Canvas.TextOut (mettendo Canvas.Brush.Style = bsClear l'immagine non
viene nascosta).
Ovviamente non è una vera anteprima. Per fare una anteprima vedi come fa
RichEdit a stampare sul canvas della stampante e trasferisci il tutto sul
PaintBox. Occhio alle dimensioni della carta!
hth
Paolo Arosio
Newsgroup: it.comp.lang.delphi
Titolo: Due domande da un pivello...

Ciao a tutti, avrei un paio di domandine da rivolgere a qualcuno un
po' piu' esperto di me in delphi.
Non risco a:
1) ordinare una DBgrid secondo una colonna (per esempio la colonna
denominata data.....
2) fare in modo che la cella corrispondente ad una determinata colonna
sia riempita automaticamente all'aggiornamento della prima cella del
record. Per esempio
nome cognome città .... scrivendo un nome deve venire una determinata
citta' nella cella corrisponnte del record...
Spero che qualcuno sia riuscito a seguirmi......
Grazie mille a tutti.
Fabio

 wrote in message
3a26ad27...@News.CIS.DFN.DE...


Ciao
Innanzitutto grazie mille per la soluzione del primo quesito.
Per il secondo la domanda e' questa:
immagina che abbia 3 campi da riempire in un form (Nome, cognome,
indirizzo).
Vorrei aggiungere questi valori in una riga della mia grid (collegata
ad un altro DB).
Hai idea di come possa risolvere ???
Grazie mille ancora.
Ciao, Fabio
Newsgroup: it.comp.lang.delphi
Titolo: D6 WinZeos, DbExpress, CLX

Ciao,
       Sto' provando i componenti WinZeos per D6.
       Ho installato i componenti vers. beta 5.3.0 build 5 
       Mysql 3.23.41 - nt su Win XP
       Ho ricreato l'applicazione esempio :  simple_mysql 
       come applicazione CLX.
       compilando segnala : 
[Error] WARNING. Duplicate resource(s):
[Error]   Type 10 (RCDATA), ID TLOGINDIALOG:
[Error]     File C:\Programmi\Borland\Delphi6\Projects\studioclx\DBLOGDLG.dfm resource kept;
                file c:\programmi\borland\delphi6\Lib\QDBLogDlg.xfm resource discarded.
 
      la stessa applicazione su VCL funziona.
      Per provocare l'errore e' sufficiente creare una applicazione clx vuota, 
      piazzare su una form una griglia un dataset e un componente Zeos  e poi compilare.
 
      Non so se c'e' qualcuno che sta' utilizzando una versione funzionante (precedente ?)
      dei componenti  Zeos per applicazioni CLX.
--------------------------------------------------------------------------------------------------------------------------------------------
      Ho provato anche a connettermi a Mysql con l'applicazione esempio 
      dbxExplorer con componenti DbExpress ma non ho ancora trovato dove
      va specificato il nome del database. 
      (va per default a cercare di connettere 'MsConnection') 
 
--------------------------------------------------------------------------------------------------------------------------------------------
       Sto' anche cercando alcuni componenti non dbaware per D6 su Clx.
       Avrei voluto utilizzare il CurrencyEdit, il DateEdit
       ed il ComboEdit delle RxTools ma non sono disponibili per Clx.
       Su Torry non ho trovato niente di simile freeware con sorgenti.
--------------------------------------------------------------------------------------------------------------------------------------------
 
se qualcuno puo' darmi una dritta...
Grazie,
Eugenio Belli

                file c:\programmi\borland\delphi6\Lib\QDBLogDlg.xfm resource discarded.
Aggiungo che ho trovato il bug gia' segnalato nel sito 
sourceforge.net
senza soluzione.
Ho anche scaricato e provato la  beta 5.3.0 build 6 ma da' lo stesso errore
Ciao,
Eugenio Belli.
 


Ho avuto anche io un problema simile con Kylix. In sostanza c'erano due 
form, in unit diverse, con lo stesso nome. L'ho risolto sostituendo il nome 
di una di queste. Il fatto che dia questi errori con le clx "sembra" non 
sia evitabile se non usando degli identificativi unice per ogni componente.
Saluti,
        by Enri'S 
                        --- Linux Powered ---

Eugenio Belli.
Newsgroup: it.comp.lang.delphi
Titolo: [Errore] Data Structure Corruption

Buongiorno a tutti...
ho bisogno di un aiuto.
Sto cercando di gestire aprire un file di testo utilizzando lo schema file.
Ho un file di testo che si chiama articoli.txt e il rispettivo file di
schema che si chiama articoli.sch (come da help del bde). Tipo struttura
FIXED, CHARSET =ascii, Delimiter = (vuoto) Separator = (vuoto) e in seguito
l'elenco dei field. ad esempio field1 = Codice articolo,CHAR,15,0,0
field2=Descrizione Articolo,CHAR,15,0,15 <-- come indicato nell'help.
Ho creato un alias nel BDE impostandolo a Standard, ASCII DRV, Enable BCD =
True, e il relativo PATH.
Ho aperto Delphi e ho posizionato su una form il DataSource, la mia Tabella
Articoli, il DbNavigator e una DBGrid.
Cliccando 2 volte sulla Tabella Articoli, inserisco tutti i field letti
dall'elenco dello schema file, a conferma che sia stato scritto
correttamente, ma poi quando setto la property Active a TRUE del mio DATASET
il programma va in errore riportando DATA STRUCTURE CORRUPTION.
Ho verificato già più volte la struttura del mio file di testo, compreso
quello dello schema file e non mi risulta che ci siano errori...
Secondo voi dove sbaglio ? manca qualche attivazione, ho cercato nell'help
del BDE ma non riesco a trovare il significato dell'errore DATA STRUCTURE
CORRUPTION... dove trovo una lista degli errori del bde ?
Grazie a tutti per le risposte...
attendo fiducioso... :-)
--
Sparta

Ma nessuno è a conoscenza del problema di cui sopra ???
Sto impazzendo dalle prove !!
--
Sparta

Newsgroup: it.comp.lang.delphi
Titolo: OT non ho sonno

Scusate, ma stasera non ho proprio sonno, come si vede dai centinaia post
che ho scritto.. :)
Oggi sono andato al Futurshow ma lo stand della Borland non c'era :))
E io che volevo mi presentassero a sorpresa una beta di kylix :)
vabbè sarà per la prossima fiera..
Ciao scusate l'ot                            {MSX}

> Oggi sono andato al Futurshow ma lo stand della Borland non c'era :))
Io sono andato ieri!! :)  Oltre al caos, alle ragazze stand da paura, e allo
stand
Tiscali con il torneo di Quake3Arena ... non mi č piaciuto come lo Smau ...
Vabbč ... risposta OT ad un OT !! ;-)
Ciao!
Davide DG.
Newsgroup: it.comp.lang.delphi
Titolo: Aiuto Groupindex su speedbutton

Ciao a tutti,
sto cercando di realizzare una classe per la mia applicazione dove sono
presenti alcuni speedbutton.
Vorrei che questa toolbar si comportasse in modo analogo alla palette di
Delphi.
Pensavo allora di inserire un bottone con la freccia, e poi un panel dove
inserire gli altri bottoni.
Mi aspettavo che impostando lo stesso GroupIndex a tutti i bottoni fossero
mutualmente esclusi (non suona molto bene ma spero che si capisca il
significato); invece i bottoni presenti sulla toolbar sono "raggruppati" tra
di loro, mentre il bottone con la freccia si comporta come se fosse a sč!
Qualche suggerimento?
Zano.

)

 del medesimo controllo Parent.
Ho provato a cercare nell'help ma non viene citato nulla di simile.
Ora sto provando ad ovviare, gestendo (con un po' di fatica in più) tutti i
bottoni su un unico controllo contenitore.
Grazie mille.
Zano.

 tutti i bottoni su un unico controllo contenitore.
Forse era meno laborioso tentare di gestire la mutua esclusione
scrivendo semplicemente del codice appropriato piuttosto che agire
tentando di inserire tutti i controlli all'interno dello stesso Parent,
almeno secondo me: questa soluzione ti crea molti impedimenti,
soprattutto a livello visuale.


Newsgroup: it.comp.lang.delphi
Titolo: domanda stupida

Quand'e' che serve creare una consol application?
Mi potete fare un paio di esempi?
~Guybrush~

 ha scritto nel messaggio
news:0i5cctsq3qs6jhc7u...@4ax.com...

Newsgroup: it.comp.lang.delphi
Titolo: TAB CLIENTI E ORDINI

Vi prego, non vomitate dopo questo messaggio ma purtroppo sono fresco di
Delphi:
Tabelle ADO da access:
Tabella testate ordini clienti (ID)
Tabella righe ordini clienti   (ID, IDTes)
Quando faccio un insert per un nuovo ordine, devo fare in modo che dalla
testata, non appena la salvo...l'ID della testata vada a replicarsi sulla
riga/righe di ordine che andrò a generare.
Come posso ottenere questo giochetto (per voi... :-)  ) ?
Grazie infinite.

 riga/righe di ordine che andrò a generare.
Prendi due ADOTable: una la colleghi alla tabella master e l'altra alla
tabella detail.
Poi prendi un datasource e lo colleghi alla tabella master.
Ora prendi la tabella detail e imposta la property MasterSource al
datasource collegato alla tabella master.
Infine, fai clic sulla property MasterFields della tabella detail e imposta
la relazione tra i campi delle due tabelle.
Hai stabilito una relazione master-detail tra i due oggetti ADOTable: ogni
qualvolta cambi record nella tabella master vedrai cambiare anche i dati
della tabella detail; se vai in insert nella tabella detail, i campi
collegati alla tabella master verranno precaricati con i valori attuali.
Saluti
		Marco Bortolani
		info @ 
marcobortolani.it

 collegati alla tabella master verranno precaricati con i valori attuali.
Grazie mille, mi è servito, credevo ci fosse anche del codice...invece è
tutto molto semplice!
Newsgroup: it.comp.lang.delphi
Titolo: Stampanti ad aghi

Dovrei stampare su una stampante ad aghi, mettiamo una Lexmar/IBM 2481,
direttamente collegata con la LPT1.
Come cavolo faccio a stampare in modalità testo, ossia con i caratteri
della stampante, e fare uscire il testo dove voglio io?
--
Jax

Guarda sull'help il comando assignprn.
Ciao, Sandro

 Guarda sull'help il comando assignprn.
Cercavo qualcosa di più "visuale", e infatti l'ho trovato: PReport su
Torry.
Speriamo che funzi altrimenti vado ancora alla vecchia :))
--
Jax

della stampante, e fare uscire il testo dove voglio io?
Potresti comandarla via parallela, inviandogli, oltre ai caratteri che vuoi stampare, 
dei codici escape opportuni (carriage return, line feed, ecc..).
Conservo ancora del software sviluppato 10 anni fa dove mi ero creato dei "driver"
per comandare le principali stampanti ad aghi. 
Se ti interessa posso mandarti questi codici escape per le varie stampanti ad aghi.
Es:
IBM PROPRINTER: 
attiva condensato, chr(27)+chr(15)
disattiva condensato, chr(18)
ecc....

Speriamo che funzi altrimenti vado ancora alla vecchia :))
Sono andato anch'io a vedere la home: davvero interessante!
90 usd e sembra faccia molte cose in piu' degli altri... good!
Morde

"Jax" <rispo...@newsgroup.grazie> ha scritto nel messaggio
news:DLkD9.39637$744.1...@news1.tin.it...

Noi usiamo Zreport lo trovi su 
www.torry.ru
 ed e free e per almeno per quel
poco che lo usiamo lo troviamo  buono
Ciao
Mik.

Newsgroup: it.comp.lang.delphi
Titolo: Messaggi in italiano

Come faccio a visualizzare i messaggi in italiano sui pulsanti?
--------------------------------
Inviato via 
http://usenet.iol.it

 Come faccio a visualizzare i messaggi in italiano sui pulsanti?
quali pulsanti?
Se intendi ok, annulla, si, no delle finestre di dialogo usa
MessageBox delle API di Windows.
Ciao, Antò.

 wrote in message
news:Xns9191B1D071C1Can...@195.31.190.132...

...oppure copia la consts.pas nella cartella del tuo 
progetto e modifica le voci manualmente.  Ricostruendola
col Build, insieme all'applicazione, si ottengono i
messaggi che vuoi.
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Newsgroup: it.comp.lang.delphi
Titolo: Sinceramente nn so come fare.....^^'

Ciao a tutti,
Ho un Form dove al suo interno ho vari pannel uno sopra all'altro, ora come 
faccio a farli sparire nel mentre per lavorarci?
In modo che possa visualizzare gli oggetti che stanno sotto ed ventualmente 
la form.
Solitamente sposto le form ma con il rischio di incasinarmi tra i pannel.... 

 Solitamente sposto le form ma con il rischio di incasinarmi tra i pannel....
-- 
Ciao, Anto', [38, 143, AQ] 
MB C SC 220 CDI Magma Rot
"Oggi c'è una grande battaglia di idee, ma alla 
fine, non ci saranno ne vinti, ne vincitori, ne idee!"
S. Benni da Elianto

 primno piano quello selezionato,
Alternativamente è possibile usare l'object treeview. E' comodo da
usare ;)
-- 
guastatore
ICLDweb: 
http://www2.samatel.com/icld/

Grazie per l'aiuto
Newsgroup: it.comp.lang.delphi
Titolo: [D5 PRO + PARADOX]

Gentili partecipanti,
come piu' volte premesso sono un neofita (ma sempre piu' soddisfatto) di
Delphi 5.0 pro, e sto cercando di generare un ciclo che scorra tutti i campi
di una tabella (operazione che mi riusciva agilmente con VB + Access).
Probabilmente interverranno nel ciclo il tipo dati TField della collezione
TFields, ma la mia conoscenza lacunosa non mi permette di risolvere questo
enigma.
Ringrazio tutti coloro che vorranno darmi anche un piccolo suggerimento per
portare a termine questo compito.
Per quelli che non suggeriscono niente caramelle :-)  (basta vino a
pranzo!!)
Grazie
Michele


dall'help di delphi:
This example displays a message box with the names of all fields in the
table.
procedure TForm1.Button2Click(Sender: TObject);
var
   i: Integer;
   Info: String;
begin
   Info := 'The fields of table ' + Table1.TableName +
           ' are:'#13#10#13#10;
   for i := 0 to Table1.FieldCount - 1 do
      Info := Info + Table1.Fields[i].FieldName + #13#10;
  ShowMessage(Info);
end;
Saluti

 ha scritto nel messaggio
news:Ieqw7.54277$0Y2.5...@news.infostrada.it...

Newsgroup: it.comp.lang.delphi
Titolo: Criptare

Ciao,
devo proteggere senza grandi pretese un programma (delphi 5.0) ho pensato di
leggere il s/n del disco aggiungere magari qualche dato e poi criptarlo in
qualche file. Non vorrei pero' čerdere tempo a pensare ad un algoritmo di
criptazione qualcuno sa consigliarmi qualche link a dei sorgenti freeware???
Grazie

 criptazione qualcuno sa consigliarmi qualche link a dei sorgenti freeware???
Di seguito ti allego una unit con delle funzioni di 
crittografia/decrittografia di stringhe e di file.  Non ricordo dove
l'ho 
pescata ma il suo lavoro lo fa senza pretese (appunto) ma
dignitosamente. 
 
Leonardo Lomartire
l.lom...@rasnatech.com
8<--------------------------
unit EncryptIt;
interface
USES
    Classes;
const
     C1 = 52845;
     C2 = 22719;
function Encrypt(const S: String; Key: Word): String;
function Decrypt(const S: String; Key: Word): String;
procedure EncryptFile(INFName, OutFName : String; Key : Word);
procedure DecryptFile(INFName, OutFName : String; Key : Word);
implementation
function Encrypt(const S: String; Key: Word): String;
var I: Integer;
begin
Result := S;
  for I := 1 to Length(S) do
    begin
    Result[I] := char(byte(S[I]) xor (Key shr 8));
    Key := (byte(Result[I]) + Key) * C1 + C2;
    end;
end;
function Decrypt(const S: String; Key: Word): String;
var
   I: Integer;
begin
  Result := S;
  for I := 1 to Length(S) do
      begin
           Result[I] := char(byte(S[I]) xor (Key shr 8));
           Key := (byte(S[I]) + Key) * C1 + C2;
      end;
  end;
procedure EncryptFile(INFName, OutFName : String; Key : Word);
VAR
   MS, SS : TMemoryStream;
   X : Integer;
   C : Byte;
begin
MS := TMemoryStream.Create;
SS := TMemoryStream.Create;
    TRY
       MS.LoadFromFile(INFName);
       MS.Position := 0;
       FOR X := 0 TO MS.Size - 1 DO
             begin
                  MS.Read(C, 1);
                  C := (C xor (Key shr 8));
                  Key := (C + Key) * C1 + C2;
                  SS.Write(C,1);
             end;
       SS.SaveToFile(OutFName);
    FINALLY
           SS.Free;
           MS.Free;
    end;
end;
procedure DecryptFile(INFName, OutFName : String; Key : Word);
VAR
   MS, SS : TMemoryStream;
   X : Integer;
   C, O : Byte;
begin
MS := TMemoryStream.Create;
SS := TMemoryStream.Create;
    TRY
       MS.LoadFromFile(INFName);
       MS.Position := 0;
       FOR X := 0 TO MS.Size - 1 DO
             begin
                  MS.Read(C, 1);
                  O := C;
                  C := (C xor (Key shr 8));
                  Key := (O + Key) * C1 + C2;
                  SS.Write(C,1);
             end;
       SS.SaveToFile(OutFName);
    FINALLY
           SS.Free;
           MS.Free;
    end;
end;
end.
8<--------------------------

 ha scritto nel messaggio
news:39184212...@rasnatech.com...

Newsgroup: it.comp.lang.delphi
Titolo: TSaveDialog

Ciao, avrei un quesito? Come faccio in una TSaveDialog, ha predefinire
l'estensione? Cioč, io ho messo il filtro e mi appare, perň se scrivo solo
il nome, lo salva senza estensione. Ciao e grazie!!

 ha scritto nel messaggio
news:fnQU6.13646$fG4.5...@news.infostrada.it...
: Ciao, avrei un quesito? Come faccio in una TSaveDialog, ha predefinire
: l'estensione? Cioč, io ho messo il filtro e mi appare, perň se scrivo solo
: il nome, lo salva senza estensione. Ciao e grazie!!
:
:
io userei qualcosa del tipo (l'ho scritto di getto, non so se funziona...)
if SaveDialog1.execute then
begin
  il ExtractFileExt(SaveDialog1.FileName)='' then
   SaveDialog1.FileName:=SaveDialog1.FileName+'.Ext';
 [...]
end;
ciao
giuliano



Perche' complicarsi le cose quando non e' necassario? 
TSaveDialog.DefaultExt := 'txt';
Massimo.
-- 
"Ciao Rex, che cavolo di situazione eh? Due dentro, due fuori, puo' succedere di tutto!"

 ha scritto nel messaggio
news:ypIkO=KAztCBcS28CKTgaL=D5...@4ax.com...
: On Mon, 11 Jun 2001 08:37:48 +0200, "Giuliano"

:
opps... la mia memoria comincia a perdere colpi... ^__^
giuliano


Sapessi la mia! :-) eheheheheheh
Massimo.

 ha scritto nel messaggio
news:ypIkO=KAztCBcS28CKTgaL=D5...@4ax.com...

Perň c'č un problemino (aggiungo io :D)
mettiamo caso che abbiamo due filtri,uno č All files e l' altro *.txt ....e
vogliamo fare che se all files č quello selezionato,allora non aggiunge l'
estensione,mentre se č selezionato *.txt, aggiunge l' estensione...per fare
questo devo sapere qual' č l' ultimo filtro selezionato...como se fa?

Fabio

v. help su DefaultExtension e ofExtensionDifferent (Options)
hth
Paolo Arosio


Basta guardare la proprietą TSaveDialog.FilterIndex.
Attenzione che, non si sa perche', il primo filtro vale 1 e non zero.
if SaveDialog1.Execute then begin
  ...
  if SaveDialog1.FileterIndex = 2 then begin
  .....
  end;
  ...
end;
Ciao,
Massimo


Newsgroup: it.comp.lang.delphi
Titolo: stampa di documenti

ciao,
qual è secondo voi il metodo migliore per stampare documenti (fatture,
lettere, ecc..) con intestazioni e dati provenienti da un database????
Conviene utilizzare componenti aggiuntivi???
Saluti
Maurizio Manna
Webmaster 
www.f1grandprix.it

 Conviene utilizzare componenti aggiuntivi???
Con il quickreport di Delphi mi sono sempre trovato benissimo.
Ciao
Gianluca

 ha scritto nel messaggio
news:e8DA8.2007$zW3....@news1.tin.it...

Newsgroup: it.comp.lang.delphi
Titolo: Formattare media SQL

Salve
calcolo la media su dei campi numerici. Il problema è che i valori di
ritorno presentano diverse cifre decimali.
Non vorrei manipolare il dato successivamente perché la query è collegata a
un dbgrid
C'è modo per formattare il campo media a soli 3 decimali direttamente nella
query?
Questa è la query, il db è Access
'SELECT TEST.DATATEST AS TEST, AVG(TEST.TEMPO) AS [T MEDIO], UTENTI.COGNOME,
UTENTI.NOME ' +
                                      'FROM TEST LEFT JOIN UTENTI ON
UTENTI.ID
 = 
TEST.ID
 GROUP BY TEST.DATATEST, ' +
                                      'UTENTI.COGNOME, UTENTI.NOME ORDER BY
2, UTENTI.COGNOME';

"Blowin' free ha scritto:

'SELECT TEST.DATATEST AS TEST, Round(AVG(TEST.TEMPO), NumeroDecimali) AS [T
MEDIO], UTENTI.COGNOME,
 UTENTI.NOME ' +
'FROM TEST LEFT JOIN UTENTI ON
UTENTI.ID
 = 
TEST.ID
 GROUP BY TEST.DATATEST, ' +
'UTENTI.COGNOME, UTENTI.NOME ORDER BY
2, UTENTI.COGNOME';
Questa dovrebbe funzionare, ovviamente al posto di NumeroDecimali ci devi
mettere il numero dei decimali che ti servono.
Però una soluzione formalmente migliore visto che usi le dbgrid è quella di
di impostare la proprietà DisplayFormat del TField associato al campo ad un
valore tipo '#,##0.00'. Per capire questa sintassi guardati i riferimenti
dell'help sulla proprietà DisplayFormat.

 dell'help sulla proprietà DisplayFormat.
Il fatto però è che i TField associati alle colonne del dbgrid non hanno la
proprietà DisplayFormat!
DisplayFormat è una proprietà dei dbtext e dei TFloatField e non riesco ad
aggiungere a runtime un TFloatField associato a una colonna del dbgrid.
Credo che userò la query che hai postato
Grazie mille
Andrea

Newsgroup: it.comp.lang.delphi
Titolo: Ultra Vnc e Delphi

Mi sta' succedendo una cosa incredibile.
Installata la versione 102 di UltraVNC da questo momento in poi le
applicazioni fatte con delphi mi vanno in crash.
Qualcuno ha gia' a vurto questo problema e sa indicami una soluzione.
Grazie.

 ha scritto nel messaggio 
news:6c4fq2hahdrvqs1ef...@4ax.com...

Scusa la banalita' ... ma hai provato a disinstallarlo?
Giorgio 

 wrote:

Se lo disinstallo naturalmente tutto funziona, il mio problema e'
capire il perche'.

>Giorgio
La butto li', alcuni VNC usano un drive di mirror video per ottenere in modo 
rapido la "schermata"  da inviare. Non escluderei un caso di antipatia tra 
il driver e la tua scheda video.
Ti dico cio' perche' ho l'esperienza del "mirror" fornito da Microsoft nel 
pacchetto di sviluppo dei drive che, almeno con la mia scheda video, cambia 
il comportamento dei combobox dai quali non si ottiene piu' il menu' degli 
items.
Ciao Giorgio 

 il driver e la tua scheda video.
Sono d'accordo: probabilmente durante l'installazione è stato scelto di
installare anche i driver video. Almeno, io parlo di Ultr@VNC, che ne
faccio uso abbastanza consistente.
-- 
Morde.
Newsgroup: it.comp.lang.delphi
Titolo: Due problemi facili facili

Salve a tutti,
ho due quesiti da proporre a questa bellissima comunità:
1 - come faccio a chiudere la finestra di una applicazione dos quando
l'applicazione è terminata?
2 - come faccio ad avere il controllo assoluto di un evento non sapendo chi
interessandomi circa chi possiede il focus (per esempio: voglio controllare
che venga premuto il tasto esc, senza sapere chi ha il focus, ovvero la
pressione del tasto risale tutte la gerarchia e finisce ad un controllo
generale) ?
Ringrazio anticipatamente chiunque sarà così gentile da rispondermi
Mkè

 wrote in message
FYXq5.9524$Wi7....@news.infostrada.it...


Newsgroup: it.comp.lang.delphi
Titolo: [OT] software OCR

Salve a tutti.
Mi rendo conto di fare una domanda che nulla ha a che vedere col NG, ma sto 
cercando con una certa urgenza delle informazioni e magari c'è qui in giro 
qualcuno che sa darmi una dritta...
qual'è il migliore (il più affidabile) tra i software di riconoscimento di 
testo attualmente in commercio?
Grazie.
Mario 

 ha scritto nel messaggio
news:cu03me$i2l$1...@news.ngi.it...


 riconoscimento di testo attualmente in commercio?
Secondo me Omnipage.
-- 
Jax
====
Quando si tratta di pronosticare una sventura, nessun nemico è mai
all'altezza di un amico. (Swift)

Newsgroup: it.comp.lang.delphi
Titolo: Manda dati ad excell!!

Salve a tutti, devo risolvere un piccolo problemino.
Devo mandare dei dati da una form ad un foglio excell e siccome sono 
sprovvisto del mio caro libro, sareste cosi gentili da mandardmi il codice
che mi permette di fare ciň!!!!
Grazie ciao
-- 
Posted from 
srveng.idn.it
 [194.243.38.99] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Salve a tutti, devo risolvere un piccolo problemino.
Devo mandare dei dati da una form ad un foglio excell e siccome sono 
sprovvisto del mio caro libro, sareste cosi gentili da mandardmi il codice
che mi permette di fare ciň!!!!
Grazie ciao
             Enzo '81


 Grazie ciao
Trovi un esempio nel codice del libro di Cantů "programmare con delphi 5"
che dovresti trovare pure on line sul suo sito (c'č un file zip con tutti
gli esempi del libro)
Ciao
Gianni Giusti
Newsgroup: it.comp.lang.delphi
Titolo: Gestione errori

Come posso gestire all'uscita da un campo dbedit l'inserimento errato della
data.
Vorrei intercettare il messaggio invalid date con un mio messaggio
personale.
Vorrei sapere inoltre come stampare un elenco di tutti i codici di errore
del database con il relativo messaggio di testo
Tipo.... 9729.... key violation
grazie in anticipo!

Con una gestione "generale" degli errori potresti fare con il blocco:
TRY EXCEPT
Newsgroup: it.comp.lang.delphi
Titolo: [ehm] Autorun o Servizio

Scusa Carlo, non č che potresti ripostarmi quel pezzo di codice per
modificare il registry, prechč per una distrazione l'ho cancellato.
Scusa tanto e grazie.
rhymes
rhy...@tiscalinet.it

 modificare il registry, prechč per una distrazione l'ho cancellato.
Eccolo:
var Registro : TRegistry;
begin
Registro:=TRegistry.Create;
   try
     Registro.RootKey:=HKEY_LOCAL_MACHINE;
Registro.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion\Run',False);
     if not Registro.ValueExists('NomeMiaApplicazione') then
        Registro.WriteString('NomeMiaApplicazione',(Application.ExeName));
   finally
    Registro.Free;
   end;
end;
Ciao!
--
- Carlo -
c.b...@libero.it

Grazie mille!!
rhymes
rhy...@tiscalinet.it

Newsgroup: it.comp.lang.delphi
Titolo: Licenza Educational : dove si trova?

Ciao,
non riesco a trovare informazioni sulla licenza Educational (in particolare
quella di Delphi 2005 Professional).
Qualcuno di voi sa dove posso trovarla in rete, o se ce l'ha potrebbe
farmela leggere?
Grazie, ciao.

 ha scritto nel messaggio 
news:435911a5$0$24644$4faf...@reader3.news.tin.it...


Newsgroup: it.comp.lang.delphi
Titolo: Chi sa tradurre da c#

Chi è in grado di tradurre questo codice da c# in delphi
 
private short CTS(ref byte[] bytArr, int intPos)
           {
               short c = BitConverter.ToInt16(bytArr, intPos);
               if (c != 0)
                   c = Convert.ToInt16((~c | 1));
               return c;
           }
 
 
e poi
 
 
private byte[] STC(short shtVal)
           {
               byte[] bt = new byte[2];
               shtVal = Convert.ToInt16((~shtVal | 1));
               bt = BitConverter.GetBytes(shtVal);
               return bt;
           }
 
Grazie


 
Ora che sai cosa fanno le due funzioni, scriverne il codice 
corrispondente in delphi è del tutto triviale.
 
-- 
morde
Android
QT 4.7
Delphi (5,6,7.. expired)
Firebird Database
 

 corrispondente in delphi è del tutto triviale.
 
Scusa rileggendo il mio post mi sono accorto di aver fatto un errore: 
non c'è nessuno shift a sinistra. il resto è corretto.
quindi, per riassumere.
 
prendo un indirizzo di memoria e un indicatore di posizione
leggo in memoria, a quella data posizione, un intero a 16 bit con segno
lo inverto
accendo il LSB
e ritorno una copia di quel valore.
 
la seconda funzione fa la stessa cosa, all'inverso:
prende un intero di 16 bit con segno
lo inverte e gli accende il LSB
ritorna il suo indirizzo in memoria.



Fatto, se le volete Ve le posto.

 Fatto, se le volete Ve le posto.
posta pure che controllo
ciao



rimane un dubbio : a cosa serve? e perche' fare sta cosa?

 rimane un dubbio : a cosa serve? e perche' fare sta cosa?
 
Interfacce hardware tipicamente.



function CTS(const Bytes: TBytes; Index: Integer): Int16;
var
    Value: Int16;
begin
    Assert(Length(Bytes)>= Succ(Index));
    Move(Bytes[Index], Value, 2);
    Result := not Value or 1;
end;
 
function STC(Value: Int16): TBytes;
begin
    Value := not Value or 1;
    SetLength(Result, 2);
    Move(Value, Result[0], 2);
end;
 
Premesso fatta con un aiutino.
Newsgroup: it.comp.lang.delphi
Titolo: Componente Porta-file

Esiste un componente standard del Delphi che puo' conservare un file
all'interno di un eseguibile? (un po' come funziona un TImage)
Ciao
~Guybrush~


Su Torry (
www.torry.net
) mi ricordo di averne trovato un buon numero
(componenti che salvano stringhe, immagini, suoni, cursori, ecc.
incorporandoli nell'eseguibile.
===============================
Marco Breveglieri (
br...@sintesi.com
)
SINTESI S.r.l. (
www.sintesi.com
)

Basta usare i file delle risorse (.RC) estraendo con una procedurina gli
stream dalle risorse ed esportandoli ad es. in file binari (o di qualunque
altro tipo), senza chiedere aiuto a componenti esterni, a meno che questi
componenti non garantiscano la compressione dei file embedded, solo in
questo caso magari ne varrebbe la pena.
Ciao, Sandro