A koja ti je duzina exe fajla koji ucitavas?
Sigurno je veca nego duzina stringa. Moras da kontrolises koliko podataka smeju maksimalno da se ucitaju. Znaci nesto ovako:
duzina:=0;
while not eof(f) and (duzina<max_duzina_stringa) do
begin
inc(duzina);
read(f,ch);
...
end;
najbolje ti je nesto ovako (pisao sam napamet, pa mozda ima gresaka):
Code:
var
niz:array[1..maxduz] of byte;
f:file of byte;
begin
assignfile....
reset..
if ioresult=0
begin
duzina:=min(filesize(f),maxduz);
blockread(f,niz,duzina);
closefile(f);
end;
end;
[Ovu poruku je menjao Toyo dana 25.08.2005. u 16:31 GMT+1]