Thema: Delphi AV bei Records laden

Einzelnen Beitrag anzeigen

Benutzerbild von Neutral General
Neutral General

Registriert seit: 16. Jan 2004
Ort: Bendorf
5.219 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#3

Re: AV bei Records laden

  Alt 27. Jun 2006, 17:15
Mh ok.
Aber das bringt mich leider bei meinem Problem nicht weiter
Was mir auch aufgefallen ist bei der Speichern procedure (poste sie doch mal):

Delphi-Quellcode:
procedure TSchuldenliste.SaveToFile(Filename: String);
var MS : TMemoryStream;
    i, len : Integer;
begin
  MS := TMemoryStream.Create;
  // Anzahl der Einträge speichern
  Ms.Write(Count, SizeOf(Integer));

  for i:= 0 to Count-1 do begin
   len := Length(Items[i].Bei);
   Ms.Write(len, SizeOf(Integer));
   Ms.Write(Items[i].Bei[1], len);
   len := Length(Items[i].Anlass);
   Ms.Write(len, SizeOf(Integer));
   Ms.Write(FItems[i].Anlass[1], len);
   Ms.Write(FItems[i].Betrag, SizeOf(Single));
   Ms.Write(FItems[i].Zinsen.Start, SizeOf(Double));
   Ms.Write(FItems[i].Zinsen.Intervall, SizeOf(Zinsintervall));
   Ms.Write(FItems[i].Zinsen.Kind, SizeOf(Zinsart));
   Ms.Write(FItems[i].Zinsen.Value, SizeOf(Integer));
   Ms.Write(FItems[i].Gezahlt, SizeOf(Boolean));
  end;

  Ms.SaveToFile(Filename);
  Ms.Free;
end;
Wenn ich bei den Strings statt Items[i].Bei/Anlass FItems[i].Bei/Anlass benutze dann gibts schon beim speichern ne AV.. was ich irgendwie auch nicht verstehe.. bei allen anderen Variablen meckert der Compiler schon bei Items.Irgendwas weils kein var Parameter ist... Und bei den Strings klappts und man bekommst sogar Ärger wenn man FItems benutzt (AV)..

Gruß
Neutral General
Michael
  Mit Zitat antworten Zitat