DBGrid darstellen von neg Zahlen als pos

[wschrabi]

Dank shmia, ich musste jedoch den code etwas abändern. Aber Du hast mir mit der Idee genau geholfen:

Delphi-Quellcode:

procedure TForm1.MyQuery2AfterOpen(DataSet: TDataSet);
var
  col: integer;
begin
  //20120217
  for col:= 1 to 225 (* MyQuery2.FieldByName('NumLOGDATA').AsInteger *) do
    begin
    MyQuery2.FieldByName('MPi'+IntToStr(col)).OnGetText := self.BetragFieldOnGetText;
    end;


end;

und die Routine:

Delphi-Quellcode:

procedure TForm1.BetragFieldOnGetText(Sender: TField; var Text: String; DisplayText: Boolean);
var
  mp: string;
begin
   if DisplayText then
      if ((Sender.AsFloat < 0.0)and(FloatToStr(Sender.AsFloat)<>'')) then
          begin
          mp:=FloatToStr(Sender.AsFloat);
          Delete(mp, 1, 1); // Minuszeichen löschen
          Text:=mp;
          end
      else
        begin
        Text:=Sender.AsString;
        end;

end;