Campo RTF no pasa a objeto StringStream

[pgranados]

Yo checaría si "contenido" ya fue creado previamente

Código Delphi [-]
if contenido <> nil then
contenido := TStringStream.Create('Hola Mundo');

Revísalo y nos informas

[darkamerico]

Empezado por pgranados

Yo checaría si "contenido" ya fue creado previamente

Código Delphi [-]
if contenido <> nil then
contenido := TStringStream.Create('Hola Mundo');

Revísalo y nos informas

El objeto contenido es nil:

[darkamerico]

Objeto Nil:

https://ibb.co/M1Zhtqy

La Unidad Completa esta aquí: uUbicaDoc.zip

El Evento en cuestion es gridResBuscaCellClick;

[pgranados]

Un error, en lugar de "<>" era "=" pero deja reviso el unit para ver que pasa

[darkamerico]

Empezado por pgranados

Un error, en lugar de "<>" era "=" pero deja reviso el unit para ver que pasa

Amigo, si deseas un extracto de la tabla documento, de la BD secretaria aqui te la doy:

Tabla documento

[pgranados]

Siéndote honesto no veo el error, en una forma hice lo siguiente y funciono

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  Lista: TStringStream;
  datos: string;
begin
  datos:= 'HOLA';
  Lista:= TStringStream.Create(datos);
end;

Intenta agregar antes de crear el stringStream

Código Delphi [-]
FreeAndNil(contenido);

[darkamerico]

Empezado por pgranados

Siéndote honesto no veo el error, en una forma hice lo siguiente y funciono

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  Lista: TStringStream;
  datos: string;
begin
  datos:= 'HOLA';
  Lista:= TStringStream.Create(datos);
end;

Intenta agregar antes de crear el stringStream

Código Delphi [-]
FreeAndNil(contenido);

---------------------------------------------------

Amigo, aquí hice un pequeño video para reproducir el problema
Problema

[pgranados]

Ya veo, ¿tienes teamviewer o algún otro programa de conexión remota?