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]
Registrovani: 69 ( marko_81, garti, Comi79, x-master, gpedja_70, Ijahman, -V-O-Y-A-G-E-R-, espresso, dulemijatovic, svetozar, hemarikon, sipar, Arax, Slobodan Trebovac, ivantes, Singleton, eric.cantona, CNC SHOP, combuster, sasa_vidic, donbozone, micontije, Pigoza, exmetakom, Predrag Supurovic, ikovac, kazil, hermancs, Whois, atom, morihei ueshiba, Radudzoni, Vesod, Zoran Rodic, Bobson, Milan Milosevic, dix, A.M., racoiv, mret, mikan75, Lazar-I, Micy89, bokija, zaraza, gutica, haloservis, colke77, ugison, mr.zhile, zelja019, frees, captPicard, maxxex, dmauka, punnik, S_tosha, yu1ny, ivan1122, karojba58, gogi100, mperisic, sanibo, babarogatajna, vladaepro, laminator, acoobradovic, rj444, madamov )
Ucitavanje fajlova na cudan nacin! 
