Изменения

IMEI

141 байт добавлено, 10:50, 17 ноября 2009

//Пример X=40 функция Trunc опредиляет значение = 50 таким образом X=50-40???

X := Trunc(((X div 10)+1)*10)-X;

if X=10 then X:=0; //Пример X=40 функция Trunc опредиляет значение = 50 таким образом X=50-40???

Result := IMEI + IntToStr(X);

end;

Анонимный участник