ListBox & StringGrid. Неправильно работает код

@hoverhorn · Регистрация: 19.09.2012

Студворк — интернет-сервис помощи студентам

Добрый день! Вот отрезок кода, в котором при нажатии на 1 строку ListBox'a происходит загрузка файла в StringGrid2 и некоторые ячейки из уже загруженного StringGrid2 копируются в StringGrid1. Проблема в том, что в StringGrid1 ничего не отображается, как будто StringGrid2 не загрузился, хотя значения в SG2 отображаются.

Delphi
1
2
3
4
5
6
begin
if ListBox1.ItemIndex = 0 then
begin
LoadStringGrid(StringGrid2, 'Base\ul.base');
 
StringGrid1.Cells[5, 2] := StringGrid2.Cells[3, 13]; //этот участок кода не работает.

И еще (при нажатии на Button1), нужно сделать фиксированную привязку cтроки ListBox'a на определенный набор ячеек, которые будут копироваться, БЕЗ нажатия на строку. ListBox1.ItemIndex и ListBox1.Items.Strings[] требуют нажатие.

Delphi
1
2
3
4
5
if ListBox1.ItemIndex = 0 then
StringGrid1.Cells[5, 2] := StringGrid2.Cells[3, 13];
 
if ListBox1.ItemIndex = 1 then
StringGrid1.Cells[5, 3] := StringGrid2.Cells[3, 13];

если в данный момент выделена 2 строка, то значения из строки SG2 скопируются и в ячейку 5, 3 и в ячейку 5, 2.

Вроде все объяснил

Вот для наглядности нарисовал https://www.cyberforum.ru/atta... 1348048043

@volvo · 19.09.2012, 14:20

Сообщение от hoverhorn

этот участок кода не работает.

Должен работать. Попробуй в новом (пустом) проекте положить на форму 2 StringGrid-а, заполнить один из них случайными данными, и скопировать значение любой ячейки во второй Грид. Прекрасно копируется. Значит, что-то у тебя есть в проекте, что этому мешает. Либо показывай больше кода, либо присоединяй проект полностью.

Сообщение от hoverhorn

если в данный момент выделена 2 строка, то значения из строки SG2 скопируются и в ячейку 5, 3 и в ячейку 5, 2.

У тебя в коде написано, что если выделена вторая строка, то скопируется только в ячейку (5, 3). А в (5, 2) скопируется при выделенной первой строке.

@hoverhorn · 19.09.2012, 15:19 **[ТС]**

Сообщение от UI

У тебя в коде написано, что если выделена вторая строка, то скопируется только в ячейку (5, 3). А в (5, 2) скопируется при выделенной первой строке.

Все правильно, так должно быть, но это не работает. Для этого требуется, чтобы выделена была строка в ListBox. У меня есть кнопка "Расчет", которая при нажатии переходит в режим disabled и расчет идет автоматически. Нет возможности каждый раз выделять строку в листбоксе и нажимать эту кнопку.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
procedure TForm1.ListBox1Click(Sender: TObject);
var i : integer;
    VdafSUMM, VdafSR, SdSUMM, SdSR, YSUMM, YSR, R0SUMM, R0SR, VtSUMM, VtSR, EokSUMM, EokSR   : real;
 
begin
if ListBox1.ItemIndex = 0 then
begin
LoadStringGrid(StringGrid2, 'Base\ul.base');
Edit1.Text := StringGrid1.Cells[2, 2];
Edit2.Text := StringGrid1.Cells[4, 2];
 
end;
 
if ListBox1.ItemIndex = 1 then
begin
LoadStringGrid(StringGrid2, 'Base\aba.base');
Edit1.Text := StringGrid1.Cells[2, 3];
Edit2.Text := StringGrid1.Cells[4, 3];
end;
 
//и так далее

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
procedure TForm1.Button1Click(Sender: TObject);
begin
if ListBox1.ItemIndex = 0 then
StringGrid1.Cells[5, 2] := StringGrid2.Cells[3, 13];
StringGrid1.Cells[6, 2] := StringGrid2.Cells[4, 13];
StringGrid1.Cells[7, 2] := StringGrid2.Cells[5, 13];
StringGrid1.Cells[8, 2] := StringGrid2.Cells[6, 13];
StringGrid1.Cells[9, 2] := StringGrid2.Cells[7, 13];
StringGrid1.Cells[10, 2] := StringGrid2.Cells[8, 13];
 
if ListBox1.ItemIndex = 1 then
StringGrid1.Cells[5, 3] := StringGrid2.Cells[3, 13];
StringGrid1.Cells[6, 3] := StringGrid2.Cells[4, 13];
StringGrid1.Cells[7, 3] := StringGrid2.Cells[5, 13];
StringGrid1.Cells[8, 3] := StringGrid2.Cells[6, 13];
StringGrid1.Cells[9, 3] := StringGrid2.Cells[7, 13];
StringGrid1.Cells[10, 3] := StringGrid2.Cells[8, 13];
end;

@volvo · 19.09.2012, 15:21

Delphi
1
2
3
4
5
6
7
8
9
if ListBox1.ItemIndex = 0 then
begin // <---
   StringGrid1.Cells[5, 2] := StringGrid2.Cells[3, 13];
   StringGrid1.Cells[6, 2] := StringGrid2.Cells[4, 13];
   StringGrid1.Cells[7, 2] := StringGrid2.Cells[5, 13];
   StringGrid1.Cells[8, 2] := StringGrid2.Cells[6, 13];
   StringGrid1.Cells[9, 2] := StringGrid2.Cells[7, 13];
   StringGrid1.Cells[10, 2] := StringGrid2.Cells[8, 13];
end; // <---

разницу чувствуешь? А если вспомнить про то, что есть циклы - весь обработчик нажатия кнопки уложится в 2 строки.

@hoverhorn · 20.09.2012, 09:40 **[ТС]**

Сообщение от UI

Delphi
1
2
3
4
5
6
7
8
9
if ListBox1.ItemIndex = 0 then
begin // <---
   StringGrid1.Cells[5, 2] := StringGrid2.Cells[3, 13];
   StringGrid1.Cells[6, 2] := StringGrid2.Cells[4, 13];
   StringGrid1.Cells[7, 2] := StringGrid2.Cells[5, 13];
   StringGrid1.Cells[8, 2] := StringGrid2.Cells[6, 13];
   StringGrid1.Cells[9, 2] := StringGrid2.Cells[7, 13];
   StringGrid1.Cells[10, 2] := StringGrid2.Cells[8, 13];
end; // <---

разницу чувствуешь? А если вспомнить про то, что есть циклы - весь обработчик нажатия кнопки уложится в 2 строки.

Сделал так

Delphi
1
2
3
4
5
6
7
procedure TForm1.Button1Click(Sender: TObject);
var x, y : integer;
begin
for x := 5 to StringGrid1.ColCount-1 do
for y := 3 to StringGrid1.ColCount do
StringGrid1.Cells[x, 2] := StringGrid2.Cells[y, 13];
end;

Не работает. Если равенство в последней строчке поменять местами, то пустые строки из StringGrid1 копируются в SG2, в обратную сторону работает. Но мне нужно все наоборот.

@volvo · 20.09.2012, 09:50

Сообщение от hoverhorn

Сделал так

"Это" ничего общего с тем, что было написано выше, не имеет. Вот так сделай:

Delphi
1
2
for i := 3 to StringGrid2.ColCount - 1 do
   StringGrid1.Cells[i + 2, ListBox1.ItemIndex + 2] := StringGrid2.Cells[i, 13];

Этот цикл будет делать то же самое, что и код:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
if ListBox1.ItemIndex = 0 then
begin
StringGrid1.Cells[5, 2] := StringGrid2.Cells[3, 13];
StringGrid1.Cells[6, 2] := StringGrid2.Cells[4, 13];
StringGrid1.Cells[7, 2] := StringGrid2.Cells[5, 13];
StringGrid1.Cells[8, 2] := StringGrid2.Cells[6, 13];
StringGrid1.Cells[9, 2] := StringGrid2.Cells[7, 13];
StringGrid1.Cells[10, 2] := StringGrid2.Cells[8, 13];
end
 
if ListBox1.ItemIndex = 1 then
begin
StringGrid1.Cells[5, 3] := StringGrid2.Cells[3, 13];
StringGrid1.Cells[6, 3] := StringGrid2.Cells[4, 13];
StringGrid1.Cells[7, 3] := StringGrid2.Cells[5, 13];
StringGrid1.Cells[8, 3] := StringGrid2.Cells[6, 13];
StringGrid1.Cells[9, 3] := StringGrid2.Cells[7, 13];
StringGrid1.Cells[10, 3] := StringGrid2.Cells[8, 13];
end;
// ...

Если работает код, который внизу - то отработает и тот, что сверху.

@hoverhorn · 20.09.2012, 09:52 **[ТС]**

Вообщем ввел в первый стринггрид произвольные значения (куда будут копироваться из стрингрида2), программа заменяет их пустыми строками. Такое ощущение что значения из стринггрида2 не загрузились.

@volvo · 20.09.2012, 09:56

В общем, я тебе не верю. Прекрасно копируются данные, только что попробовал. Что-то ты недоговариваешь. Присоединяй проект полностью, и пошагово рассказывай, что куда вводить, и что после чего нажимать. Больше писать тебе код без просмотра твоего проекта полностью я не буду.

@hoverhorn · 20.09.2012, 10:19 **[ТС]**

Сообщение от UI

В общем, я тебе не верю. Прекрасно копируются данные, только что попробовал. Что-то ты недоговариваешь. Присоединяй проект полностью, и пошагово рассказывай, что куда вводить, и что после чего нажимать. Больше писать тебе код без просмотра твоего проекта полностью я не буду.

Инструкции на скриншоте

@volvo · 20.09.2012, 10:47

А ничего, что при выполнении 316 строки у тебя исключение при делении на 0? Ты их заглушил что-ли? Напрасно. А так - не подтверждаю. Добавил begin/end там, где я тебе показывал (строки 449-467 твоего кода), и прекрасно переносится информация из SG2 в SG1:

@hoverhorn · 20.09.2012, 11:22 **[ТС]**

Сообщение от UI

А ничего, что при выполнении 316 строки у тебя исключение при делении на 0? Ты их заглушил что-ли? Напрасно. А так - не подтверждаю. Добавил begin/end там, где я тебе показывал (строки 449-467 твоего кода), и прекрасно переносится информация из SG2 в SG1:

Я взял проект из архива, вставил begin\end куда Вы сказали, но значения скопировались в обе строки StringGrid1 как во втором посте.

ш. Ульяновская 10 10 10 10 10
ш. Абашевская 10 10 10 10

На Вашем скриншоте совсем другое. Может у меня с дельфи что-то

@volvo · 20.09.2012, 13:25

Сообщение от hoverhorn

Может у меня с дельфи что-то

Откуда я знаю? Тебе лучше знать. Я компилировал на 2009-ой, все прекрасно (за исключением Exception-ов при делении на 0).

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .

@hoverhorn 0 / 0 / 0 Регистрация: 19.09.2012 Сообщений: 9
	20.09.2012, 09:52 [ТС]
	Вообщем ввел в первый стринггрид произвольные значения (куда будут копироваться из стрингрида2), программа заменяет их пустыми строками. Такое ощущение что значения из стринггрида2 не загрузились. 0

@volvo Супер-модератор 33395 / 21505 / 8236 Регистрация: 22.10.2011 Сообщений: 36,901 Записей в блоге: 12
	20.09.2012, 09:56
	В общем, я тебе не верю. Прекрасно копируются данные, только что попробовал. Что-то ты недоговариваешь. Присоединяй проект полностью, и пошагово рассказывай, что куда вводить, и что после чего нажимать. Больше писать тебе код без просмотра твоего проекта полностью я не буду. 0

@volvo Супер-модератор 33395 / 21505 / 8236 Регистрация: 22.10.2011 Сообщений: 36,901 Записей в блоге: 12
	20.09.2012, 10:47
	А ничего, что при выполнении 316 строки у тебя исключение при делении на 0? Ты их заглушил что-ли? Напрасно. А так - не подтверждаю. Добавил begin/end там, где я тебе показывал (строки 449-467 твоего кода), и прекрасно переносится информация из SG2 в SG1: Миниатюры 0