Môj .exe program padá – Pascal – Fórum – Programujte.com

Dobrý. Robím súťaž a na nej robím ozvučenie programom (náhodne vyberá pesničky = funguje) a druhý program:

Vložím do neho 50,000 slov (longint). Každé slovo na 1 riadku. Chvíľku to trvá. Potom program uloží do súboru slovo na každom nepárnom riadku a priradí k nemu slovo ' - Áno'. Keď to urobí, tak mi vypise "Zappísané" a program ukoncim.

Program je skompilovaný v pascale a na starom type pc win 7 32bit mi fungoval bez problemov, no na novom vykonnejsom pc win 7 64bit mi padá. Vložím 50,000 slov, všetky sa vložia, no keď ich má program uložiť do súboru, tak niekedy uloží prvých 500 slov, niekedy 4000, no nikdy nie celych 25000. Proste program sa uplne vypne pred napísaním "zapísané".

Nemoze byt problem s pamätou pc alebo nieco podobne?

Ked ten program napisem v lazaruse, spustim, ale na rovnakom mieste sa ukonci, no tentoraz s chybou: "project raised exception class run error 5"

#1 Nummi
Na staršom inom pc 32b mi to zase v pascale nahlási chybu exitcode = 5

A ked sa pozriem kolko slov zapisalo tak vidim 2644 slov

Samozřejmě, že může být problém s tím, že je to 64bit atd., ale stejně tak dobře můžeš mít v tom svém programu chybu, která se na 32bit stroji neprojevila nebo jenom nezpůsobila pád. Bez zdrojáků budeš nejspíš dostávat jen takovéto obecné rady :).

Aha. Tak tu je ten zdrojovy kod. (po novom do textoveho suboru vlozim 50,000 slov. Spustim program, napisem cislo 50,000. Program vytriedi kazde neparne slovo a pripise k nemu slovo "- ANO". Nakoniec tie slova ulozi do druheho textoveho suboru, no pri ukladani vzdy padne pri 500. - 5000. slove a viac neulozi)

program slova;
uses crt;
var n, i, d : longint;
A:array[1..1000000] of string;
var f:text; g:text;

begin
clrscr;

repeat

writeln('N');
readln(n);
Assign(g, 'C:\Users\Nummi\Desktop\test0.TXT');
Reset(g);
for i:=1 to n do begin
ReadLn(g, a[i]);
end;
close(g);

d:=0;
n:=(n div 2);
writeln;
writeln('Zapísané');
writeln;
writeln;

assign(f,'C:\Users\Nummi\Desktop\Mailer\maily.txt');
for i:= 1 to n do begin
append(f);
writeln(f,a[1+d],' - Áno');
inc(d,2);
end;
close(f);

until n=0;

end.

Fakt tomu nechapem, skusal som menit subory (.txt; .docs), skusal som menit priecinky, miesto ulozenia, ale nic nefunguje. Doteraz som si myslel, ze funkcnost primitivneho programu na 32b verzii musi byt rovnaka ako na 64b.  

Uz sa mi to nechce skusat, ale nemoze byt chyba aj v tom "append(f);"?

nemoze byt chyba aj v tom "append(f);"?

Moze. Proc ho mas uvnitr toho foru?

Zdenda, ty si Boh :) Bola tam chyba :) Miesto tohto:

assign(f,'C:\Users\Nummi\Desktop\Mailer\maily.txt');
for i:= 1 to n do begin
append(f);
writeln(f,a[1+d],' - Áno');
inc(d,2);
end;
close(f);

to malo byt takto:

assign(f,'C:\Users\Nummi\Desktop\Mailer\maily.txt.txt');
append(f);
for i:= 1 to n do begin
writeln(f,a[1+d],' - Áno');
inc(d,2);
end;
close(f);

ALE EŠTE RAZ, DÍKY MOC