[fpc-pascal]Small Problem

[Jonas Maebe]

On zondag, februari 24, 2002, at 07:20 , ivica munitic wrote:

> I solved the problem :)
> The thing was that I din't use a fixed Length with
> the BlockWrite function.
> When I did use a fixed block size in both blockwrite
> and blockread function the problem disapered.

That was indeed an error in your program:

BlockRead(TFile,Current^.FName,Length(Current^.FName)
+ 1);

At the time the blockread call is executed, current^.fname isn't 
initialized yet and as such length(current^.fname) contains a random 
value at that time.


Jonas