As you may know, FPC comes with a spanish error message file. Is there any volounteer who can update the spanish message file for the 1.0.6 release? 83 error messages must be translated.

I volunteer.
Just tell me which file and where it is.
And by the way, which messages are these? Do you mean that I can see compiler messages in Spanish? How?

Aitor

Hi All!
I'm writting a small adressbook and this peace of code gives me an error I can't resolve:
The error is:
An unhelded exception occured at 0x004018B0 :
Read past end of file
0x004018B0
0x00401B9B
0x00404821

But in the function ReadFromFile I'm checking for the end of file in the While not eof(TFile) part of the code.
Please Help.

function ReadFromFile (Head : PPerson; Var TFile :File
) : PPerson;
Var
   Current : PPerson;
   Last    : PPerson;
begin
     Current := Head;
     Last := Current;
     Assign (TFile,ADDRFILE);
     Reset(TFile,1);
While not eof(TFile) do begin
BlockRead(TFile,Current^.FName,Length(Current^.FName)
+ 1);
BlockRead(TFile,Current^.LName,Length(Current^.LName)
+ 1);
BlockRead(TFile,Current^.Address,Length(Current^.Address)
+ 1);
BlockRead(TFile,Current^.PhNumber,Length(Current^.PhNumber)
+ 1);
 BlockRead(TFile,Current^.EMail,Length(Current^.EMail)
 + 1);
 BlockRead(TFile,Current^.URL,Length(Current^.URL)
+1);
     if not eof(TFile) then begin
                New(Current);
                Last^.Next := Current;
     end;
          Current^.Next := Nil;
end;
     Close(TFile);
     ReadFromFile := Head;
end;

__________________________________________________ Do You Yahoo!?
Yahoo! Sports - Coverage of the 2002 Olympic Games http://sports.yahoo.com

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.

__________________________________________________ Do You Yahoo!?
Yahoo! Sports - Coverage of the 2002 Olympic Games http://sports.yahoo.com

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

Hi,
i want to ask about unicode. Will fpc support source code written in unicode in future?

Hi, i want to ask about unicode. Will fpc support source code written in unicode in future?

Maybe in the future. It can be added, i wrote a mail about it in the past. But the core team doesn't have the time to add it.