Forum: Object-Pascal / Delphi-Language
Delphi
by Khabarakh,
31. Okt 2006
Weil sie nicht macht, was er will ;) ? Deine Funktion rückt nur Zahlen > 1000 zurecht. Außerdem sind ein Rückgabewert zu wenig und für meinen Geschmack ein paar Leerzeichen zu viel drin *g* . Wobei, nach dem Komma fehlt wieder eines.
Forum: Object-Pascal / Delphi-Language
Delphi
by Khabarakh,
31. Okt 2006
@Sunlight7 & DerDan: Der Titel mag etwas verwirren, aber im Code ist es doch nun wirklich offensichtlich.
Eine schönere Version:
if Length(vK) mod 3 <> 0 then
vK := StringOfChar('0', 3 - Length(vK) mod 3) + vk;