Delphi-PRAXiS - Einzelnen Beitrag anzeigen - Delphi Feststellen ob Zahl durch 3 Teilbar

**Nicolai1234**

so gehts:

Delphi-Quellcode:

			if not (length(vK) mod 3 = 0) then

begin

  repeat

   vk := '0' + vK;

  until length(vK) mod 3 = 0;

end;

Nicolai1234 Registriert seit: 21. Feb 2004 1.008 Beiträge Turbo Delphi für Win32	#3 Re: Feststellen ob Zahl durch 3 Teilbar 31. Okt 2006, 18:14 so gehts: markieren Delphi-Quellcode: if not (length(vK) mod 3 = 0) then begin repeat vk := '0' + vK; until length(vK) mod 3 = 0; end;
	Zitat