mii-community/UsenetArchiveIT-conversations huggingface dataset:
Newsgroup: it.comp.lang.pascal
Titolo: SetCBreak(false); a me non funziona

end.
Ho preso spunto dall' esempio qui sopra per disabilitare in un mio
programma la combinazione di tasti Ctrl+Break.
Problema ?     SetCBreak(false);     non funziona ovvero premendo la
combinazione di tasti di cui sopra il programma si interrompe e
ritorna al prompt del dos.
Mi potete aiutare ?
P.S. uso Turbo Pascal  Version 6.0  Copyright (c) 1983,90 Borland
International
-- Alberto Trinca 
altr...@tin.it
 
http://browse.to/alberto
 --

Per disabilitare la combinazione di tasti Ctrl+Break devi usare la
seg. istr.:
CheckBreak:=false;
SetCBreak modifica solo l'impostazione di controllo.

Newsgroup: it.comp.lang.pascal
Titolo: Ari TSR !!!

Rieccomi alle prese con il mio TSR
{$m 6000,0,0}
{$r-,s-,i-,d+,f+,v-,b-,n-,l+}
program Provatsr ;
Uses dos,crt ;
const Tastiint = $09 ;   { interrupt tastiera }
var   Tastiintorig : pointer ;
      tasto : char ;
procedure sti;
 inline($fa);
procedure chiamaorigint(sub : pointer);
 begin
  inline($9c/$ff/$5e/$06);
 end;
procedure tastiera (flags,cs,ip,ax,bx,cx,dx,si,di,ds,es,bp : word);
interrupt;
 begin
 Chiamaorigint (tastiintorig);
  if port [$60] = 65 then
  begin
    swapvectors;
    exec ('suono.exe','') ;
    swapvectors;
  end;
 end;
Begin { programma }
 getintvec (tastiint,tastiintorig) ;
 setintvec (tastiint,@tastiera);
 keep(0);
end .
Una volta lanciato il TSR dovrebbe rimanere in memoria e alla pressione
di un tasto (F7)
lanciare un eseguibile.
semplice no ?!?!?!
Allora perche non funziona ??? (Ho sbagliato le direttive?)
Bye Bye  Giusti Niki.
--
Automatic posted from 
ro...@virtual.zia.ms.it
 [195.103.158.42]
via Mailgate Server - 
http://www.mailgate.org

...


A parte che si tratterebbe di un TSR unsafe (non viene effettuato alcun
controllo sul fatto che nel momento in cui si lancia una funzione DOS, la
EXEC, il DOS sia nello stato giusto), direi che tu avvii il programma nel
contesto di un'altro programma. Che ne sai, ad esempio, se il programma che
sta girando nel momento in cui premi il tasto, non occupava tutta la
memoria? Ci sono in giro librerie ed esempi di TSR scritti in TP che
potrebbero aiutarti: vai a guardare ad
http://www.userworld.com/users/cschles/tpfiles4.html
, per esempio, e vedi se
c'è qualcosa di interessante.
Cordialmente, Francesco Tranfaglia.
Newsgroup: it.comp.lang.pascal
Titolo: Salve a tutti..... mi servirebbe una mano:

Programmavo in pascal divero tempo fa e ora più per gioco che per necessità
sto ricominciando a rimetterci mano!
Nella fattispecie volevo provare a scrivere un'avventura testuale ma ho un
"piccolo" problema:
dovrei interpretare una serie di comandi dati dal giocatore nella forma di:
parola_1 parola_2 parola_3..... parola_n     dove ogni parola potrebbe
essere sia un verbo che un sostantivo che un articolo e gestire i vocaboli
di volta in volta!
Il mio problema sta nel capire quante sono le parole digitateda command line
dal giocatore.
Come faccio a sapere quante variabili dichiarare e di che tipo?
Spero di essere stao chiaro....
ciao e grazie
Glorfindel

 Spero di essere stao chiaro...
L'unico modo che io conosca di operare con un numero indeterminato di
variabili è quello di usare dei puntatori (non so se fanno al caso tuo...) :
potresti definire un tipo variabili=^elemento
e un tipo elemento=record of
                                verbo:string;
                                articolo:string;
                                sostantivo:string;
                                .
                                .
                                .
                                next:variabili
                              end;
ma questo è solo un esempio, credo anche abbastanza stupido :-)))))
ma che spero abbia reso l' idea.
ciao ciao ^_____^

Scusa ma non so perchè non ho inviato la risposta giusta : comunque il mio
cosiglio è quello di usare un metodo di memorizzazione dinamico che ti
permetta di aumentare dinamicamente lo spazio che ti serve:
in pascal questo si può fare grazie ai PUNTATORI.
Se non conosci il loro funzionamento puoi scaricarti il manuale Pascal in
versione (*.ps per 'gost view') da questo inirizzo
www.dsi.uniroma1.it
~prog2a oppure fai qualche domanda su questo NG.
ciao caio ^_______^


Ti ringrazio....
i puntatori li conosco ma come ho detto ho da spolverare 6 anni di ruggine
sul mio pascal.... quindi una bella ripasata... ^_^
Glorfindel

Newsgroup: it.comp.lang.pascal
Titolo: Prova - non leggere

Bravo, ti avevo detto di non leggere! ;)

Bravo... Non sai che c'é it.test?

voi siete tutti matti !!!!!!!č un'ora che mi piego dalle risate per questa
cazzata :)))))))))))))))))

Newsgroup: it.comp.lang.pascal
Titolo: Prg. in Pascal e PII

via Mailgate.ORG Server - 
http://www.mailgate.org

Ho realizzato dei programmi in Tpascal e li sto' usando da tre anni senza
problemi.
Copio i programmi sulla macchina nuova, un PII 350 e scopro che non vanno.
Runtime error 200
Riesco a farli funzionare solo disabilitando la cache interna del
processore.
Non ho + idee.
Luca

Un bel giorno, tutt'a un tratto TinNews si mise a scrivere :

Si tratta di una incompatibilit` tra il vecchio codice e i nuovi processori.



su altavista c'è il file per aggiornare il compilatore del pascal il file da
scaricare si chiama tppascal7.zip o simile scusa ma non ricordo bene!
mentre per i programmi gia fatto devi andare su
www.merlyn.demon.co.uk/index.html
Newsgroup: it.comp.lang.pascal
Titolo: Mi serve il pascal standard

Sapete dove posso scaricare un compilatore di pascal standard.
Mi serve solo standard quindi non turbo pascal.

Mi serve solo standard quindi non turbo pascal.
Il DJGPP consente di avere un front-end pascal (nonche' fortran).
Prova a scaricarlo da 
www.delorie.com/djgpp/

Newsgroup: it.comp.lang.pascal
Titolo: Sorgenti di piccoli videogames





Chi mi manda qualche file sorgente (di videogiochi) per il 
Pascal 7.0,o magari mi indica qualche sito con questo contenuto ? Sarò 
riconoscente a tutti coloro che i risponderanno.






C_L_A_U_D_I_O ha scritto:

Chi mi manda qualche file sorgente
(di videogiochi) per il Pascal 7.0,o magari mi indica qualche sito con
questo contenuto ? Sarò riconoscente a tutti coloro che i risponderanno.


IL PASCAL NON E ADDATTO PER I VIDEOGAMES PER QUESTO C'E' DIV!!!

-----------------------------------------------------

IL RAZZIATORE

EMAIL: 
razzi...@usa.net


WEB:   
www.geocities.com/il_razziatore/


ICQ:   67552596

-----------------------------------------------------

 




PER QUESTO C'E' DIV!!!
1. non si urla
2. non si "posta" in html
3. come fai a dire che il Pascal non e' adatto a sviluppare giochi ?
Simone.
_________________________________
...e dio disse: "pkunzip universo.zip"
ICQ #: 19598133
Webmaster di 
www.drfalken.com
_________________________________

 ha scritto nel messaggio
news:8musii$7h1qs$1...@ID-44700.news.cis.dfn.de...



Delphi...
Lawrence Oluyede
rhy...@tiscalinet.it
"Se ti credono rozzo,
  fai il raffinato;
se ti credono raffinato,
  mostrati rozzo."
Johnny Mnemonic

rhymes ha scritto:

Avete mai provato il DIV una unione tra PASCAL e C++ con capacita di includere
DLL create con C in pratica il massimo.... ed ora suporta anche il 3D... Prova a
fare un videogioco 3D in Delphi o in pascal e poi vediamo chi ci mette dimeno e
meglio...
http://www.divgames.com/
--
------------------------------------------------
IL RAZZIATORE
EMAIL: 
razzi...@usa.net
WEB:   
http://www.geocities.com/il_razziatore/
ICQ:   67552596
--------------------------------------------------


wrote:

Newsgroup: it.comp.lang.pascal
Titolo: Dove sbaglio???

Ciao a tutti!
Ho bisogno ancora del vostro aiuto.
Devo inserire n caratteri in un vettore per esempio: A, 1, 2, 3, B, 4, 5, C
ecc...
Io ho fatto in questo modo:
type caratteri=array[1..20] of char;
var i,n:integer;
      a:caratteri;
read(n);
for i:=1 to n do begin
     read(a[i]);
end;
Quando lancio il programma mi fa inserire solo un carattere.Perchč???Dove
sbaglio???
Grazie.

 ha scritto nel messaggio
news:cj1L9.17355$TC5.5...@twister1.libero.it...

hai provato con readln al posto di read? Prova poi a vedere cosa prende per
n, stampandotelo.
Ciao

 ha scritto nel messaggio
news:cj1L9.17355$TC5.5...@twister1.libero.it...

nel ciclo utilizza il readln
io ho provato come hai fatto tu
e poi come ti ho detto
funziona come dico io
non c'entra niente la variabile n.
ciao

 ha scritto nel messaggio
news:ati9og$7k9$1...@lacerta.tiscalinet.it...

prova a mettere una frase con writeln e poi utilizza il read
il ciclo manco lo pensa il read
ciao

 ha scritto nel messaggio
news:My1L9.28334$lV4.1...@news2.tin.it...


 Ma che differenza c'č tra read e readln e tra write e writeln.
per il write e il writeln č un pb di andare a capo, cioč dopo un write, il
cursore resta in fondo alla frase stampata e il write successivo ricomincia
da lě. Invece il writeln porta il cursore a capo.
Se usi il gotoxy per indirizzare il cursore, diventa indifferente l'uso di
write o writeln.
Per il read credo che la differenza stia nel numero di caratteri letti, con
read uno e con readln anche una linea, ma non sono sicura.
Newsgroup: it.comp.lang.pascal
Titolo: Il Pascal... è meraviglioso!!!

Oggi mi sono messo finalmente a programmare seriamente... anche se è un
linguaggio didattico... secondo me il Turbo Pascal è fantastico... in poco
tempo mi sono reso conto di quante cose possa fare con esso!!!! Non ho mai
programmato... ma con esso sembra tutto molto semplice!!!
Ringrazio tutti quelli che mi hanno consigliato di partire con questo
linguaggio...altro che C... per ora voglio capire tutto del Pascal!
Grazie 1000!

> linguaggio...altro che C... per ora voglio capire tutto del Pascal!
Calma calma, un saggio direbbe: nel momento in cui dirai che hai capito
tutto in realtà non avrai capito nulla...
Il pascal a quei tempi non esisteva... ma indubbiamente nella sua
affermazione c'è sempre un qualcosa anche microscopico di vero :-)
E' giusto che tu sia soddisfatto o che ti senti soddisfatto... ma è sempre
meglio essere moderati :-)
Sinceramente, Cooper.

 linguaggio...altro che C... per ora voglio capire tutto del Pascal!
Quando avrai imparato a programmare, in quanto al C,
ti ricrederai ;)
-- 
Posted via Mailgate.ORG Server - 
http://www.Mailgate.ORG

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

 ha scritto nel messaggio
news:Pb4m8.46742$%g7.14...@twister2.libero.it...

e quando scoprirai l'ObjectWindows, ti piacera' ancora di + :-))))))
comunque se ti fermi ai piccoli programmini, il pascal e' semplice e
meraviglioso, come hai detto tu, ma quando cominci a trattare argomenti +
"cazzuti", comincerai a dire "chi me l'ha fatto fare ..." :-)))
--
Ciao
Marchese Gianfranco
e-mail dgruma@NOPUBBLICITA'
tin.it
 (Da togliere NOPUBBLICITA' se vuoi
rispondermi in privato)
sito internet personale: 
www.turbo-pascal.cjb.net
  Tutto sul Turbo Pascal
1.5
Newsgroup: it.comp.lang.pascal
Titolo: Problemi di memory !!!

Ho scritto un programma che esegue automaticamente l'arj di un qualsiasi
file...
il problema è che ogni volta che provo a comprimere uno qualsiasi mi dice
"out of memory" !!!
Che dichiarazione devo mettere nel programma ? ($M ....  non ho mai capito
come funzionano...)

come funzionano...)
Il primo parametro e' la dimensione dello stack, gli altri sono la
dimensione minima e massima dello heap.
Un'impostazione tipica e' 
{$M 8192, 0, 0}
--
Andrea Laforgia (
andrea_...@bigfoot.com
)
---------------------------------------------


Cos'è lo "stack" ???
Comunque avevo già provato con 8192,0,0 ma mi da ancora lo stesso errore !!!

Comunque avevo già provato con 8192,0,0 ma mi da ancora lo stesso errore !!!
Allora prova a diminuire con
{$M 2048,0,0}


NULLA.. MI SONO ABBASSATO FINO A 1024 MA ANCORA OUT OF MEM....
FORSE PERCHE' USO TROPPE UNIT (4 compresa quella del mouse)
Come posso fare ???
----------------------------------------------------------------------------
-----------------------------------

cosa puoi fare? Smetterla di usare il pascal !!
Scherzi a parte ho il manuale del borland-pascal perchč ho avuto anch'io
questo problema: Se non mi faccio vivo, scrivimi a 
noda...@promo.it
-- 
Arrivederci.    odc Luigi Nodari

Newsgroup: it.comp.lang.pascal
Titolo: [?]Dove trovo un compilatore?

Salve a tutti , domanda semplice dove trovo un compilatore Pascal
e le FAQ?
Grazie a tutti
Ciao Roberto

e le FAQ?
www.freepascal.org

Newsgroup: it.comp.lang.pascal
Titolo: Help: Listbox in Free Pascal

Salve! Vorrei usare un controllo listbox o qualcosa di simile in un
programma scritto in Free Pascal; in sostanza devo poter aggiungere o
cancellare elementi e fare multiselezioni con il mouse. C'è qualche piccolo
programma di esempio?
Grazie, Alex

> C'è qualche piccolo programma di esempio?
win ? gtk ?  solo testo o altro ?
-- 
Dreadnaut
(Life would be easier if I had the source code)

 win ? gtk ?  solo testo o altro ?
Windows.
Alex

Newsgroup: it.comp.lang.pascal
Titolo: cerco tp7

Dove posso trovare turbo pascal 7?
grazie
dede...@hotmail.com


http://members.xoom.it/lollo_1/turbopascal.htm
--
Sgaragnao!!
-----------------------------
Gabriele "Happosai"  Visconti -- 
http://visconti.interfree.it
E-Mail: 
w.vis...@tiscalinet.it
Fan sfegatato della Divina Rumiko Takahashi
             (Non siam degni, non siam degni  ^__^;;)
Sostenitore di Mitsuru Adachi e delle Clamp
Aspirante membro delle BT
              (  a proposito ma come si diventa membri? :-/  )
Esaltatore Ufficiale del GEA - Gruppo Esaltazione Akane
 
http://gulliver.unian.it/genma/
---------------------------------
|-| /-\ |* |* O S /-\ |
Newsgroup: it.comp.lang.pascal
Titolo: Qualche problema

Salve a tutti ho iniziato a studiare il TP a scuola, mi sono scaricato il TP
5.0 e ho fatto il primo esercizio che chiedeva di fare un prg che calcolasse
l'area di un rettangolo ho scritto questo:
------------------------------------------------------------------------
program area_rettangolo;
var
b,h,a:integer;
begin
writeln ('Inserisci la base');
read (b);
writeln ('Inserisci la altezza');
read (h);
a:=b*h;
writeln ('la area è: ',a);
end.
--------------------------------------------------------------------------
ora ho due problemi: il primo è che quando mi deve uscire il risultato non
me lo fa vedere ma torna direttamente alla finestra del TP, il secondo è che
non riesco a compilarlo per farne un .exe
Ah un ultima: come si fà a ripulire lo schermo prima di iniziare il
programma ho provato con CLS ma non funziona.
Grazie a chiunque mi risponda.

 READLN;



puoi anche compilarlo direttamente dall'editor del TP...semplicemente vai al
menu "compile" e cambia la "destination" (metti disk)...poi seleziona
"compile" o + semplicemente premi alt+F9.
ah, un'altra cosa: per inserire la procedura "clrscr" devi però aver
dichiarato all'inizio del programm "uses crt;"
ciao

 dichiarato all'inizio del programm "uses crt;"
E già che ci siamo, quando fai il writeln del risultato puoi usare la
sintassi
writeln('risultato = ', a : x : k)
dove x è il numero di cifre da usare, di cui k decimali. Così eviti la
notazione esponenziale.
Ciao!
dario...@iol.it
http://dariobrunocorti.freeweb.org
ICQ#: 30478061
--
MS Windows: quante volte vuoi formattare oggi?

 programma ho provato con CLS ma non funziona.
X-Mozilla-Status: 0009ue mi risponda.

 ciao
Ma nel TP 5 si usano le unit ??
a me risulta che ci sono solo nel TP 7

Grazie a tutti, i vostri suggerimenti sono stati preziosi, c'è solo un
problema che non riesco a risolvere ancora ed è quello del readln; alla fime
prima di end. : ritorna all'ide lo stesso l'unico modo in cui funziona è
facendo readln (x) dove x è una variabile qualunque ma in questo caso non
aspetta la pressione di un tasto ma di un numero e poi di return quindi ho
preferito lsciare le cose come stanno tanto una volta compilato mi scrive il
risultato e ritorna al prompt.
P.S.: per Sandro Tosi: quanto è grande il tp 7.0

Ok ho risolto anche l'ultimo problema prima non funzionava perchè mettevo
come variabile un numeri :integer poi ho capito che doveva essere una
stringa ora funziona tutto alla perfezione
Grazie

> P.S.: per Sandro Tosi: quanto è grande il tp 7.0
Io ho l'istallazione e sono 10 dischetti ;) però se mi dici che ti
interessa ti seleziono solo quello per dos e quello che gli serve; forse
riesco a far star tutto in 2 MB, dimmi un po' te...



 wrote in message 389A0F2D...@tin.it...



http://www.penguinpowered.com/~ecesena
 "Ancora tu,
  ma non dovevamo vederci piu'?"
Caro Battisti, studiati la grammatica o i teoremi di De Morgan: la frase
corretta e': "ma non dovevamo non vederci piu'?".
                              ~~~

programma ho provato con CLS ma non funziona.
Clrscr; 
-=> NeGuS <=-
www.infinito.it/utenti/negus80
Newsgroup: it.comp.lang.pascal
Titolo: saluti

ciao a tutti ragazzi

ciao a tutti ragazzi
Ciao!
Phones

 ciao a tutti ragazzi

Newsgroup: it.comp.lang.pascal
Titolo: E' ufficiale!

Oggi in piena follia omicida ho eseguito il comando 
/cs register #turbopascal <velastoperdi!> HelloWord
e come risultato ho avuto:
-ChanServ- Il canale #turbopascal e' stato registrato con successo con
il nick: Razziatore
quindi se volte la @ fatevi avanti
sono ancora disponibili i biglietti per i +
Gabba gabba hey!
Il Razziatore,
The Only Good Windows is an uninstalled Windows
-----------------------------------------------
E-MAILs : IlRazziat...@NOSPAMnetscape.net
ICQ     : 67552596
-----------------------------------------------
Founder of MediaPlayer Project
http://mpp.iwebland.com

il nick: Razziatore
Mi ero scrodato di dire che il server č: 
irc.azzuarra.net


 /cs register #turbopascal <velastoperdi!> HelloWord
Hello Powerpoint
--
Keita'
--
ATI drivers on Linux, firmate la petizione!
http://www.petitiononline.com/xf123456/petition-sign.html
?

> Hello Powerpoint
 -tunk-  (-: suono della testa sulla scrivania :-)
-- 
Dreadnaut
(Life would be easier if I had the source code)

 -tunk-  (-: suono della testa sulla scrivania :-)
:D :D :D Ma come mai a te non ti si vede mail?


Newsgroup: it.comp.lang.pascal
Titolo: Far produrre un .COM dal TP

Domanda per i smanettoni più estremi. Esiste un modo per far sputare 
fuori dal TurboPascal un .com?
{ beh teoricamente mi interessa una cosa un attimo + generale, ovvero un 
binario sensa intestazione con un org arbitrario, un com slegato dal org 
100h }
-- 
Il Razziatore,
The Only Good Windows is an uninstalled Windows
-----------------------------------------------
MSN   : 
IlRazz...@netscape.net
ICQ   : 67552596
Yhaoo : Razziatore82
-----------------------------------------------
Founder of MediaPlayer Project
http://mpp.iwebland.com

Non puoi. Il TP compila solo exe ma se vuoi puoi trovare in rete (credo 
che ancora ci sia) il vecchio pascal versione 1.0 o 2.0 - forse anche la 
versione 3 ma non ricordo bene - (prima che diventava turbo pascal) con 
quello puoi compilare .com anzi solo .com
Ciao,
David

Newsgroup: it.comp.lang.pascal
Titolo: PATCH FOR MMX !!!!!! DOVE ????

Dove posso trovare la patch anti "ERROR DIVISION BY ZERO" ????
BaX
pha...@tiscalinet.it

 wrote in message
84iomg$45v$1...@lacerta.tiscalinet.it...


Newsgroup: it.comp.lang.pascal
Titolo: Gioco della Scopa

C'è qualcuno che mi sa indicare in internet dove posso trocare un gioco
della scopa fatto in pascal, magari con il file sorgente, mi servirebbe per
capire come funzione e poi farne uno io.
Ciao e Grazie
Carlito's

 capire come funzione e poi farne uno io.
Non credo che tu troverai qualcosa di già pronto.
Puoi però trovare un consiglio ed è questo: fatti uno schema, mentale o
(meglio) scritto dove schematizzi le azioni base.
Nemmeno una riga di codice, solo un riassunto del gioco.
Es
Mischiare il mazzo  (Vettore? Costante con le carte + vettore per mazzo
mischiato?...)
Distribuire le carte (Un vettorino per giocatore?)
....
DOPO comincia a pensare a come implementare le varie cose.
Il Ruffo.
Newsgroup: it.comp.lang.pascal
Titolo: Strano bug?

program esempio;
var i:byte;
begin
        i:=5;
        if i=5 then;;;;;;;;;;;;;;;;;;;;;;
           write(#7);;;;;;;;;;;;;;;;;;;
end.
Nonostante la presenza dei ";" multipli il compilatore non segnala alcun
errore (almeno la versione 7.0).
Qualcuno nè conosce le motivazioni!
Ciao

> Nonostante la presenza dei ";" multipli il compilatore non segnala alcun
che errore ci dovrebbe essere ? :-)
il ';' e' il terminatore di statement, ed esiste anche lo statement nullo
:-)
--
Dreadnaut
(Life would be easier if I had the source code)

Newsgroup: it.comp.lang.pascal
Titolo: esercizio 2

Ciao, devo fare un altro esercizio in pascal: somma dei primi N numeri
naturali (n introdotto da tastiera)
ciao grazie

Write('Inserisci il numero: ');
ReadLn(Numero);
Somma := 0;
For I := 1 To Numero Do Somma := Somma+I;
Ps. Non è che non hai voglia di studiare?
--
Ciao,
David (
www.utilityweb.net
)

 ha scritto nel messaggio
news:c6r7lf$70s$1...@newsreader.mailgate.org...


Ok spara
--
Ciao,
David (
www.utilityweb.net
)

 ha scritto nel messaggio
news:c6r8j8$85u$1...@newsreader.mailgate.org...


 mia prof ciao.
Bo! Nulla che tratti di corsi. Forse c'e' qualcosa su 
www.programmazione.it
 oppure su 
www.manuali.net
, comunque
l'esperienza è la cosa migliore e non bisogna aver paura di sbagliare
--
Ciao,
David (
www.utilityweb.net
)

Nel primo esercizio ho sbagliato a digitare la riga
 While (I<= 20) Do
deve essere
 While (I<= 30) Do
--
Ciao,
David (
www.utilityweb.net
)

 semplicemente il pascal??
prova sul sito in firma
-- 
Ciao
Gianfranco Marchese
http://www.Turbo-Pascal.cjb.net
e-mail dgruma@NOPUBBLICITA'
tin.it
 (Da togliere NOPUBBLICITA' se vuoi
rispondermi in privato)
UIN icq 117743990

Un sito molto bello che spiega le cose in modo chiaro e semplice è secondo
me
www.giobe2000.it

 ha scritto nel messaggio
news:Uf9kc.29186$eR5....@tornado.fastwebnet.it...


Curiosità... è più rapida  l'istruzione
If (I Mod 2) <> 0 Then Inc(I);
oppure cambiare in 0 l'ultimo bit dell'integer evitando il ciclo if??
Newsgroup: it.comp.lang.pascal
Titolo: What's wrong with this Procedure???

Hello All,
The Procedure I'm refering to is Getword which is supposed split a sentence
up into seperate words and put them into an array.  The Procedure keeps
printing a lot of Garbage afterwords and I can't figure out why .. can
anyone Help??
Thanking you all,
David
Program Tester;
Uses Crt;
Type
  Str255 = string[255];
Var
  AB:Str255;
  Ar:array[1..15] of string;
Procedure getword(S:Str255);
Var
   I: Integer;
   Output: Str255;
   ArN:Integer;
Begin
     Output := '';
     I := 1;  ArN:=1;
     Repeat
       Repeat
           Output := Output + S[I];
           Inc(I);
       until (S[I] = ' ');
       inc(I);
       if Output = '' then Output := ' ';
       Ar[Arn]:=Output;
       output:='';
       inc(arn);
    until ((arn=10) or (I+1 = length(S)));
    clrscr;
    for Arn:= 1 to 10 do
    writeln(Ar[arn]);
end;
Begin
  Writeln('start');
  Readln(AB);
  Getword(ab);
  readln;
end.

 wrote:
: Hello All,


    until ((arn=10) or (I+1 = length(S)));
to this:
    until ((arn=10) or (I > length(S)));
-- 
William McBrine * 
wmcb...@clark.net
 * 
http://www.clark.net/~wmcbrine/
Newsgroup: it.comp.lang.pascal
Titolo: Grafica

Salve ragazzi. Ho un probleminoin Pascal.
Dato che sto facendoun programma che usa la grafica in DOS, ho provato a
usare la modalità 13H,cioè 320x200x256. Fin qui tutto normale. Ho
provato poi a usare altre modalità grafice successive alla 13h. Ne ho
trovate alcune che avevano 640x400x256, 800x600x256 ecc...
Tutte iniziavano a $A000:0000.... così colorando dal segmento
$A0000:0000 fino al punto $A000:FFFF si coloravano 64k pixel...appena la
parte superiore del monitor però. Così ho pensato: Uso il segmento
successivo!!!!!
Ho provato a colorare nellazona $A001:0000 ma si ricomincia dal punto in
alto a sinistra dello schermo!!!! Ho usato anche $AFFFF:0000 fino
a$AFFF:FFFF ma vado sempre a colorare la zona solita... non riesco
amettere mani in aree dello schermo al di sotto dei primi 64k bytes. Che
vuol dire??????? Qualcuno sa dirmi se è riuscito a usare qualche
risoluzione migliore sotto DOS???
Grazie in anticipo.
Saluti dal grande VEGETA PRICIPE SEI SAIYAN
     /\    /\
\_/    \/    \_/


dunque tu ti stai riferendo a modalità grafiche SVGA....il tutto funziona
così:
siccome tu sei in Real Mode e il segmento di memoria video è (in generale)
solo di 64kb, tu puoi accedere a soli 64kb alla volta...però le risoluzioni
svga hanno bisogno di + memoria, come hai potuto notare anche tu...quindi si
è pensato di usare sempre lo stesso segmento ($A000:0000) e, di volta in
volta, di indicare alla scheda in quale parte dello schermo disegnare i
bytes contenuti in $A000:0000 . In pratica tu devi settare qualche valore
nelle porte della scheda svga per dirle: "ora questi byes che scrivo in
$A000:0000 tu non me li disegni più all'inizio dello schermo, ma nella
seconda parte (o nella terza...quarta...) ecc.". Per esempio, la 640x480x256
ha bisogno di 5 parti in cui dividere lo schermo. (cioè esattamente
sarebbero 640*480/65536=4.68).
Ti consiglio di scaricare qualche documento sulla programmazione svga vesa
1.0...prova qui: 
http://www.goodnet.com/~tinara/FreeVGA/home.htm
se sei interessato, io qualche tempo fa avevo fatto delle procedure
piuttosto veloci in assembler per la svga...fammi sapere che magari te le
mando
ciao
--
http://nxos.cjb.net

Newsgroup: it.comp.lang.pascal
Titolo: TARTAGLIA

Mi servirebbe, stasera, un codice per la generazione di un triangolo d i
Tartaglia... o perlomeno, datala riga n che riporti i valori di tale riga.
Grazie !!
mas...@usa.net
--

Grazie !!
var tartaglia : array [1..100] of integer ;
    calcolato : array [1..100] of integer ;
    grado     : integer ;
    i         : integer ;
    g         : integer ;
begin
  grado := 2 ;
  tartaglia [1] := 1 ;
  tartaglia [2] := 2 ;
  tartaglia [3] := 1 ;
  g := 10 ;
  repeat
    calcolato [1] := 1 ;
    for i := 1 to grado do
      calcolato [i+1] := tartaglia [i] + tartaglia [i+1] ;
    calcolato [i+2] := 1 ;
    grado := grado + 1 ;
    write ( grado:2, ') ' ) ;
    for i := 1 to grado+1 do
    begin
      tartaglia [i] := calcolato [i] ;
      write ( tartaglia [i]:5 ) ;
    end ;
    writeln ;
  until grado = g ;
end.
Newsgroup: it.comp.lang.pascal
Titolo: Win2000

Ho sentito che Win2000 non contiene più il Dos come Win98 e gli altri,
pertanto Turbo Pascal 7.0 non dovrebbe partire, giusto? Qualcuno di voi ha
trovato qualche soluzione, a parte quella di non installare Win2000 ?
Grazie.
--
M&C
cln...@tin.it

 Ho sentito che Win2000 non contiene piů il Dos come Win98 e gli altri,


> In Win2000 c'e' un DOS emulato basato sulla versione 5.0...
la versione 5 e quella di win...
il "dos" (che adesso chiamano 'console' ) sarebbe piu' o meno
un 7.0, con in piu' comandi per le associazioni ai files, popd e
pushd che funzionano come CD ma usano uno stack (non
sembra ma e' parecchio utile :-) )
--
Dreadnaut (dn)
drea...@liberoDALLASPAM.it
(Life would be easier if I had the source code)

 wrote in message
news:FVnm7.128956$TS4.1...@news2.tin.it...

il Turbo Pascal 7.0 ti crea dei file exe eseguibili solo con il 
tuo computer.
Io ho installato la versione 6 ma puoi lavorare anche con Freepascal
-- 
Posted from 
ppp-27-233.21-151.libero.it
 [151.21.233.27] 
via Mailgate.ORG Server - 
http://www.Mailgate.ORG

 tuo computer.
?????


 --
Scusatemi per essere stato poco chiaro
Intendevo dire che se compilo con un vecchio pentium 166
mi crea un eseguibile che non posso far partire su altre macchine
ecco il perchè della versione 6
-- 
Posted from 
ppp-169-233.21-151.libero.it
 [151.21.233.169] 


se guardi fra i messaggi da qualche parte c'e' il sito
con la patch per il 7.0 che o rende compatibile con
i processori piu' nuovi (a costo un delay( ) praticamente
casuale)


Newsgroup: it.comp.lang.pascal
Titolo: carattere per snake

ciao a tutti, vorrei realizzare snake con il turbo pascal, volevo sapre con
quale combinazioni di tasti si fa quel quadratino
alt+??
ho provato con alt+177 ma è troppo rettangolare, ci vorrebbe qualcosa di più
quadrato...
--
L'importante della vita sono le scelte...
...c'è sempre un futuro alternativo
membro: 
www.alground.com
FORZA MANCHESTER UNITED!!!

 quadrato...
for i:=1 to 255 do write(' ',i,'->',chr(i));
e vedi ;)
--
Keita'
--
ATI drivers on Linux, firmate la petizione!
http://www.petitiononline.com/xf123456/petition-sign.html
?

> for i:=1 to 255 do write(' ',i,'->',chr(i));
si ma cosi' gli suonera', saltellera' e cancellera un po' :-)
cmq se lavora a 50 righe il carattere rettangolare diventa bello
quadrato :-)
-- 
Dreadnaut
(Life would be easier if I had the source code)

 si ma cosi' gli suonera', saltellera' e cancellera un po' :-)
a te non pare divertente? =D Piu' casino fa' un programma piu' e' un buon
programma...


 Keita'
si ma come faccio a sapere con che combinazione si fa?


> si ma come faccio a sapere con che combinazione si fa?
che sia quel numero che appare a fianco del carattere ? :-)


 che sia quel numero che appare a fianco del carattere ? :-)
ops scusa

Newsgroup: it.comp.lang.pascal
Titolo: Ordine di elementi

Scusate ho fatto un programma che gira benissimo con tutti gli elementi ma
in una somma per esempio di tre elementi se metto tre elementi in un
determinato ordine non gira!!
Mi sa che non sono stata chiara!!!!
Sono nuova dei newsgroup posso mandare per caso il listato come allegato?
Fatemi sapere!
Cosě con il listato si vede meglio....
Ciao a tutti

, che
sembrava aver detto :

Manda, manda pure...
Andrea Laforgia        (
andrea_...@bigfoot.com
)
----------------------------------------------------
There is nothing better for understanding a kangaroo
than seeing it jump.
----------------------------------------------------

 
Possibilmente non come allegato, ma con un copia/incolla... mandare
files allegati non va bene :-)
bye!
-- 
Emanuele Cesena                 
http://www.penguinpowered.com/~ecesena
ece...@penguinpowered.com
                 Attenti all'antispam NOSPAM
"Riguardo ai propri problemi, la gente e' sempre molto conservatrice.
Riguardo a quelli degli altri, e' sempre molto liberale", legge di Kerr-Martin

files allegati non va bene :-)
Ovvio, non intendevo come attachment...


Newsgroup: it.comp.lang.pascal
Titolo: Esiste CRT.TPU???

Ogni volta che intendo utilizzare una unit devo specificarlo all'inizio
del programma:
Uses unit1, unit2, unit3, ..., unitN;
Per ognuna di queste deve esistere nella cartella Units il
corrispondente file *.TPU.
Perché, nonostante utilizzo sempre la unit CRT (Uses Crt), non esiste
nessun file che si chiama CRT.TPU?
--
Fabio Feuli
E-Mail 
fe...@libero.it
Nick-Name Bacco
"Considerate la vostra semenza:
fatti non foste a viver come bruti,
ma per seguir virtute e canoscenza"
(Dante: Inferno XXVI, 118-120)


Perche' DOS e CRT sono inclusi in TURBO.TPL
Ciao
Simone.

Newsgroup: it.comp.lang.pascal
Titolo: Cerco Pascal

versione 7 o anche minore.
Chi me lo manda?
Grazie
Ciao
Peppe
--
---------------------------------------------------
 Giuseppe Di Rienzo  NICK: Peppe ICQ:25025139
 E-mail: 
gaed...@tin.it
 / 
scou...@hotmail.com
  HOME PAGE: 
http://utenti.tripod.it/scoutismo
   Campobasso 3° WWW: Scouting on the Net...
  Vivete per il presente, sognate per l'avvenire,
              imparate dal passato...
---------------------------------------------------

Prova a visitare questo sito:
http://members.xoom.it/Colo/


Io te l'ho mandato,spero sia arrivato tutto intero.
Xbug
Newsgroup: it.comp.lang.pascal
Titolo: gotoxy su file

scusate, e' possibile avere una certa formattazione, come quella che si ha
su video utilizzando gotoxy, su un file di testo, grazie
--
Ciao
Marchese Gianfranco
e-mail dgruma@NOPUBBLICITA'
tin.it
 (Da togliere NOPUBBLICITA' se vuoi
rispondermi da qui)
sito internet personale: 
www.gian1.cjb.net
per il replay togliere NOSPAZZATURA

 ha scritto nel messaggio
news:NKOV6.1881$GZ5....@news1.tin.it...


 - ICQ# 92905138
http://www.mascanc.net/~skolem

 ha scritto nel messaggio
news:NKOV6.1881$GZ5....@news1.tin.it...


 ha scritto nel messaggio
news:9gfn15$h95$1...@felicidade.mascanc.net...


Newsgroup: it.comp.lang.pascal
Titolo: per EMA e per tutti (solo 2 domandine...)

Ciao! 
	Scusa se ti disturbo, ma innanzitutto ti devo ringraziare per le volte che
ho utilizzato i tuoi preziosissimi consigli!
 
Vengo al dunque: 
	1) tempo fa ho scaricato la UNIT IMMBMP.TPU e l'ho inclusa nella mia tesi.
Però non mi ricordo più chi l'ha fatta, ma vorrei citarlo, almeno, nella
bibliografia. (Non è cosa da oscar della programmazione, ma almeno trovate
l'eseguibile su 
http://members.xoom.com/luiginodari
 (spero non ci siano
virus..) )
	2) ho pure scaricato crtpatch.zip, ma non ho ben capito a che cosa serva:
io sto usando la versione 7.0 della borland su un 386 sotto DOS. Vorrei
sapere se il pacth serve per (a) far funzionare anche su un Pentium2
l'eseguibile generato sul 386 oppure (b) se serve per compilare con la
versione 7.0 del pascal anche su un Pentium 2.	
    	A  presto. Luigi Nodari.  
Reply only at:
 
noda...@promo.it
 
noda...@hotmail.com
 (se vuoi spedirmi immagini o allegati)
Arrivederci.    odc Luigi Nodari

166MHz (o 200?)
Ciao.
Simone.

"
Newsgroup: it.comp.lang.pascal
Titolo: array ridimensionabili

salve a tutti,
esiste il modo di creare con pascal standard (o eventualmente con TP)
array con la cui dimensione sia specificata da una variabile?
altra domanda, è possibile implementare le procedure/funzioni passate
per parametro?
alcuni libri ne parlano, specificando che l'implementazione non è
molto diffusa, si può fare in TP?
grazie
http://www.geocities.com/SiliconValley/Sector/4934
ICQ: 25795934


http://www.penguinpowered.com/~ecesena
Difendero' fino alla morte il tuo diritto di dirlo, ma non ho mai detto
che ti avrei ascoltato!
		-- Tom Galloway, con scuse a Voltaire

per gestire dei dati dinamici devi ricorrere ad una lista, fatta con
variabili di tipo puntatore...
credo che non ci siano altre soluzioni... :-)
saluti, Fabio
fabi...@libero.it

no: devi implementarti una lista.
Non e' vero, o meglio, e' vero in pascal standard.
In TP si puo' fare annullando il flag di "range checking" ed
utilizzando qualcosa del tipo :
{$R-}
type  mat = array[0..0] of integer ;
     pmat = ^mat ;
poi basta allocare spazio per pmat, cosi' come si fa in C, ad esempio
con :
var p : pmat ;
p := getmem( 100 * sizeof( integer ) ) ;
Andrea Laforgia (andrea_...@XXXbigfoot.com)
------------------------------------------------
Il mio indirizzo di posta elettronica è inattivo 
per il momento.

credo che non ci siano altre soluzioni... :-)
Vedi risposta a eMa, in TP si puo' fare.



http://www.penguinpowered.com/~ecesena
L'hostess ideale?  Quella che vi chiede: "Caffe', te' o me?".
		-- Da it.hobby.umorismo

Newsgroup: it.comp.lang.pascal
Titolo: funzione random

è possbile usare la funzione random definendo un numero massimo di cifre
?
x es dicendo di creare un numero a caso di sole 4 cifre ?

random prende come parametro il numero massimo +1
per avere un numero di 4 cifre puoi usare
random(10000) che genera numeri da 0 a 9999
--
Dreadnaut (dn)
drea...@liberoDALLASPAM.it
(Life would be easier if I had the source code)

> x es dicendo di creare un numero a caso di sole 4 cifre ?
  x4:= random(1000)

mmmh cosi' viene di 3 ;-)


> mmmh cosi' viene di 3 ;-)
si, me ne sono accorto dopo aver spedito il msg..... ;P 8)

Newsgroup: it.comp.lang.pascal
Titolo: Info

Qualche anima pia saprebbe suggerirmi dove trovare in rete un manuale o
qualcosa di simile che spieghi i rudimenti di Turbo Pascal?
Grazie e saluti al NG


Ciao,
io ti consiglio un libro da scula media superiore
intitolato:
Manuale del programmatore
Autori: Ambrosini, Perlasca, Lorenzi,Ocera
edizione: Tramontana.
E' riferito al pascal versione 5.0 ma per iniziare č molto buono.
ciao
Giorgio
Newsgroup: it.comp.lang.pascal
Titolo: Units

Ho troppe procedure nel mio programma, e vorrei trasferirle in un file
esterno, magari una unit; il problema č che i file pas e le tpu non si
scrivono nello stesso modo... Č possibile includere i file Pas ?
Inoltre se creo una unit, quando vado a buildare il file EXE, la include
nel file del programma, vero (ditemi di si) ?!
Come devo procedere per costruire una unit? ho inoltre il problema che
le procedure che dovrei spostare, lavorano anche con variabili globali..
PLZ Help me !
Phones

PLZ Help me !
Le unit sono formate da tre parti : intestazione, dichiarazioni e
definizioni.
La parte di intestazione e' del tipo :
unit Nome ;
dove Nome e' lo stesso nome dato al file che contiene la unit privo
dell'estensione.
segue la keyword 
interface 
che apre la sezione di dichiarazioni in cui vengono scritte le
dichiarazioni delle funzioni esportate.
Dopodiche' segue la parte
implementation
in cui si scrive il corpo delle funzioni/procedure esportate e quelle
private della unit.
In questa sezione vanno specificate le variabili globali utilizzate
come "external" in modo da avere visibilita' nel codice della unit.
segue il corpo 
begin
...
end.
dove al posto dei puntini ci va messo il codice di inizializzazione
della unit.
Es.:
--- file Somma.pas :
unit somma ;
interface 
   procedure aggiungiValore( a : integer ) ;
   function dammiRisultato : integer ;
implementation
   var somma : integer ;
   procedure aggiungiValore ;
   begin
     somma := somma + a ;
   end ;
   function dammiRisultato;
   begin
     dammiRisultato := somma ;
   end ;
begin
  somma := 0 ;
end.

 [CUT]

Newsgroup: it.comp.lang.pascal
Titolo: Immagini BitMap di Windows (BMP)............

Salve !
Vorrei sapere se è possibile gestire le immagini BMP in Pascal.
Vorrei realizzare un programma di grafica (tipo Paint di windows) che possa
modificare BMP esistenti
o crearne di nuove.
Arrivederci.



, il giorno Tue, 29 Jul 1997
10:03:14 +0200 hai scritto:
#Salve !
#
#Vorrei sapere se è possibile gestire le immagini BMP in Pascal.
#
#Vorrei realizzare un programma di grafica (tipo Paint di windows) che
possa
#modificare BMP esistenti
#o crearne di nuove.
#
#Arrivederci.
#
Certo, e' possibile, ma bisogna farsi tutto da soli :-)
Nel mio sito (nella sezione grafica) c'e' un programma che, oltre a
caricare una bitmap 320x200x256 colori fa anche un effetto di fading.
Forse ti potra' essere utile.
Cordialmente,
REMO FRANCESCHELLI - ITIAV 4a Info.
http://www.geocities.com/SiliconValley/Lakes/7668
(Programmazione in Pascal)
** Concentrazione = Forza **
Newsgroup: it.comp.lang.pascal
Titolo: Rimuovere un file

Volevo sapere se c'è un comando in Pascal 7.0 che permette la cancellazione
di un file durante l'esecuzione di un programma.
Penso che un comando del genere debba per forza esistere, ma non riesco a
trovarlo sul libro di testo.
Vi ringrazio,
                     Gabriele

Vi ringrazio,
Procedura per la cancellazione di un file: 
Procedure ELIMINA(N:string);
var	F:file of byte;
begin
	assign(F,N);
	rewrite(F);
	close(F);
	erase(F)
end;
Questa procedura cancella dal disco il file di nome N.
Le due istruzioni prima della Erase(F) servono perchč se il file di
nome 
N non esiste, nel tentativo di eliminarlo si commetterebbe un errore. 
Quindi si preferisce comunque crearlo piuttosto che verificarne 
l'esistenza.
Ciao,  Fabio
fabi...@rocketmail.com

end;
Si, e' vero, la procedura e' efficace, ma non credi che creerebbe problemi in un
tentativo di recupero dei dati originali ?
Piuttosto io propongo una soluzione del genere :
function elimina(n : string) : boolean;
var f : file of byte;
    resultOK : boolean;
begin
  assign(f, n);
  {$i-} close(f); {$i+}
  resultOK = (IOresult = 0);
  if (resultOK) then 
  begin
    {$i-} erase(f); {$i+} 
    resultOK = (IOresult = 0);  
  end;
  elimina := resultOK;
end;
che ritorna TRUE se tutto e' andato bene e FALSE se c'e' stato qualche errore.
Andrea, mica uno qualunque...
--------------------------------------------------
"Ho cambiato signature, si vede ?" 
--
Posted from 
itaca.ulysse.it
 [195.223.254.1]
via Mailgate.ORG Server - 
http://www.mailgate.org


Ed allora io ti propongo questa:
procedure  elimina(n:string);
var	f:file of byte;
begin
         assign(f,n);
         {$I-}
         reset(f);
         if IoResult=0 then begin
            close(f);
            erase(f)
         end
         {$I+}
end.
Che ne dici?
Fabio
fabi...@rocketmail.com

 (Fabio M.) wrote:
Semplificando ancora
procedure  elimina(n:string);
var	f:file of byte;
begin
         assign(f,n);
         {$I-}
         erase(f)
         {$I+}
end.
Anche questa sembra funzionare e piu' corta di cosi mi sa che non si
puo' fare.
Ciao,  Fabio
fabi...@rocketmail.com

Un bel di' Fabio M. scrisse:
FM> Semplificando ancora
FM> 
[cut]
FM> 
FM> Anche questa sembra funzionare e piu' corta di cosi mi sa che non si
FM> puo' fare.
FM> 
siete un po' folli... :-)
-- 
"Esistono solo errori", assioma di Robert
"L'errore di un uomo e' la certezza di un altro uomo", corollario di Berman
-- 
Emanuele Cesena
em...@iol.it
          occhio all'antispam NOSPAM!
http://www.geocities.com/SiliconValley/Grid/8879

puo' fare.
Be' si potrebbe fare questa :
procedure elimina(var f : file);
begin
  {$I-} erase(f); {$I+}
end;
eh eh eh ...


Che ne dici?
Giusto, mi sembra la migliore.



var F:  file;
begin
 Assign(F, 'NomeFileDaCancellare');
 Erase(F);   	(* Cancella il file *)
end.


Se fai cosi ed il file F non esisteva incappi in un errore di I/O
Fabio
fabi...@rocketmail.com
Newsgroup: it.comp.lang.pascal
Titolo: Caratteri "speciali"

Come posso fare a far leggere come tre caratteri diversi un'unica stringa?
es: writeln('Scrivi un'operazione: '); 2+2
    readln(operazione);
Come posso fare per ottenere il risultato 4, facendo capire al compilatore
che + è un valore char mentre 2 e 2 sono valori interi???
SPERO CHE QUALCUNO MI RISPONDA DECIFRANDO CIO' CHE VOLEVO DIRE (scusate se
ho gridato...)


Devi acquisire la stringa intera e poi elaborarla: la scandisci dall'inizio
alla fine e controlli ogni singolo carattere ovvero
1- se trovi un numero continui ad acquisire caratteri finché non trovi
un'operazione: metti le cifre acquisite in una stringa secondaria e converti
la stringa in numero tramite la procedura val (vedi help)
2- se non devi fare alcuna operazione (perché è il primo numero) lo salvi in
una variabile intera (o reale se pensi di dover gestire anche numeri con la
virgola)
3- acquisisci ora l'operazione e ne tieni traccia in memoria (una variabile
char andrà bene)
4- acquisisci il numero successivo, lo converti come all'inizio, e salvi
nella variabile intera (o reale) il risultato dell'operazione che devi
effettuare tra la variabile intera ed il nuovo numero. (risultato=risultato
[operazione da fare] numero)
5- riparti dal punto 3 finchè non finisce la stringa.
Così dovrebbe funzionare.
Le cose cambiano lievemente se ci sono delle parentesi...
Ciauz
--
KNOWLEDGE IS POWER
http://www.sverzat.com
¯`·.           .·´¯`:
'·.   .`·.   .·´.   .·'
   `:--·´   `·--:´
      `·. '_' .·
        ;`·-·´;

 ha scritto nel messaggio
news:3c25...@news.cis.it...


 stringa??? Grazie
La stringa è un array di caratteri dove la prima cella ha indice 1.
Per scandire la stringa devi quindi usare un indice:
indice:=0;
repeat
  inc(indice);
  .
  .
  .
until (indice=strlen(stringa));

Newsgroup: it.comp.lang.pascal
Titolo: [OT] Alla ricerca di un editor

Salve a tutti,
scusare il messaggio off topic ma ho veramente bisogno di un aiuto: sto
cercando un editor come voglio io!!! Più o meno dovrebbe avere questo:
+-----+--------------------+
|     |                    |
| {1} |                    |
|     |                    |
|     |                    |
+-----+        {3}         |
|     |                    |
| {2} |                    |
|     |                    |
|     |                    |
+-----+--------------------+
{1}: lista delle directory
{2}: lista dei file della directory correntemente selezionato
{3}: testo del file
Grazie a tutti

scherzo PerMorphe';
 begin
  :-) come ???
  un programmatore che fa una domanda simile ??
  fattelo :-) ehehehehe
end;
ciao
--
Dreadnaut (dn)
drea...@liberoDALLASPAM.it
(Life would be easier if I had the source code)

 ha scritto nel messaggio
news:4n7R7.106$G53....@twister2.libero.it...

mah... xkè non provi a usare il tuo editor di testi preferito e ad
affiancarlo a gestione risorse...
+---------+------------------+
|Gestione  |Tuo Editor             |
|Risorse    |                             |
|               |                             |
+--------+-------------------+
:p oppure fai quello ke dice Dreadnaut
prego.

questo:
[...]
Prova TextPad. Ce l'abbiamo in facoltà, dove sto cercando lentamente di 
evangelizzare quanta più gente posso nell'uso di questo grandioso editor 
(affiancato a GCC e make) al posto del tristissimo Borland Turbo C++
-- 
Nato nel vizio, morto nel supplizio
Nato nel peccato, ad entrare sia invitato

 end;
avessi tempo lo farei io ma visto che non ce l'ho....
vabbè ma credo che accetterò lo stesso la sfida e grazie al mio delphino
supererò anche questa sfida...... tanto è una cazzata, ma volevo risparmiare
tempo.....
Ciao

mi e' capitato per le mani WinEdit (mi serviva per Unreal :-) ) ed
e' praticamente identico al tuo schema
http://www.winedit.com/download/wpropack_setup.exe
ftp://ftp.winedit.com/ftp/pub/download/wpropack_setup.exe
ah... e' shareware...



wrote:

Uhm, ero certo di avere da qualche parte qualcosa con quell'aspetto: è
l'MSS Web Creator 2.0. Non è un editor HTML, ha la stessa interfaccia
che vuoi tu, è assolutamente gratuito, non molto pesante da scaricare
da Internet o da caricare nella RAM.
Se apri un file HTML puoi vedere un'anteprima (se hai IE 4.0), puoi
aprire più file (la linguetta per gli switch fra quelli che hai aperto
è nella zona (3) in basso).
Puoi anche cambiare il font della zona 3).
Download da 
http://www.kmccarty.net/
Come editor HTML Freeware l'ho bocciato, ma è un ottimo, onesto editor
di testo.
(MSS sta per McCarty Software Solutions! Ho impiegato mesi per
capirlo...)
Provalo!
Ciao
PV

 l'MSS Web Creator 2.0. Non č un editor HTML, ha la stessa interfaccia
Potrebbe essere proprio quello che serve a me: lo provo a fondo e speriamo
che vada!! :)
Newsgroup: it.comp.lang.pascal
Titolo: salvare un file "dat" con nome scelto dall'utente...

Ciao a tutti, volevo sapere se si può, e come si fa a salvare un file .dat
con un nome scelto dall'utente, ad esempio:
writeln('Inserisci il nome per salvare il file:');
readln(name);
come devo scrivere l'assign?
assign(filelogico,'c:\         .dat');
grazie.
--
L'importante della vita sono le scelte...
...c'è sempre un futuro alternativo
membro: 
www.alground.com
FORZA MANCHESTER UNITED!!!
Per scrivere in pvt togliere i "nospam"

 
Io farei così:
***
writeln('Nome per salvare il file:');
readln(name);
percorso:="C:\"+name+".dat";
assign(filelogico,percorso);
***
Ciao
-- 
Pigi


come mai ci sono i "+" prima e dopo "name"??
--
L'importante della vita sono le scelte...
...c'č sempre un futuro alternativo


 come mai ci sono i "+" prima e dopo "name"??
concatenazione di stringhe ? :-)
-- 
Dreadnaut
(Life would be easier if I had the source code)

 concatenazione di stringhe ? :-)
azz... è vero! :-)
--
L'importante della vita sono le scelte...
...c'è sempre un futuro alternativo


Newsgroup: it.comp.lang.pascal
Titolo: Ricerca nel programma

Dopo aver fatto un programma con informazioni varie, come faccio perchè
colui che sta usando il programma possa inserire un testo e poi ricercarlo?
Una specie di motore di ricerca però in pascal, come si fa? Grazie!
Distinti saluti
Matteo

 ha scritto nel messaggio
news:Bqil8.118$S52....@news2.tin.it...


 ha scritto nel messaggio
news:FWil8.131$pT1....@news1.tin.it...



wrote:


Newsgroup: it.comp.lang.pascal
Titolo: [TUTORIAL] Info generali

Finalmente ho finito il tutorial, dentro il file ho messo dei link ad
altri tutorial che volgio fare percui non vi preocupate se non
funzionano :-)
ecco l'url,
http://www.pascalonline.f2s.com/Tutorials/dlls.htm
PS: PER ReDiQuori e altri:
I tutorial vanno messi nella pagina Tutorials poi mi occuperero io di
fare un bel indice... segnalatemi tutorials a:
razzi...@usa.net
se volete spedirmi qualche alegato (tipo i vostri tutorial in formato
.pas)
IlRazz...@netscape.net
PS: Ho addotato una grafica un po... come dire particolare.... se vi
pace bene se non vi pace pace visto che secondo me è la migliore per
spiegare il pascal, riflette.... e fatemi sapere
---
Il Razziatore,
The Only Good Windows in an uninstalled Windows
-----------------------------------------------
E-MAIL: 
razzi...@usa.net
WEB   : 
razziatore.dsx.org
ICQ   : 67552596

spiegare il pascal, riflette.... e fatemi sapere
Giuro che ho riflettuto!!!
Per me la grafica č OK, solo i collegamenti dovrebbero risaltare un po'di 
piů.
-- 
Andrea Zwirner
yuppi...@yahoo.it
"Poni ciň che sei nel minimo che fai."

Un altra cosuccia:
E'stracolmo di errori di ortografia!


più.
Lo so... ma il Borland pascal gia si prende tutti i colori per le
diverse keywords... mo vedo se c'è un colore decente che non usa
(esempio il rosso)....
