Hogyan lehet lekerdezni az IP cimet Delphiben?
-
#67
Jut eszembe: lehet, hogy ilyen alacsony szintű fájlkezelésnél nincs is kivételkezelés és nem fog működni. Ez esetben a try...except elhagyandó, a for-nak kell a begin és a hibakezelés úgy műxik, mint a Pascal-ban:
osszmeret:=0;
for i:=0 to listbox2.items.count-1 do begin
assignfile(f, listbox2.items[ i]);
{$I-} reset(f, 1); {$I+}
if ioresult=0 then begin
inc(osszmeret, filesize(f)); closefile(f);
end else begin
// hiba volt
...
end;
end;
Az előző kódban pár dolgot elgépeltem, de azt majd kijavítod. :)