Feststellen ob Zahl durch 3 Teilbar

[Khabarakh]

@Sunlight7 & DerDan: Der Titel mag etwas verwirren, aber im Code ist es doch nun wirklich offensichtlich.

Eine schönere Version:

Delphi-Quellcode:

if Length(vK) mod 3 <> 0 then
      vK := StringOfChar('0', 3 - Length(vK) mod 3) + vk;