RichEdit Text auf gefüllt prüfen

[DeddyH]

Hier lade ich einen String aus einem MemoryStream in ein RichEdit und lasse ihn mir ausgeben. Bei Dir wäre das vermutlich ein BlobStream.

Delphi-Quellcode:

procedure TfrmMain.btnLoadClick(Sender: TObject);
var re: TRichEdit;
    memStream: TMemoryStream;
begin
  re := TRichEdit.Create(nil);
  try
    re.Visible := false;
    re.Parent := self;
    memStream := TMemoryStream.Create;
    try
      memStream.LoadFromFile(Dateiname);
      re.Lines.LoadFromStream(memStream);
      ShowMessage(re.Text);
    finally
      memStream.Free;
    end;
  finally
    re.Free;
  end;
end;