[drain]

Вообщем имеется текст в ListView...
1. При таком коде у меня не округляется первый столбец, и как сделать чтобы при округлении оставались нули, и как добавлять нули, путем указания в Edit'е количества знаков после запятой.

Код:

begin
n:=StrToInt(Edit1.Text);
a := Exp(n*Ln(10));
 for i:= 0 to ListView4.Items.Count-1 do begin
     for j := 0 to ListView4.Items [i].SubItems.Count - 1 do begin
   	   S := ListView4.Items.Item[i].SubItems.Strings[j];
	     r := StrToFloat(S);
       r:=r*a;
	     r := Round(r);
       r:=r/a;
	     S := FloatToStr(r);
	     ListView4.Items.Item[i].SubItems.Strings[j] := S;
   end;
  end;
end;

2. Если я нашел значение нуль, и теперь нужно этим найденным значением заменить некоторые числа в ListView, как-то по маске можно?
Вот пример ниже, считываем значение NULL, и заменяем им значения, которые находятся ниже в столбцах, с девятками которые тоже, их вид может быть разный, но девятки присутсвтуют (использовать маску что-то вроде этой можно? ''-**9.9**'')

NULL . -9999.990 :NULL VALUE
COMP . :COMPANY
WELL . mak-new-6 :WELL
FLD . :FIELD
LOC . :LOCATION
CTRY . :COUNTRY
SRVC . :SERVICE COMPANY
DATE . 01.11.2007 :LOG DATE
API . :API NUMBER
~A DEPTH ALFAK AK1 AK2 DTP TP1 TP2
90.200 -9999.990 63.000 14.083 -9999.990 254.391 820.125
90.400 -9999.990 63.333 12.703 -9999.990 254.391 820.125
90.600 -9999.990 57.067 11.550 -9999.990 254.391 820.125
90.800 -9999.990 53.178 20.483 -9999.990 254.391 820.125
91.000 26.589 54.322 28.883 1131.469 254.391 820.125
91.200 26.050 50.000 27.715 1131.469 254.391 820.125
91.400 21.593 50.856 23.835 1131.469 254.391 820.125