Newsgroup: it.comp.lang.pascal
Titolo: Per formattare i floppy:cosa sbaglio?

Cosa sbaglio? mi dice expected su begin !!!!
uses Dos,Crt;
var
  DirInfo: SearchRec;
  a:file
begin
 FindFirst(a:\'*.*', Archive, DirInfo);
  while DosError = 0 do
  begin
    assign(a,DirInfo.Name);
    erase(a);
    findnext(dirinfo);
  end;
end.
Grazie a tutti!


Ciao ReDiCuori
------------------------------------------
pascal su IRC : #turbopascal
pascal sul web : 
www.pascallike.cjb.net
------------------------------------------

Non ti dice solo expected, ma anche ";" :-)
--
Dreadnaut (dn)
drea...@liberoDALLASPAM.it
(Life would be easier if I had the source code)

Grazie ma anche cosi mi da problemi
Precisamente mi dice che non gli va bene i due punti dopo a...
FindFirst(a:\'*.*',Archive,DirInfo);
mah......non ci kapisco + una mazza
ERROR 26: TYPE MISMATCH
gRAZIE A TUTTI COLORO CHE MI DARANNO UNA MANO...
uses Dos;


Grazie ma anche cosi mi da problemi
Provato cosě?
uses Dos,Crt;
var
  DirInfo: SearchRec;
    a:file;
    begin
     FindFirst('a:\*.*', Archive, DirInfo);
       while DosError = 0 do
         begin
             assign(a,DirInfo.Name);
             erase(a);
             findnext(dirinfo);
         end;
     end.
extrabug @ 
iname.com

non funziona ma perchè mi dice file not found???

perche' il floppy e' gia' vuoto ? :-)


non funziona ma perchè mi dice file not found???
Non sono sicuro se l'assign riesca a prendere anche la path
in quel modo, 
dirinfo.name
 credo contenga solo il nome + estensione,
non mi va di tracciarlo perche' mi da' problemi lo schermo.
Comunque in una delle prove ha funzionato, fai qualche ritocco.
extrabug @ 
iname.com

ho trovato.....grazie!
c'č l'ho fatta

 c'è l'ho fatta
Come hai risolto il problema? Io non ci sono riuscito!!!!!
Grazie, Daniele.

uses Dos,Crt;
var DirInfo: SearchRec;
a:file;
begin
clrscr;
FindFirst('a:\*.*', Anyfile, DirInfo);
while DosError = 0 do
begin
assign(a,'a:\' + DirInfo.Name);
erase(a);
findnext(dirinfo);
end;
end.

Grazie!
Daniele.

Law ha scritto nel messaggio ...

Comunque sia... questa è la cancellazione di tutta la directory del disco...
non è una formattazone....
forse che forse e dovreste imparare un po' di assembler?
Saluti dal grande VEGETA PRINCIPE DEI SAIYAN
    /\   /\
\_/  \/   \_/

 forse che forse e dovreste imparare un po' di assembler?
C'è una cosa che ancora non ho capito: se ho un programma in
assembly posso farlo girare utilizzando il TurboPascal? o mi
serve un compilatore apposta per l'assembly?
--
-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_
e-mail: 
cerch...@ciaoweb.it
cell.: 338/1347116
l'elenco telefonico dei telefonini:
http://www.elencoonline.it/
Bye byte, Cerchietto
-_-_-_-_-_-_-_-_-_-_-_-_-_-_-_




 non so se sono stato kiaro...
Si, tu chiaro lo sei stato, solo che adesso la mia mente è diventata
"scura" ;-)


 Aiuto! Non ci capisco niente! 8-o
Le direttive di compilazione si scrivono come commenti.
Esempio:
direttiva $D+ (fa in modo che siano incluse nel file .EXE le
informazioni per permettere il debug, tipo dove finisce un
comando e
inizia un altro)
 {$D+}
Nel caso di $L ($I serve per inserire il codice di un altro
file .pas)
avrai:
{$L progform.obj}
L'uso dovrebbe essere (non l'ho mai provato) (trovi tutto in
%dirTPpascal%\doc\utils.doc, riguardo a BINOBJ, e nella
guida riguardo
alla direttiva $L, penso) è di creare una procedura esterna:
procedure Format; external;
{$L progform.obj}


 assembler.
Non è vero. Basta che trasformi il file esterno in obj e poi lo linki. Poi
il pascal supporta l'asm, quindo è tutto ok.
Ciao
Alex