Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Mavarik,
11. Jan 2016
Klar, wollte sehen, ob jemand den Fehler findet...:stupid:
Tja gute Frage... Vielleicht hat man auch auf der Festplatte dann 255 gelöschte Dateien mit 0-254'er Inhalt und eine mit 255er...
Lange nicht mehr mit beschäftigt...
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Mavarik,
11. Jan 2016
Na dann eher so...
var i : byte;
Beispielstream : TMemoryStream;
begin
Beispielstream:=TMemoryStream.Create;
try
Beispielstream.LoadFromFile(Datei);
//Randomize; Sollte nur einmal im Programm aufgerufen werden!
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by Mavarik,
11. Jan 2016
hmm
var i : Integer;
Beispielstream : TMemoryStream;
...
begin
Beispielstream:=TMemoryStream.Create;
Beispielstream.SetSize(DateiGroesseInBytes); // Wofür?
Beispielstream.LoadFromFile(Datei); // Daraus ergibt sich die Größe des Memstreams...