Forum: Algorithmen, Datenstrukturen und Klassendesign
by Gashunkification,
19. Mär 2012
Vielen Dank nochmal an alle und @Bummi
Das mache ich doch schon sowohl beim Schreiben als auch beim Lesen. :) Das war nicht das Problem.
Habe den Fehler nun gefunden (habe einmal strlngth und lngth vertauscht). Mit dem Code hier geht es jetzt:
procedure TListHandler.Load(const FilePath: String);
var
F_Stream: TFileStream;
lngth: Integer;
strlngth: Integer;
Forum: Algorithmen, Datenstrukturen und Klassendesign
by Gashunkification,
18. Mär 2012
genau das mache ich doch ... o__o ... Oder? xD
strlngth := Length(List.Item.Info); // <-------- Length(String)
F_Stream.WriteBuffer(strlngth, SizeOf(strlngth));
F_Stream.WriteBuffer(List.Item.Info,
strlngth*SizeOf(List.Item.Info)); // <-------- Length(String) * SizeOf(Char)
Forum: Algorithmen, Datenstrukturen und Klassendesign
by Gashunkification,
18. Mär 2012
Beides ist der Fall ... :
property Length: Integer read Get_Length write Set_Length;
und ... :
function TItemList.Get_Length: Integer;
Forum: Algorithmen, Datenstrukturen und Klassendesign
by Gashunkification,
18. Mär 2012
Okay ... ich hab das glaube ich immernoch nicht so ganz verstanden.
(Ihr müsst das entschuldigen, ich arbeite das erste Mal mit FileStreams und mein Programmierlehrer kann das nur in C#, nicht in Delphi x.x)
Habe die Save/Load mal wie folgt angepasst, aber irgendwie steht in den Variablen Name und Info beim Laden nurnoch müll ...
// Load a existing List from a specific Filepath
procedure...
Forum: Algorithmen, Datenstrukturen und Klassendesign
by Gashunkification,
18. Mär 2012
Hallo :)
Ich habe 2 Objeke, ein Item und eine ItemList.
Das Item ist wie folgt aufgebaut
TItem = record
ID: Integer; // wird automatisch gesetzt
Name: String;