|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Помогите решить ряд задач...
Вообщем имеется текст в 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**'') Цитата:
|