Beim hantieren mit Streams sind mir diese Methoden aufgefallen, und da wollte ich sie auch mal ausprobieren. Nur irgendwie funktioniert's bei mir nicht
Mein Code:
Delphi-Quellcode:
procedure loadKompo;
var
Stream: TStream;
begin
Stream := TFileStream.Create('test.asdf', fmOpenRead or fmShareDenyNone);
Memo1.Assign(Stream.ReadComponent(nil) as TMemo);
//bzw.: »Memo1 := Stream.ReadComponent(nil) as TMemo;« - gleicher Fehler
Stream.Free;
end;
procedure saveKompo;
var
Stream: TStream;
begin
Stream := TFileStream.Create('test.asdf', fmCreate or fmShareDenyNone);
Stream.WriteComponent(Memo1);
Stream.Free;
end;
Das Speichern funktioniert so weit, nur beim Laden gibt es dann einen Fehler:
»Im Projekt Project1.exe ist eine
Exception der Klasse EClassNotFound mit der Meldung 'Klasse TMemo nicht gefunden' aufgetreten.«
Weiß jemand, was ich da machen kann?
LG, ich