> Hvorfor/ hvordan kan følgende linie (Makeret med *) give access violation
>
> procedure TcymPak.ItemToFile(Index: Integer; fName: string);
> var
> FS: TFileStream;
> begin
> FS := TFileStream.Create(fName, fmCreate);
> try
> * fStream.Position := fDirectory.Items[Index].OffSet; *
> FS.CopyFrom(fStream, fDirectory.Items[Index].Size);
> finally
> FS.Free;
> end;
> end;
>
> Den kan jeg ikke lige lure...nogen der kan hjælpe ?
Ja, jeg er synsk, og derfor vil jeg godt sætte min ære på at dit Index er
invalid!
Prøv at breake den der hvor der i forvejen er markeret med *. Check så
at dit index er indenfor gyldig range.
/Flawless