Ergebnis der Suchanfrage

• Forum: Datenbanken

  Re: FreeReport

    Delphi
    by shmia, 11. Mai 2009
  Da kann man noch etwas ändern:
  procedure TForm1.NumfieldOnGetText(Sender: TField; var Text: String; DisplayText: Boolean);
  begin
  if StrToIntDef(Sender.AsString, 0) = 0 then
  Text := '' // zum Testen: Text := '---'
  else
  Text := Sender.AsString;
  end;
• Forum: Datenbanken

  Re: FreeReport

    Delphi
    by shmia, 11. Mai 2009
  Schreibe einen Eventhandler für .OnGetText.
  procedure TForm1.NumfieldOnGetText(Sender: TField; var Text: String; DisplayText: Boolean);
  begin
  if Sender.IsNull or (Sender.AsInteger=0) then
  Text := '' // zum Testen: Text := '---'
  else
  Text := Sender.AsString;
  end;
  Im Event AfterOpen schreibst du dann:
  dataset.FieldByName('IrgendneNummer').OnGetText :=...