mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.delphi
Titolo: Che libro mi consigliereste di comprare?

Ho capito che, per imparare bene il Delphi, probabilmente devo comprare un
libro, con cui potrei imparare con continuitą, e non come faccio ora che una
cosa la so bene e un' altra la ignoro completamente xchč mai usata...:)
chiaramente cerco un libro in italiano,e che sia il + facile da
leggere...sono reduce di una brutta esperienza con un libro per imparare il
Visual C++ 1.0, dove non si capiva nulla...:)

 cosa la so bene e un' altra la ignoro completamente xchè mai usata...:)


 88.000 Lire.
Delphi 4?mm se ne trovo uno ancora + aggiornato magari è meglio...


L'unica alternativa in italiano per il delphi 5 temo sia programmare con
delphi 5 di marco cantu' ma rispetto alle versione inglese ha addirittura un
capitolo in meno. Ti consiglio quindi Delphi4 developer's guide (in italiano
c'e' ma non so il titolo) di Texeira & Pacheco forse e' uscita anche la
versione per il 5 ma non ne sono sicuro.

 Delphi 4?mm se ne trovo uno ancora + aggiornato magari č meglio...
Che ne dici di Programmare con Delphi 5 di Cantů?
Andrea

 ha scritto nel messaggio
news:qCqS6.17935$ZZ.7...@news.infostrada.it...


 ha scritto nel messaggio
news:XOrS6.18594$ZZ.7...@news.infostrada.it...


Visto che ci sono...rispondo anch'io.
Anch'io da un pochino di tempo mi sono avvicinato
alla programmazione delphi ed ho fatto il grosso
errore di acquistare delphi5 di Marco cantů.
Ne ho visti diversi di manuali, ma penso che per
un principiante (come me) La guida completa di
delphi4 di Kent Reisdorph č quella piů indicata...

restituisce il tempo in millisecondi passato dall' avvio di windows?
GetTickCount
Ciao,
Alan Solo

 ha scritto nel messaggio
news:TNsS6.27085$vt.2...@news1.tin.it...


 ha scritto nel messaggio
news:eqwS6.20726$ZZ.8...@news.infostrada.it...


Pentola Nera wrote:

Hai ragione, io ho fatto lo stesso errore con Delhpi 4 di Cantů. Meglio
Kent.


Marco Cantů ha scritto
Delphi2 e Delphi 3 per i principianti...............
infatti in Programmare in Delphi 5 e Delphi 4 si rimanda alle precedenti
edizioni per maggiori informazioni
in pratica mostra solo le novitŕ della verione utile per un programmatore
con livelli di conoscenza media
ciao ciao maury
Kent č un pň confusionario, ma abbastanza semplice

Newsgroup: it.comp.lang.delphi
Titolo: Testo giustificato

Salve a tutti.
E' mai possibile che il in testo in una Memo ed in una QRExpr non si possa
giustificare?
Se qualcuno lo sa gentimente me lo puo dire come fare oppure postare il
codice?
Grazie
--------------------------------
Inviato via 
http://usenet.libero.it

 giustificare?
Dato che il TMemo e' sostanzialmente un wrapper per una window di tipo
edit direi di no (almeno stando all'help del Win32 che ho): gli stili di
allineamento infatti sono solo ES_CENTER, ES_LEFT, ES_RIGHT.
Saluti
Paolo Arosio
Newsgroup: it.comp.lang.delphi
Titolo: sizeof

sono incappato in un problemino....
avete mai provato...
var
a:array of string; (o integer, eccc.)
setlength(a,1000);  esagero
b:=sizeof(a); č uguale a 4 byte !! (immmmmmmpossibile)
ok e se voglio sapere la dimensione totale ? devo chiederlo a billi ?
--
Callegaro Luca
EMail        : Luca_D...@Libero.It
ICQ          : 15825215
Active List : 72728232   UT ITALY

 ok e se voglio sapere la dimensione totale ? devo chiederlo a billi ?
Dai... il vecchio billi *stavolta* non c'entra nulla!!
Un array dinamico altro non è che un puntatore gestito da delphi in maniera
tale da sembrare un array.
La funzione che stai cercando è la "Length"
Ciao!! Davide DG

ok e se voglio sapere la dimensione totale ? devo chiederlo a billi ?
E' normale che sizeof restituisca 4, perche' 4 byte corrisponde a 32
bit, l'esatta dimensione di un puntatore sotto Windows.
La dimensione totale la ottieni sommando le length di ogni stringa.
--
Andrea Laforgia (
andrea_...@bigfoot.com
)
---------------------------------------------
#exclude <windows.h>

ok raga, ma se voglio salvare una record contenente array di vario genere +
variabili
mi salva tutto escluso gli array dinamici :-)


 mi salva tutto escluso gli array dinamici :-)
Emm.... e dov'e' la domanda??? :)
Non capisco ... "salvare" in che senso ? su file ? e che file? di testo? o
un/typed ?
ciao!! Davide DG

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

Hello,
Does anyone have mp3 components for Delphi????

try  
http://www.torry.ru/
see you
--
Davide - 
Gna...@wappi.com
Newsgroup: it.comp.lang.delphi
Titolo: TMemo

Salve a tutti
sto lavorando a un software per computi metrici abbastanza complesso che non
mi ha dato tanti problemi quanti me ne sta dando un componente TMemo
birichino :-)
Ho un TMemo dimensionato per poter visualizzare tre righe di testo.
Ho questa struttura:
type TDescriz = array[0..2] of string[40];
var descriz : TDescriz;
descriz[0] := 'abcd';
descriz[1] := 'efghi';
descriz[2] := 'lmnop';
caso 1)
for i := 0 to 2 do memo.lines[i] := descriz[i];
mi mostra solo la prima riga :-(
Perché?
caso 2)
memo.Clear;
for i := 0 to 2 do memo.lines.append { oppure add } ( descriz[i] );
mi mostra le tre righe, ma il cursore si posiziona alla quarta riga, e devo
ogni volta premere un paio di volte il tasto freccia-su per visualizzare
tutte le righe.
Come faccio a vedere subito tutte e tre le righe? Non vorrei usare ScrollBy
(odio calcolare pixel).
Perché il caso 1) non funziona?
Grazie per eventuali consigli.
--
MBSoftware - Tertenia
http://web.tiscalinet.it/mbsoftware
"Windows is loading... pay attention, please"



1) Perche' le linee non esistono.
TMemo è una collezione di TStrings che vanno create.
for I := 0 to 2 do 
  Memo.lines.add(descrix[i]);
2) potresti usare la proprieta' selstart
Ciao,
Massimo.
-- 
"Ciao Rex, che cavolo di situazione eh? Due dentro, due fuori, puo' succedere di tutto!"

Ho un TMemo dimensionato per poter visualizzare tre righe di testo.
Posso farti una domanda ? 
Perche' un TMemo e non tre controlli statici ?

> 2) potresti usare la proprieta' selstart
Già provato: il cursore và in alto, ma le righe non si spostano di un
millimetro :-(
Mi inventerò un'altra soluzione, grazie lo stesso. :-)
Ciao
--
MBSoftware - Tertenia
"Windows is loading... now comes the doom"

 Perche' un TMemo e non tre controlli statici ?
Intendi dire tre TEdit affiancati?
Non mi sembra una soluzione elegante :-)
Le tre righe fanno parte di un unico "oggetto" informativo, anche editabile
dall'utente.
Nello stesso e in altri forms ho altri TMemo che non mi danno di questi
problemi.
Il lavoro è concluso, e domani inizia il beta-testing :-(((
e questa è l'ultima cosa che mi resta da risolvere, mannaggia....
Penso che anche questa sarà una lunga notte ....
--
MBSoftware - Tertenia
"Windows is loading... Come back tomorrow"

 millimetro :-(
Puoi provare a mandare qualche messaggio al TMemo; tipo EM_LINESCROLL,
oppure EM_SCROLL:
aMemo.Perform(EM_LINESCROLL, 0, -aMemo.Lines.Count);
o, semplicemente, EM_SCROLLCARET.
Saluti
Paolo Arosio

 aMemo.Perform(EM_LINESCROLL, 0, -aMemo.Lines.Count);
Grazie :-)))) mi hai risolto il problema... stavo ancora cercando il
messaggio giusto...
Mi stavo incasinando con SelStart e EM_SCROLLCARET, ma quella riga fa tutto
da sola :-))))
Ciao.
--
MBSoftware - Tertenia
"Windows is loading... Come back tomorrow"
Newsgroup: it.comp.lang.delphi
Titolo: ftp Indy

Aiuto, sto utilizzando la funzione ftp di indy. Ho assegnato la 
seguente sintassi ad un bottone ma mi da errore ! Aiutatemi, grazie
procedure TForm1.Button1Click(Sender: TObject);
begin
ftp.Username:='user';
ftp.Password:='pass';
ftp.Host:='
ftp://indirizzo
';
ftp.Connect();
ftp.Put('c:aaa.bat','aaa.txt'); //qui ok
ftp.Disconnect
end;

 seguente sintassi ad un bottone ma mi da errore ! Aiutatemi, grazie
Questo non è un post da sviluppatore ma da utente finale.
Uno sviluppatore non invia su un ng di sviluppatori un post del genere 
senza indicare:
codici e messaggi di errore restituiti dalla applicazione,
versione di delphi
versione di indy
se la stessa operazione fatta da un client ftp che non sia la tua app ha 
successo...
-- 
Alberto Salvati
A NEAPOLITAN Delphi Developer who is studying c# and .net
"Dicette 'o pappece 'nfaccia 'a noce dammi 'o tiempo che pure te spertoso"

 ha scritto:

Risolto era il Connect che va senza parentesi

 Risolto era il Connect che va senza parentesi
Siamo sicuro che l'indirizzo del server FTP vada specificato con il 
prefisso "ftp://"? Normalmente, si utilizza nei browser.
Ciao! :-)
-- 
Marco «Alka» Breveglieri
(marco [@] abls [.] it)
  ABLS Team S.n.c. - Software & Web
  42019 Scandiano (Reggio Emilia)
 
http://www.abls.it
Newsgroup: it.comp.lang.delphi
Titolo: Firebird e login non PIU accettato

Buon giorno a tutti.
Mi è capitata una cosa strana: lavoro con due pc (uno in ufficio 'PC UFFICIO
' e uno a casa 'PC CASA').
Sto eseguendo un lavoro per un cliente e trasferisco i dati da un pc
all'altro(programmi in fase di sviluppo e database FB) tramite CD.
Sul 'PC UFFICIO' tutto bene su  'PC CASA' tutto bene fino a ieri sera poi ho
copiato da CD proveniente da 'PC UFFICIO' gli ultimi aggiornamenti da allora
ogni tentativo di login (anche su DB copie precedenti gia esistenti su 'PC
CASA') dice che il login è errato e di rivolgermi all'amministratore del DB.
Ho disinstallato FB e reinstallato ma non cambia niente (non mi permette di
accedere neanche al suo DB demo employee)
Il login che ho sempre usato è SYSDBA e masterkey ovvero quello di default.
Questo mi capita sia da procedure in delphi 6 che con IB Express, IBEasy
plus ecc.
Ho pensato ad un Virus (anche  se 'PC CASA' non è collegato ad internet e
quindi eventuali virus arriverebbero da 'PC UFFICIO' che è controllato).
Comunque ho installato l'hard disk di 'PC CASA' (con win 2000) come hd
secondario su un PC di un amico è ho fatto girare l'antivirus aggiornato non
trova virus quindi il problema non dovrebbe essere questo.
Torno in ufficio e su 'PC UFFICIO' tutto ok, ma su 'PC CASA' non funziona
più.
Cosa può essere successo su 'PC CASA'  che non  mi si collega più a nessun
DB ? (vecchio, nuovo , e demo)
Uso Interbase 1.5, win 2000
P.S.
Alcuni giorni fa avevo fatto delle prove con GRANT ma questo solo su una
copia vecchia del DB e comunque per alcuni giorni successivi ho lavorato
tranquillamente,
Grazie a tutti.
Guido

 copiato da CD proveniente da 'PC UFFICIO' gli ultimi aggiornamenti da
allora
Scusa l'osservazione banale...ma copiandolo da cd non è che per caso hai
l'attributo di sola lettura impostato sul db  ?


Ti rigrazio per l'osservazione ma questa č forse l'unica cosa di cui sono
certo e poi c'č il fatto che non funziona neanche piů con le copie
precedenti dello stesso DB che fino a 2 giorni fa funzionavano
perfettamente.
ciao Guido


Ciao
P.
Newsgroup: it.comp.lang.delphi
Titolo: UUN CONSIGLIO......





Ciao a tutti, sto per intraprendere 
lo studio di un linguaggio di programmazione per alcuni dati statistici che 
dovrò eseguire al computer ed  in gran parte basati su  numeri ( 
tipo il gioco del lotto)...Non riesco a capire se  studiare Pascal  e 
poi il Delphi, o posso direttamente iniziare dal Delphi? Faccio presente che non 
conosco nessuno dei due...Qualcuno con un po' di buona volontà potrebbe 
consigliarmi?


Grazie mille.


walter



puoi studiare il pascal su delphi
--
Consonni Davide
DavideC...@Virgilio.it
webmaster of
http://www.traduzioniellepi.com

Delphi e', a tutti gli effetti, un'estensione del Pascal (e in particolare
del Borland Pascal), pertanto se i tuoi software sono di elaborazione
puramente numerica o quasi userai del Delphi il Pascal quasi "standard",
senza, per intenderci, le estensioni per la gestione degli oggetti, classi e
quant'altro. Il Pascal, che tu decida di usare Delphi o il buon vecchio
Borland Pascal per dos, comunque dovrai studiarlo :)
Ciao, Sandro

Newsgroup: it.comp.lang.delphi
Titolo: Memo senza cursore

Vorrei sapere se è possibile (e come) avere in un Form un oggetto Memo
attivo senza vedere il cursore.
Grazie & Ciao

Jack Spoon wrote:

hai provato con
memo . enable:=false;
Cosi dovrebbe impedirti di vedere il cursore forse
Ciao
Criss

 attivo senza vedere il cursore.
puo' non essere applicabile, ma potresti considerare di usare un TListBox.
(altrimenti, dovresti vedere la documentazione delle Edit di Win32 e
CreateParams di Delphi)
Saluti
Paolo Arosio

 Jack Spoon


E' sufficiente una chiamata all'API di Windows HideCaret().
I Caret dei controlli Windows (che sono comunemente e non del tutto
esattamente chiamati cursori) dispongono di una serie di chiamate per la
loro gestione.
Memo1.SetFocus;
if HideCaret(Memo1.handle) then Memo1.Text := 'Memo senza cursore';
L'API per rivisualizzare il Caret č ShowCaret(). Fate attenzione che le
chiamate HideCaret() e ShowCaret() sono cumulabili, ovvero se (ad esempio)
chiamo due volte sullo stesso controllo HideCaret() e una ShowCaret() il
caret del controllo non sarą visibile ...
Memo1.SetFocus;
if (HideCaret(Memo1.handle)) and (HideCaret(Memo1.handle)) then
    memo1.Text := 'Memo senza cursore';
ShowCaret(Memo1.handle);
Questo codice tiene il cursore del controllo nascosto.
Saluti!
--
- Carlo -
c.b...@libero.it

Newsgroup: it.comp.lang.delphi
Titolo: Disabilitare Ctrl - Alt - Canc su Win 2000

Ho trovato questo codice nel ng ma funziona solo con win 98.
Qualche anima pia puň dirmi come disabilitare la conbinazione ctrl-alt-canc
anche su win 2000.
Grazie e ciao
var
   OldValue:Longbool;
begin
{on}
// DISABILITO LA COMBINAZIONE DEI TASTI CTRL-ALT-CANC
SystemParametersInfo(97,Word(True),@OldValue,0);

 anche su win 2000.
Non esiste una soluzione semplice per realizzare quanto chiedi.
leggi quanto segue:
http://online.infomedia.it/riviste/cp/87/articolo21/articolo.htm
Ciao
--
- Carlo -
c.b...@libero.it
Newsgroup: it.comp.lang.delphi
Titolo: Info su API / Riquadro

Salve,
 Quando si usa Delphi, sicuramente avrete notato tutti che tenendo fermo il
mouse su un oggetto si apre un riquadro Giallo che da una descrizione di
tale oggetto, e non solo in Delphi ma anche in numerose applicazioni per
Windows, come pure Outlook o Internet Explorer e molte altre.
Vorrei sapere come si chiama tecnicamente questo riquadro, e se qualcuno
conosce le API di Windows da richiamare per ottenerlo nelle proprio
applicazioni.
Anche sapere come si chiama quella finestra/riquadro giallo che solitamente
si apre, per me sarebbe un grosso aiuto.

Nell'objet inspector scrivi qualcosa nelle proprietà dell'oggetto nel campo
HINT e poi metti a true Showhint
Ciao
Marco

proprietą hint
Bye
A.

 HINT e poi metti a true Showhint
grazie, adesso provo.

> proprietą hint
grazie, adesso provo.

"Giovanni Ceglia" ha scritto
Guardati anche un pò di documentazione dell'oggetto TApplication ci sono
alcuni parametri che puoi settare per customizzare il comportamento
dell'Hint, intercettarne la visualizzazione, ecc.
Ciao.
Gianluca.

 ha scritto nel messaggio
news:GLzia.61168$i26.1...@news2.tin.it...


Newsgroup: it.comp.lang.delphi
Titolo: FreeCLX e Delphi6 Personal...

...si può?
Sono un principiante e perciò chiedo scusa in anticipo per le probabili
ingenuità.
Avendo scaricato le FreeCLX per Kylix, leggendo le istruzioni del
README.windows ho provato a compilare il file SETUP.dpr e a lanciarlo, ma si
blocca con un messaggio in cui afferma che non risulta installata la
versione 6.0 di Delphi.
In realtà io ce l'ho installata e regolarmente registrata... solo che è
nella versione Personal...
E' sorto allora il dubbio che le Freeclx NON fossero destinate alla
Personal: è così?
Oppure ho saltato qualche procedura?
Saluti
Quinto

Simile ha scritto:

Per quel che ne so CLX non funziona con Delphi Personal.
-- 
Sip

 Per quel che ne so CLX non funziona con Delphi Personal.
Sarebbe/č  un peccato.
Grazie
Q

On Stardate Sun, 25 Aug 2002 06:34:55 GMT, "Simile"
<unmomen...@NOSPgenie.it> wrote:

e' una scemenza ma e' cosi :((((
-- 
.     _  _______  ļ,ø*°`°*ø,ļ_ļ,ø*°`°*ø,ļ_ļ,ø*°`°*ø,ļ_ļ,ø*°`°*ø,ļ_
  /| // /__  __/  Kirys <Remove DELTHIS from the address to reply>
 / |/ \   / /     Kirys Tech 2000: 
http://www.kt2k.com
/__|\__\ /_/ 2000 ļ,ø*°`°*ø,ļ_ļ,ø*°`°*ø,ļ_ļ,ø*°`°*ø,ļ_ļ,ø*°`°*ø,ļ_
Newsgroup: it.comp.lang.delphi
Titolo: Editing cella StringGrid

Ciao a tutti,
ho una StringGrid con attiva l'opzione di selezione riga (goRowSelect
= true) ma avrei inoltre la necessità di poter fare anche l'edit del
testo di una cella, ma esclusivamente per la seconda colonna per cui
tutte le altre devono essere bloccate da ogni tipo di modifica.
Qualche suggerimento su come devo procedere? Se non erro con
goRowSelect impostata a true, non è permesso modificare il testo e non
saprei come gestire la cosa. Accetto consigli e suggerimenti.
Grazie mille a tutti

Metti tutta la grid a read only fuori una edit box o labelled edit.
Nell'edit metti la cella selezionata e nell'evento on exit modifichi il
campo della table query ecc con il post.
CIao
Mario

--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

colde ha scritto:

Seguendo il suggerimento di Mario, c'è un articolo su "About Delphi 
Programming" che illustra come aggiungere controlli ad una *TDBGrid* 
(anche se suppongo sia in fondo applicabile anche ad una *TStringGrid*, 
se serve):
http://delphi.about.com/od/usedbvcl/l/aa081903a.htm
Ciao,
   Marco.
-- 
MARCO BREVEGLIERI
  (
http://www.marco.breveglieri.name
)

> testo di una cella, ma esclusivamente per la seconda colonna per cui
hai inserito un parametro che impedisce di fatto l'editing della cella; 
non puoi giocare con due mazzi di carte: o evidenzi tutta la riga 
(visualizzazione) oppure la singola cella (ricerca ed editing); detto 
questo, devi porre a False la proprietà goRowSelect; poi devi creare un 
evento OnSelectCell, nel quel inserirai:
 
  procedure TfElenF24.SgListaSelectCell(Sender: TObject; ACol, ARow:
    Integer; var CanSelect: Boolean);
  begin
    with SgLista do
    if aCol = 7 then Options := Options + [goEditing]
    else Options := Options - [goEditing];
  end;
nel mio esempio SOLO la colonna 7 potrà essere editata, le altre no.
NioBi
--- posted by geoForum on 
http://www.delphiedintorni.it

Newsgroup: it.comp.lang.delphi
Titolo: Programma su SysTRay

Ciao a tutti...
sto iniziando con delphi ... e i problemi non mancano ma ....
Guardo esempio  e imparo...
Ma un programma che mi mette quello che stro eseguendo sulla systray e/o che
mi controlla se sono già in escuzione esiste ?
Ho cercato tra link vari ma ....
Grazie per lo spunto
ciao
Paolo

 ha scritto nel messaggio
news:bdm0n9$eds$1...@lacerta.tiscalinet.it...

Vai su 
www.torry.net
, c'è un componente (cooltrayicon mi pare che si chiami)
è fantastico!
Newsgroup: it.comp.lang.delphi
Titolo: Notifica

procedure TForm1.SpedisciClick(Sender: TObject);
begin
//setup SMTP
SMTP.Host := Server.Text;
SMTP.Port := 25;
SMTP.MailAgent := Agent.Text;
//setup mail message
  MailMessage.From.Address := Da.Text;
 
MailMessage.From.Name
 := Nome.Text;
  if Lista.ItemIndex>-1 then
  MailMessage.Recipients.EMailAddresses :=
  A.Text + ' ' + Lista.Items[Lista.ItemIndex] else;
  MailMessage.CCList.EMailAddresses := CC.Text;
  MailMessage.BccList.EMailAddresses := Ccn.Text;
  MailMessage.Subject := Oggetto.Text;
  MailMessage.Body.Text := Messaggio.Text;
  if FileExists(Allegato.Text) then
  TIdAttachment.Create(MailMessage.MessageParts,
                         Allegato.Text);
//send mail
  try
  try
  SMTP.Connect(10000);
  SMTP.Send(MailMessage);
  except on E:Exception do
  Messaggio.Lines.Insert(0, 'ERROR: ' + E.Message);
  end;
  finally
  if SMTP.Connected then
     SMTP.Disconnect;
Status.Caption := ('Email Inviata');
end;
end;
per ogni volta che mando una email volevo un avviso di invio ci sono 
riuscito ma non mi ritorna allo stato iniziale mi rimane la voce 'Email 
Inviata' ho provato a usare lo sleep e anche il time ma l'unico 
risultato che ricevo è un rellettamento. mi dici cosa posso fare?

Non sarebbe giusto insultare la tua notevole intelligenza ed
esperienza rispondendo ad un quesito semplice come questo.
A.

   
Ho fatto cosi:
procedure TForm1.SpedisciClick(Sender: TObject);
var stinga:string;
begin
stringa:=Status.caption;
Status.caption:='Invio in corso...';

Status.Caption := 'Email Inviata';
end;
Sleep(2000);
Status.Caption :=stringa;
end;
end;
mi da un errore con la stringa, mi dice:
[Error] Email.pas(109): Undeclared identifier: 'stringa'
[Error] Email.pas(145): '.' expected but ';' found
[Warning] Email.pas(229): Unsafe type 'PChar'
dove l'errore?

> dove l'errore?
uhm...forse avevi il forno a microonde acceso?
Oppure il vicino ha un impianto CB....?

   
vedo che non leggi bene a fine riga non avevo messo *';'*



Alberto, che fine hai fatto ?
Scrivimi in privato.
Ciao.

 Scrivimi in privato.
ehmm..scusa la domanda ma.. ki kazzo sei??
Cia'
A.

> vedo che non leggi bene a fine riga non avevo messo *';'*
ma la riga era di mezzo metro?
Newsgroup: it.comp.lang.delphi
Titolo: Estrarre dati da DB COBOL e usarli in Delphi

Salve a tutti ..
Non vi č mai capitato questo problema ??
Ho un vecchio programma gestionale e mi occorrono i dati lě
memorizzati magari importandoli poi in un DBF con BDE oppure con IBX..
insomma.. devo fare uscire dei dati! 
Qualcuno ha qualche indizio da darmi...
Grazie
Jx
PS. Ho cercato su web ma ho trovato cose caotiche e discordanti

Dovrebbero essere file di testo a lunghezza fissa.
In alcuni casi vi è una testata che puoi scavalcare, comunque..
Quindi ti dichiari un file of trecord(che ti definisci prima) e il gioco è
fatto.
Se è MicroFocus.
Se è Acu Cobol non so.
Comunque, esiste una ditta di Rimini che fa driver ODBC sia per MicroFocus
che per AcuCobol.
Altrimenti, visto che è uscito, ti compri il Visual Cobol .NET
:)))))))))))))))))))

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

>Non vi è mai capitato questo problema ??
piu' volte.
Ci sono 3 possibilita':
1. il vecchio programma e' un programma Dos. E' funzionante e stampa i
dati.
La soluzione e' piuttosto facile: 
a. fai credere al programma di stampare su una stampante seriale 
b. sulla porta seriale attacchi un secondo PC su cui gira un emulatore
di terminale
c. catturi tutti i dati in formato ascii (che puoi dopo manipolare
come vuoi)
2. hai solo gli archivi Cobol, con tanto di tracciato record.
Puoi scrivere un programma di conversione, bestemmiando un po' con i
packed
3. hai solo gli archivi Cobol SENZA tracciato record.
il programma di conversione diventa piuttosto difficile.
In un caso disperato (di programma Dos/Cobol che non stampava e di cui
non avevo i tracciati record),  ho utilizzato 3 PC.
a. sul primo PC girava il vecchio programma + un TSR che spiego piu'
avanti
b. il 2o PC simulava la tastiera del primo PC (esistono appositi
adattatori seriale/keyboard)
c. il 3o PC simulava una stampante seriale (come sopra)
Il PC/tastiera dava i comandi per fare apparire in sequenza le
schermate. 
Dopo aver fatto apparire la schermata giusta, il PC/tastiera dava una
certa sequenza di comandi che veniva intercettata dal TSR.
Il TSR catturava l'intera schermata come caratteri ascii e la spediva
su seriale, dove venivano catturati dal 3o PC.
Ovviamente sono stato ben pagato...
Auguri
Duilio
PS nel caso di un vecchio programma Cobol/Windows che non stampa e di
cui non hai il tracciato record,  puoi ricorrere allo screen-scraping.
Qui non ho nessuna esperienza personale, ma per caso mi sono imbattuto
(su Internet) in tool piuttosto interessanti.
Cerca con google.

 Ovviamente sono stato ben pagato...
Ammazza, ma io ti avrei fatto un monumento in sala mensa, oltre che pagato...
Complimenti!
--
Jax

>io ti avrei fatto un monumento in sala mensa, oltre che pagato...
Jax,
l'immagine del mio monumento in sala mensa mi ha gravemente
depresso...  :)
Ok: ho imparato la lezione e non mi vantero' piu'  :)
Ciao
Duilio

 Ok: ho imparato la lezione e non mi vantero' piu'  :)
Veramente i complimenti erano sinceri :)))
--
Jax
Newsgroup: it.comp.lang.delphi
Titolo: delphi 4 + access 97

vorrei creare una applicazione che utilizzi come database access97 ma non so
da che parte cominciare qualcuno sa dirmi da dove posso farlo?

 ha scritto nel messaggio
news:3aa76...@news.dada.it...


 problemi che si incontrano
Appoggio!
Inoltre con Kadao non devi portarti dietro la BDE.
ammat
m   w
m   a
a   i
twain

Newsgroup: it.comp.lang.delphi
Titolo: TTimer e Thread

Chiedevo gentilmente se qualcuno poteva spiegarmi in breve la differenza 
nell'utilizzo di una serie di istruzioni inserite nell'evento di un 
TTimer oppure in un Thread. O se un tTimer istanzia a sua volta un 
entità della classe Thread?
Grazie
--- posted by geoForum on 
http://www.delphiedintorni.it


Ciao, 
dunque, le istruzioni inserite nell'evento che segue l'OnTimer del
componente TTimer vengono eseguite in "serie" rispetto al ciclo principale
del programma, mentre le istruzione di un Thread vengono eseguite il
parallelo al ciclo del programma stesso.
Cerco di spiegarmi meglio perchè sono poco chiaro e me lo dico da solo...
Il codice scritto nell'evento OnTimer blocca l'esecuzione dell'altro
codice e degli altri eventi del programma fino a quando non è terminata la
sua esecuzione. Per cui il refresh dei componenti così come ogni altro
evento non avviene fino a quando l'evento OnTimer non ha esaurito il suo
codice.
Il thread, invece, è indipendente dal ciclo principale del programma, che
continua a ricevere tutti i suoi eventi e ad effettuare il refresh delle
finestre.
Sicuramente se ci sono eventi che richiedono pesanti elaborazioni è più
conveniente che vengano inseriti in un Thread piuttosto che in un evento
OnTimer.
Se vuoi fare una prova, metti un timer, ed un evento che effettua qualche
operazione lunga (es. un ciclo di 3-4 milioni di iterazioni) e vedrai che
la tua finestra, se la sposti o la ridimensioni diventerà bianca, come se
non rispondesse, fino a quando non terminerà le operazioni. Fallo con un
thread e vedrai che la tua finestra non si accorgerà nemmeno del ciclo.
Spero di essere stato chiaro.
Cristiano


 entità della classe Thread?
I timer sono una cosa; i thread sono un'altra cosa. L'oggetto TTimer
incapsula la gestione dei timer Windows che altro non sono che istruzioni
al sistema operativo di notificare, ogni tot millisecondi, un messaggio
WM_TIMER.
Nulla assicura, quindi, che il codice di un evento OnTimer venga eseguito
ad intervalli precisi, l'applicazione potrebbe essere bloccata in un ciclo
e non "fetchare" i messaggi. Un thread, invece, è un percorso generalmente
pseudo-parallelo ("pseudo" perché, di solito, c'è un solo processore e
quindi il parallelismo è solo simulato). 
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it


Grazie, siete stati chiarissimi. Alla prossima ;)

Newsgroup: it.comp.lang.delphi
Titolo: lock tabella firebird

salve a tutti, uso firebird via bde, ho il seguente problema con 
l'inserimento in una tabella in multiutenza,
ricevo l'errore lock conflict in no wait transaction deadlock...
praticamente lanciando due istanze del programma se faccio
nella 1° istanza:
    -begintrans
    -insert
    quindi inserisco un o + record
poi dalla seconda istranza
    begintrans
    insert
    nel post del primo record che provo a mettere
    ricevo l'errore.
Ho notato che disattivando un trigger nel afterinsert della tabella stessa 
che fa una select sum(campo) from [tabellainteressata] where 
[campochiave]=new.campochiave
e poi aggiorna un altra tabella non ho l'errore.
a questo punto l'unica cosa che mi viene in mente è che il trigger faccia un 
lock dell'intera tabella
vorrei chiedere se esiste un'istruzione che rilasci la tabella dopo aver 
effettuato l'aggiornamento o qualche altra soluzione.
Grazie.
-- 
 070097098114105122105111 

 lock dell'intera tabella
no. la sum è lenta xche deve smazzarsi uno alla volta i record che 
restituiscono true alla condizione where.
Probabilmente questo tempo risulta maggiore del timeout del db prima che 
dichiari che la seconda transazione messa i attesa venga dichiarata 
invalida. Magari indicare la transazione come WAIT invece di NOWAIT ti 
risolve il problema.
Mi chiedo, a che ti serve avere un trigger per questa operazione? non è 
molto normalizzata come cosa. Salvare sul db un dato calcolato non è in 
linea di massima una buona politica.
-- 
Alberto Salvati
A NEAPOLITAN Delphi Developer who is studying c# and .net
"Dicette 'o pappece 'nfaccia 'a noce dammi 'o tiempo che pure te spertoso"

 linea di massima una buona politica.
si hai ragione purtroppo debbo mettere le mani su un software ed un db fatti 
veramente male, si tratta di tablella che contengono degli articoli quindo 
nel trigger si fa la sum del campo quantità della tabella detail e poi 
aggiorna il campo quantitàtotale della tabella master.
Ciao e grazie. 

> potresti indicarmi dove e come si indica il WAIT per una transazione?
è spiegato nella guida.


Newsgroup: it.comp.lang.delphi
Titolo: Problema con un Player

Salve a tutti,
ho appena terminato di scrivere un piccolo player per file multimediali e mi
sono subito trovato faccia a faccia con un problema. Per non creare istanze
multiple del mio programma uso il solito codice Mutex, solo che associando
l'estensione .mp3 col mio programma, il primo file parte, ma se clicco su un
secondo file mp3, windows cerca di aprire un'altra istanza del mio programma
e, non riuscendoci, si arrende :D.
Ho pensato di usare FindWindow sulla seconda istanza per trovare l'handle
della prima istanza, spedirgli in qualche modo il nome del file e quindi
riprodurlo nella prima istanza, mentre la seconda si chiude. Come posso
fare?
Ciao,
RedXIII

 RedXIII
Ciao
Giorgio

Funziona perfettamente, grazie infinite, non avrei saputo come fare,
altrimenti ;)
Ciao,
RedXIII

Newsgroup: it.comp.lang.delphi
Titolo: delphi 7 messageDLg

Ciao a tutti!!!Volevo chiedervi se c'è una soluzione per impostare la
caption dei pulsanti del messagedlg in italiano ???
grazie a tutti!!!!!!!


Dai un occhiata alla funzione MessageBox. Dovrebbe utilizzare la
lingua di sistema.
Ciao
SM

 caption dei pulsanti del messagedlg in italiano ???
Io ho da tempo abbandonato la MessageDlg. Usa, invece,
Application.MessageBox().
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 
MessageMaster4Delphi
dade2000.altervista.org
(fa qualcosina di piů)
Ciao Daniele

 Ciao Daniele
Grazie a tutti!!!!!!!!

Newsgroup: it.comp.lang.delphi
Titolo: C++ Builder vs Delphi

Ciao a tutti !
Sono un programmatore Delphi di discreto livello.
Non conosco il c++ nei dettagli.
Mi spiegate, una volta per tutte,
cosa offre il c++ builder che il delphi non offra ?
Quali costrutti non sono disponibili nell' object pascal ?
Cosa altro cambia ?
Grazie
Paolo Zavarise
paoz...@tin.it

 cosa offre il c++ builder che il delphi non offra ?
Il C++ Builder è un'implementazione del linguaggio C++.
Con il C++ si fa tutto ( poi bisogna vedere se è consigliabile farlo), è
multiparadigma, ogni cosa realizzabile in C la si può fare in C++ senza
nessun overhead addizionale ed inoltre si può scrivere codice portabile come
in Java, ma con più fatica e con problemi di grafica.


 in Java, ma con più fatica e con problemi di grafica.
Hai detto bene: il C++ è portabile...
Ma non hai specificato che non tutto il C++ è portabile!
In questo caso tra l'altro si parla proprio di BCB che dubito proprio che
sia molto portabile(*) [soprattutto verso UNIX]...
(*)= ovvio che intendo "BCB usando la VCL"...
Cmq direi che ci sono pochissime cose che in Delphi non puoi fare mentre in
C++ sì... e tra l'altro si tratta di cose "non essenziali", nel senso che
esistono soluzioni alternative (non per questo meno "eleganti") che ti
permettono di implementare le stesse cose in Delphi e cmq in genere si
tratta di argomenti molto avanzati [che per il programmatore medio sono
decisamente inusuali...].
Ciao :-)
--
(¯`·.¸¸.·´¯`·.¸¸.-> Andrea <-.¸¸.·´¯`·.¸¸.·´¯)
AntiSpam: rimuovere il trattino basso dall'indirizzo per rispondere
AntiSpam: remove the underscore from the e-mail address to reply




cosa offre il c++ builder che il delphi non offra ?
Credo che gli unici vantaggi siano:
 1) Non costringe chi conosce i C++ a imparare quell'aborto
dell'Object Pascal
 2) Consente di usare in maniera + immediata l'enorme quantita' di
librerie C/C++ che si trovano nel mercato, tanto per dirne una la STL.
Ciao
--
Piero Bonanno
bop...@libero.it
pie...@tiscalinet.it
bop...@tin.it
bpie...@hotmail.com
______________________________________________
"Madame, lei ha tra le gambe uno strumento
che puo' offrire piacere a migliaia di persone,
e tutto quello che sa fare e' grattarlo"
- Sir Thomas Beechan a una violoncellista
Newsgroup: it.comp.lang.delphi
Titolo: Query ed indici

Mi è stato ripetuto parecchie volte che per velocizzare le query è
necessario utilizzare gli indici. Chi mi fa un esempio? Come si utilizzano
gli indici nelle query? C'entrano qualcosa gli indici secondari che si
creano con  database desktop? Grazie dell'aiuto. Marco.

Si.
Fai un semplice esperimento
Crea una tabella semplice
codice
cognome
nome
e mettici dentro 10.000 records.
Fai una query e misura il tempo:
select * from tabella order by cognome
Poi, modifica la tabella creauno un indice secondario sul campo Cognome.
Riprova adesso e vedi quanto ci mette.
Saluti
AS
"Se è Microsoft non funziona"

Newsgroup: it.comp.lang.delphi
Titolo: listview & colonne

Salve gente,
  come faccio a bloccare il resize (in larghezza) delle colonne di una
listview quando il suo viewstyle e' vsReport?
Grazie
~Guybrush~

 ha scritto nel messaggio
news:c2j8ct4hjfhocrtk5...@4ax.com...

Newsgroup: it.comp.lang.delphi
Titolo: Delphi e Microsoft Jet

Ciao ragazzi, ho un dubbio che non mi fa dormire: nell'ufficio dove
lavoro abbiamo scritto una piccola applicazione in Delphi che si
appoggia ad un database Access.
Dato che è la prima volta che usiamo Access come database, c'è venuto
il dubbio che forse non tutti gli utenti avranno le librerie necessarie
per permettere all'applicazione Delphi di accedere ad Access.
Ad esempio, nella ConnectionString del componente ADOConnection abbiamo
inserito tra le altre cose:
Provider=Microsoft.Jet.OLEDB.4.0;
Come facciamo ad essere ragionevolmente sicuri che il Microsoft Jet
Engine sia installato sui computer dei nostri clienti? Imporre come
requisito Windows XP è sufficiente?
Ciao e grazie,
Pad

se non erro, dovrebbe bastare avere mdac.
A.

Ma non si collegano già in ODBC ? E quindi basta che ci sia sul server ?
Ciao
--- posted by geoForum on 
http://www.delphiedintorni.it

 Ma non si collegano già in ODBC ? E quindi basta che ci sia sul server ?
Si parla di ADO, non di ODBC.  Gli MDAC sono già presenti sulle macchine
XP.
Al limite bisogna aggiornarli scaricando il pacchetto dal sito MS.
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

Se non hai un OLE DB specifico credo che per forza devi passare da ODBC
(come ponte) per collegarti ad Access.


Scusate da Access 2000 in su è possibile con ADO direttamente...


 (come ponte) per collegarti ad Access.
Non c'entra nulla ODBC.  L'OP sta chiedendo come assicurarsi che l'OLE DB
Provider per ADO sia installato sulle macchine dei clienti.


 requisito Windows XP è sufficiente?
Per un software da me sviluppato, distribuivo insieme al setup e altre
utilities anche il jet engine per tutti i sistemi operativi.
Parti da questa kb, e arriverai ai download delle varie versioni del jet
engine per i sistemi windows.
http://support.microsoft.com/?kbid=829558
Se vuoi studiarne un po' le caratteristiche, oltre che microsoft ti
suggerisco di dare un'occhio a wikipedia:
http://en.wikipedia.org/wiki/Microsoft_Jet_Database_Engine
Ciao,
-- 
Morde.

Integro il post precedente con questo link diretto
http://msdn.microsoft.com/data/ref/mdac/downloads/
In fondo alla pagina hai il jet engine.
-- 
Morde.

Newsgroup: it.comp.lang.delphi
Titolo: Creare database a runtime

Ciao a tutti,
ho la necessità di creare a runtime un database ACCESS (ho D5).
All'inizio ho pensato di utilizzare il metodo Execute del componente
TDatabase ma non ci sono riuscito.
qualcuno può aiutarmi ?
grazie
ciao
Solid Snake IT
"Nemo mortalium omnibus horis sapit" (Plinio il VECCHIO)

 qualcuno può aiutarmi ?
Devi collegarti all'engine ed eseguire un CreateDatabase o q.cosa di
simile:
  Result := FBackupPath + 'Backup' + FormatDateTime('yymmdd', Date) +
'.mdb';
  if not FileExists(Result) then begin
    DBEngine.CreateDatabase(Result, ';LANGID=0x0409;CP=1252;COUNTRY=0',
0);
  end;
Dove ovviamente DBEngine e' opportunamente istanziato (credo ci sia un
esempio sul sito di cantu' (dedonline)) per mostrare come si compatta
l'mdb.
Saluti
Paolo Arosio
Newsgroup: it.comp.lang.delphi
Titolo: Sort asc desc con BDE

Ciao a tutti,
sono un programmatore VB che sta pian piano cercando di passare a
delphi.
Il db vorrei che fosse  
Devo sviluppare un gestionale con db in access e rimugina che ti
rimugino avevo optato per ado anche in vista di un possibile abbandono
del Bde da parte di Borland (avevo letto qualcosa del genere).
Ho sviluppato la mia brava anagrafica clienti scontrandomi contro
qualche problemino. Uno per tutti con ADO dopo un Insert non si
aggiornano i recordset.
Ora sto provando con il Bde, ma orrore mi accorgo che la ttable non ha
la proprieta sort (mitico pero' il metodo createtable) .
E adesso come faccio ad ordinare la mia dbgrid? :)
Mi date una spinta?
Dato che ci siamo! Cosa usereste per l'accesso ai dati?
Adesso che ho solo l'anagrafica clienti posso permettermi di fare
delle prove ma piu' avanti sara' dura ...
Grazie anticipatamente
Ciao

 delle prove ma piu' avanti sara' dura ...
ed anche molto. Più andrai avanti con il gestionale e più le cose si
complicano perchè nasce il problema delle relazioni fra tabelle ed eventuali
transazioni. Ovviamente se le cose si sanno scrivi il codice con una certa
sicurezza e progetti le tue tabelle in modo opportuno, altrimenti quando ti
trovi la relazione fra piano conti, prima nota, fatture clienti e fornitori,
anagrafica clienti e fornitori.... diventi matto perchè ti impunti molte
volte e ti trovi davanti a problemini che nascono come i funghi !! Non
voglio scoraggiarti. Comunque prendi prima confidenza con le tabelle indici
ecc......guarda un po' la relazionalità, i filtri e magari un po' di SQL che
ti può essere utile in qualche semplice selezione ( estratto conto
magari....o scadenziario ) senza usare un filtro che in certi casi ti
obbliga a scrivere un po' di codice ad hoc.
Per ora ti saluto.....buon anno !!!
Antonio Tarolla

Dato che ci siamo! Cosa usereste per l'accesso ai dati?
di solito uso componenti TQuery.
Newsgroup: it.comp.lang.delphi
Titolo: ripulire form

è possibile cancellare tutti i componenti di una form e fare in modo che ne
appaiano altri.
Es.
sulla form c'è la presentazione del programma e un pulsante 'continua';
vorrei che premendo il pulsante la form venisse ripulita e (un pò come la
procedura CLRSCR del vecchio pascal) apparissero sulla form i componenti del
programma.
Se è possibile, come si fa?
Grazie

 appaiano altri.
Se il tuo scopo è sostituire radicalmente l'interfaccia utente che 
appare su una finestra con un'altra completamente diversa, forse il 
metodo che proponi non è quello più adatto o, comunque, quello più pratico.
Forse è meglio se fai ricorso ad un controllo *TPageControl* e inserisci 
tante schede quante sono le interfacce da mostrare; se per ciascuna 
pagina *TTabSheet* del controllo imposti la proprietà /Visible/ a False, 
rimuovi la scheda di selezione della pagina normalmente adoperata in 
questo controllo ma puoi sempre, tramite codice, usare la proprietà 
/ActivePage/ del PageControl stesso per selezionare quale pagina deve 
essere correntemente visualizzata.
L'alternativa è quella di fare uso dei Frame, provvedendo a crearne 
tanti quante sono le interfacce che devi rappresentare a video e 
provvedendo a crearli e distruggerli dinamicamente visualizzandoli nel 
form ospitante a seconda dell'interfaccia che intendi mostrare in un 
determinato momento.
La prima soluzione è forse quella più immediata e semplice da 
realizzare, con meno codice da scrivere peraltro, anche se costringe il 
form a creare sin dal principio tutti i controlli delle interfacce 
utente che devono essere mostrate; nel secondo caso, i controlli vengono 
creati al volo solo quando viene creato il Frame che li contiene, 
relativo ad una determinata interfaccia utente che desideri mostrare in 
quel momento.
So che un po' di codice sarebbe stato apprezzato, ma per il momento 
tieni conto di quanto detto a livello teorico e prova a fare qualche 
sperimentazione tecnica...poi mi saprai dire. Non è nemmeno detto che io 
abbia effettivamente compreso quello che stai cercando di realizzare... ;-)
Ciao! :-)
-- 
Marco «Alka» Breveglieri
  (marco [@] abls [.] it)
  ABLS Team S.n.c. - Software & Web
  42019 Scandiano (Reggio Emilia)
 
http://www.abls.it

 ha scritto nel messaggio 
news:oBQ5e.1202332$35.44...@news4.tin.it...

non ho ben capito cosa vuoi fare ma penso che la proprietà Visible dei 
componenti faccia al caso tuo. 

 metodo che proponi non è quello più adatto o, comunque, quello più
pratico.
è proprio quello che voglio fare.
ora provo a vedere se riesco a mettere in pratica quello che mi hai detto.
Grazie

ho provato con il Tpagecontrol e sono riusicto ad ottenere quel che volevo.
Grazie
Newsgroup: it.comp.lang.delphi
Titolo: Stampa "universale" (lungo ma solo discorsivo)

Ciao,
scusate ma in questo periodo imperverso con le mie domande.
Devo far stamapare, alla mia applicazione, una pagina che rappresenta un 
modulo, quindi con righe scritte, campi contornati da linee, spaziature 
strane, etc...
Finora scrivevo sul canvas, con tanto di riferimenti cartesiani per dove 
posizionare le scritte, con delle lineto, etc... Il problema sorge 
quando si cambia la stampante, perchè in ogni stampante, ho scoperto a 
mie spese, i riferimenti sono MOLTO diversi ed un (1,1) può essere anche 
spostato di molti cm.
Premettendo che il modulo da stampare dovrebbe riprodurre uno standard 
dell'ufficio metrico nazionale, per cui non è modificabile di una 
virgola, come faccio per stampare questa cosa in modo "universale"?
Grazie a tutti della pazienza.
Fabio

 virgola, come faccio per stampare questa cosa in modo "universale"?
Puoi (anzi, IMHO *devi*) usare un tool di report... se Rave è troppo
complicato per te (come per me) e te ne serve uno meno pretenzioso, prova
PReport 
http://www.sofotex.com/PReport-download_L17677.html
E' freeware ma funziona benissimo, solo che non ha i sorgenti quindi devi un
po' arrangiarti per impararlo... ha due cose secondo me molto interessanti:
puoi usarlo anche per fare moduli per stampanti solo testo, tipo quelle ad
aghi, e puoi dargli in pasto dei dati "virtuali", per cui non è necessario
che sia collegato ad un database per funzionare.
--
Jax
====
E' bene non avere vizi e male non avere tentazioni. (Walter Bagehot)

 prova PReport 
http://www.sofotex.com/PReport-download_L17677.html
Scusa, il link giusto č
http://www.vtktools.com/preport/preport.html
--
Jax
====
La scuola č l'ingresso alla vita della ragione. (Jerome Bruner)
Newsgroup: it.comp.lang.delphi
Titolo: 2 domande

1- come faccio a rilevare l'altezza e la larghezza effettive di un'immagine?
2- come faccio a visualizzare il numero di riga in un memo o richedit?


nel memo (cosi a naso) dentro lines ci dovrebbe essere (esento un
TStrings) una cosa come count... il richedit non l'ho mani suato
Il Razziatore,
The Only Good Windows in an uninstalled Windows
-----------------------------------------------
E-MAILs : IlRazziat...@NOSPAMnetscape.net
WEB     : 
http://www.razziatore.dns2go.com/
ICQ     : 67552596

"MAGI System" ha scritto nel messaggio
| 2- come faccio a visualizzare il numero di riga in un memo o richedit?
procedure CoordinateCursoreInMemo
      (var Riga, Colonna : LongInt; AMemo:TMemo);
begin
 Colonna := AMemo.SelStart - AMemo.Perform(EM_LINEINDEX, -1, 0);
 Riga := AMemo.Perform(EM_LINEFROMCHAR, -1, 0);
end;
Da usare cosi', per esempio:
procedure TForm1.Memo1Click(Sender: TObject);
var
 PosCursore : TPoint;
begin
 CoordinateCursoreInMemo(PosCursore.x, PosCursore.y, Memo1);
 label1.Caption := Format('Riga %d - Colonna %d',
                                      [PosCursore.X, PosCursore.Y]);
end;
Vedi anche qui:
http://web.infinito.it/utenti/c/catand/Tips/ttsu2.htm
http://web.infinito.it/utenti/c/catand/Tips/ttsu3.htm
(sempre che i link funzionino ancora ....)
Ciao.
ACSH
[D4]
---------------------------
Chi fa da se'
fatica il doppio


Grazie.
Ma come faccio far visualizzare a fianco di un memo il muero della riga?
Riga per riga intendo.

"MAGI System"
| Ma come faccio far visualizzare a fianco di un memo il muero della riga?
| Riga per riga intendo.
Usa il componente SynEdit che trovi qui
http://SynEdit.SourceForge.net
Una delle sue innumerevoli proprieta' permette di
fare cio' che vuoi.
--


Newsgroup: it.comp.lang.delphi
Titolo: Stampare uno scontrino con i REGISTRATORI di CASSA, Avete qualche info ?

Stampare uno scontrino con i REGISTRATORI di CASSA, Avete qualche info ?
Devo semplicemente stampare degli scontrini con dei registratori di cassa
SAREMA e SWEDA ,
Avete qualche suggerimento ?
nota : Ho Delphi6 e le routine devono funzionare ANCHE su Win2000.
tnx.

 ha scritto nel messaggio
news:fK1j7.30475$%a4.11...@news.infostrada.it...

Chiama la sarema e fatti dare i protocolli di comunicazione con il
registratore che sono proprietari.
Ciao, Angelo Diego Crabolu.

 wrote in message
fK1j7.30475$%a4.11...@news.infostrada.it...


 stampante la usi come una normale
Purtroppo mi servono FISCALI  ;(((

> Purtroppo mi servono FISCALI  ;(((
I protocolli sono tutti proprietari, tranne che per certi modelli che
funzionano in "emulazione di tastiera", e comunque sempre via seriale;
esistevano tempo fa degli OCX fatti in italia che garantivano compatibilita'
con un'ampia gamma di registratori ma costavano uno sproposito (3 milioni
per la licenza + un tot. di royalty a installazione).. l'alternativa e'
quella di procurarti documentazione dalle aziende e farti a manina il driver
di comunicazione.. lavoro lungo noioso e spinoso.. spero il tuo cliente sia
disposto a pagare molto e aspettare altrettanto ;)
Ciao, Sandro
Newsgroup: it.comp.lang.delphi
Titolo: Proprietà di un file...

Come si fa a cambiare la proprietą di un  file, ad esempio da sola lettura a
non????????
--
Adolfo
ado...@katamail.com
ICQ:  124734860
                          V i s i t a
 
http://utenti.lycos.it/vico_pisano/
 
http://otillo95.monrif.net

 wrote in message
news:ahrivb$1ou0$1...@stargate1.inet.it...


 Come si fa a cambiare la proprietà di un  file, ad esempio da sola lettura


Newsgroup: it.comp.lang.delphi
Titolo: Indice discendente

Aggiungo un indice alla mia table con la seguente istruzione:
       Table1.AddIndex(Indice,Campo,[],Campo);
Indico nel quarto parametro il campo il cui indice deve essere discendente.
Fin qui tutto ok.
So anche come sapere quali indici ci sono associati allo specifico campo:
for i := 0 to Table1.IndexDefs.Count - 1 do
    if Tabl1e.IndexDefs.Items[i].Fields = Campo then
       ......
Non trovo invece modo di sapere se l'indice trovato è ascendente o
discendente.C'è qualcuno che sa come si fa ?
Ovviamente avrete capito che sto usando il BDE...


fin qui c'eravamo arrivati, ma quale tipo di tabella usi (Paradox, DbIV, 
etc.)?
NioBi
--- posted by geoForum on 
http://www.delphiedintorni.it

 ha scritto nel messaggio
news:5ld4cdF...@mid.individual.net...


> >discendente.C'è qualcuno che sa come si fa ?
In premessa, visto che gli indici sono creati da te (seppure at run-
time), ne conosci il nome ed il contenuto, quindi non vedo il senso 
della domanda, visto che puoi richiamare l'indice appropriato alla 
funzione da richiedere...
In fatto, per me un indice allegato alla tabella dBase non supporta un 
ordinamento discendente, neanche quelli multicampo, per cui tutti gli 
indici richiamabili sono per default in ordine ascendente (sarei felice 
di sbagliarmi).
Ovviamente un indice ha significato se la tabella deve essere utilizzata 
per una ricerca oppure per una visualizzazione appropriata: perché non 
lavorare su una copia del file, utilizzando un TQuery, che ti aggiusta 
l'ordine visualizzato in qualsiasi modo tu voglia? In tal modo la 
gestione dela tabella richiederà al massimo un indice (se serve, il 
numero del record), con snellimento della sua gestione.
