mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.delphi
Titolo: presentazioni D2007

Nessuno ci dice niente sulle presentazioni di D2007?
Grazie
-- 
F&R 

 Nessuno ci dice niente sulle presentazioni di D2007?
Sto scrivendo qualcosa a riguardo, ma come sempre la missione si rivela 
più impegnativa di quello che pensassi. :-)
Ho anche parecchio "lavoro extra" da sbrigare, quindi forse ci vorrà 
qualche giornata, ma ben presto avrete mie notizie in proposito. ;-)
Ciao,
   Marco.
-- 
MARCO BREVEGLIERI
  (
http://www.marco.breveglieri.name
)


su un post , di uno dei rivenditori Italiani ,
http://www.consist.it/framedelphi.htm
leggo , ben evidenziato in grassetto, che i vari componenti
di BDS2006 , si potranno installare su D2007, questo mi fa pensare
1) se si installano pari pari, significa che non ci sono poi grossi
    cambaimenti, a livello Vcl , cosa che ivece dovrebbe essere notevole.
2) a livello .Net ancora di piu' D2007 supportera' Net 2.0 , che senso ha
    installare i componenti per BDS2006
3) D2007 viene dato "Vista" nativo , questo comporta per foirza di cose un
    cambiamen to delle Vcl , e quindi ancora di piu' mi vengono i dubbi
    espressi al punto 1
Maurizio

    espressi al punto 1
I cambiamenti della VCL per renderla VISTA-ready sono stati fatti attraverso
degli hack delle classi.
Vedi qui una spiegazione:
http://blogs.codegear.com/abauer/archive/2007/02/24/32322.aspx
Qui invece trovi molte info che potranno risolvere i tuoi dubbi:
http://hallvards.blogspot.com/2007/03/review-delphi-2007-for-win32-beta-part_11.html
Ciao
-- 
ACSH
[TurboDelphi]
Chi fa da se', fatica il doppio 


Ops, volevo dire qui
http://17slon.com/blogs/gabr/2007/03/delphi-2007-is-here.html
Ciao
ACSH
-- 
Il più grande sbaglio nel progettare software
a prova di stupido è sottostimare l'enorme
ingegnosità degli stupidi. 

     espressi al punto 1
Come puoi pensare che sia vera una cosa del genere, al di là di 
conoscere come effettivamente è stata realizzata (vedi link del 
provvidenziale ACSH) dato che sono entrambe caratteristiche 
pubblicizzate da giorni e giorni, testimoniate dai beta tester, con 
filmati dimostrativi in occasione della CodeRage e così via, su cui 
CodeGear ha spinto maggiormente forse più di tutte le altre cose 
presenti in D2007? :-|


Newsgroup: it.comp.lang.delphi
Titolo: SQL principiante

Ma come posso evitare che questa query mi trovi anche le corrispondenze
scritte in maiuscolo es TRI o tRi....?
select * from biolife where Category like 'Tri%'
Ciao e grazie



Prova con:
select * from biolife where UPPER(Category) like 'TRI%'
-- 
Andrea Laforgia
#exclude <windows.h>
Newsgroup: it.comp.lang.delphi
Titolo: Avvio automatico, ma dal menu Esecuzione Automatica!

Salve!
Ho visto che sulle FAQ viene spiegato come far avviare automaticamente
la proprio applicazione inserendo una chiave nel file registro...
Non volendo che il mio programma tocchi alcuna chiave, preferirei
invece che creasse un collegamento a se stesso nel menu Esecuzione
Automatica, ma non ho la + pallida idea di come fare! :-(
Aiuuuto, pleeease...
Bye!
-- 
        <<* VeGeTa_CuBe *>>
 
http://members.xoom.it/vegeta3/

 Automatica, ma non ho la + pallida idea di come fare! :-(
Semplicissimo: dunque, scaricati il componente TFastShellLink da torry,
poi piazzatelo sulla form, e quando vuoi creare il collegamento fai
  fLink.LinkName := <nome del collegamento>;
  fLink.LinkTarget := <nome del file a cui punta>;
  fLink.CreateIn.ShellFolder := sfStartUp;
  fLink.Execute;
--
Jax

[..]
Grazie mille... avevo gia' incominciato a cercare su torry, ma non
avevo trovato nulla che mi entusiasmasse...


 avevo trovato nulla che mi entusiasmasse...
Mai arrendersi al primo componente! ;)
--
Jax

Mai arrendersi al primo componente! ;)
Ora pero' non so come fare a cancellare il collegamento... :-(


 Bye!
Ciao, Antò.

 Ora pero' non so come fare a cancellare il collegamento... :-(
Eh va beh ma allora dillo prima :)
Un modo poco elegante (ma del resto è usato anche dal componente che ti
ho detto) potrebbe essere questo: leggi la posizione della cartella
Startup nel registry, e poi cancelli il file .lnk con un DeleteFile:
 Reg := TRegistry.Create;
 with Reg do
  try
   RootKey := HKEY_CURRENT_USER;
   OpenKey('\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell
Folders', True);
   RegStr := ReadString('Startup');
  except
  end;
 Reg.Free;
DeleteFile(RegStr + '\' + sNomeLink + '.lnk');
Non l'ho testato...
--
Jax

Non l'ho testato...
Ci sono arrivato anch'io alla fine... dovrebbe funzionare... se il
file non esiste cmq non da alcun errore...
Certo, se uno va a modificare il nome al .lnk va tutto a rotoli... ma
a questo ci pensero' piu' avanti... non la ritengo una cosa urgente da
implementare... e neanche cosi' essenziale...
Ancora grazie!


creato il link?
Beh si... il problema era che non avevo ancora avuto a che fare con le
funzioni che maneggiano i file, pensavo fosse piu' complicato di come
poi si e' rivelato!


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

Conoscete qualche modo per far cambiare la risoluzione dello schermo al
programma? Ovviamente vorrei anche conoscere le risoluzioni con i colori
possibili. Esiste un Api o un componente?
Grazie

 possibili. Esiste un Api o un componente?
Tempo addietro scrissi una funzione per questo ...
Function ChangeRisol (PixelOriz,PixelVert,BitPixel : Integer) : Boolean;
Var Dev : TDevMode;
    Chng : Integer;
Begin
  Result:=False;
  Dev.dmSize:=SizeOf(Dev);
  Dev.dmPelsWidth:=PixelOriz;
  Dev.dmPelsHeight:=PixelVert;
  Dev.dmBitsPerPel:=BitPixel;
  Dev.dmDisplayFrequency:=60;
  Chng:=ChangeDisplaySettings(Dev,0);
  If (Chng=DISP_CHANGE_SUCCESSFUL) or (Chng=DISP_CHANGE_RESTART) Then
     Result:=True;
end;
Saluti
--
- Carlo -
c.b...@libero.it
Newsgroup: it.comp.lang.delphi
Titolo: Richiamare nomi componenti

Domanda:
ho otto pulsanti su una form. Voglio che cambi la caption di ognuno a 
seguito di vari eventi. Per razionalizzare la procedure vorrei fare qualcosa 
del genere:
For I := 1 to 8 do begin
pulsante(I).caption :='Prova_'+inttostr(I);
end;
Naturalmente cosě non va bene. Qualcuno sa come raggiungere lo scopo?
Grazie in anticipo.
Pippo. 

 
Prova a cercare nel manuale:
Components
ComponentCount
FindComponent
Max

del genere:
Ciao
se ho capito bene, vuoi variare ciň che č scritto sul pulsante quando 
viene premuto o qualche altra cosa viene toccata.
Puoi collegare un unico evento OnClick a tutti i pulsanti
Form1.PulsantiClick(Sender:TObject);
begin
  with TBitBtn(Sender) do
  if Sender = Puls1 then begin
     if Caption = 'Sono solo' then Caption := 'Sono in compagnia'
     else Caption := 'Sono di nuovo solo';
  end
  else if Sender = Pul2 then begin
  end
  ...
end;
Naturalmente, puoi collegare lo stesso comportamento ciclico ad un altro 
componente, tipo un TEdit, per esempio un OnChange che varia la Caption 
del BitBtn se il suo contenuto č pari a "x" oppure attiva alcuni 
pulsanti e li fa diventarem "Enabled := True;"
e cosě via.
Antonio
end;
NioBi
--- posted by geoForum on 
http://www.delphiedintorni.it

 ha scritto nel messaggio 
news:462ca252$0$36440$4faf...@reader5.news.tin.it...

var Comp: TButton; // come Pulsante
for i:=1 to 8 do
    begin
    Comp:=FindComponent('Pulsante'+IntToStr(i));
    if Comp<>Nil then
        Comp.Caption:='Prova_'+IntToStr(i);
    end;
Giorgio
 

>Naturalmente cosě non va bene. Qualcuno sa come raggiungere lo scopo?
Come no? Basta che ti crei l'array con i pulsanti...
Pulsanti: array[1..8] of TButton;
...
Pulsanti[1] := Button1; // ecc.
Questo metodo va bene se il numero di pulsanti č fisso. Se č variabile 
puoi usare una TList o un array dinamico. Occhio che in Pascal gli array 
usano le quadre, non le tonde.
Questi metodi sono piů veloci che cercare il componente sul form.

Newsgroup: it.comp.lang.delphi
Titolo: Delphi e FireBird

Salve a tutti,
ho un problema assurdo con l'accoppiata Delphi e Firebird (ver.1.5 Embedded)
Ve la faccio semplice, se il data base non esiste e scrivo:
DataBase.DatabaseName := 'c:\temp\_dati.gdb';
DataBase.Params.Clear;
DataBase.Params.Add('user "SYSDBA" password "masterkey"');
DataBase.CreateDataBase;
e, in seguito,
DataBase.Open
tutto funziona correttamente. Ma se il data base esiste e scrivo
DataBase.DatabaseName := 'c:\temp\_dati.gdb';
DataBase.Params.Clear;
DataBase.Params.Add('user "SYSDBA" password "masterkey"');
DataBase.Open
- praticamente ometto solamente la CreateDataBase - mi viene generata 
l'eccezione:
"Your user name and password are not defined. Ask your database 
administrator to set up a Firebird login."
Che mi invento?
Nota:
Sistema operativo Widows XP SP2 Professional 32 Bit
Delphi 2006 SP1
L'accesso ai dati lo sto' provanto con un po' tutti i componenti a 
disposizione e no ma la situazione non cambia


Ho fatto una prova con la versione Firebird-1.5.3.4870-0_embed_win32 e 
mi funziona tutto sia la creazione che la connessione ad un db già 
esistente.
Non è che per caso hai nel path la dll del server invece che dell'embedded?
-- 
Ibis et redibis non morieris in bello
http://goblinland.myminicity.com/

 Non è che per caso hai nel path la dll del server invece che dell'embedded?
L'avevo ma l'ho eliminata (path compresa) ma nulla tutto come sopra

Ho fatto altre prove e sono ancora piu' incasinato.
Allora la creazione funziona perfettamente.
Se abilito il Login Prompt e provo ad aprire il data base creato mi 
viene chiesto USER e PASSW (ovviamente sono le solite: SYSDBA e 
masterkey) e funziona regolarmente. Praticamente se non passo per il 
CreateDatabase sembra che i dati in Params non vengono presi in 
considerazione. Idee?
Newsgroup: it.comp.lang.delphi
Titolo: Una curiosità

Supponiamo di avere un oggetto TTable, supponiamo che ne abbia settato le
varie prorprietà, ora la mia curiosità è la seguente : se voglio inserire
dei valori in una tabella in modo ke io gli passo solo i valori in un ciclo
sul numero dei campi come posso fare?cioè voglio fare una procedura standard
ke mi permetta di inserire i valori ke dico io in una tabella, abbozzo un
esempio :
a[i] è l'array ke contiene i dati da inserire;
Table1.Insert;
for i := 1 to numerocampi do
  begin
        Table1.campo := a[i];
     campo := campo + 1 //passa al campo successivo
  end;
     Table1.Post;
non so se ho reso "l'idea"!
Ringrazio tutti coloro ke mi risponderanno.

TDataSet.InsertRecord;
--
Acqua

 capito niente.
Il metodo InsertRecord Della classe TDataSet è definito come segue:
procedure InsertRecord(const Values: array of const);
Ha soltanto un parametro di tipo *array of const*.
Devi passare un'array i quali elementi rappresentano la lista dei valori da
assegnare ai campi della tabella nell'ordine in cui sono definiti i campi
stessi.
Supponiamo che voglio aggiungere in una tabella 10 records *random*.....
La tabella ha i seguenti campi:
LastName
FirstName
NoDept
NoBranch
IsMale
BirthDate
Address
Ora, la tabella contiente sette campi ma l'array passata a InsertRecord ne
contiente 6.
Perchè Delphi non dà errore?
Perchè Delphi assegna automaticamente NULL ai campi successivi non definiti
nell'array!
const
  FirstNames : array [1..10] of string =
    ('John', 'Paul', 'Mark', 'Joseph', 'Bill',
    'Peter', 'Tim', 'Ralph', 'Bob', 'Gary');
  LastNames : array [1..10] of string =
    ('Ford', 'Osborse', 'White', 'MacDonald', 'Lee',
    'Young', 'Parker', 'Reed', 'Gates', 'Green');
  NoDept = 4;
  NoBranch = 30;
  NewRecords = 10;
procedure AddRandomData;
var
  I: Integer;
begin
  Randomize;
  for I := 1 to NewRecords do
    Table1.InsertRecord ([
      LastNames [Random (High (LastNames)) + 1],
      FirstNames [Random (High (FirstNames)) + 1],
      Random (NoDept) + 1,
      DbComboBox1.Items [Random (NoBranch) + 1],
      Boolean (Random (2)),
      Date - Random (1000)]);
  ShowMessage (IntToStr (NewRecords) + ' added');
end;
--
Acqua

Definisci il valore costante che identifica la 
lunghezza massima del vettore.
Const
  Max = 20;
Ora ti occupi della procedura :
TForm1.PopolaTabella;
Const
  Max = 20;
Var
  i : integer;
begin
  for I := 1  to numerocampi  do
    begin
      Table.Insert;
      Table.fieldByName( 'NomeCampo' + IntToStr(i) ).asString := a[i];
    end;
end;
In questo modo puoi definire anche un array dei nomi dei campi così
la nuova dicitura sarà:
Table.fieldByName( NomeCampo[i] ).asString := a[i];
Ciao
Newsgroup: it.comp.lang.delphi
Titolo: sempre a proposito del registro

se dovessi creare  un valore
Path= 'c:\programmi\io\io.exe'
in HKEY_LOCAL_MACHINE\Software\io
come faccio

 ha scritto nel messaggio
news:D3dW5.18544$hk4.6...@news.infostrada.it...

Codice:
uses ..., Registry;
Var
 Reg: TRegistry;
begin
 Reg:= TRegistry.Create;
 Reg.RootKey:= HKEY_LOCAL_MACHINE;
 Reg.OpenKey('Software\io', True);
 Reg.WriteString('Path', 'C:\Programmi\io\io.exe');
 Reg.Free;
end;
Davide Carrara

Lo so che stresso la vita... :)
    uses ..., Registry;
    begin
        with TRegistry.Create do
        begin
            RootKey:= HKEY_LOCAL_MACHINE;
            if OpenKey('Software\io', True) then
                WriteString('Path', 'C:\Programmi\io\io.exe');
            Free;
        end;
    end;
senza la dichiarazione di una variabile di tipo TRegistry.
Saluti,
Marco


Ma con l'uso di un bruttissimo (secondo me) with  ;PP  ... si ... anch'io
stresso la vita !! ;PPP
Ciao, Davide DG

 anch'io stresso la vita !! ;PPP
secondo me e' meglio cosi':
R := R.Create;
try
 ...
finaly
 R.Free
end;
...aspetta, ho come un deja vu (o come cacchio si scrive...) ;)))
[probabilmente stanno cambiando qualcosa...]
[1 milione ... (di sberle) a chi la capisce] :P
Ciao,
Alan Solo

 [1 milione ... (di sberle) a chi la capisce] :P
Matrix!!
1,2,3 ... 999999, 1000000 ... beh, non fanno poi tanto male! :)
--
- Carlo -
c.b...@libero.it

 end;
ovviamente l'ho scrtta in super fretta
 R := TRegistry.Create; 
 try
  ...
 finally
  R.Free
 end;
scusate..

> Matrix!!
ebbbbravo Carlo!!! :)
[minkia che velocita'!]

 [minkia che velocita'!]
Siamo entrambi connessi ... siamo anche OT! :)
--
- Carlo -
c.b...@libero.it
ps : non pensavo che il DVD aiutasse a rispondere sui NG! :)

 ps : non pensavo che il DVD aiutasse a rispondere sui NG! :)
nemmeno io che a guardare tele+ aiutasse a fare domande
costruttive! :)
Ciao!

 costruttive! :)
Dai, ti rivelo un segreto ... anche io ho Tele+, ma su DVD si vede (e si
sente) much more better! :)
Ciao! :)

Newsgroup: it.comp.lang.delphi
Titolo: contatore a video

Salve.
Come devo fare per far si che durante questo ciclo di lettura :
while not eof(fileTXT) do begin
readLn(fileTXT, line);
tot := tot+1;
label1.caption := inttostr(tot);
end;
closeFile(fileTXT);
la label1 venga visualizzata con incremento e non alla fine del ciclo con il
valore totale ?
Grazie

uses Giorgio; 
 const date = 'Sat, 02 Nov 2002 22:57:39 GMT'; 

Quasi sicuramente l'aggiornamento sarà così veloce da essere
illeggibile, comunque prova con:
...
label1.caption := inttostr(tot);
label1.Refresh;
...
Ma per queste cose ti consiglierei l'uso della ProgressBar ;)
-- 
A lurker.

 closeFile(fileTXT);
bYE
A.

Newsgroup: it.comp.lang.delphi
Titolo: Cambiare icona ai componenti

Se io creo un nuovo componente come faccio ad assegnarli una mia icona? Se
lo faccio utlizzando una classe di us altro componente
es xx:class(tbitbtn); xx eredita l'icona di Tbitbtn!
TNX

Se io creo un nuovo componente come faccio ad assegnarli una mia icona? 
Creando un DCR che contenga un bitmap con lo stesso nome
(tutto maiuscolo) del tuo componente.  Il nome del file .dcr
deve essere uguale a quello della unit che contiene il corpo
del componente.
-- 
Andrea Laforgia (
walkie...@libero.it
)
"Usenet is a strange place" [Dennis Ritchie]

 ha scritto il messaggio:
3cad9eb3...@news.tin.it
 che ha colto la mia attenzione...


Con cosa creo il file dcr? 
Con l'Image Editor fornito con Delphi.

Newsgroup: it.comp.lang.delphi
Titolo: Bluetooth con Delphi

Ciao a tutti,
qualcuno può consigliarmi dove trovare documentazione o magari qualche 
esempio in delphi su come ricevere dati tramite bluetooth ?
In rete ho visto che è possibile trovare vari componenti già fatti a 
pagamento che fanno di tutto, ma io avrei bisogno semplicemente di 
ricevere brevi pacchetti tramite il bluetooth del pc (tipo telecomando).
Uso Delphi 2010.
Grazie a tutti.
 
Buonagiornata.

http://msdn.microsoft.com/en-us/library/windows/desktop/aa362927%28v=vs.85%29.aspx
 
 
A.

 A.
Ti conviene a 12 E. prendere un adattatore USB-Bluetooth, e usi solo 
soft per USB, Giorgio

 soft per USB, Giorgio
 
xche?
 
A.
Newsgroup: it.comp.lang.delphi
Titolo: Unidac + Server

Ciao a tutti,
   visto che ho delphi xe 2 e che le firedac sono incluse dal delphi 2010 
(ma in realta' si possono richiedere anche dalla versione xe 5), sto usando 
le unidac.
Dopo aver fatto un po si test, in locale (ovvero sul mio pc) riesco a 
visualizzare i dati di una tabella in una griglia (va bhe non e' molto ... 
ma e' qualcosa) ed alcuni campi (quelli che mi interessa leggere) in 
altrettanti edit.
Fin qui tutto bene, ma i problemi iniziano a sorgere quando cerco di 
connettermi allo stesso db situato sul server.
Ecco i dati
Nome del server : SERVER (in maiuscolo)
Directory in cui risiede : C:\Test
Nome del file : DBTest.phs
 
nel componente connect di unidac nella property DataBase uso
\\SERVER\Test\DBTest.phs
 
Quando tento di connettermi, mi da errore "impossibile trovare il percorso 
specificato".
 
Lo stesso accade se come data base lascio DBTest e nella property Server 
imposto
\\SERVER\C\Test\
 
Le ho provate tutte, o quasi, cambiando i percorsi, il disco sul server 
ecc.. ma non riesco a connettermi.
 
Alla fine ho provato con FlameRobin e ho aggiunto un nuovo server, nelle 
configurazioni ho selezionato il file in questione 
(\\Server\Test\DBTest.phs) tramite il dialog incorporato e ... quando tento 
di accedere mi da lo stesso errore.
 
Problemi di connessione, incapacita' o chissa' cosa sul server ??
 
Grazie a tutti per le vostre risposte.
 
Ciao
 
Daniele
 

 
 
io proverei ( consigli personali ), a:
1) modificare l'estensione del db, .gdb o .fdb
2) al posto di \\SERVER mettere direttamente l'indirizzo IP
 
Ciao da Enrico.

 di accedere mi da lo stesso errore.
 
Se non ricordo male con Interbase la connessione andava fatta
con la stringa server:database. Non ho mai usato firebird ma immagino
che non sia cambiato... 
Prova a mettere questa stringa: 
  SERVER:c:\Test\DBTest.phs
 
ciao
Giacomo

Ciao a tutti,
problema risolto !!!!!!
 
come accade molto spesso .... la soluzione era li sotto il naso ....e figlia 
della distrazione !
 
Il nome del percorso completo e':
 
\\server\c:\progrma files (86)\Test
 
e NON
 
\\server\c:\Test
 
perche' inavvertitamente la Test l'ho creata (errore mio) sotto progrma 
files (86)
 
Sostituita la stringa ..... tutto ok !! (e anche spostata la directory)
 
Scusate per la sciocchezza !!
 
Grazie
 
Ciao
 
Daniele
Newsgroup: it.comp.lang.delphi
Titolo: Firedac Query con File Indice.

Ciao a tutti,
  domanda banale ....
Il componente query di firedac usa i file indici in automatico come le 
tabelle ?
 
Se no, come posso utilizzare in una query con innerjoin su 2 tabelle con un 
campo condiviso che e' presente in due indici separati delle 2 tabelle ?
 
  QueryStr:='Select LISTINO.* from DEPOSTIO Inner Join LISTINO on 
(LISTINO.CODICE=DEPOSITO.CODICE and DEPOSITO.QTA>0)';
  QueryStr:=QueryStr + ' Where LISTINO.DATA BETWEEN ' + 
QuotedStr(FormatDateTime('YYYY/MM/DD',Date)) +
                       ' AND ' + QuotedStr(FormatDateTime('YYYY/MM/DD',Date 
+ 30));
 
Questa query e' pressoche' istantanea considerando LISTINO > 2.5 milioni di 
record e DEPOSITO > 45 mila record, ma solo 5 mila > 0.
 
Se invece nella query indico DEPOSITO.QTA>=0  i record diventano > 17 mila e 
rallenta un pochino (ma poco, qualche millisecondo in piu' :-)) ).
Date queste velocita' e che non indico nessun indice, ho dedotto che firedac 
usa in automatico gli indici.
 
Ciao a tutti
 
Daniele
 
 

 usa in automatico gli indici.
 
A quale DB ti stai connettendo?
Se e' un server SQL (oracle, interbase, MSSQL, ...) non e' merito di firedac 
ma del server: e' proprio il suo compito eseguire le query
usando gli indici in modo trasparente per l'utente.
 
ciao
Giacomo

 usa in automatico gli indici.
 
E` il database che usa gli indici, secondo una policy che si puo` analizzare dal query plan. 

Ciao a tutti,  grazie 
 
Ciao
 
Daniele

Newsgroup: it.comp.lang.delphi
Titolo: Font dei menu

Salve a tutti
Avrei necessità di sapere come posso fare per impostare le dimensioni dei
font in un menu indipendentemente dalle impostazioni di windows. Qualcuno mi
sa aiutare?
Grazie
Newsgroup: it.comp.lang.delphi
Titolo: Port e WPort

Cari amici, ho perso una parte del lavoro fatto a causa di un problema al
disco fisso. Tra le altre cose ho perso due piccole procedure che mi
permettevano di leggere le porte della CPU (i vecchi array predefiniti Port
e Wport del pascal che funzionano anche con delphi1). Qualcuno può darmele o
dirmi dove posso trovarle? Grazie
   Antonio

Occhio che funzionano solo sotto win 32 no win NT/2000/XP.
<CUT HERE>
unit InOut;
interface
procedure Out32(PortAddress:smallint;Value:smallint);
function Inp32(PortAddress:smallint):smallint;
implementation
uses SysUtils;
procedure Out32(PortAddress:smallint;Value:smallint);
var
   ByteValue:Byte;
begin
     ByteValue:=Byte(Value);
     asm
        push dx
        mov dx,PortAddress
        mov al, ByteValue
        out dx,al
        pop dx
     end;
end;
function Inp32(PortAddress:smallint):smallint;
var
   ByteValue:byte;
begin
   asm
        push dx
        mov dx, PortAddress
        in al,dx
        mov ByteValue,al
        pop dx
    end;
    Inp32:=smallint(ByteValue) and $00FF;
end;
end.

 ha scritto nel messaggio
news:iwjQ7.261461$sq5.12...@news.infostrada.it...


 Occhio che funzionano solo sotto win 32 no win NT/2000/XP.
Per la precisione: generano un errore di runtime 218 (EPrivilege), 
perchè le istruzioni in e out sono riservate al kernel (se fossero 
utilizzabili da chiunque, non si potrebbero forzare le limitazioni 
d'accesso sulle porte)
In Windows NT la porta va aperta tramite la sua corrispondente 
periferica, usando CreateFile (specificando come nome di file "COMx" o 
"LPTx", o qualsiasi altro nome di periferica valido). Dopodichè si può 
scriverci come un normale file (ReadFile(Ex) e WriteFile(Ex)), oppure 
usare le funzioni specifiche per le porte:
BuildCommDCB
BuildCommDCBAndTimeouts
ClearCommBreak
ClearCommError
CommConfigDialog
DeviceIoControl
EscapeCommFunction
GetCommConfig
GetCommMask
GetCommModemStatus
GetCommProperties
GetCommState
GetCommTimeouts
GetDefaultCommConfig
PurgeComm
SetCommBreak
SetCommConfig
SetCommMask
SetCommState
SetCommTimeouts
SetDefaultCommConfig
SetupComm
TransmitCommChar
WaitCommEvent
-- 
Nato nel vizio, morto nel supplizio
Nato nel peccato, ad entrare sia invitato

Newsgroup: it.comp.lang.delphi
Titolo: problemino caption di una form

salve,
   ho un problema stupidissimo... Non riesco a settare il titolo di una 
form quando la creo a runtime. Dovrei settare un titolo diverso in base 
ad un flag. Chi mi da una dritta?
grazie

With TQualcheForm.Create(Qualcosa) do
begin
  if MioFlag then
    Caption := 'Primo titolo'
  else
    Caption := 'Secondo titolo'
end;
Oppure:
Application.CreateForm(TMioForm, MioForm);
if MioFlag then
    MioForm.Caption := 'Primo titolo'
  else
    MioForm.Caption := 'Secondo titolo'
end;
Bye
AS
-- 
Posted from  [212.17.220.41] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG
Newsgroup: it.comp.lang.delphi
Titolo: CM_MouseEnter

Seguendo i consigli di Marco Breveglieri, che ringrazio molto, ho
creato un nuovo componente derivato da Tbutton che cambia di
dimensioni al passaggio del mouse chiamando CM_MOUSEENTER e
CM_MOUSELEAVE. Funziona tutto bene, anche troppo: infatti il mio nuovo
bottone reagisce al mouse anche in fase di disegno, ma solo per la
parte MouseEnter: se per sbaglio ne sfioro uno, questo ingrandisce ma
non ritorna più alle dimensioni di partenza e quindi devo ridefinire
ogni volta altezza e larghezza. Chi mi può aiutare?
Francesco Musso

bottone reagisce al mouse anche in fase di disegno
Humm... è strano, però, non dovrebbe.  Prova a gestire il
ComponentState:
procedure TMyButton.CMMouseEnter;
begin
  if not (csDesigning in ComponentState) then 
  begin
    Width := Width * 2;
    Height := Height * 2;
  end;
end;
procedure TMyButton.CMMouseLeave;
begin
  if not (csDesigning in ComponentState) then 
  begin
    Width := Width div 2;
    Height := Height div 2;
  end;
end;

On Sat, 27 Sep 2003 21:25:21 +0200, 
fr...@tele2.it
 wrote:

Newsgroup: it.comp.lang.delphi
Titolo: >>>Stampare una form?<<<

Qual'e' il modo per stampare una form (solo quella)
al runtime.
Ho provato con il metodo print, ma con scarso successo.
ciao
=====
Leonardi Adolfo
______________________________________________________________________
Do You Yahoo!?
Il tuo indirizzo gratis e per sempre @
yahoo.it
 su 
http://mail.yahoo.it
--
Posted from 
web1505.mail.yahoo.com
 [128.11.23.183] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

Form1.Print;
altrimenti potresti catturare l'immagine del form in un bitmap e poi
stamparlo.
--
Gna...@Wappi.com
ICQ# 76488613
http://gnaffy.tripod.com/


Scusate se rilancio il quesito, ma se la Form fosse più grande dello schermo
come si fa, dato che non riesco ad ottenere la Bitmap di tutta la Form?

Mi puoi fare un esempio concreto?
ciao e grazie


 wrote in message 399fd...@news.dada.it...

Newsgroup: it.comp.lang.delphi
Titolo: Componenti Excel

Esistono dei componenti Freeware per Delphi7 che mi permettono l'import ed
l'export in Excel?
Se si ne avete qualcuno da consigliarmi in particolare?
Grazie...

 Se si ne avete qualcuno da consigliarmi in particolare?
Dovresti usare i Microsoft Office Automation Server Components forniti
direttamente con D7.
Purtroppo non ho esperienza nel loro uso e non posso aiutarti ulteriormente.

 Grazie...
prego.
-- 
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: [D6] TFields creati RunTime: come distruggerli?

Ciao a tutti!
Con tanta fatica sono finalmente riuscito a creare runtime gli oggetti
TField persistenti prendendo da un file di configurazione la descrizione
della maschera (nomi dei campi, tipi, dimensioni colonne, formattazione e
lookup).
Il codice piu o meno è questo:
if dmApConf.tbCampi.FieldByName('fld_type').AsString = 'S' then begin
  { Campi di dati tipo *** STRINGA *** }
  with TStringField.Create(aDataSet) do begin
    {$I initField.Inc}
    FieldName := dmApConf.tbCampi.FieldByName('fld_name').AsString;
    Name := aDataSet.Name +
dmApConf.tbCampi.FieldByName('fld_name').AsString;
    DataSet :=  aDataSet;
    Required := False;
    DisplayLabel := dmApConf.tbCampi.FieldByName('fld_title').AsString;
    aDataSet.FieldDefs.Add(Name, ftString, 0, False);
    {$I initCol.inc}
    NewColumn := grd.Columns.Add;
    NewColumn.FieldName := FieldName;
    NewColumn.Title.Caption := DisplayLabel;
    NewColumn.Width := dmApConf.tbCampi.FieldByName('fld_size').AsInteger;
    NewColumn.ReadOnly :=
dmApConf.tbCampi.FieldByName('fld_read_only').AsBoolean;
    if dmApConf.tbCampi.FieldByName('fld_yellow').AsBoolean then
      NewColumn.Color := $0080FFFF;
  end;
end;
dove:
- dmApConf è un datamodule
- tbCampi è la tabella filtrata per i campi della specifica maschera che mi
interessa
Naturalmente il codice viene ripetuto simile in relazione al tipo campo
impostato nella tabella di configurazione.
L'applicazione è composta della maschera principale, che appunto viene
configurata automaticamente in base ad un parametro in CommandLine e mostra
una griglia di dati modificabili dall'Utente.
Da alcuni campi è possibile aprire una lista di valori possibili attraverso
un'altra maschera dotata di griglia che si configura automaticamente.
Il mio problema è che, una volta chiusa la maschera di lista, non riesco a
distruggere i TFields creati e quindi mi trovo i due seguenti errori:
- se l'Utente tenta di riaprire la stessa lista una seconda non riesce a
ricreare i TFields corrispondenti in quanto già esistenti
- se l'Utente tenta di aprire la lista di valori su un altro campo, i
TFields precedentemente creati sono comunque associati al DataSet e quindi
aprendolo mi dice che non riesce a trovare i campi corrispondenti.
Ho provato, in chiusura della lista a fare Free dei TField, ma questi
continuano comunque ad esistere come componenti.
Grazie,
Gianluca

"Gianluca Plevani" ha scritto nel messaggio
[...]
Per ora ho risolto spostando il DataSet di riferimento dal DataModule in cui
era contenuto nel form che ne fa uso.
In questo quando creo la nuova istanza del form, viene creata esattamente
come era a DesignTime (quindi senza alcun oggetto TField associato). Allo
stesso modo, quando chiudo il form distruggendolo, viene distrutto tutto ciň
che avevo creato dinamicamente.
La soluzione non mi piace molto perchč ho dovuto spostare il DataSet ma
almeno, per il momento, sono sbloccato. Resto comunque del parere che dovrei
trovare il modo per distruggere esplicitamente i campi.
Gianluca.
Newsgroup: it.comp.lang.delphi
Titolo: stringhe colorate

Ammettiamo che io abbia un richedit che contiene 20 linee, ed ogni
linea contiene un periodo con lettere e numeri.....
Mi piacerebbe poter scrivere le lettere in rosso e i numeri in
nero....
Allora, con un loadfromfile.... riepio il richedit, tutto in nero,
adesso dovrei colorare i numeri....
per esempio così..
for x:= 1 to length(line) do if lines in [0..9] lines[x].color=clred;
sarebbe bello, ma come devo fare?
richedit.font.color mi cambia tutto...
Tabelle Statistiche e Previsioni
www.geocities.com
\narciso.geo
Giochiamo con razionalità!

 nero....
Se hai Delphi 5 nel companion CD c'e' un componente TColorMemo che puoi 
usare per avere creare un rudimentale editor con syntax highlighting: se 
non ho capito male cio' che vuoi realizzare, quel componente dovrebbe 
essere piu' che sufficiente.
-- 
Roberto Lupi
http://www.lupi.ws/

 ha scritto nel messaggio
news:MPG.159845a87...@News.CIS.DFN.DE...


"N_B"  ha scritto nel messaggio
| Ammettiamo che io abbia un richedit che contiene 20 linee, ed ogni
| linea contiene un periodo con lettere e numeri.....
|
| Mi piacerebbe poter scrivere le lettere in rosso e i numeri in
| nero....
|
procedure EvidenziaNumeri(tempRichEdit: TRichEdit; tempColore: TColor);
// Evidenzia del colore tempColore tutti i numeri presenti nel RichEdit
var
  TestoRichEdit: string;
  Indice, LungTesto: Integer;
  InizioNumero, FineNumero: Integer;
begin
  TestoRichEdit := tempRichEdit.Text;
  Indice := 1;
  LungTesto := Length(TestoRichEdit);
  while Indice <= LungTesto do
  begin
     while (Indice <= LungTesto) and
          (not (TestoRichEdit[Indice] in ['0'..'9']))
     do inc(Indice);
    InizioNumero := Indice;
     while (Indice <= LungTesto) and
          (TestoRichEdit[Indice] in ['0'..'9'])
     do inc(Indice);
    FineNumero := Indice;
    tempRichEdit.Perform(EM_SETSEL, InizioNumero - 1, FineNumero - 1);
    tempRichEdit.SelAttributes.Color := tempColore;
  end;
end;
procedure EvidenziaStringa (tempRichEdit: TRichEdit;
                            const StringaDaEvidenziare: string;
                            tempColore: TColor);
// evidenzia con il colore tempColore la stringa StringaDaEvidenziare
// nel richedit passato come valore
var
  Indice, LungTestoSorgente,
  LungTestoDaSostituire: Integer;
begin
  LungTestoSorgente := tempRichEdit.GetTextLen;
  LungTestoDaSostituire := Length(StringaDaEvidenziare);
  Indice := 0;
  repeat
    Indice := tempRichEdit.FindText(StringaDaEvidenziare, Indice,
LungTestoSorgente, []);
    if Indice >= 0 then
    begin
      tempRichEdit.Perform(EM_SETSEL, Indice, Indice +
LungTestoDaSostituire);
      tempRichEdit.SelAttributes.Color := tempColore;
      Inc(Indice, LungTestoDaSostituire);
    end;
  until Indice < 0;
  // Sposta il cursore all'inizio del testo
  tempRichEdit.SelStart := 0;
end
Ciao.
ACSH
---------------------------
La fine del mondo sta per arrivare ...
salvate i documenti aperti!
Newsgroup: it.comp.lang.delphi
Titolo: Creare Tabelle Firebird

Che componente dovrei utilizzare per creare una tabella dal mio programma
utilizzo Delphi 7 e firebird pensavo che con un IBSQL si potesse ma mi
sbagliavo ...
ho cercato informazioni nel news group e nel web ma niente ....
Grazie in anticipo!

 sbagliavo ...
cioč...?
da errore? se si che tipo di errore?
A


Prego,
Matteo


Dynamic SQL Error
SQL error code = -104
Token unknown - line 2, char -1
CREATE


Mitico!!! Ho fatto un po fatica a trovarlo ma fa al caso mio!!!

Newsgroup: it.comp.lang.delphi
Titolo: delphi5, zeos e campi blob

Ciao a tutti, ho un database mysql in cui vorrei memorizzare in un blob
delle immagini jpeg per un applicazione online (questo gi� avviene tramite
degli script in php ma ho necessit� di farlo anche nell'applicazione
delphi).
Facendo un campo persistente sul blob e usano loadfromfile o assign su
immagini che superano i 400kb mi si scollega il database dando errore "lost
connection" nonostante sia su localhost.... Qualcuno di voi puo' aiutarmi?
Simone 

Sul sito ho scoperto questo (ora provo... Credo si risolva lato server
modificando il file ini):
You can also get these errors if you send a query to the server that is
incorrect or too large. If�mysqld <mysqld.html> �receives a packet that is
too large or out of order, it assumes that something has gone wrong with the
client and closes the connection. If you need big queries (for example, if
you are working with big�BLOB <blob.html> �columns), you can increase the
query limit by setting the server's�max_allowed_packet
<server-system-variables.html#sysvar_max_allowed_packet> �variable, which
has a default value of 1MB. You may also need to increase the maximum packet
size on the client end. More information on setting the packet size is given
in�Section�B.5.2.10, �Packet too large� <packet-too-large.html> .

 ha scritto:


Newsgroup: it.comp.lang.delphi
Titolo: Regular Expressions in Delphi esistono?

QUalcuno mi sa dire se si possono usare le regular expressions per le
stringhe in delhpi e magari mi fa un esempietto?
Mettiamo per esempio conto che io voglia cercare la posizione di una
sottostringa "c**e" (quindi accettandomi "cane", "cose", "cine")...come
farei col Pos?
Traducetemi insomma
------------ if Pos("cane", stringaincuicercare)>0 then....----------
Grazie.
--
Giulio Pipitone (
www.fighters4web.com
 )
#sito per la lotta agli abusi in rete#

 ha scritto nel messaggio
news:2_qC9.680$t_1....@tornado.fastwebnet.it...

Newsgroup: it.comp.lang.delphi
Titolo: D7 + Jedi 3.10 problemi dopo installazione

ho  installato le Jedi 3.10 , prima Jcl poi Jvcl
C:\Programmi\Borland\Delphi7\Jedi\Jedi 3_10
da Jcl ho eseguito Install, cosi anche da Jvcl
la compilazione va a buon fine , ma quando eseguo
Delphi , ho subito un messaggio che non trova delle librerie
es: JvAppFrm.bpl , JvBands.bpl , etc in tutto sono 6;
su Library path ho anche aggiunto:
C:\Programmi\Borland\Delphi7\Jedi\Jedi 3_10\jvcl\common
C:\Programmi\Borland\Delphi7\Jedi\Jedi 3_10\jvcl\run
ma ugualmente non trova i file *.bpl;
quando chiudo D7 ho  questo errore
Access violation at address 50078E5C in module dclstd70.bpl.
sapete darmi qualche indicazione, grazie Maurizio

 ha scritto nel messaggio 
news:43c011ef$0$1087$4faf...@reader1.news.tin.it...


 ha scritto nel messaggio 
news:43c011ef$0$1087$4faf...@reader1.news.tin.it...


 ha scritto nel messaggio 
news:43c378d2$0$1064$4faf...@reader3.news.tin.it...


Newsgroup: it.comp.lang.delphi
Titolo: [OT] Installare ZeosLib su Lazarus con Linux

 Mi scuso per l'OT, ma inizio ad essere disperto....
Non riesco ad installare le ZeosLib su Lazarus, compilo regolarmente le
prime 4 librerie 
1. zcore.lpk
2. zparsesql.lpk
3. zplain.lpk
4. zdbc.lpk
ma quando arrivo all'ultima  (zcomponent.lpk)
ho 4 metodi con il seguente errore:
"There is no method in an ancestor class to be overriden" 
ne consegue che non vedo la paletta con i componenti
Qualcuno può aitarmi?
Stefano Lorenzi
Stefano Lorenzi
--- posted by geoForum on 
http://www.delphiedintorni.it

link trovati facendo una rapida ricerca sul forum di lazarus:
http://seegernet.koolhost.de/zeosforum/viewtopic.php?t=144&highlight=install
http://seegernet.koolhost.de/zeosforum/viewtopic.php?t=225&highlight=lazarus+install
http://seegernet.koolhost.de/zeosforum/viewtopic.php?t=24&highlight=override
AS

  Mi scuso per l'OT, ma inizio ad essere disperto....
C'è il News Group apposito: it-alt.comp.lang.lazarus
Ciao
Gianni
Newsgroup: it.comp.lang.delphi
Titolo: Delphi5 e Windows Ce

Salve
Devo Sviluppare una applicazione per Windows Ce ci sono dei componenti
Speciali da Utilizzare?
Avete dei  siti che parlino delle problematiche che si possono incontrare ?
Avete qualche esperienza
Grazie
Ottaviano Ministrini
--
Ottaviano Ministrini
Master Quality snc
master...@tin.it
master...@inwind.it
Tel 0743 275762 - Fax. 06 233 233 516

 Speciali da Utilizzare?
Non mi risulta possibile compilare codice per macchine che sfruttano WinCE!
Sorry
--
- Carlo -
c.b...@libero.it

 Speciali da Utilizzare?
AFAIK, Delphi non produce codice per WindowsCE.
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

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

 Parla di Sviluppo per windows Ce
Leggendo velocemente i messaggi sul sito, mi sembra di 
capire che si parli di *ipotesi* su una versione Delphi
per WindowsCE e che ci siano motivi sufficienti per 
pensare che WCE non sia una piattaforma "suitable" per
Delphi, al momento.


 Speciali da Utilizzare?
Si, un componente specialissimo, piuttosto costoso e complesso: Visual
Studio + il kit di sviluppo sotto WinCE. :)
Ciao, Sandro

 ha scritto nel messaggio
news:a6st1a$h1m33$1...@ID-43509.news.dfncis.de...


> Non è costoso è gratuito e mi sembra che funzioni anche molto bene ::)
da quando Visual Studio e' gratuito? ;)
Ciao, Sandro

Newsgroup: it.comp.lang.delphi
Titolo: Leggere file da internet

Ciao, vorrei sapere se è possibile leggere dei file direttamente
dall'url senza necessità di scaricarli, nella fattispecie si tratta di
file XML.

 senza necessità di scaricarli, nella fattispecie si tratta di file XML.
nel momento in cui li leggi, vuol dire che li hai scaricati ;)
Ale

 Ale
si ma io volevo sapere il metodo per leggerli diretamente, magari
inserendo l'url e visualizzarli ad esempio su un treeview.

 inserendo l'url e visualizzarli ad esempio su un treeview.
e come farebbe secondo te un treeview locale (al tuo pc) a leggere dei dati 
da un server remoto senza trasferirli (via rete) nella memoria locale (del 
tuo pc)? quando apri una pagina web, i dati vengono trasferiti dal server al 
tuo browser, che ne fa il rendering a video, ok? stessa cosa vale nel tuo 
caso.
Ale 

 da un server remoto senza trasferirli (via rete) nella memoria locale
Penso che madhatter intendesse dire: "posso affrancarmi dallo scrivere
codice per il dwnld del file e magari settare una proprietà di un
treeview che sappia renderizzare XML direttamente con la URL del
file?"
Assumento che tu abbia un componente treeview che sappia renderizzare
un file xml con una proprietà file, potresti usare una classe tipo
XMLHTTP che con il metodo open mi pare accetti una URL.
A quel punto passi il componente al tuo treeview o, in alternativa
prima salvi lo XML in local con il metodo save e poi lo passi al
treeview.
Lo scrivo a braccio, per darti un'idea:
myXml = XMLHTTP.Create();
myXml.open(<url>);
myXml.save('c:\temp\tmp.xml');
myTreeview.load(c:\temp\tmp.xml');
ciao,
Gp
Newsgroup: it.comp.lang.delphi
Titolo: passare a D7

sto utilizzando con soddisfazione D5 ma vorrei comprare D7, qualcuno
sa dirmi se ci sono sostanziali miglioramenti?
grazie Luca


Hai considerato l'ipotesi di acquistare D8? 
Con esso e' previsto anche D7.
-- 
Morde. 
(
mo...@despammed.com
)
M-List di icld: 
http://it.groups.yahoo.com/group/icld/

 sa dirmi se ci sono sostanziali miglioramenti?
Rispetto a Delphi 5, in Delphi 7 trovi:
- la possibilità di gestire in maniera efficace la connessione verso
database via ADO (con gli ADOExpress di Delphi 5 non mi sono mai trovato
bene)
- il nuovo Action manager e le relative ActionToolBar etc. per dare alle tue
applicazioni un look tipo Xp
- il nuovo tool di reporting RaveReport (ma non dimenticare che puoi sempre
tirar su a mano il caro QuickReport)
- sempre per quanto concerne la connessione ai database, tutti gli oggetti
"paralleli" al BDE quali i vari DbExpress e IBComponents che ti consentono
un'operatività migliore rispetto ai predecessori
- i componenti Intraweb per costruire siti internet usando Delphi (questa
affermazione prendila a livello di slogan: quando li ho provati mi sono
fermato subito)
- tutti i componenti della suite indy per interagire con il web
e quant'altro: magari dai uno sguardo alla feature matrix su
http://www.borland.com
Personalmente, ho goduto del cambio perchè uso pesantemente le connessioni
ADO. Tieni presente magari quello che ti suggerisce Morde: se prendi la 8,
ti danno anche la 7 e hai un po' di novità in più, oltre a due tool per
"aggredire" sia Win32 che .Net
Saluti
        Marco Bortolani
        info @ 
marcobortolani.it

Newsgroup: it.comp.lang.delphi
Titolo: Uso dell'operatore Mod

Sto cercando di usare l' operatore "MOD" in Delphi 2007, ma vi viene fuori 
un errore in compilazione. Qualcuno lo capisce ?
Ecco il mio codice:
var
  res, resf: double;
...........................
resf:= (QrySchedule.FieldByName('ALARMSTART').AsDateTime - aDate);
res := (resf mod 7);   "E2015- operator not applicable to this operand type" 
!!!!!!!!!!!!
PS: Se filtro l'help Codeger per Delphi WIn32, l'operatore "mod" non è 
descritto ... non è strano ? C'era in Delphi 6. 


resf deve essere un numero.
 

 un errore in compilazione. Qualcuno lo capisce ?
mod si applica a due numeri interi e restituisce un intero.
Sandra 

 ha scritto nel messaggio 
news:6e4rn.150967$9f6.1...@twister1.libero.it...


Newsgroup: it.comp.lang.delphi
Titolo: Amore mio... dove sei

No, cara Nancy, io non ti dimenticherò mai. Questo newsgroup
capirà la mia passione e saprà soprassedere a queto OT.
Io fremo ad ogni pensiero rivolto a te, mi arrizzo e mi attizzo... Non ti
dimenticherò mai... Tuo Puffino...
--
Posted from 
relay.pantheon.it
 [195.62.36.241]
via Mailgate.ORG Server - 
http://www.mailgate.org




Newsgroup: it.comp.lang.delphi
Titolo: ForceDirectories non funzia più (2)

Piů di due anni fa scrivevo su icld:
 
http://tinyurl.com/457mc
che ForceDirectories aveva smesso di fuzionare (eccezione Range check error, 
con un nome di directory inesistente sul disco), e ora mi č capitato di nuovo 
(WinXp Pro SP1).
Ho provato a cercare se si sono verificati bug simili e ho provato a 
correggere in SysUtils, Code da Integer a DWord
function DirectoryExists(const Directory: string):
Boolean;
var
//Causes range check error Code: Integer;
  Code : DWord;
begin
  Code := GetFileAttributes(PChar(Directory));
  Result := (Code <> -1) and (FILE_ATTRIBUTE_DIRECTORY
    and Code <> 0);
end;
come spiegato qua:
 
http://tinyurl.com/5qxwj
ora non viene sollevata alcuna eccezione, ma la nuova directory non viene piů 
creata (perchč č come se la trovasse sempre).
Aiuto!
-- 
Mauro Falzari 
   [ 
http://digilander.libero.it/mauro.falzari
 ]
 
 "Se guardi nell'abisso, anche l'abisso guarda in te." 
   (Friedrich Nietzsche)

 capitato di nuovo (WinXp Pro SP1).
non chiedetemi come ho fatto, perchè non lo so, ma ora funziona di nuovo. Ho 
cancellato DCU, cambiato l'ordine dei path in Library Path, rifatto il Build, 
ma non so in quale ordine.
Alla fine, dovrebbe essere perchè come dice Peter Below nel secondo link di 
cui al post precedente
"That should never happen unless you compiled the VCL
source as part of
your project. Don't do that, the source expects to be
compiled with a
certain set of compiler settings (range check off, for
example)"

Newsgroup: it.comp.lang.delphi
Titolo: onkeydown...su tasto specifico...

Salve!
Vi spiego subito il problemino...
2 tedit...mi posiziono sul primo ed inizio a scrivere...appena premo la 
barra spazio devo passare al secondo tedit...
Il tutto funziona ma....nel primo tedit mi mette uno spazio all'inizio 
del campo dopo che il focus lo sposto sul secondo tedit..
 
in pratica...
 
tedit1='wdefuwehdfw'   premo barra spazio, passo al secondo campo 
(setfocus sul keydown controllato del tedit1) e tedit1 diventa=' 
wdefuwehdfw'
 
idee?!?!
 
sto uscendo pazzo...

 wrote:
 
cosě hai provato?
 
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if key=VK_SPACE then begin
    edit1.Text:=trim(edit1.Text);
    edit2.setfocus;
 end;   
end;
 


 
yes..provato...e non funge perchè in quel momento edit1.text non ha 
ancora il blank all'inizio del campo...
Ho dubuto fare una cosa molto brutta per tamponare 
temporaneamente...alla perdita del focus del tedit2 vado a fare la trim 
sul tedit1...(se lo faccio al getfocus di tedit2 stessa zuppa...misteri!!!)
 

Hai provato a mettere il codice nell'evento onkeypress?
 
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
      if (Key=#32) {spazio} then
        begin
             Key := #0; {carattere nullo}
             Edit2.SetFocus;
        end;
end;


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

ciao a tutti
ho visto ke in alcuni programmi (idioti) fanno sparire il tasto start.
sapete come si fa?
grazie

 ha scritto nel messaggio
news:dj3a5.60385$2s6.6...@news.infostrada.it...

si ....
basta che distruggi il bottone per quello che ne so io ...
trovi l'handle ...e lo distruggi !!
BUUUMMMMMMMMMMMMMMMMMMM
SBRRRRRUUUHHHHHHHHHHHHHH
DESTROY !!!
:((( mi faccio pena da solo ....ho avuto una giornata faticosa

 wrote in message
Ht3a5.60430$2s6.6...@news.infostrada.it...


 wrote in message
8kargi$am9$1...@nslave1.tin.it...


Newsgroup: it.comp.lang.delphi
Titolo: creazione campo calculated run tim

Avrei l'esigenza di creare a codice un campo calculated su una Tquery,
c'č qulcuno che potrebbe darmi una dritta?
Grazie enrico

 c'è qulcuno che potrebbe darmi una dritta?
Qualcosa del genere?
var Campo : TField;
[..]
Campo := TField.Create(Query1);
Campo.Name := 'Stipendio';
Campo.SetFieldType(ftCurrency);
Campo.FieldKind := fkCalculated;
Query1.Fields.Add(campo);
[..]
Ciao
Giorgio


wrote:

Newsgroup: it.comp.lang.delphi
Titolo: Lire ed Euro

Ciao a tutti !
Devo riprendere in mano Delphi, dopo essere stato costretto a lasciarlo per
diverso tempo, per modificare un programma che avevo fatto con Interbase. Il
database contiene alcuni campi IMPORTO1, IMPORTO2,..., IMPORTOn, che erano
impostati FLOAT su INTERBASE e di tipo CURRENCY su Delphi. Il problema č che
al tempo c'erano solo valori in Lire ma adesso potrebbero essere sia in Lire
che in Euro. Se non sbaglio il campo CURRENCY prende il tipo di valuta che č
impostato sul sistema operativo quindi non posso piů usare lo stesso sistema
per memorizzare l'importo. L'idea č quella di aggiungere un campo con flag
LIRE/EURO e togliere l'impostazione CURRENCY (ma poi devo fare una
procedurina per visualizzare gli importi con i punti, es. 1.000.000 ?),
oppure c'č una strada migliore ???
Grazie per eventuali consigli.
Val

 Val
-- 
Posted from  [212.17.199.66] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

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


Ma perche' mai dovresti dirglielo??
Se proprio ti serve ti crei un campo VALUTA in cui metti 0 se sono lire e 1
se sono euro (e magari 2 se sono dollari, 3 se sono sterline eccetera), ma
un numero e' un numero e' un numero, non puoi specificare se siano lire o
euro in un campo *numerico*.
Certo... Potresti usare una sorta di bitmask e magari un intero scalato
anziche' un float...
Ma e' una notevole saga mentale e non la consiglio ad alcuno...
Ciaotutti,
*

 se sono euro (e magari 2 se sono dollari, 3 se sono sterline eccetera), ma
Peraltro ho notato ora che nel post originale lo avevi gia' specificato... E
allora che problema hai?
Una volta che sai come trattarlo un numero e' un numero.
Sta al tuo programma visualizzarlo nel modo corretto...
Ciaotutti,
*