Newsgroup: it.comp.lang.delphi
Titolo: lancio una proposta....

Non sň se esiste gia, ma perchč non facciamo un sito ufficiale del NG
it.comp.lang.delphi?
Magari ci mettiamo dentro le faq di msx tutte le info piů interessanti.
Le password le mettiamo a disposizione di tutti.....
Che cosa ne dite?
Ciao
Gianni

 Che cosa ne dite?
l'idea è carina e io stesso la lanciai più di un anno fa, dopo aver
"scovato" nelle persone di questo gruppo la voglia di aprire un sito con
parecchio materiale in italiano su Delphi.
Purtroppo la cosa non è così semplice da realizzare, per parecchi motivi.
Allora aprimmo una Mailing-List e c'era un gran bel gruppo di persone (sia
di numero che di qualità) disposto a collaborare, tuttavia gli entusiasmi si
spensero di fronte alla disorganizzazione! Ognuno aveva le proprie idee e le
proprie convinzioni e non ci si riusciva proprio a mettersi d'accordo.
Se si dovesse aprire un sito non lo si farebbe certo per le FAQ, ci
sarebbero un sacco di cose da aggiungere (articoli, tutorial, tips etc...),
ma ripeto che la cosa non è facile.
Ora come ora non avremmo neppure un Server ad ospitarci!!
Ciao! :)
--
- Carlo -
c.b...@libero.it

> proprie convinzioni e non ci si riusciva proprio a mettersi d'accordo.
E' tipico :)
Basta vedere come ciascuno di noi scrive i propri sorgenti. Gli stili sono i
piu' diversi!
Questo ad esempio e' il "pezzo" di un mio sorgente:
var t:ttable; z:integer;
begin
 if DataModule1.TLav.recordcount=0 then Warning ('Non ci sono lavori in
lista') else begin
  t:=ttable.create(nil);
  with t do begin
   tablename:=DataModule1.TDet.tablename; open;
   DataModule1.AggiungiMaNonPostare(t);
   edit;
   fieldbyname('RifLav').asInteger:=DataModule1.TLavRifLav.value;
   if TMenuItem(Sender).name='ClonaDet' then begin
    fieldbyname('Codice').asString:=DataModule1.TDetCodice.value;
    fieldbyname('Nome').asString:=DataModule1.TDetNome.value;
    fieldbyname('UM').asString:=DataModule1.TDetUM.value;
ma ho visto gente che scrive roba tipo:
var
     a : integer ;
     b : double;
begin
 ..
 if ( round ( b ) <= a )
    then
         begin
            ....
         end ;
ecc.
Mamma mia :)))
Ciao, Sandro



In effeti sarebbe interessante fare una specie di studio sugli stili
di programmazione (prolisso, essenziale, isterico, illogico...).
Personalmente con un
var t:ttable; z:integer;
potrei uccidere ;-)
io uso proprio
var
  a: integer;
  b: double;
pero' anche 
if a = 1 then begin
  ...
end else begin
  ...
end;
Dimmi come indenti e ti diro' chi sei...
Massimo.
-- 
"Ciao Rex, che cavolo di situazione eh? Due dentro, due fuori, puo' succedere di tutto!"

 di programmazione (prolisso, essenziale, isterico, illogico...).
Vero, e' proprio interessante :)
per me ad esempio non e' raro scrivere
var x:integer;
    y:integer;
    z:integer;
perche' spesso aggiungo variabili a distanza di tempo, quando mi servono.
Anche l'uso del With e' molto indicativo :) io ad esempio lo uso solo se ho
espressioni lunghe, mentre se ho semplicemente una lista di assegnazioni non
lo uso.

 Ora come ora non avremmo neppure un Server ad ospitarci!!
Ecco in effetti potremmo inizialmente partire semplicemente con un server
qualsiasi, senza script, tipo tiscali o digilander, poi vedere se e come
cambiare solo nel futuro.
Io comunque ho 2 mega di spazio web con supporto di alcuni script (tra cui
php) su 
www.mycgiserver.com
 (che comunque e' free e non molto performante :)
e un circa 20 mega sul server della mia universita' (supporta sicuramente
CGI e probabilmente PHP), che pero' attualmente e' incasinata, perche'
stanno facendo interventi sulla rete e devo aspettare gli assestamenti (ho
dovuto anche spostare il mio sito e privarlo degli script cgi).

 dovuto anche spostare il mio sito e privarlo degli script cgi).
Anche la mia univ. mi mette a disposizione uno spazio Web, ma non so di
quanti mega e non so quali linguaggi di scripting siano supportati!
Ciao! :)
--
- Carlo -
c.bertù@
libero.it


Ciao :)
sono nuovo sia del gruppo si di Delphi quindi non so quanto aiuto vi potrei
dare (pero so HTML,ah i vecchi tempi quando non c'erano tutti sti programmi
e le pagine si scrivevano con blocco note) perň sarebbe molto utile come
sito :)
per quanto riguarda l'host so che Aruba hosta dando spazio illimitato piů
registrazione del dominio a 48k l'anno.... non č male,anche se la pagasse
una sola persona non sarebbe una spesa eccessiva (ps -cmq sarei anche io
dell'idea di dividerla)
beh grazie dell'attenzione
Fizban - Web Master of Dragons.it
http://www.dragons.it
il_guru rulez

php) su 
www.mycgiserver.com
 
proporrei anche 
ww.f2s.com
 (supporto php 4 - MySQL e PostGree... azz!
niente IB!! :( - 15 Mb di spazio... l'unica cosa è che non si possono
mettere file tipo exe/zip/mp3/ecc... m aper il download si puo pensare
di metterlo su un altro server (tipo tiscali)
Ciao,
Alan Solo

var t:ttable; z:integer;
arghhhg!!! :) perche' tutto minuscolo?
per fortuna non usi BCB! ;)
var 
 tNomeTabella : TTable;
 z : Integer; // non mi sognerei mai di chiamare una variabile "z",
ammenochè mi chiamassi Zortek ;)

a me piace ;)
anzi questo è il mio stile: 
var
     a : integer ;
     b : double;
begin
 ..
 if ( round (b) <= a )
    then begin
    end ;
... a me fa veramente schifo invece lo standard (anche come è scritta
la VCL),
ovvero questo
 if ( round ( b ) <= a ) then
  istruzione
 else
  altraIstruzione;
:-P  bleah!
Ciao,
Alan Solo
 

 di metterlo su un altro server (tipo tiscali)
Giusto! quindi il problema server e' risolto.. ora il problema e' chi se ne
occupa :)


Ok, scusate il ritardo (sono stato impegnato)..... se volete me ne occupo
io, per il sito si può usare phpnuke (già bello configurato con possibilità
di download, upload, faq, news, link ecc..) chi lo conosce sa di cosa parlo
(io sono un webmaster e programmo in php e delphi)
.....ora c'è un altro problema, le password del sito. Essendo il sito uff.
del NG, a mio avviso, chiunque di noi deve avere le password di accesso.
Cosa ne pensate?
Ciao
Gianni


Intanto partiamo, poi si vedrà.....per il momento cerchiamo di sfruttare cio
che ci offre la rete.
Ciao
Gianni

 di metterlo su un altro server (tipo tiscali)
Appunto, sul sito ufficiale mettiamo il link alla risorse (.exe .pas o
quello che sia) che si trova su un altro server
Ciao
Gianni

 :-P  bleah!
oddio non e' che sia poi cosi' diverso dal tuo stile eh :)
Ciao, Sandro

 Dimmi come indenti e ti diro' chi sei...
a parte le battute, in effetti l'indentazione e' un ottimo modo per capire
cosa sta dentro la testa di un programmatore, se il disordine o il rigore
logico ;)
Ciao, Sandro

 Magari ci mettiamo dentro le faq di msx tutte le info più interessanti.


anche i nomi delle procedure sono espliciti ;)
ottimo, questo è molto importante secondo me...
Ciao,
Alan Solo

Cosa ne pensate?
si', direi che php-nuke è l'ideale per noi del NG,
con esso si puo' dare accesso a chiunque ( eventualmente con password)
per postare news e articoli, giusto?
Ciao,
Alan Solo

 >anche i nomi delle procedure sono espliciti ;)
Tra l'altro io ho un visio terribile, cioe' di mettere nel codice parole in
inglese e in italiano assolutamente mischiate. Capita che metto
var done: boolean;
    NumObjects:integer;
    OggettiValidi:integer;
e poi non vi dico per le procedure.. mischio anche le parole :)
procedure DrawOggetti
SetupFinestra
CreateLista
e via di questo passo.. terribile :)

 :))))) )
;)
Interessante comunque anche il tuo punto di vista. Forse è un difetto mio,
tuttavia ho anche una visione "estetica" del codice ... un codice non mi
piace solo se è funzionante, ma anche se è ben scritto etc...
Vabbè, ad ognuno il proprio stile ... l'importante è che scriviate programmi
funzionanti! :)


 inglese e in italiano assolutamente mischiate. Capita che metto
sarebbe carino regionalizzare il sorgente, tipo che so.. nomi delle
procedure tutti in milanese, o in romanesco.. oppure, pensa, in sardo.. per
chi le legge sarebbe piu' semplice capire il sorgente di un turco ;)
Ciao, Sandro

 funzionanti! :)
prima regola del programmatore: se il programma non funziona la colpa e' di
Windows ;)
Ciao, Sandro

Windows ;)
ora anche di X-Windows! ;)
Ciao,
Alan Solo

io i, i2, i3 ecc :)
che schifo, tu faresti
for ecc:=1 to 10 ??? :-PPP
Ciao,
Alan Solo


Esatto, ogniuno puo postare tutto il testo e i link che vuole
In settimana ci lavoro....
Ciao
Gianni

SoGiaCheAlanSoloAQuestoPuntoMiSpara;
Mi sa che hai dei cromosomi da programmatore C :-)
Massimo.

 Mi sa che hai dei cromosomi da programmatore C :-)
A me risulta che i programmatori C usino l'indentatura fino all'osso
mediante le loro amatissime parentesi graffe.
Le mettono anche dove noi programmatori TP le omettiamo (non tutti, però
..), ovvero quando abbiamo una sola istruzione dopo il then.


 Windows ;)
Se ricordi tempo addietro ne scrivemmo un bel po' di scusanti!
E se non è colpa di Windows allora .... beh è colpa di Windows! :)


;-)
L:=TList.Create;
L.Add(Carlo);
L.Add(Sandro);
Pistola:=TPistola.Create;
Pistola.Bersagli := L;
Pistola.Fire;
L.Free;
Pistola.Free;
:-P
Ciao,
Alan Solo

 Pistola.Free;
io avrei una soluzione alternativa ;)
z:=TList.create(nil);
with z do begin
 Add(Carlo); Add(Sandro);
 with TPistola.create(nil) do begin
  Bersagli:=z;
  Fire(ExcludeItemFromList(z,Sandro));
  free;
 end;
 free;
end;
:)))
Ciao, Sandro

puo pensare di metterlo su un altro server (tipo tiscali)
il problema degli zip ve lo risolvo io con due righe di PHP...

Gli risponderesti "Ma non puoi usare i ttable per fare i cicli!!" :)
io sono all'estremo opposto:
var
  (* switches from command line *)
  ibs        :   TBlockSize =   DefBlockSize;
  obs        :   TBlockSize =   DefBlockSize;
  count      :  TBlockCount =  DefBlockCount;
  ifName     :    TFileName =    DefFileName;
  ofName     :    TFileName =    DefFileName;
  skip       :  TBlockCount =  DefBlockCount;
  seek       :  TBlockCount =  DefBlockCount;
  (* used by the main program *)
  ifHandle   :  TFileHandle;
  ofHandle   :  TFileHandle;
  fPtr       : TFilePointer = DefFilePointer;
  buf        :      TBuffer =      DefBuffer;
  bufsize    :   TBlockSize =   DefBlockSize;
[...]
questo era un pezzo delle dichiarazioni globali del programma (non 
fatevi impressionare da tutti quei tipi, la maggior parte sono dei 
miseri Cardinal o al massimo dei record :), i nomi delle variabili 
ricalcano i nomi delle opzioni sulla riga di comando
il programma in sè è un mostro di questo tipo:
try
    try
        try
            while begin
                try
                    while begin
                    end;
                except
                end;
                while begin
                end;
                if then begin
                end else begin
                end;
            end;
        finally
      end;
    finally
    end;
except
end;
come potete vedere non un for (non mi piacciono, preferisco nella 
maggior parte dei casi le eccezioni - non l'avreste mai capito, eh? ;), 
nè un repeat until (questo nemmeno sapevo che esistesse ^__^)
giuro, ho il tabsize settato a 2 spazi e faccio ancora una fatica del 
diavolo a stare in 80 colonne :)
una delle righe più infelici in questo senso è questa:
      else if eqStr(p, '--version') then
        (* show version info *)
        raise Exception.CreateResFmt(
          RES_STR_VERSION,
          [
            LoadStr(RES_STR_APPTITLE),
            _DDDD_VERSION_MAJOR,
            _DDDD_VERSION_MINOR,
            LoadStr(RES_STR_COMPANY),
            LoadStr(RES_STR_HOMEPAGE),
            LoadStr(RES_STR_AUTHOR),
            LoadStr(RES_STR_AUTHORMAIL),
            LoadStr(RES_STR_BUGREPORT)
          ]
        );
notate come io indenti persino gli array of const :)
difatti uno dei miei linguaggi preferiti è il Python, in cui l'unico 
modo di sancire l'appartenenza di una linea di codice ad un blocco 
piuttosto che ad un altro è proprio il livello di rientro di quella 
linea

il problema degli zip ve lo risolvo io con due righe di PHP...
come ?
... è il server che te li sega ... 8)
(forse uploadarlo come .php e su richiesta di download rinominarlo?
pero' se vedono un php da 1 MB magari si isospettiscono ;)...
cmq il server (
f2s.com
) è abbastanza lento, io opterei per mettere
semplicemente i download sostanzioni si tiscalinet (nessun banner,
è molto veolce... non supporta niente ne CGI, ne PHP ne ASP ne niente
altro, ma chissenefrega lo si puo' usare solo come "file server" ;))))
Ciao,
Alan Solo

di programmazione (prolisso, essenziale, isterico, illogico...).
Io uso
var
   i: Integer;
   s: string;
begin
  if i > 1 then
  begin
    with frmArchivio.dsArchivio.Dataset do
      FieldByName('Campo').AsInteger:=i;
  end;	
end;
In pratica uso 2 spazi per la tabulazione e il begin..end allineato
con l'istruzione a cui appartiene.
E' uno stile simil standard che ho preferito perche' il Pascal e'
prolisso, e mi sembra un buon compromesso tra leggibilita' e lunghezza
delle righe.
Per le variabili, mi sono autoimposto di usare i prefissi adeguati per
tutti gli oggetti a cui accedo da codice: TLabel->lblNome,
TQuery->qryArchivio, ecc
Ciao
--
Piero Bonanno
bop...@libero.it
pie...@tiscalinet.it
bpie...@hotmail.com
______________________________________________
"Madame, lei ha tra le gambe uno strumento
che puo' offrire piacere a migliaia di persone,
e tutto quello che sa fare e' grattarlo"
- Sir Thomas Beechan a una violoncellista

 altro, ma chissenefrega lo si puo' usare solo come "file server" ;))))
Sě, ma diventa un problema aggiornare le pagine....con php nuke ogniuno puň
postare gli articoli in modo semplice, per il download basta mettere il file
da scaricare su un altro server e il link su f2s
Ciao
Gianni

... è il server che te li sega ... 8)
no, il server risponde con un HTTP 403 alle richieste dei *browser*. Gli 
script possono ancora accedere, e fare da ponte

 end;
  Ahi ahi, un programma molto inefficiente.
1 - Hai dimenticato di aggiungere Alan alla Lista
2 - E' inutile aggiungere il membro Sandro se poi lo escludi
3 - Ricorda che il metodo Fire fallisce se si agisce su un membro Carlo
morale ... tutto quel codice non produce risultati.


script possono ancora accedere, e fare da ponte
hai provato?
prova ad uploadarli, dopo un po' magicamente scompaiono...
o almeno cosě č successo a me...
(quello di non mettere file zip/exe/e cagate varie č l'unico prezzo da
pagare, per il resto supporto php/mysql, niente banner... č manna dal
cielo)
Ciao,
Alan Solo

da scaricare su un altro server e il link su f2s
sì sì, è quello che ho detto.. il sito (fatto con php) su f2s, i file
da scaricare su un altro (tiscalinet ad es.)
Ciao,
Alan Solo

morale ... tutto quel codice non produce risultati.
sulla serietà del ng sicuramente (ma tanto... 8)))
Ciao,
Alan Solo

 cielo)
Io ho già registrato un nome "italiandelphi" che cosa ne dite? "delphi" era
gia registrato :-(
Se vi stà bene, carico il sito (ho gia modificato phpnuke ed è pronto e
impacchettato per essere caricato), vi spedisco le password (sia quelle del
sito sia quelle per ftp) e partiamo....
L'ho registrato a nome di un certo "delphi pescare" :-DD, in questo modo non
appartiene a nessuno in particolare.....tanto i nomi non li controllano...
Eventualmente conosco altri provider che danno spazio gratis e supporto php
e mysql (non però 20 mb come f2s)
Ciao
Gianni

e mysql (non però 20 mb come f2s)
f2s sulla carta è buono, pero' nella pratica ogni tanto è *veramente*
leeento....
magari proviamo per un po'....
Ciao,
Alan Solo

 non è assolutamente vero, io ho provato e funziona! :-)
diciamo che il metodo potrebbe essere interrotto da VK_ESCAPE ma in quel
caso, per accertarsi che vada a buon fine, basta introdurre un bel:
repeat
 LoadAmmos;
 repeat
  FireAmmo(Carlo);
 until Hit(Carlo) or EOA; { EOA=End of Ammo ;) }
 while not EOA do FireAmmo(Carlo); { se dopo averlo colpito restano ancora
pallottole, svuota il caricatore su Carlo sparando quelle che restano ;))) }
until Hit(Carlo);
e il problema e' risolto ;)
Ciao, Sandro

 o ognuno si iscrive e ottiene la sua password?
Ho provato ad attivare un sito e la registrazione automatica, con invio di
email per la password di accesso.....non funziona (mi sorge il dubbio che il
sendmail lo abbiano disattivato). Ora, per far scrivere le persone le
soluzioni sono 2:
soluzione a)  si usa un login password generici (es anonimo) e si da a
tutti, chi scrive metterà il suo nome in fondo all'articolo.
soluzione b) chi vuol postare mi manda i dati e lo registro manualmete,
quando quella persona scrive articoli articoli, viene scritto
automaticamente nella pagina il suo nome e il suo email.
Io rimango comunque di un idea:
tutti i frequentatori del NG devono avere le password dell'amministratore e
dell'accesso FTP.....lo so che è rischiosissimo, ma presupponiamo che in
questo NG ci sia gente responsabile......daltronde è il sito di tutti.
Oppure la password dell'amministratore la diamo unicamente a chi da nome,
cognome ed email "serie" intendendo per "serie" es: @
tiscalinet.it
, @
tin.it
ecc... e non accettare @hotmail, @yahoo
Ricapitolando:
Password, accesso ftp, la diamo a chi la richiede e da i suoi dati (per lo
meno un email attendibile).
Password e login per la scrittura degli articoli a tutti quelli che la
richiedono indifferentemente da dati reali o non
Password dell'amministratore sito, la diamo a chi la richiede e da i suoi
dati (per lo meno un email attendibile).
.....nel ng di hobby.pescare la password per l'accesso ftp viene data a
tutti quelli che lo vogliono e in 3 anni non è mai successo nulla.
.......più difficile da spiegare che da vedere :-)
Durante questa settimana butto giù una bozza poi ti posto il link con le
pwd, così puoi darmi un parere su come agiresti...
Ciao
Gianni Giusti

Bene! Ma ora c'e' gia' qualcosa ? puoi postare l'URL ?
ciao !                {MSX}

 scarsita' di variabili ;)
Dehehiho supenda :)
quasi quasi la metto nelle FAQ tra le Cose Inutili :))


Stasera lo carico (stò caricando alcuni articoletti), poi vi posto l'url.
Ciao
Gianni

A proposito di stili, io che non sono un professionista dico la mia.
Tempo fa avevi scritto dei programmi in cui usavo Edit1...Edit2...
Combo1...ecc...ecc...
Adesso a distanza di tempo ho ripreso i programmi e....risultato ho
praticamente dovuro riscrivete tutto hehehe :-)
Se avessi usato EdNome... EdCognome.. EdDataNascuta 
e CmbCodici ecc.. ecc. adesso il codice sarebbe comprensibile a tutti
e soprattutto a me...:-)
Io preferisco scrivere cosě:
var
x,y, Totale, NumTot: integer;
QuastaVar, AltraVar: String
Begin
  if QuestaCosa= QuestAltra Then
    begin
	sdasdasdasas
	asdasdasas
    end
  else
    begin
	sdfsdfsd
	dfgdfgd
    end;
Ad ognuno il suo.
Ciao a tutti
Robin



ho programmato in assember un piccolo processore motorola
le variabili erano 3 accumulatore  registro X e registro Y + 8k di ram
non ho inventato windows però il programmino che dovevo fare 
alla fine è venuto fuori.
Però non sono intervenuto per questo.
Al sito  
http://www.projectoo.com/free/stdcod.htm
si può trovare Standard di codifica Delphi, ver.1.01
anche se non so quanto sia standard (io dei programmi che lo
rispettano ne ho visti pochi, anzi meno)
mentre per la formattazione del codice all'indirizzo
http://www.slm.wau.nl/wkao/DelForExp.html
potete trovare 
<< DelForExp, a freeware Pascal source code formatter for Delphi >>
non fa i miracoli però aiuta a rendere il testo più leggibile

 >puo pensare di metterlo su un altro server (tipo tiscali)
Io ho a disposizione una macchina su linea CDN che dovrà fare da server per
un progetto sperimentale che sta partendo. Ho chiesto il permesso e posso
metterne a disposizione una parte.
Si tratta di una macchina Linux con Php, PostgreSQL, Majordomo per le
Mailing list, Certificato SSL della Tawthe per connessioni sicure.
Si potrebbe anche fare in modo di avere un sottodominio adeguato.
Lo spazio a disposizione non è un problema (HDD da 20 Gb utilizzato in inima
parte), il supporto CGI lo posso assicurare senza troppi patemi d'animo, per
il resto, essendo il sistem administrator, ed avendo avuto carta bianca a
riguardo, aspetto suggerimenti.
Se la proposta è interessante non avete che da dirlo
Giacomo Magisano

Se la proposta č interessante non avete che da dirlo
non lo so, per il momento direi che anche il server f2s non č male,
magari piu' avanti se ci sono problemi,
cmq, grazie mille per la disponibilitą! :)
Ciao,
Alan Solo

cmq, grazie mille per la disponibilitą! :)
ahemm.. rettifico... ho visto ora i post di altri
che vedono il sito molto lento (ora ad es. anch'io non riesco nemmeno
ad aprirlo) in effetti quel server fa un po' schifo...
sarebbe molto interesanta la tua proposta...
(se pui mettere il supporto mysql, penso che Gianni in 2 secondi te lo
mette su ;)
Ciao,
Alan Solo

 mette su ;)
Daccordo, allora, per Gianni: puoi contattarmi all'indirizzo
gmag...@eubios.net
? specificandomi quello di cui hai bisogno, così
facciamo due chiacchiere e ci mettiamo daccordo?
Se riusciamo a far partire il tutto prima del 30 maggio potrei anche
organizzare, se lo riterremo utile, un intervento sulle pagine di SuperEva
dedicate a Delphi
Giacomo Magisano

 ha scritto nel messaggio
news:9ea7na$1qrhl$1...@ID-43509.news.dfncis.de...


 end;
bella! ma io sarei ancora piu' cattivo (povero Carlo! :) )
repeat
 LoadAmmos;
 while not EOA do FireAmmo(Carlo);
until Hit(Carlo);
cosi' sei sicuro che gli spari (dal ciclo while potresti uscire anche subito
se lui si finge morto, mentre col repeat gli spari comunque,
indipendentemente ;) ) e inoltre gli scarichi tutto il caricatore anche se
dovessi averlo colpito durante il ciclo while interno ;)
Ciao, Sandro

 until Hit(Carlo);
[...]
Procedure Rambo3 (MenToKill: TStringList);
Begin
  KillEmAll(MenToKill, True)
end;
La funzione KillEmAll è appena uscita nella BCL (Bertu Code Library) meglio
nota come BKL (Bertu Killer Library) e vi posso assicurare che non fallisce
mai!
Ciao! :)
--
- Carlo -
c.b...@libero.it
ps: per chiunque si stesse chiedendo cosa rappresenti il secondo parametro,
riporto la documentazione della funzione
Procedure KillEmAll (
                PersoneDaUccidere: TStringList,
                TorturaPrimaDiUccidere: Boolean);

                 TorturaPrimaDiUccidere: Boolean);
Sandro, Alan e Stefano provate ad indovinare chi ci ho caricato nella
StringList?


                 TorturaPrimaDiUccidere: Boolean);
UAHAHAHAH!!! che matto :)))
e che ne dici di questa? ;)
with TInfraredGlasses.create do begin
 while not locate(carlo) do ;
 repeat
  while not surrender(carlo) and not confess(carlo) do
Application.ProcessTortures;
 until confess(carlo);
 LoadAmmos(10);
 for i:=1 to 5 do begin RotateDrum(random(10)); UnloadAmmo; end;
 for i:=1 to 5 do begin RotateDrum(random(10)); FireAmmo; end;
 free;
end;
procedurina cattivella che cerca Carlo, e quando lo trova lo costringe a
confessare con la tortura ;))) e infine carica la pistola con 10 colpi, ne
toglie 5 a caso, e lo costringe a giocare alla roulette russa ;)))))))
Ciao, Sandro

                 TorturaPrimaDiUccidere: Boolean);
UAHAHAHAH!!! che matto :)))




Tutto codice sprecato.
Basta fare 
Carlo.Terminate;
-- 
"Ciao Rex, che cavolo di situazione eh? Due dentro, due fuori, puo' succedere di tutto!"

 Carlo.Terminate;
Ha ha ha ... che programmatore fallito! :)
Non hai capito nulla ... la classe TCarlo non deriva da TObject per cui non
dispone dei metodi Free, Terminate, Destroy etc...


 end;
Cosa devo dire ... che va in Loop già alla seconda istruzione!
Ti devo proprio ricordare che Carlo.MutaAntiInfrarossi è perennemente a
True? ;)
Ciao!




ah si? 
E allora beccati questa (e non dirmi che non hai neppure un handle che
mi in@@@zzo).
TermitateThread(Carlo.Handle, 0);
Ehehehehehe


 TermitateThread(Carlo.Handle, 0);
A parte il fatto che potrei benissimo non avere un Handle ... se fossi un
TControl, ad esempio, non ne avrei ... cmq da quando la chiamata a
TerminateThread() distrugge un oggetto? :)
Niente da fare per voi poveri mortali
Carlo.HighLander := True;
Carlo.CanCutTheHead := False;
e adesso vediamo ... ;)


 Carlo.CanCutTheHead := False;
for i:=0 to Application.ComponentCount-1 do
 if Application.Components[i].parent=Carlo then
  if not Application.Components[i] is BankAccount then
Application.Components[i].free
  else if BankAccount(Application.Components[i]).value>0 then
Application.Components[i].parent:=Sandro;
..ovvero come spogliare Carlo di tutti i suoi averi e appropriarsi di quelli
di valore ;)))
Ciao, Sandro

TControl, ad esempio, non ne avrei ...
pero' se fossi un TControl sarsti ereditato da tobect quindi avresti
il metodo destroy...
arrenditi Carlo! sei circondato! non hai via di scampooooo!!!
... butta il maus a terra e esci con le mani in alto!! :-))))
Ciao, 8)
Alan Solo