Ver Mensaje Individual
  #5  
Antiguo 19-01-2017
Avatar de GustavoCruz
GustavoCruz GustavoCruz is offline
Miembro
 
Registrado: jul 2006
Ubicación: Sampués Sucre (Colombia)
Posts: 293
Reputación: 18
GustavoCruz Va por buen camino
Hola AgustinOrtu, la guardo esta manera
Código Delphi [-]
var  
begin 
  try
    ms := TMemoryStream.Create;
    ms.Position := 0;
    Editore.Lines.SaveToStream(ms);
    with fDatos.qEjecutar do
    begin
      Close;
      sql.Clear;
      sql.Add('update or insert into promocion(idematricula, detalle, ' +
        'fechael, algrado, observaciones)values(''' + fGrupo.qCurso.FieldByName
        ('id_ma').AsString + ''', 1, ''' + dadoel_ + ''', ''' + nom_promo.Text
        + ''', ''' + pro_observaciones.Text + ''')matching(idematricula)');
      ParamByName('p1').DataType := ftBlob;
      ParamByName('p1').LoadFromStream(ms, ftBlob);
      ExecSQL;
      fDatos.Transaccion.CommitRetaining;
      MsgBox(Titulo, 'Datos guardados satisfactoriamente...', mtInformation,
        ['Aceptar'], 0);
      Close;
    end;
  finally
    ms.Free;
  end;

eso me guarda con el formato que le dé en el richedit...

pero la cuestión es: cómo hago para que la función "format" no le quiete el formato al texto cuando lo trago de la base de datos y llene los campos

Última edición por GustavoCruz fecha: 19-01-2017 a las 22:51:30.
Responder Con Cita