Ver Mensaje Individual
  #3  
Antiguo 16-04-2015
Avatar de AgustinOrtu
[AgustinOrtu] AgustinOrtu is offline
Miembro Premium
NULL
 
Registrado: ago 2013
Ubicación: Argentina
Posts: 1.858
Reputación: 15
AgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en brutoAgustinOrtu Es un diamante en bruto
Podes hacerlo en un evento desde Delphi o en la propia sentencia SQL (nunca lo hice yo de esta manera)

Desde delphi, tenes que asignar un metodo en el evento OnGetText del campo. Asi como accedes al valor usando FieldByName('fraFecha').Value, podes hacer algo como esto

Código Delphi [-]

interface

  TForm1 = class(TForm)
  ...
  private
    function WeekDayToStr(Day: integer): string;
    procedure fraFechaOnGetText(Sender: TField; var Text: string; DisplayField: boolean);

Código Delphi [-]
function TForm1.WeekDayToStr(Day: integer): string;
begin
  case Day of
    0: Result := 'Lunes'; // o domingo, eso no se como lo modelas
    1: Result := 'Martes';
    .. 
  end;
end;

procedure TForm1.fraFechaOnGetText(Sender: TField; var Text: string; DisplayField: boolean);
begin
    if not(Sender.IsNull) then
        Text := WeekDayToStr(Sender.AsInteger);
end;

Y en algun evento antes de pedir los datos, o en el OnCreate, OnShow del form.. asignas a tu campo este evento, asi

Código Delphi [-]
  with DataSet, Query, etc.. do  
    FieldByName('fraFecha').OnGetText := fraFechaOnGetText;

Obviamente el DataSet, Query.. debe estar creado (no es NIL) y abierto, para que pueda "ver" al campo

Saludos
Responder Con Cita