Ver Mensaje Individual
  #10  
Antiguo 15-10-2012
Avatar de radenf
radenf radenf is offline
Miembro
 
Registrado: oct 2007
Ubicación: Viña del Mar,Chile
Posts: 608
Reputación: 19
radenf Va por buen camino
Solucionado

Por fin encontré la solución al problema.
No era necesario trabajar con el memo sino cambiar el orden de los procesos, ya que como lo había estructurado bloqueaba el desarrollo del bucle de inserción y con este código funciona perfecto.

Código Delphi [-]
Temporal.Close;
Temporal.EmptyTable;
Temporal.Open;
if CnsDicomConnection1.C_FIND(das) then
begin
if CnsDicomConnection1.ReceiveDatasets.Count > 0 then
begin
for i := 0 to CnsDicomConnection1.ReceiveDatasets.Count - 1 do
begin
das := TDicomAttributes(CnsDicomConnection1.ReceiveDatasets[i]);
Temporal.Insert;
TemporalAcceso.AsString := das.GetString($0008, $0050);
TemporalNombre.AsString := das.GetString($0010, $0010);
Temporalid.AsString := das.GetString($0010, $0020);
TemporalFechaExamen.AsString := das.GetString($0008, $0020);
TemporalDescripcion.AsString := das.GetString($0008, $1030);
TemporalModalidad.AsString := das.GetString($0008, $0061);
Temporal.Post;
bsSkinStdLabel5.Caption:= InttoStr (Temporal.RecordCount);
end;

Muchas gracias roman y AzidRain por su ayuda, que me permitió al fin darme cuenta de mi error.

Salu2
Responder Con Cita