PDA

View Full Version : Pascal e l'istruzione seek...


zheb
27-04-2004, 15:10
Salve avrei bisogno di leggere un campo all'interno di un file e per fare ciò devo spostare il puntatore all'interno del file, mi hanno suggerito di usare l'istruzione seek, ma non sò in che modalità, infatti facendo:

Seek (Passfile, 42)

Nella compilazione ho un errore di sintassi e di fatto il programma non funziona...sbaglio qualcosa, avete qualche consiglio??

Ramius
27-04-2004, 20:58
il punto e virgola l'hai messo? che errore ti da precisamente?

zheb
27-04-2004, 21:13
Si, ho messo il punto e virgola, l'errore è questo:
http://www.virtualworldsnc.it/images/temp/errore.jpg

La parte di codice interessata è questa...
assign (passfile,'C:Progra~1/NetSup~1/Client32.ini');
reset (passfile);
SEEK (passfile, 42);
i:=0;
while not eof(passfile) do
begin
line:='';
while not EoLn(passfile) do
begin
Read(passfile, ch);
line:=line+ch;
if line='Password=' then begin
while not eoln(passfile) do
begin
inc(i);
read(passfile,ch);
password[i]:=ch;
end;
length:=i;
end;
end;
readln(passfile,line);
end;

Ramius
27-04-2004, 21:22
non so aiutarti... faccio delle prove ok?

zheb
27-04-2004, 21:39
Ok, grazie lo stesso;)