|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
13.02.2008, 13:29 | #1 |
Пользователь
Регистрация: 05.12.2007
Сообщений: 10
|
ListView
Надо в одном из листов округлить все значения, у меня вот такой код, округляется только по строкам, как по столбцам сделать (цикл не знаю как задать)?
begin for i:= 0 to ListView4.Items.Count-1 do begin S := ListView4.Items.Item[i].SubItems.Strings[0]; r := StrToFloat(S); r := Round(r); S := FloatToStr(r); ListView4.Items.Item[i].SubItems.Strings[0] := S; end; end; И еще нужно заменить точки на запятые здесь же. И как вообще обратиться допустим к нужной ячейке. Последний раз редактировалось Drain; 13.02.2008 в 13:39. |
13.02.2008, 14:17 | #2 |
Тот ещё
Старожил
Регистрация: 14.11.2007
Сообщений: 2,242
|
1).
Код:
Код:
|
13.02.2008, 15:13 | #3 |
Пользователь
Регистрация: 05.12.2007
Сообщений: 10
|
Нужно, чтобы вместо точек были запятые. И при таком коде первый столбец не изменяется:
procedure TfrmMain.Button3Click(Sender: TObject); var i,j,n: Integer; S: String; r,a: real; 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; Последний раз редактировалось Drain; 13.02.2008 в 15:30. |
13.02.2008, 16:10 | #4 |
Тот ещё
Старожил
Регистрация: 14.11.2007
Сообщений: 2,242
|
Я все понимаю, я тоже не проффи, но немног-то напрягитесь.
Код:
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
ListView | Лубышев | Общие вопросы Delphi | 6 | 18.07.2008 16:04 |
ListView | aesoem | Общие вопросы Delphi | 4 | 05.07.2008 15:55 |
ListView | Witaliy | Общие вопросы Delphi | 1 | 01.05.2008 20:46 |
ListView | Terran | Общие вопросы Delphi | 2 | 05.04.2008 23:15 |
ListView | Garacio | Компоненты Delphi | 1 | 17.12.2006 15:30 |