C++ zu Delphi funktion umschreiben

[Klaus01]

Guten Abend,

ein Versuch:

Delphi-Quellcode:

function parse_cuv(fileName: AnsiString; var titleName: AnsiString):Byte;
var
  fp : TMemoryStream;
  i : Integer;
  str : smallInt;
  pos : smallInt;
  value : smallInt;
  idx : Integer;
  s : String;
begin

  fp := TMemoryStream.Create;
  try
    fp.LoadFromFile(fileName);
    fp.Seek(8,soFromBeginning);
    fp.Read(str,2);
    // todo swapBytes(str)
    fp.Seek($c,soFromBeginning);
    fp.Read(pos,2);
    // todo swapBytes(pos)
    idx := 0;
    while str < fp.size do
      begin
         fp.Seek(str,soFromBeginning);
         setLength(s,length('TITLE'));
         fp.Read(s,length('TITLE'));
         if s = 'TITLE' then
           begin
             setLength(titleName,63);
             fp.Read(titleName,63);
             result := 0;
             break;
           end;
        // keine Ahnung was das mir sagen soll.
        //while(mem[str]) str++;str++;
        fp.Seek($1c+idx,soFromBeginning);
        fp.Read(value,2);
        // todo swapBytes(value)
        pos := pos + value;
        inc(idx,16);
      end;

  finally
    fp.free;
  end;
end;

Grüße
Klaus