Runtime error 64736 – Pascal – Fórum – Programujte.com

Zdravím přátelé,

mám problém s chybou 64736. Dělám program, který umožní registraci(do jednoho souboru) potom vytvoří soubor pro každého zaregistrovaného uživatele. Problém nastává při ověřování přihlašovacího jména ze souboru ůdajů o všech uživatelích.

#1 Kalgys
procedure ss(b:string);

var c:string;
begin
  c:='';
  assign(F,'c:\pokus\udaje.txt');
  reset(F);
  while (c=b) do
  begin
  readln(c);
  end;
  if c<>b then
  begin
  write('Login nenalezen');
  end
  else
  write('Prihlasen');
  close(F);
  end;
procedure log;
var nick,pass,full:string;
begin
  write('Jmeno: ');
  readln(nick);
  write('Heslo: ');
  readln(pass);
  clrscr;
  aa;
  full:=nick+' '+pass;
  assign(F,'c:\pokus\udaje.txt');
  reset(F);
  while not eof(F) do
  ss(full);
  Close(F);
  rep[1]:=false;
end;
procedure reg;
var nick,pass,t,full:string;
   begin
    t:='.txt';
    Write('Jmeno: ');
    read;
    readln(nick);
    write('Heslo: ');
    readln(pass);
    full:='c:\pokus\uzivatele\'+nick+t;
    assign(F,'c:\pokus\udaje.txt');
    append(F);
    writeln(F,nick+' '+pass);
    close(F);
    assign(uz,full);
    rewrite(uz);
    writeln(uz,nick);
    close(uz);
    clrscr;
    aa;
    write('Chces se nyni prihlasit a hrat?<y/n>: ');
    read(car[2]);
    case car[2] of
    'y','Y':
      log;
    else exit;
    end;
    rep[1]:=false;
   end;

Chybu s takovýmhle číslem jsem ještě neviděl, ale otázka je, co používáš za překladač. V TP jsou čísla chyb snad maximálně trojciferná.

Tady máš seznam na první pohled viditelných chyb, víc z toho nepoznám:

- V proceduře ss není definován soubor f. Ale jestli je globální, mělo by to fungovat.

- Cyklus while (c=b) do readln(c); je úplně mimo. Zaprvé readln s jedním parametrem čte z klávesnice a ne ze souboru, zadruhé ta podmínka je přesně obráceně a zatřetí ti tam chybí kontrola konce souboru, takže by ti program po opravě prvních dvou chyb nejspíš skončil buď pádem (při {$I+}) nebo nekonečnou smyčkou (při {$I-}).

- V proceduře log voláš nedefinovanou proceduru aa.

- while not eof(F) do ss(full); je nesmysl, protože se to cyklí už v ss.

- Close(f) je tam navíc, protože už proběhne v ss. A nejsou definované proměnné f a rep.

- V proceduře reg: read; je nesmysl, smaž to (nevím, možná je to zdroj té chyby).

- Než ze zadaného jména sestavíš jméno souboru, zkontroluj si, jestli to vůbec půjde (nepovolené znaky, mezery, délka atd.). Ale jestli je uživatel opatrný, program pojede.

- Nedefinované věci f, aa, car a rep.

#3 Mircosoft
aa je definovane driv f je globalni F:text car:array[1..5] of char a rep:array[1..5] of boolean to vse je globalni

soubor udaje existuje jsou v nem po radcich jmeno+' '+heslo

btw to readln uz mam upravene 

a to read v procedure reg mam proto, ze pri otazkach na udaje mi to preskakovalo ihned k heslo a jemno to nechtelo a to nam radila ucitelka,

program se normalne rozjede registrace je v pohode zapise se do souboru udaje a vytvori si i vlastni soubor pro toho zaregistrovaneho chyba se objevi ve chvili odeslani prihlasovacich udaju

pouzivam lazarus free pascal IDE

PS: kamos co programuje uz dlouho v tom nevidi zadnou chybu

To, že někdo nevidí žádnou chybu, nemusí nutně znamenat, že tam žádná není :-) (kdyby nebyla, asi by to nepadalo, že jo).

Jestli ti tohle:

write('Jmeno: ');
readln(nick);
write('Heslo: ');
readln(pass);

ignoruje to první readln(nick) a na obrazovce vidíš rovnou "Jmeno: Heslo: _", je někde něco špatně. Napadá mě možnost, že v bufferu klávesnice zůstal od někdy zmáčknutý enter a readln ho vzalo a vyhodnotilo jako konec zadávání jména. To by se mohlo stát snad jedině v případě, že bys někde předtím používal nějaké čekání (Delay) a během něj omylem ten enter zmáčknul. Ale těžko říct, když nevidím celý program. Řešil bych to resetem klávesnice před prvním readln: while keypressed do readkey (případně něco:=readkey, kdyby náhodou Lazarus nebral rozšířenou syntaxi).

Zkus se kouknout do manuálu, co to číslo chyby znamená - to může docela dost napovědět.

Nejjistější věc asi bude použít krokování programu a projet ho příkaz po příkazu, pak přesně uvidíš, kde k té chybě došlo. Ale nevím, jak se to v Lazaru dělá a jestli to vůbec jde. V nejhorším si prostě hoď za každý příkaz writeln, které ti řekne, kde zrovna jsi.