mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.delphi
Titolo: Problemi con dbgrid e personalizzazione righe

Salve a tutti vi ringrazio anticipatamente per l'attenzione che mi
dedicherete, il mio problema è il seguente.
Devo cambiare i font di una riga di una dbgrid collegata a una query,
se il campo riga del db assume il valore 0 devo fare la riga grassetta
(scusate per come ho coniugato questa parola) e più grande altrimenti
devo lasciare utto normale.
il codice che ho prodotto è stato questo
procedure Tcodificaform.gridrigheDrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
//controllo se la riga ha valore 0
if modulodati.zq1.FieldByName('riga').AsInteger=0 then
  begin
    //in questo caso metto il grassetto e cambio la dimensione
    Column.Font.Style:=[fsbold];
    Column.Font.Size:=10;
  end
else
  begin
    //altrimenti lascio il metodo standard
    gridrighe.DefaultDrawColumnCell(Rect,DataCol,Column,State);
  end;
end;
Ma tutte le righe oltre alla zero venivano grassette ecc...
Mi sono detto che effettivamente facendo così modificavo lo stile
della colonna e poi anche con default drawing lo stile rimaneva
sbagliato, così ho modificato come segue
procedure Tcodificaform.gridrigheDrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
//controllo se la riga ha valore 0
if modulodati.zq1.FieldByName('riga').AsInteger=0 then
  begin
    //in questo caso metto il grassetto e cambio la dimensione
    Column.Font.Style:=[fsbold];
    Column.Font.Size:=10;
  end
else
  begin
    //altrimenti rimetto tutto a posto
    Column.Font.Style:=[];
    Column.Font.Size:=8;
  end;
end;
Ma adesso la riga 0 mi viene normale mentre la uno grassetta poi tutto
si rinormalizza, ho fatto il debug di tale codice e correttamente
quando viene scatenato l'evento vengono impostati i valori, non vorrei
che lui prima scriva i dati e poi scateni l'evento così io mi trovo il
record successivo a quello giusto modificato.
Chi ha qualche idea???
Grazie
Roberto Gibertini

Roberto Gibertini
	Ciao
	MassimoB
 
---------------------------
http:\\
www.massimobeschi.it

 Roberto Gibertini
-- 
Ciao, Anto', [37, 143, AQ] 
MB C SC 220 CDI Magma Rot
"Di sempre cio' che senti e fai cio' che pensi."
    G.G. Màrquez

Newsgroup: it.comp.lang.delphi
Titolo: Delphi, .NET e Galileo

Salve,
è da qualche giorno che mi domando che cosa sarà di Delphi quando uscirà il
nuovo Delphi for .NET e Galileo:
Delphi produrrà solo eseguibili in .NET? Verrà incorporato all'interno di
Galileo e quindi non sarà più un ambiente a se stante?
Spero caldamente di no perchè non voglio essere legato alla CLR e non voglio
sacrificare neanche un po' di velocità per qualcosa che non ritengo affatto
utile!
Cosa ne pensate?
Giacomo.

 Giacomo.
Newsgroup: it.comp.lang.delphi
Titolo: domanda da principiante

Salve a tutti.
Vorrei sapere come posso fare per creare una procedura, che poi possa
essere richiamata all'interno di una procedura tipo button1click.... per
esempio.
praticamente ho crato una procedura che calcola la lunghezza di una table1.
Come la devo dichiarare o implementare ?
Questa procedura viene poi richiamata all'interno di una procedura
relativa all'evento di pressione di un button;
Spero mi abbiate capito.... se cosě non fosse vi prego di chiedermi
eventuali informazioni per aiutarmi a passare quest'ostacolo.
Grazie,
Ale
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 table1. Come la devo dichiarare o implementare ?
...
Supponendo che tu voglia far tutto in una unit:
...
implementation
// se la vuoi rendere accessibile da fuori la unit devi
// anche mettere la dichiarazione nella parte interface
function LenOfTable(aTable: TDataset): Longint;
begin
  Result := 0;
  if not aTable.Active then
    aTable.Active;
  aTable.First;
  while not aTable.Eof do begin
    aTable.Next;
    Inc(Result);
  end;
end;
...
procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage('La tabella è lunga ' + inttostr(LenOfTable(Table1)));
end;
Saluti
Paolo Arosio

 end;
Io (personalmente) compatterei il tutto
function LenOfTable(aTable: TDataset): Integer;
Var lOpen:Boolean;
 begin
   Result := 0;
   lOpen := aTable.Active; // mi salvo lo stato della tabella
   if Not lOpen then
     aTable.Open;
   Result := aTable.RecordCount;
   aTable.Active := lOpen;  // rispristino lo stato
end;
Oppure un semplicissimo tabella.RecordCount senza tanti fronzoli
NB Funzione non testata ma scritta direttamente dentro AO
^_Goblin_^

 ^_Goblin_^
Salve, leggo ora i vosri suggerimenti, grazie.
Ho ancora un dubbio, cioč atable devo associarlo a table1 (nel mio caso),
oppure nella funzione devo scrivere direttamente (table1: tdataset).
Scusate l'ignoranza.
Se devo associare atabel a table1, come devo fare ?
Grazie ancora 
Saluti, Ale.
p.s. non riesco ad aprire il messaggio del sig. Paolo Arosio.

Newsgroup: it.comp.lang.delphi
Titolo: Intercettare errori stampante

Ciao a tutti,
ho sviuppato un'applicazione che utilizzando QuickReport genera un
report per poi stamparlo. Alcune volte, durante la stampa, per varie
ragioni avvengono degli errori, e vengono visualizzati dei messageBox
di errore, bloccando l'applicazione. Sarebbe molto utile poter
intercettare questi errori, in modo da gestirli.
Spero possiate aiutarmi a trovare una soluzione
Grazie in anticipo per il vostro aiuto
Carmelo
-
http://carmelosaffioti.blogspot.com
-

 intercettare questi errori, in modo da gestirli.
Questo dipende dal driver di stampa, e dallo spooler di windows... 
Fornisci maggiori dettagli su come fai a stampare, in che modo, ecc...
Ciao
-- 
Morde


Dopo aver effettuato una query sul db, viene lanciata la stampa col
comando "Report->Print()"
-
http://carmelosaffioti.blogspot.com
-


Ho trovato questo articolo di Microsoft
http://support.microsoft.com/default.aspx?scid=kb;EN-US;q160129
Ma non considera il printer pooling...
-
http://carmelosaffioti.blogspot.com
-

Ciao,
    questo e' un argomento che mi sta letteralmente assillando da piu' di un 
anno.
Premetto che non sono un mega esperto di delphi, anzi..... e' esattamente il 
contrario, ma il problema della gestione degli errori della stampante non e' 
nuovo e, credo, non e' stato risolto.
Quello che ho imparato e' che windows gestisce la stampa tramite spooler e 
che ci sono delle strutture dati che forniscono lo stato del documento in 
stampa e della stampante stessa.
Per esempio anche se hai la stampante spenta, al momento della stampa si 
avra' sempre "printer ready" perche' lo spooler e' ready, poi DOPO aver 
lanciato la stampa si dovrebbe essere in grado di leggere questi errori 
(dovrebbe .... perche' io non ci riesco ..... e ammetto la mia scarsa 
preparazione sull'argomento).
Pero', credo, non e' questo il tuo problema ....... perche' gli errori che 
ti si presentano avvengono all'interno della stampa fatta con QuickReport; A 
questo punto o hai i sorgenti e smanetti li dentro (ovvero durante la stampa 
spegni la stampante, apri il coperchio, inceppi  la carta ecc...) e vedi 
dove il codice si blocca, in quel punto modifichi inserendo le varie 
eccezioni !!!!
Se non hai i sorgenti .... e' dura, figurati .... non sono in grado di 
leggere lo stato della stampante, immagina se riesco ad accedere al driver 
di stampa o allom spooler !!!!.
Spero di non aver contribuito ad intorbidire ulteriormente questo delicato 
argomento.
Ciao, Daniele 

>
Ci sono molti esempi su come ottenere informazioni dallo spooler, 
tuttavia ottenere il pieno controllo della stampa dopo che l'hai 
lanciata e' cosa ancora impossibile in windows.
Ciao
-- 
Morde
Newsgroup: it.comp.lang.delphi
Titolo: file di testo come matrice..

ciao a tutti..
sapete se estiste una funzione che mi consenta di trattare un file di testo
come fosse una matrice???
cioč conoscendo la riga e la colonna vorrei modificare il testo di un file
di testo (utilizzando la riga e la colonna come indici di posizionamento)..
come potrei fare???
ciao a tutti e grazie..

Non credo esista esattamente quello che chiedi
una possibile soluzione è quella di utilizzare un controllo Table settando
la sua proprietà TableType a ttAscii ma
come puoi notare dall'Help ...
" ttASCII Table is a text file with comma-delimited, quoted strings for each
field "
quindi il file in questione deve essere adeguatamente formattato
seconda soluzione è di leggere il file e riempirti un tuo array
bidimensionale o, se vuoi che la cosa sia visuale, una TStringGrid.
altra soluzione, se le righe di detto file di testo sono a lunghezza fissa,
usa la FileSeek utilizzando la lunghezza del record come moltiplicatore
Prova un po', spero di essere stato chiaro e di aiuto.
CIAOUX

 usa la FileSeek utilizzando la lunghezza del record come moltiplicatore
si le righe del file sono a lunghezza fissa..
potresti postarmi un esempio???
grazie.
Ciao.

Scusa Dante... non ho un un mio esempio sottomano... e non ho il tempo di
scrivertelo adesso, però dal'help dovrebbe essere abbastanza semplice....
con file ti sposti di un certo numero di byte
se vuoi andare alla riga 15 e le tue righe sono lungh 10 byte
darai come parametro a fSeek 150.
function FileSeek(Handle, Offset, Origin: Integer): Integer; overload;
function FileSeek(Handle: Integer; const Offset: Int64; Origin: Integer):
Int64; overload;
Description
Use FileSeek to reposition the read/write point in a file that was opened
with FileOpen or FileCreate. Handle is the file handle that was returned by
FileOpen or FileCreate.
Offset specifies the number of bytes from Origin where the file pointer
should be positioned. Origin is a code with three possible values, denoting
the beginning of the file, the end of the file, and the current position of
the file pointer.
Sempre sull'help se cerchi FileSeek, c'è un esempietto.
Ciao ciao

Se hai un numero fisso di linee, puoi usare un array di stringhe..
es con 10 linee:
var mat:array[0..9] of string;
    i:integer;
    f:text;
begin
 assignfile(f,'prova.txt');
 reset(f);
 for i:=0 to 9 do
  read(f, mat[i]);
 closefile(f);
 una volta letto, puoi accedere ai singoli caratteri con:
mat[y][x]:='A';
una volta modificato, puoi riscriverlo sul disco con la procedura analoga.
Newsgroup: it.comp.lang.delphi
Titolo: Sarà fattibile?

mi è stato chiesto di poter gestire in remoto una scheda di controllo 
collegata sulla seriale di un pc (server).
Il client dovrà avere l'interfaccia in formato "WEB" ovvero visualizzare i 
dati della seriale in una sorta di sito web.
Ora per la gestione della seriale non ho alcun problema, ma mi domandavo 
come passare i dati ad una pagina web.
cosa mi consigliate..
Tnx 

isapi/web service?
AS

 isapi/web service?
Esatto, oppure un server fatto con i componenti Indy e la tecnologia 
WebBroker per la generazione di pagine Web.
-- 
MARCO BREVEGLIERI
  (
http://www.marco.breveglieri.name
)

un mio amico che usa 
vs.net
 aveva dei problemini...
Gli ho passato il link da cui scricare indy per .net....
E' rimasto un attimo scioccato quando gli ho detto che in delphi quella
roba l'abbiamo da anni...
:-)

Grazie

Newsgroup: it.comp.lang.delphi
Titolo: pulsante minimize impazzito

Sto usando la Delphi 5 interprise (demo) e ho notato che se eseguo i
seguenti comandi:
  form1.WindowState:=wsminimized;
  form1.WindowState:=wsnormal;
che dovrebbero far ricomparire il programma delphi togliendo il focus
a qualsiasi altra applicazione che l'utente sta usando.
La cosa funziona (a proposito chi mi suggerisce metodi meno cruenti ?)
ma quando poi provo a premere il tasto minimize questo non risponde e
la finestra rimane in bella mostra.
Perchč?
---------------------------------------------
Io queste cose tecnologiche non le capisco...

 a qualsiasi altra applicazione che l'utente sta usando.
Prova i metodi di TApplication: Minimize e Restore.
Considera che la main form *non e'* la finestra principale della
applicazione (nel senso che molti messaggi di sistema vengono appunto
gestiti dalla WndProc di TApplication.
Saluti
Paolo Arosio
Newsgroup: it.comp.lang.delphi
Titolo: rave e barcode risultato strano

Salve a tutti ho scoperto la funzione di stampa dei barcode EAN 
attraverso rave report integrato in delphi 7. Prendo i dati da un db 
mysql attraverso una ZQuery. Tutto bene se non che il barcode 
rappresentato non corrisponde a quello registrato nel db in particolare:
0000000000010
viene rappresentato come
0000000000017
mentre:
0000000000020
viene rappresentato come
0000000000024
ho riguardato i dati nel db e sono quelli che mi aspetto ma quando 
faccio il preview e la stampa dei barcode mi vengono fuori i numeri 
sballati. Ho anche verificato con il lettore di barcode quale numero 
effettivamente venisse letto e corrisponde a quello sballato.
Non sò che pesci pigliare.
Daniele

 effettivamente venisse letto e corrisponde a quello sballato.
Presumo che siano codici EAN13... in questo caso, l'ultima cifra è una cifra
di controllo, generata con un algoritmo in base alle altre 12 (un po' come
l'ultima lettera del codice fiscale). Adesso non riesco a controllare se
sono corretti o no, ma non è che in questi codici è sbagliata la cifra
finale e Rave te la ricalcola?
-- 
Jax
====
L'oblio è una forma di libertà. (K.Gibran)

 codici è sbagliata la cifra finale e Rave te la ricalcola?
Infatti ho trovato questo sito in cui viene spiegato come calcolare la cifra
di controllo:
http://www.steppa.net/html/isbn/isbn.htm
seguendo l'algoritmo, le ultime cifre sono appunto 7 e 4, e non 0.
Immagino che tu però voglia rappresentare 10 e 20, e non 17 e 24 ;)
Siccome la cifra di controllo è opzionale, forse c'è qualche flag da
impostare per non fargliela generare (non conosco per niente rave).
Secondo me cmq sarebbe una buona idea tenerla, ricordando però che hai a
disposizione solo 12 caratteri, quindi se vuoi rappresentare un 10 e un 20,
i codici saranno:
0000000000109  e  0000000000208
-- 
Jax
====
La morte è l'ultimo medico delle malattie. (Sofocle)

 
Jax ti ringrazio è che non avevo minimamente considerato il cheksum in 
quanto pensavo che tutte e 13 le cifre fossero a disposizione (ignoranza 
in materia). Perfetto grazie ancora !!!!! :)))
Daniele
Newsgroup: it.comp.lang.delphi
Titolo: Componenti per SQL7

Tempo fa avevo trovato degli utilissimim componenti per connettere
delphi3 a Sql7Server, purtroppo a quel tempo non mi interessavano più di
tanto e li ho persi!
Qualcuno sa dirmi dove trovarne qualcuno free?
Ho già cercato in Torry ed in Dsp.....
Gianluca
--
Posted from 
relay2.inwind.it
 [212.141.53.73] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 Gianluca
Se ti interessa io ho trovato questi, ma li ho trovati sulla DSP ... quindi
probabilmente non sono quelli che cerchi, ad ogni modo li posto...non si sa
mai! :)
adonis.zip   2,131,760 bytes 27/Jun/99
Adonis Component Suite - components for accessing data in MS SQL Server, MS
Access and other data sources through ADO 2.0 (ActiveX Data Objects).
Includes RDS ( Remote Data Services ), ADOR, MIDAS and MTS support for
multitier applications.
sqlqryd3.zip 1,158,114 bytes  19/Jan/99
SQLQuery is a TQuery replacement when using MS SQL Server as database
server. SQLQuery has a lot of enhancements and does not require the BDE. It
works with Delphi 3&4 and C++Builder 3, Standard, Professional and C/S
versions.SQLQuery is designed to be fast and easy to use and to overcome
some of the problems encountered with TQuery as blob handling,IDENTITY
fields and the problem of inserting rows in a result set and have the set
appear correctly. Queries can be run asynchronous without having to code
threads and synchronization manually. Supports all dbaware controls and
InfoPower controls.
Ciao!

Newsgroup: it.comp.lang.delphi
Titolo: Delphi 2007 ed Excel

Ho una tabella ARTICOLI contenente i campi
Articolo, Descrizione, Prezzo e Marca.
Devo esportare gli articoli in EXCEL suddivisi per marca.
Ovvero devo ottenere tanti files.XLS quante sono le marche a
disposizione.
Considerando che :
- non so da che parte cominciare (...bene...)
- la mole di dati è parecchia ( circa 400.000 articoli con un
centinaio di marche)
... quale procedura mi consigliare ?
Saluti
Alberto

 disposizione.
fai n query, una x marca.
L'uso di excel da delphi è descritto in un sacco di vecchi post.
A.
Newsgroup: it.comp.lang.delphi
Titolo: Problemi di stampa urgenti !!!

Salve a tutti,
ho riscontrato un problema di stampa con una stampante EPSON Stylus
Color 660 all'interno di un programma sviluppato in Delphi 3.0.
All'avvio del programma se provo a stampare con le seguenti
istruzioni:
     Rect.Left:=20;
     Rect.Top:=20;
     Rect.Right:=Printer.PageWidth-20;
     Rect.Bottom:=Printer.PageHeight-20;
     Printer.BeginDoc;
     Printer.Canvas.StretchDraw(Rect,SchImg.Picture.Graphic);
     Printer.EndDoc;
...dove l'immagine in questione e' un Metafile, ottengo un bel niente!
Se invece stampo (sempre durante la stessa esecuzione) prima un file
RTF, dopo riesco a stampare anche il precedente Metafile.
Per stampare il file RTF utilizzo l'istruzione:
     RTF.Print('Stampa RTF');
Ho provato questo programma anche con le stampanti:
	- HP Laserjet 1100
	- EPSON Stylus Color 740
...ed e' funzionato benissimo. Il problema ce l'ho solo con la 660.
Urge aiuto !!!
E' molto importante !!!
Grazie mille !!!
Byez...
Mattew Bottus
Hastur...@hotmail.com
Amber...@hotmail.com

 Color 660 all'interno di un programma sviluppato in Delphi 3.0.
[...]
Hai provato ad aggiornare i driver della stampante? Tempo fa ebbi un
problema simile ed era il driver della Epson 660.
-- 
Ciao da Giuseppe Fraddosio
    // FidoNET 2:335/727.2    
 \X/  
fradd...@libero.it
 
fradd...@tin.it
 
Membro AGI Puglia Sez. Bari 
Powered By Amiga2000T/060@50Mhz/CV3D 4Mb/AmigaOS 3.5



Ho installato l'ultima versione dei driver (la 5.0), ma inutilmente.
Comunque non vedo perche' mi debba stampare il file RTF senza problemi
mentre il resto no...
Amiga Rulez !!!!   :-)

> Amiga Rulez !!!!   :-)
Con il Sinclair ZX80 e i suoi 4K di ROM queste cose non succedevano, la
stampantina termica a 32 colonne in carta argentata stampava benissimo
tutto, pure i caratteri semigrafici..
Ciao, Sandro



Lo so bene...
...eh, i vecchi tempi...
In ogni caso ci sono ancora cose che funzionano bene, solo che sono
sempre meno...
...bah, non mi tornano i conti...
Byez !!!

 sempre meno...
si.. gli aspirapolvere, le autoradio, i forni a microonde.. almeno finche'
non monteranno Windows nelle rom integrate ;)
Battute a parte, mi sa che Windows e' in realta' una complessa e quasi
perfetta simulazione del cervello femminile.. imprevedibile e poco stabile,
chiede all'utente sempre piu' risorse col passare del tempo, e il livello di
soddisfazione nell'uso degrada lentamente col tempo.. ;)
Ciao, Sandro

soddisfazione nell'uso degrada lentamente col tempo.. ;)
ROTFL! :D
Grande! :)
Ciao!
Peppe
_____
ICQ #9759626
http://members.xoom.it/joe
Togli levaccà per contattarmi via email.

 Color 660 all'interno di un programma sviluppato in Delphi 3.0.

Newsgroup: it.comp.lang.delphi
Titolo: stringa troncata

Ciao a tutti,
Uso il componente tIDHttpserver e ho questo problema: devo passare una
stringa al componente molto lunga, composta da un range di numero da: a: e
il testo, solo che il valore della stringa a delphi:
RequestInfo.Params.Values[PARAMETRI] è troncata a 758° carattere.
Idee?
Sono abbastanza nelle canne!! :(
Grazie

>RequestInfo.Params.Values[PARAMETRI] 
Params č di tipo tStrings?
--- posted by geoForum on 
http://www.delphiedintorni.it

 --- posted by geoForum on 
http://www.delphiedintorni.it
Ciao,
Grazie per avermi risposto :)
Esatto è di tipo tStrings.
Componente TIdHTTPRequestInfo, propietà Params
Hai soluzioni?

Newsgroup: it.comp.lang.delphi
Titolo: Indice voce Menu

in un Menu con n voci , come si puo' ricavare l'indice dell'elemento 
cliccato ? 

 cliccato ?
Mi associo alla domanda ed aggiungo:
come si puo intecettare la caption del menu' cliccato?
miyomo 

miyomo scriveva fra l'altro:

All'handler dell'evento viene trasmesso come parametro il Sender.
...OnClick(Sender: TObject);
var theItem: TMenuItem;
begin
  theItem := Sender as TMenuItem;
  ShowMessage(theItem.AnyProperty.AsString);
end;
Saluti
Paolo Arosio
--
"La dimostrazione dell'esistenza di specie intelligenti nell'universo e'
che non ci vengono a trovare" [Calvin & Hobbes]

Newsgroup: it.comp.lang.delphi
Titolo: Esiste un'utility....

..che mi permetta di stampare la struttura di un report (nome label,
funzioni sugli eventi, ecc..) fatto con report builder?
Grazie
GLF


Ciao,
che io sappia no, credo che ogni tool di reportistica abbia al suo 
interno un'utility per leggere il proprio formato dei report prodotti. 
Per cui credo che dovresti procurarti Report Builder per vedere in chiaro 
la struttura del report che ti interessa.
Ciao da Enrico Giudici
ico...@tiscali.it
--- posted by geoForum on 
http://www.delphiedintorni.it

 la struttura del report che ti interessa.
Report builder ce l'ho ma non c'è nessuna utiliti
Ciao e Grazie
GLF

Newsgroup: it.comp.lang.delphi
Titolo: Pacchetti aggiuntivi.

Salve a tutti,
Non conosco molto bene Delphi, spero che possiate darmi una mano.
Devo studiare alcuni programmi che utilizzano le librerie GLSCene, 
ho provato ad installare tali librerie (0.9) su Delphi 6, l'installazione 
sembra
essere andata a buon termine, ma quando faccio partire i programmi 
ottengo un errore: non trova il file GLScene.dcu
Cosa sbaglio?
                               Alessio
 

 ha scritto nel messaggio
news:RGnga.52083$Lr4.1...@twister2.libero.it...


 ottengo un errore: non trova il file GLScene.dcu
Assicurati di avere tutti i percorsi di ricerca a posto, sia quelli globali
(tools-environment options-library) che quelli del progetto locale
(project-options-directories)
Ciao
 Max
Newsgroup: it.comp.lang.delphi
Titolo: [OT] Chi usa l'ADSL Tele2?

Salve Ragazzi,
Qualcuno di voi ha sottoscritto il contratto ADSL Tele2?
Come va la connessione?
Qualcuno ha suggerimenti su contratti non-ALICE ADSL che vanno bene?
Grazie in anticipo,
Andrea

premesso che 6 ot, ti suggerisco di vedere mclink.
Bye
A

 Qualcuno ha suggerimenti su contratti non-ALICE ADSL che vanno bene?
Il mio con Tiscali non mi ha mai dato problemi.

 premesso che 6 ot, ti suggerisco di vedere mclink.
confermo e approvo. ti posso dire che in 6 mesi che la abbiamo in azienda ho
avuto come massimo problema un'ora di buco perchè stavano aggiornando i
server, e ti assicuro che con me l'adsl deve sopportare dure prove ;-))
la tengo in costante allenamento!
Calcola che ho una 1280 e ci navigano in 60, compreso il servizio di posta
che viaggia pesantemente con allegati di documentazione, un ftp server, i
vari winmx sparsi per la rete ecc...
ciao
-- 
Fabrizio Mancini - <f[.]mancini[@]tin[.]it> 18/11/2003 15.57.46
Open Delphi Manual (
http://groups.yahoo.com/group/delphi_open_manual/
)

oggi ho ricevuto una mail da un mio amico che ha un account su tiscali.
La mail è stata inviata IERI.
Spero che il servizio a pagamento sia migliore di quello gratuito in 
quanto non è la 1a volta che noto una cosa simile da parte loro"
C@@@o, se faceva una posta prioritaria arrivava prima....
A

io ho un abbonamento dialup (nongratis!)con loro da quasi 5 anni.
In sintesi, ho avuto solo 3 problemi.
Me ne fotto che non è un numero verde e ti tocca una telefonata a Roma 
(io sto a Milano) ma non ho mai aspettato + di 5 minuti al telefono.
L'ultimo problema era sull'accesso dal pop di napoli.
Mi dissero: "il pop è saltato. tra 2 ore è tutto online.
Esattamente 2 ore dopo il pop funzionava.
Adesso hanno messo pure un filtro antispam....
Non ho preso la adsl home xche la userei troppo poco.
E poi, tutto fuorche telecom, compreso il cell che è vodafone!
A

> Qualcuno ha suggerimenti su contratti non-ALICE ADSL che vanno bene?
io uso proprio Alice da quasi un anno, e nessuna lamentela da avanzare.
Avevo pero' ADSL con Infostrada: anno scorso nel periodo estivo, per 2-3
mesi, non si ruisciva neanche a scaricare la posta da quanto andava lento.
Questo in tutto il mio paese. Ad ottobre 2002  ho inviato regolarissima
disdetta per abbracciare Alice, ed ancora ad un mese fa mi arrivano le
fatture da pagare del canone LiberoADSL, minacciandomi tra l'altro di
"staccarmi" il servizio se non li pago :)))
Ciao a tutti
  Fodox

Se vai in tariffe ADSL trovi molto di .
Per quel che mi riguarda, sembra che "fuori città" Infostrada faccia
schifo xchè non ha le centraline. Io di centro Bologna sono
contentissimo.
Parlano bene anche i fastweb.
Consiglio:senti da qualcuno che abita nella tua zona, cambia molto a
seconda della località.

Newsgroup: it.comp.lang.delphi
Titolo: Selezione campo data in stringa sql

Ciao a tutti, ho bisogno di una dritta:
Nella costruzione di una stringa SQL come posso selezionare i record (MSACCESS)
il cui campo DataRegistrazione è maggiore/guale di una certa data (Es.:
01/09/2001) ?
Grazie a chi vorrà gentilmente rispondermi 
-- 
Posted from 
relay.karton.net
 [194.184.42.108] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 ha scritto nel messaggio
news:30821702c0a58f4b27...@mygate.mailgate.org...

Newsgroup: it.comp.lang.delphi
Titolo: Alias BDE

Salve a tutti
Come posso modificare da codice la directory a cui si riferisce l'alias BDE
che usano le mie tabelle?
Grazie per la cortese risposta anticipatamente

 ha scritto nel messaggio
news:NtXW9.77719$AA2.3...@news2.tin.it...

Dopo avere chiuso qualsiasi riferimento all'alias utilizza
  s.clear;
  s.Add('PATH='+path);
  Session.ModifyAlias(Name,s);
con s TStringList e Session definito in DBTables.
Denis

Newsgroup: it.comp.lang.delphi
Titolo: Disabilitare "errori" imprevisti di esecuzione.

Ho finito il mio programma ma mi resta il problema del disabilitare le
finestre di errore predefinite di windows quando il programma esegue errori.
Tempo fa mi avevate consigliato si usare il "try...except" e in effetti ho
risolto alcuni aspetti particolari con questo comodissimo metodo....perň non
posso prevedere ogni minimo errore "imprevedibile".
Ai tempi del TP mi bastava mettere a inizio programma {I-} e in caso di
errore non mi veniva nessun messaggio (e se volevo farlo venire con
un'interrogazione IORESULT me lo personalizzavo) ma col Delphi non trovo piů
questa opzione.....da cosa č stata sostituita?
Grazie, ciao.
--
Giulio Pipitone (
www.FIGHTERS4WEB.COM
)
#mirror italiano ufficiale 
http://spam.abuse.net#

 posso prevedere ogni minimo errore "imprevedibile".
Non condivido questa politica per un fatto pratico.
Se il tuo programma va in errore e non vedi il messaggio, da cosa parti per
un debug?
Pensa alla registrazione di una fattura di vendita, che deve scrivere su
molte tabelle...
Se una delle scritture va storta come fai a saperlo?
E poi, l'utente rimane convinto che tutto č andato liscio quando cio' non č
vero...
Bye
AS

Grazie, ciao.
-- 
Ore 18.30: premo invio.


Le opzioni di compilatore in Delphi devono essere precedute da $:
{$I-}
/*...*/
{$I+}
In alternativa esiste la voce delle opzioni di compilazione I/O checking.
Se non ricordo male, quando e' attivata si generano eccezioni, altrimenti
devi testare manualmente il risultato con IOResult.
Ma c'e' un caveat bastardo su questo tipo di errori, nel senso che se non
verifichi l'errore potresti ritrovartelo tra i piedi nel momento piu'
inaspettato.
Dalla guida:
If an I/O error occurs and I/O-checking is off, all subsequent I/O
operations are ignored until the internal error flag is cleared. Calling
IOResult clears the internal error flag.
Percui fai attenzione :P
Ciaotutti,
*

puoi creare una tua procedura "procedure AppException(Sender: TObject; E:
Exception);"
e nella create della main form fare questa assegnazione
Application.OnException:= AppException;
procedure AppException(Sender: TObject; E: Exception);
begin
  if E=EAccessViolation then
  begin
     ....
  end
  else
    ....
end;
--
-----------------------------------------------------------
Homepage: 
http://www.giove.3000.it
E-mail: mailto://
boa...@freemail.it
-----------------------------------------------------------

 vero...
Newsgroup: it.comp.lang.delphi
Titolo: Aiuto su funzioni

Ciao a tutti
1) Ho delle funzioni che voglio usare in più unit, come faccio a farle
vedere a tutte le mie unit? la unit che contiene le funzioni si chiama
unitdati, ho provato con:
.
.
.
var
  formricerche: Tformricerche;
implementation
uses Unitdati, Menu;
{$R *.DFM}
.
.
.
ma le funzioni non vengono riconosciute in questa nuova unit.....qual'è
il problema?
Grazie a tutti
Ciao
Gianni 
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 il problema?
// Ti allego copia di parte di una unit di utlità che ho creato.
unit StrUtil;
interface
uses Classes, SysUtils;
function ReplaceTo(Source,Replace:string;BeginPos,EndPos:integer):string;
overload;
// è importante definire nella sezione interface della unit le procedure e
le funzioni da esportare in modo che siano visibili al di fuori della unit
stessa.
implementation
function ReplaceTo(Source,Replace:string;BeginPos,EndPos:integer):string;
var tmpStr:string;
begin
 Result:=Source;
 if (BeginPos<=EndPos) and (BeginPos<>0) then
  begin
   tmpStr:=StrLeft(Source,BeginPos-1);
   tmpStr:=tmpStr + Replace;
   tmpStr:=tmpStr + Mid(Source,EndPos+1);
   Result:=tmpStr;
  end;
end;

Grazie per l'aiuto, adesso (con le variazioni che mi hai detto) funge
tutto :-)
.....a buon rendere

Newsgroup: it.comp.lang.delphi
Titolo: formatdatetime ed access

ho un problema di conversione
nella stringa sql
'insert into tabella (data) values ('+ formatdatetime('dd-mm-yyyy', date)
+')'
non riesco ad ottenere la conversione esatta della data, sotto access il
formato è identico gg/mm/aaaa
ho provato yyyy-dd-mm ed altre combinazione ma non ho ottenuto nulla...
cosa dove fare?
grazie!!


La sintassi SQL per la data (in Paradox) è la seguente:
insert into tabella (data) values ('11/18/2003')
Quindi devi usare il formato mm/dd/yyyy nel tuo formatdatetime, però
aggiungendo le virgolette!
insert into tabella (data) values ('''+ formatdatetime('mm/dd/yyyy',date)
+''')'
Ciao
°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°
Davide Guida
davide...@inwind.it
°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°

 aggiungendo le virgolette!
infatti!! ho messo quotedstr(...) e funziona benissimo
grazie!
Newsgroup: it.comp.lang.delphi
Titolo: Tradurre MessageDlg

Secondo voi è possibile modificare7tradurre in italiano le caption
delle MessageDlg? Avendo a disposizione la versione Enterprise?
Grazie

delle MessageDlg? Avendo a disposizione la versione Enterprise?
Sě! Tutte le risosrse che ti interessano le trovi nella unit
consts.pas. 
Poi tradurla e riconpilarla.
Massimo.
-----------
Ore 18.30: premo invio.

On Thu, 27 Sep 2001 09:55:50 +0200, Kata32
<nos...@nospam.ok> wrote:

Certo, io lo faccio per ogni progetto.
Ti basta prendere la "consts.pas" (la trovi tra i sorgenti
distribuiti con Delphi), la copi nella directory del tuo
progetto, traduci le voci inglesi e fai un "build"
dell'applicazione.
-- 
Andrea Laforgia - walkietalkie(at)
libero.it
Newsgroup: it.comp.lang.delphi
Titolo: Val

a posto di volt.text voglio inserire il valore 1,3, che nel mio caso è 
un valore di tensione. Come Faccio? ho provato a inserirlo direttamente 
ma non va
  VAL(Volt.TEXT,Y,Z);

Camaleonte ha scritto:

Ho risolto in questo modo
procedure TForm1.Volt13Click(Sender: TObject);
VAR
X,Y,Z:INTEGER;
S:STRING[10];
begin
VAL(Volt.TEXT,X,Z);
  X:=X-(13 div 10);
  STR(X,S);
  Label13.Caption := S;
end;

 
Io farei:
var
   nDouble: Double;
begin
   nDouble := StrToFloatDef(Volt.text, 0);
   nDouble := nDouble - 1.3;
   Label13.Caption := FloatToStr(nDouble);
// per la formattazione ti rimando a FloatToStrF
end;
^_Goblin_^
-- 
Ibis et redibis non morieris in bello
http://goblinland.myminicity.com/

 
Adesso ho finito e ho fatto questo:
Ma ho un problema che adesso non so come risolvere in Label13 non mi 
vengono visualizati le virgole, cioè un valore tipo 0,002 me lo da come 
solo come 0. mi dai una mano?
procedure TForm1.Volt13Click(Sender: TObject);
VAR
X,Y,Z:INTEGER;
S:STRING[10];
begin
VAL(Volt.TEXT,X,Z);
VAL(Corrente.TEXT,Y,Z);
  X:=(X-(13 div 10)) div Y;


 X,Y,Z:INTEGER;
Vedo che continui a seguire pedissequamente i consigli che ti vengono dati!
(se non ci arrivassi, era ironico)
-- 
Jax

 solo come 0. mi dai una mano?
Devi dichiarare le tue variabili come numeri a virgola mobile (double, 
extended, single) e non come interi, il mio precedente esempio (basta 
leggerlo) andava benone per il tuo scopo
^_Goblin_^

^_Goblin_^ ha scritto:

grazie sei mitico ho risolto il problema mi spieghi a cosa serve "double"?

 (se non ci arrivassi, era ironico)
E' il comportamento tipico di una "certa" categoria di utenti... in 
genere con una "clava" in mano. :-)
-- 
MARCO BREVEGLIERI
  (
http://www.marco.breveglieri.name
)

 genere con una "clava" in mano. :-)
Sicuramente, ma da quello che vedo non mi sembra sia un troll (sebbene 
si stia comportando da tale), anche perché non risponde ai messaggi 
"ironici"... un troll lo farebbe.
Per quanto mi riguarda, comunque, non riceverà una risposta finché non 
dimostrerà almeno la capacità di premere F1.
-- 
Jax

Jax ha scritto:

lo sto facendo F1 ma fa pena non ci sono molti esempi seguendo il vostro 
consiglio di trovare delle esercitazioni ho praticamente fatto molto con 
il mio programma ma mi fermo davanti ad delle piccole cose che per voi 
sono niente.

 dimostrerà almeno la capacità di premere F1.
...o di inoltrare le domande via email anche in privato. :-)


 end;
Che bello, che bello, tutto in maiuscolo come si usava una volta!
Gp :-)
Newsgroup: it.comp.lang.delphi
Titolo: bit-mapped

Cio NG!
Ho un file bit-mapped del tipo longword, e ho bisogno di sapere il valore
del bit numero 31.Come faccio?
Grazie in anticipo,
CIAO!!!

del bit numero 31.Come faccio?
fai l'and con  $40000000...
Ciao,
Alan Solo

fai l'and con  $40000000...
mi sento buono :=
function GetBitValue(L: longword; NBit: byte): byte;
var LCompare: longword;
begin
 LCompare := Round(IntPower(2, NBit));
 if (L and LCompare) = LCompare
  then Result := 1
  else Result := 0
end;
procedure TForm1.Button1Click(Sender: TObject);
var p: longword;
begin
 p:=$40000000;
 ShowMessage( IntToStr( GetBitValue(p,30) ) );
end;
Ciao,
Alan Solo

Provo con un'altra soluzione
function GetBitValue(const L,Nbit:integer):boolean;
begin
 result:=odd(l shr nbit);
end;
Ciao
Matteo
-- 
Posted from  [195.223.140.122] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 del bit numero 31.Come faccio?
var 
  MyBit, MyLongWord: LongWord;
...
MyBit := (MyLongWord shr 31) and 1;
-- 
Posted from  [80.105.34.80] 


end;
clap, clap... che fantasia :)
... ok ok, la mia soluzione č un po' macchinosa ;)
Ciao,
Alan Solo

Newsgroup: it.comp.lang.delphi
Titolo: array e record

ciao a tutti, avrei bisogno di un consiglio:
volevo sapere il modo migliore (+ compatto) per copiare un array su un
record.
mi spiego meglio
se ho
rec = record
  campo1: char
  campo2: char
end;
e arr: array[1..2] of char
esiste un modo veloce per mettere arr[1] in campo1 e arr[2] in campo2 ???
grassie e ciao
alan

 esiste un modo veloce per mettere arr[1] in campo1 e arr[2] in campo2 ???
var
  IlRecord:rec;
move(arr, IlRecord, SizeOf(IlRecord));
Il record devi dichiararlo "packed" altrimenti rischi che
il compilatore ti allinei i char ogni 16 o 32 bit, a seconda
delle impostazioni di default.
In alternativa al move puoi dichiarare rec come record
variante oppure usare la direttiva "absolute" per dichiarare
una variabile di tipo "rec" allo stesso indirizzo della
variabile "arr".
--
Il Cammelliere
http://it.geocities.com/ilcammelliere

 ha scritto nel messaggio
news:amhr7u$g30$1...@fe2.cs.interbusiness.it...


 denghiu!!!
[...]
Figliuolo, va bene la cortesia, ma per un ringraziamento
non postare pure mezzo chilo di quoting inutile sennò fai
più danni che altro. :)
Ciao.
P.S.
Ma non era Aran, Haran...con la "r" comunque ?
www.daitarn3.com
  :)
Il Cammelliere
http://it.geocities.com/ilcammelliere

 [...]
si Padre :)
avevi ragione č Haran Banjo (almeno sul sito che mi hai indicato)...mi sono
aggiornato :)
ciao e grassie ancora
Newsgroup: it.comp.lang.delphi
Titolo: Conversione Stringa - DateTime

 Devo convertire leggere una stringa che contiene data e ora (un messaggio
SMS per la precisione);
Esempio di stringa:  "04/09/04, 15:39:50+08"
C'è una funzione che decodifica la stringa in data e ora da quel formato o
me la devo decodificare a mano?
Grazie
Mario

Esempio di stringa:  "04/09/04, 15:39:50+08"
per quel "+08" non so come puoi rimediare! Ti conviene splittarlo dalla 
stringa perchè non so che reazione abbia la funzione!
Ciao 
Carta Federico
--- posted by geoForum on 
http://www.delphiedintorni.it


purtroppo la mia domanda era tesa proiprio a sapere se ci fosse modo di non
doversi curare di quel +08; la data e l'ora i quel formato fanno parte del
testo di un messaggio SMS e volevo sapere se c'era il modo di non troncare
la parte finale, tanto per rendere il piů generica possibile la funzione che
elabora la data e l'ora dell'SMS ...
Grazie comunque per la risposta
Mario

 elabora la data e l'ora dell'SMS ...
Nel formato TDateTime la data Zero corrisponde al 12/30/1899 12:00 per cui
se tu gli 08 li sommi a questa data , cioe'
12/30/1899 12:08 e trasformi anche questa in TDateTime e la sommi alla prima
data anch'essa in TDateTime, la somma la ritrasformi con DateTimeToStr, fai
eseguire la somma a Delphi e se pochi secondi fanno scattare il giorno
successivo dovresti trovarti sempre la data corretta, naturalmente se non ho
detto qualche cavolata..
Da provare, ciao Giorgio
Newsgroup: it.comp.lang.delphi
Titolo: Online Status

Esiste un componente oppure un metodo per stabilire se il computer
da cui eseguo il mio programma in Delphi è online oppure offline?
rhymes
rhy...@tiscalinet.it

 da cui eseguo il mio programma in Delphi è online oppure offline?
Componenti non ne conosco, cmq sulla rete avevo trovato questo :
const
  cERROR_BUFFER_TOO_SMALL = 603;
  cRAS_MaxEntryName       =  256;
  cRAS_MaxDeviceName      =  128;
  cRAS_MaxDeviceType      =  16;
type
  ERasError = class(Exception);
  HRASConn = DWord;
  PRASConn = ^TRASConn;
  TRASConn = record
     dwSize: DWORD;
     rasConn: HRASConn;
     szEntryName: Array[0..cRAS_MaxEntryName] Of Char;
     szDeviceType : Array[0..cRAS_MaxDeviceType] Of Char;
     szDeviceName : Array [0..cRAS_MaxDeviceName] of char;
  end;
  TRasEnumConnections =
      function (RASConn: PrasConn;
                var BufSize: DWord;
                var Connections: DWord
                ): LongInt; stdcall;
function RasConnectionCount : Integer;
var
  RasDLL    : HInst;
  Conns     : Array[1..4] of TRasConn;
  RasEnums  : TRasEnumConnections;
  BufSize   : DWord;
  NumConns  : DWord;
  RasResult : Longint;
begin
  Result := 0;
  RasDLL := LoadLibrary('rasapi32.dll');
  if RasDLL = 0 then exit;
  try
    RasEnums := GetProcAddress(RasDLL,'RasEnumConnectionsA');
    if @RasEnums = nil then
      raise ERasError.Create('RasEnumConnectionsA not found in
rasapi32.dll');
    Conns[1].dwSize := Sizeof (Conns[1]);
    BufSize := SizeOf(Conns);
    RasResult := RasEnums(@Conns, BufSize, NumConns);
    If (RasResult = 0) or (Result = cERROR_BUFFER_TOO_SMALL) then Result :=
NumConns;
  finally
    FreeLibrary(RasDLL);
  end;
end;
Se RasConnectionCount è maggiore di 0 c'è una connessione attiva.
Ciao! :)
--
- Carlo -
c.b...@libero.it

Ciao! :)





E come si potrebbe ovviare?
P.s. Visto che ci sto sapete dirmi come faccio a prendere i nomi delle
connessioni create in Acesso remoto?
~Guybrush~

la funzione non da errori di compilazione ma non sembrerebbe
funzionare. Infatti mi viene restituito un valore superiore a zero
appena clicco sul tasto "connetti" per accedere a internet.
~Guybrush~

 connessioni create in Acesso remoto?
RasEnumEntries
Ciao :-)
--
Andrea Magni
E-Mail: 
ama...@interac.it

 appena clicco sul tasto "connetti" per accedere a internet.
Questo perchè non viene fatto alcun controllo sullo stato della connessione,
dai un'occhiata a RasGetConnectStatus...

Newsgroup: it.comp.lang.delphi
Titolo: Quale componente scegliere?

Salve gente!
Un dubbio atroce...
devo fare una specie di tabellina con una sola colonna, l'utente si 
posiziona sulla prima cella e scrive una sigla, preme invio e mette i 
dati nella seconda riga/cella...
Il tmemo mi fa schifo come soluzione e l'utente deve solo mettere al 
massimo 5 o 6 caratteri per "cella" (senza lasciare celle vuote tra una 
e l'altra...).
Quale componente usereste al volo? Nel codice poi dovrò semplicemente 
iterare tra le celle e prenderne il contenuto..
Idee?

MB339A ha scritto:

TStringGrid?
 
-- 
-------------------------------
per scrivere in privato
togliere "1975nosp"
 
to reply remove "1975nosp"
 
---
Questa e-mail è stata controllata per individuare virus con Avast antivirus.
https://www.avast.com/antivirus
 
 


 
Grazie, vedo che ci tiro fuori :)

Newsgroup: it.comp.lang.delphi
Titolo: [d5] table.filter

ciao a tutti, qualcuno di voi sa se è valido utilizzare il metodo filter 
nelle TTable paradox??? è meglio trasformare tutto in query??
Simone 

 ha scritto nel messaggio
news:2s5dm1F...@uni-berlin.de...


Table1.Filter := 'NomeCampoStringa=' QuotedStr( Edit1.Text) ;
Table1.Filtered := True ;
In Edit1.Text abbiamo messo un valore stringa.
Il problema č dovuto al fatto che il contenuto del campo filter dell'object
inspector č comunque una stringa che deve contenere una stringa.
Oppure per inserire l'apostrofo in una stringa si deve fare _''''_ 4 volte
l'apostrofo.
Ciao
Mario - (
mari...@inwind.it
)
--------------------------------
Inviato via 
http://arianna.libero.it/usenet/

Newsgroup: it.comp.lang.delphi
Titolo: percorso programma

come faccio a runtime sapere dove è la cartella del programma in esecuzione?
(se non sono chiaro: facciamo finta che ho messo il mio application.exe
nella cartella c:\pippo\prova\, che comando devo usare perchè mi venga
restituita questa path, eventualmente anche con il nome file?)
grasias
saludos
..::|| Ale.Ber ||::..

> come faccio a runtime sapere dove è la cartella del programma in
esecuzione?
TApplication.ExeName.
Se guardi sull'help c'è un esempio per usare funzioni che ti estraggono il
percorso e lo stesso ExeName.
Ciao
Antonio


Dai un'occhiata sull'help a:
- GetCurrentDir
-ExtractFilePath(Application.ExeName)

 ha scritto nel messaggio
news:M1iCa.24689$pR3.4...@news1.tin.it...

Newsgroup: it.comp.lang.delphi
Titolo: Listview

Salve, sono alle rime armi e voglio
fare un pò di prove con il componente Tlistview,
ma non i ho capito una mazza...
ad esempio ho creato delle colonne:
Nome   |   Cognome   !  Tel
ma come faccio a scrivere nelle rispettive colonne
i dati che io inserisco, oppure ho in un file:
Nome;Cognome;Tel
Grazie per l'attenzione,  Gian

 ha scritto nel messaggio

ciao DeMoNe
ListView1.ViewStyle:=vsReport;//questo lo puoi settare anche dalle proprietá
dopo che hai le tue variabili..nome,tel,ecc
var Item: TListItem;
nome,cognome,tel:string;
begin
Item := ListView1.Items.Add;
Item.Caption := cognome;
Item.SubItems.Add(nome);
Item.SubItems.Add(tel);
Item.Free;
ciao
erik

 Item.Free;
?????

 ha scritto nel messaggio
news:wrNqb.106897$e5.38...@news1.tin.it...


  oppure ho in un file Nome;Cognome;Tel
In tal caso potresti:
var i, i: integer;
    li: TListItem;
    slFile, slLine: TStringList;
begin
  // alloca slFile, slLine
  slFile.LoadFromFile;
  for i := 0 to Pred(slFile.Count) do begin
    slLine.DelimitedText := slFile[i];
    li := ListView1.Items.Add;
    li.Caption := slLine[0];
    for j := 1 to slLine.count-1 do
      li.SubItems.Add(slLine[j]);
  end;
  // dealloca
end;
Saluti
Paolo Arosio
-- 
"La dimostrazione dell'esistenza di specie intelligenti nell'universo
 e' che non ci vengono a trovare"

 ?????
Si perché?
ho un programma con questo codice :
var
Item: TListItem;
flags,FileName,Size,mese,ora,data:string;
begin
Item := ListView1.Items.Add;
Item.Caption := filename;
if pos('drw',flags)>0 then Item.ImageIndex:=0 else
Item.ImageIndex:=ItemIn(i);
Item.SubItems.Add(size);
Item.SubItems.Add(mese);
Item.SubItems.Add(data);
Item.SubItems.Add(ora);
Item.SubItems.Add(flags);
item.Free;
(aggiunge i file di un ftp ad una listview)
e mi funsiona bene
Dite che non vá messo?
ciao
erik

 ha scritto nel messaggio
news:bog9mb$1cp8mq$2...@ID-30644.news.uni-berlin.de...


 non è che dica molto.. è + per gente esperta.
Vuoi lavorare con le stinghe o con i file  guarda quí
http://www.delphibasics.co.uk
bye
erik

 ha scritto nel messaggio
news:Ox3rb.435780$R32.14...@news2.tin.it...


 > > non č che dica molto.. č + per gente esperta.

Newsgroup: it.comp.lang.delphi
Titolo: delphi (6) e componenti

salve voi quando sviluppate progetti a lungo termine (progetti che son
sempre in fase di modifiche aggiornamenti) come gestite eventuali oggetti e
componenti??? fate un package separato oppure accodate sulla package
standard???
Simo

"Simone P" ha scritto nel messaggio

Per "pulizia" non andrebbe mai messo niente nel package standard. Io in
genere non tocco mai quelli già forniti dal Borland o da altri, ma ne
gestisco di miei.
Ciao.
Gianluca.

 ha scritto nel messaggio
news:3Opaa.34233$zo2.9...@news2.tin.it...



Non vedo altra soluzione.
Io non considero i package orientati al progetto, ma orientati alla
funzionalità che dovrebbero contenere (cerco di dividerli per gruppi di
componenti). Se quindi in un certo progetto faccio uso di certi componenti
li utilizzo, altrimenti no.
P.S: il quoting. ;-)
Ciao.
Gianluca.

Newsgroup: it.comp.lang.delphi
Titolo: help creazione array di ogetti

non so se sono OT, ma da quanto ho capito Kylix = delphi, o sbaglio?
Se non sto sbagliando, ecco il mio quesito:
ho istanziato un array dinamico di oggetti, e mi aspetto che questi vengano 
creati in un ciclo, nel seguente modo
for  i:=0 to DIM do
  begin
    SetLenght(ArrayOggetto,i+1)
    ArrayOggetto[i]:=TipoOggetto.Create(owner);
    i:=i+1;
  end;
Durante il debug mi sono accorto che la prima iterazione va a buon fine, 
ovvero ArrayOggetti[1] viene creato correttamente, ma quando prova a creare 
ArrayOggetti[2] mi dice che già esiste un oggetto del tipo TipoOggetto di 
cui ho bisogno.
Come posso risolvere?
Se sono OT mi consigliereste un altro NG?
Grazie
    Fabbro

    Fabbro
	Ciao
	MassimoB
 
---------------------------------
http://www.massimobeschi.it/
---------------------------------
Se tu pagare come dici tu ...
Io lavorare come dico io ...
Se tu pagare come dico io ...
Io lavorare come dici tu ...
---------------------------------

 che ottieni.
L'eccezione è: "l'oggetto TFrame esiste già" (... lo so, non è precisa, ma 
il senso è esattamente questo ;) ); questa eccezione mi esce fuori quando 
alloco il secondo elemento dell'array, sul primo non mi dà problemi 
(l'indice aumenta correttamente, ho controllato col debug run-time)
Spero di averti fatto capire un po' di più,
    Grazie
    Fabbro