So, mein Programm soll schauen ob die Variable durch 3 zu teilen geht, ansonsten sollen soviele Nullen vorn drangemacht werden bis es geht
Habe mir gedacht das das so hier geht:
Delphi-Quellcode:
if not length(vK) mod 3 = 0 then
begin
repeat
vk := '0' + vK;
until length(vK) mod 3 = 0;
end;
Aber irgendwie geht das, wenn nur noch ein Zeichen fehlt, bis es durch 3 teilbar wird. Also bei 2, 5, 8, 11, usw...
Aber wen vK nur ein (oder 4, 7, ...) Zeihen hat passiert gar nicht...
Waran liegt das??
MfG Felix
