Код
str(z[x].f:8,s);
.НО! получается правильное округление, а мне этого не нужно, нужно просто обрезать количество символов без округления, но в виде типа 3.1E+01. За раннее Сенькью.
str(z[x].f, s);тройка - количество символов после запятой
s := copy(s, 1, pos('.', s) + 3) + copy(s, pos('E', s), 255);