[Exit code 3]

Ok działa, ale są drobne bugi:

(macie kod na górze) jak wpisuje nowe hasło one już się zapisuje ale gdy znowu powraca do menu awaryjnego i chcę wyjść i wpiszę 0 zapisuje się ponownie jako haslo.

 

WYSYŁAM PROGRAM E-MAILEM I DAJĘ NA GMCLAN DO MOJEGO FOLDERU

 

Pamiętajcie że żeby wejść do awaryjnego trzeba będzie kliknąć "/" NIE klikać jak nie będzie nic pisać czekajcie na komendę.

 

P.S Trzeba mieć dysk E jak ktoś nie ma to zmienię kod.

 

(Dzięki dla Makary155 iThreef)

:thumbsup:

[Exit code 3]

Ale co trzeba poprawić ?

[Exit code 3]

Begin

 

ClrScr;

WriteLn('PROGRAM ON');

Delay(5000);

Writeln('LOADING');

WriteLn;

Writeln;

WriteLn('klikni cos');

kliknicos1 := readkey;

 

IF kliknicos1 = awaryjny THEN

Begin

repeat

TextBackGround(Blue);

ClrScr;

TextColor(4);

WriteLn('Tryb Awaryjny');

Delay(6000);

Writeln('W tym trybie mozesz uzyc zaawansowanych fukcji');

Writeln('Jesli nie jestes upowazniony wylacz program !!!');

Writeln('Prosimy upewnic sie ze zapewniony jest ciagla energia');

Writeln('gdyz nagle wylaczenie komputera spowoduje uszkodzenie');

Writeln('danych');

Writeln;

TextColor(15);

Writeln('1.Zmien haslo');

Writeln('2.');

 

readln(menuawaryjne);

 

IF (menuawaryjne = 1) THEN

ClrScr;

Writeln('wpisz nowe haslo ');

Readln(nowehaslo);

Assign(haslotxt, 'E\Pascal\haslotxt.txt');

Rewrite(haslotxt);

Writeln(haslotxt, nowehaslo);

close(haslotxt);

 

Until menuawaryjne=00;

End;

 

 

 

 

 

End.

 

 

 

 

Chodzi o to że po zmianie hasła wyskakuje błąd.

Proszę o pomoc

[Pascal "Zapisywanie danych na dysku"]

ok

[Pascal "Zapisywanie danych na dysku"]

Czy jest możliwość żeby coś co zostało wpisane w konsoli zostaje zapisane na dysku (np. jakieś dane) póżniej pokazalo sie na konsoli po wybraniu opcji w menu.