'ReadLn across lines'

Hi,

My problem seems to be with ReadLn. The following is code I have not written (but did pay for). I cannot get it to work. It does work in a compiled version from many years ago.

A line (0ÿNew Noteÿÿÿ-1ÿ80ÿ50ÿ65535ÿ16ÿ0ÿ1ÿ10ÿaþ
bÿ-1) in a datafile is read using

procedure TNotePool.Load(FileName : string);
var
   DataFile : TextFile;
   Line     : string;
   Note     : TNote;
begin
   AssignFile(DataFile, FileName);
   Reset(DataFile);

   while not EOF(DataFile) do
   begin
      Readln(DataFile, Line);

      Note.ID           := StrToInt(GetFieldFromLine(Line));
      Note.Caption      := GetFieldFromLine(Line);
      Note.ImageFile     := GetFieldFromLine(Line);
      Note.IconFile      := GetFieldFromLine(Line);
      Note.NoteType     := StrToInt(GetFieldFromLine(Line));
      Note.Width        := StrToInt(GetFieldFromLine(Line));
      Note.Height       := StrToInt(GetFieldFromLine(Line));
      Note.Color        := StrToInt(GetFieldFromLine(Line));
      Note.IconSize     := StrToInt(GetFieldFromLine(Line));
      Note.IconLocation := StrToInt(GetFieldFromLine(Line));
      Note.Transparent  := Boolean(StrToInt(GetFieldFromLine(Line)));
      Note.TextSize     := StrToInt(GetFieldFromLine(Line));
      Note.Memo         := SetCRs(GetFieldFromLine(Line));  
          { ATTENTION : TEMPORARILY }
      Note.AggID        := StrToInt(Line);

      if OldLoad then
         AddItem(Note)
      else
         AddItemRaw(Note);
   end;

   CloseFile(DataFile);
end;

The line that is read is cut into a first part on line 1 of the datafile and a second part on line 2 of the datafile. The line that is read must be put into the note (Memo field) and it must be cut in half (continuing after the carriage return) on the memo. Now, the line-separator þ (#254) that is used is not recognized by the

function TPool.GetFieldFromLine(var Str : string) : string;
var
   Temp  : string;
begin
   Temp := Copy(Str, 1, Pos(#255, Str) - 1);
   System.Delete(Str, 1, Pos(#255, Str));

   Result := Temp;
end;

Therefore, the memo field remains empty and an exception is raised.

Strangely,

function TPool.SetCRs(Text : ansistring) : ansistring;
var
   i : longint;
   TempText : ansistring;
begin
   for i := 1 to Length(Text) do
   begin
      if Text[i] = #254 then
         TempText := TempText + #13
      else
         TempText := TempText + Text[i];
   end;

   Result := TempText;
end;

is supposed to work with the extracted memo-field, but, of course, if empty, it cannot.

Do you see how this is supposed to work? I will say this question is difficult, but I am clearly a beginner..

Thanks,

Ron dW