Variable Records speichern

[himitsu]

jupp, dann kracht es.
aber ich glaub ich bin zu blind ... wo fehlt fa ein fs. ? nja, vieleicht wurde es auch schon korrigiert

Delphi-Quellcode:

procedure Save(x: TCDArchiv; Filename: String);
var fs: TFileStream;
     l: Integer;
begin
  fs := TFilestream.Create(Filename, fmCreate);
  try
    l := Length(x.Album);
    fs.Write(l, SizeOf(Integer));
    if l > 0 then fs.Write(x.Album[1], l);
   
    l := Length(x.Titel);
    fs.Write(l, SizeOf(Integer));
    if l > 0 then fs.Write(x.Titel[1], l);
   
    l := Length(x.Songs);
    fs.Write(l, SizeOf(Integer));
    if l > 0 then fs.Write(x.Songs[1], l);
  finally
    fs.Free;
  end;
end;

lesen dann so:

Delphi-Quellcode:

fs.Read(l, SizeOf(Integer));
SetLength(x.Album, l);
if l > 0 then fs.Read(x.Album[1], l);

man könnte zwar auch mit Pointern rumjonglieren, aber empfehlen würde ich den Meisten dann doch die variante mit dem IF.

Delphi-Quellcode:

l := Length(x.Album);
fs.Write(l, SizeOf(Integer));
fs.Write(PChar(x.Album)^, l);

wer ist eigentlich auf die blöde Idee gekommen die Read/Write-Funktionen nur per Var-Parameter zu basteln