Zentimeter als Meter ausgeben -> Wie?

[DeddyH]

Man kann aber auch komplett ganzzahlig rechnen, wenn man das möchte:

Delphi-Quellcode:

procedure TFormTest.ButtonCMClick(Sender: TObject);
const
  CM = 183;
  CM_PER_METER = 100;
begin
  ShowMessage(Format('%d.%d', [CM div CM_PER_METER, CM mod CM_PER_METER]));
end;

[himitsu]

Nicht die führende 0 vergessen
101 = 1.1
110 = 1.10

ShowMessage(Format('%d.%.2d', [CM div CM_PER_METER, CM mod CM_PER_METER]));

[DeddyH]

Japp, übersehen.