Mynima la8ous sthn pascal

[CodeMan]

Kalispera!Loipon,mporeite na mou peite ti shmenei to mynima "The NTVDM CPU has encountered an illegal instruction CS:0000 P:0075 OP:f000f03705"?? <img src="http://www.insomnia.gr/ubbthreads/images/graemlins/confused.gif" alt="" />

Mou emfanistike kata tin deiarkeia pou etrexa ena programma mou ,meta ekleise teleios h pascal.

exw Xp prof kai Turbo pascal 5.0

Mhpws egrapsa poly kakos kwdikas?? <img src="http://www.insomnia.gr/ubbthreads/images/graemlins/crazy.gif" alt="" />

[damn3]

sou to exei xanakanei me alla programmata pou exeis ftiaxei? apo oti xerw thelei na kaneis patch ta programmata se tp gia fast cpus.

 

http://www.merlyn.demon.co.uk/pas-r200.htm

 

Fast CPU detection unit for Turbo Pascal 6+, R.Rothenburg

ftp://garbo.uwasa.fi/pc/turbopa7/pfu-32.zip

 

http://w3.pol.lublin.pl/pub/pc/turbopas/bp_patch/

 

isws omos kai na min einai auto. polles fores exei tixei apo kwdika pou grafo px: sto delphi na peftei to ide. idios otan exei na kanei me array pointers.

 

Apo tin alli (msdn.microsoft.com):

 

Error Message:

The NTVDM CPU has encountered an unsupported instruction.

 

User Action:

Retry the operation. If you still get this message, try to continue. If you are able to continue, you might want to check the results of the running application. Otherwise, terminate the application, then restart it. If you still get this message, contact your technical support group or the supplier of the running application.

 

dokimase kai auto:

Go to Control Panel, choose system, then click on the enviroment button. Add the variable "RTVMEXP" and set the value to "0".

[GrMikeD]

To NTVDM einai "NT virtual DOS machine". Diladi pistevw oti den einai problima tis Pascal. Apla einai problima tou Dos Machine pou exoun ta XP.

 

Isws ftaiei to oti xrisimopoieis poli palia Pascal (5.0: pou tin brikes? xrisimopoiise 7.0 toulaxiston!) pou xrisimopoiei pragmata pou den upostirizodai pleon. Isws ama to trekseis se Win98 i win95 pou xrisimopoioun katharo dos na treksei.

 

Enallaktika dimiourgise Windows Console Application me Delphi. O kwdikas paramenei o idios se arketa simeia.

[CodeMan]

Eftyxws,den mou to kanei se alla programmata.

damn3 pou einai afto to "enviroment button"??

GrMiKed,exw dokimasei na trecsw prog. apo pascal se WCA tis delphi ,dystixws diaferei o kwdikas kai kyriws sto kwdika pou aforoun grafika.

[damn3]

κοίτα "Για προχωρημένους" -> "Μεταβλητές περιβάλλοντος" -> "Δημιουργία" (για ελληνικά XP).

 

να φανταστώ πως το πρόβλημα σου το βγάζει γιατί το πρόγραμμα που φτιάχνεις χρησιμοποιεί graphic units που υποπτεύομαι περιέχουν inline asm .

[CodeMan]

ta grafika leitourgoun mia xara sto programma.

Exw ftiacsei mia diki mou procedure san th readln

alla se graphic perivallon.Molis o xristis patisei to enter gia eisagwgh tote mou vgainei afto to minima.

[damn3]

mipws thewrei ton/tous xaraktira pou diavazei san graphics (kati)? allou typou diladi apo string, char ...

[CodeMan]

Sas para8etw pio katw tin sygekrimeni diadikasia

stin opoia antimetwpizw to provlima an kai den nomizw oti exei provlima o kwdikas.

Elpizw na katalavete ti prospa8w na kanw?

Ola pane mia xara mexri o xristis na patisei to pliktro '='.

thnx,prokatavolika!

 

procedure ReadFld(var str:string10);

var k,j,i:integer;

c:char;

temp:string;

begin

j:=0;

i:=0;

settextstyle(smallfont,Horizdir,8);

repeat

c:=readkey;

{BackSpace}

if (c=#8) and (i>=1) then

begin

temp:='*';

i:=i-1;

setcolor(9);

for k:=20 to 80 do line(j,k,j+10,k); {svinei to sygekrimeno xaraktira}

j:=j-10;

end

else

if (c<>'=') and (i<10) then

begin

j:=j+10;

i:=i+1;

temp:=c;

setcolor(6);

outtextxy(j,20,temp);

 

end;

until c='=';

 

outtextXY(1,350,temp);

j:=1;

while (temp[j]<>'*')and (i>1) do

begin

str[j]:=temp[j];

j:=j+1;

end;

outtextXy(1,400,str);

end;

shmeish:h outtext einai paromoia me tin writeln alla se graphic perivallon