TMemoryStream - Create Problem

[FreewareFire]

Wie was machen?



Ich rufe doch die Funktionen von dort auf. Nur muss ich, wenn den User den Eintrag wechselt, den neuen Dateiinhalt in TMemoryStream einlesen. Das heißt, ich müsste wissen, ob das memstr objekt bereits erstellt wurde und ob ggf. Daten in memstr enthalten sind. Sollte das Objekt noch nicht erstellt worden sein, muss es erstellt werden - sind Daten schon drin, weil vorher eine Datei geladen wurde, müssen diese aus dem memstr gelöscht werden. Verstanden?

Derzeit sieht der Code so aus:


procedure TForm1.FLISTClick(Sender: TObject);
begin

memstr := TMemoryStream.Create; //wobei, wird jedesmal beim Klick erstellt (sinnlos, oder?)

memstr.LoadFromFile(STV1.Path + '\' + FList.Items.Strings[FList.ItemIndex]);

end;

Er soll memstr := TMemoryStream.Create; nur ausführen, wenn es nicht exisitert. Das heißt, keine Datei zuvor geladen wurde. Ansonsten, wenn bereits eine Datei geladen wurde, soll er den Stream löschen und die neuen Daten einlesen...