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