Вывод полей выделенной строки в DBGRID 1 формы в memo 2 формы

@nikon11211 · Регистрация: 06.03.2016

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

Необходимо написать процедуру которая будет осуществлять следующее: 1)выбирается строка в 1 форме 2)нажимается кнопка 3)открывается 2 форма 4)в компонент memo 2 формы выводятся данные 2-х полей строки выбранной в 1 пункте. Я не знаю как произвести изменения компонентов 2 формы через 1-ю. ХЕЛП

@qwertehok · 23.03.2016, 13:15

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

Необходимо написать процедуру

это очень неправильно
процедура не должна жать кнопку

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

Я не знаю как произвести изменения компонентов 2 формы через 1-ю

обращайся к компоненту по имени

Delphi
1
form1.label1.caption:=Form2.Edit1.Text;

@nikon11211 · 23.03.2016, 13:23 **[ТС]**

Спасибо я это уже понял написал так:

form2.Showmodal;
form2.Memo1.Lines:=(dbgrid1.SelectedFiel d)- подозреваю что скобки не правильно написал. нужно чтоб в мемо отображалась выбранная строка в гриде какой код написать не знаю;

@qwertehok · 23.03.2016, 13:28

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

подозреваю что скобки не правильно написал.

нет, вы все неправильно написали

Lines - это массив строк, а dbgrid1.SelectedField - это вообще ячейка

@nikon11211 · 23.03.2016, 13:29 **[ТС]**

так как же написать чтоб работало?

@qwertehok · 23.03.2016, 13:35

а подумать?

@nikon11211 · 23.03.2016, 13:37 **[ТС]**

Помогите пожалуйсто я понимаю к чему вы клоните к тому что дбгрид менять на дбтекст или другие компоненты но у меня уже с гридом много циклов и кода поэтому этот вариант отподает помогите советом не издевайтесь

@qwertehok · 23.03.2016, 13:49

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

я понимаю к чему вы клоните к тому что дбгрид менять на дбтекст или другие компоненты

не не не, не дай бог

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

помогите советом не издевайтесь

попробуй так

Delphi
1
2
3
4
5
6
7
var
i:integer; // в глобальные
 
procedure TForm6.DBGrid1CellClick(Column: TColumn);
begin
  i:=DBGrid1.SelectedIndex;
end;

Delphi
1
form2.Memo1.Lines.add(DBGrid1.DataSource.DataSet.Fields.Fields[i].Value);

@krapotkin · 23.03.2016, 13:53

100500 раз
в гриде данных нет, он их только отображает
данные - в Dataset, который к нему подключен

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.Button100Click(...);
var f:TForm2;
begin
  f:=TForm2.Create(NIL);
  try
    f.memo100.lines.add(dataset.FieldByName('Field1').AsString);
    f.memo100.lines.add(dataset.FieldByName('Field2').AsString);
    f.ShowModal();
  finally
    f.free;
  end;
end;

@nikon11211 · 23.03.2016, 14:04 **[ТС]**

все работает но отображается только 1 ячейка нужно чтоб отображались 2 ячейки

@qwertehok · 23.03.2016, 14:05

покажи как сделал

@nikon11211 · 23.03.2016, 14:12 **[ТС]**

krapotkin Спасибо все заработало теперь доп вопрос мне нужно чтобы все данные отображались в 1 строку. Хочу чтобы каждый найденный результат плюсовался к строке предыдущего

@qwertehok · 23.03.2016, 14:15

Delphi
1
lines.add(dataset.FieldByName('Field1').AsString+'  '+dataset.FieldByName('Field2').AsString);

@nikon11211 · 23.03.2016, 14:16 **[ТС]**

Вот сразу бы так и безо всяких переменных спасибо программисты!

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .	Модульная разработка через nuget packages DevAlt 07.03.2026 Сложившийся в . Net-среде способ разработки чаще всего предполагает монорепозиторий в котором находятся все исходники. При создании нового решения, мы просто добавляем нужные проекты и имеем. . .
Модульный подход на примере F# DevAlt 06.03.2026 В блоге дяди Боба наткнулся на такое определение: В этой книге («Подход, основанный на вариантах использования») Ивар утверждает, что архитектура программного обеспечения — это структуры,. . .	Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .

@nikon11211 0 / 0 / 0 Регистрация: 06.03.2016 Сообщений: 49

	Вывод полей выделенной строки в DBGRID 1 формы в memo 2 формы 23.03.2016, 13:11. Показов 3592. Ответов 13 Метки нет (Все метки) Необходимо написать процедуру которая будет осуществлять следующее: 1)выбирается строка в 1 форме 2)нажимается кнопка 3)открывается 2 форма 4)в компонент memo 2 формы выводятся данные 2-х полей строки выбранной в 1 пункте. Я не знаю как произвести изменения компонентов 2 формы через 1-ю. ХЕЛП 0

@nikon11211 0 / 0 / 0 Регистрация: 06.03.2016 Сообщений: 49
	23.03.2016, 13:23 [ТС]
	Спасибо я это уже понял написал так: form2.Showmodal; form2.Memo1.Lines:=(dbgrid1.SelectedFiel d)- подозреваю что скобки не правильно написал. нужно чтоб в мемо отображалась выбранная строка в гриде какой код написать не знаю; 0

@nikon11211 0 / 0 / 0 Регистрация: 06.03.2016 Сообщений: 49
	23.03.2016, 13:29 [ТС]
	так как же написать чтоб работало? 0

@qwertehok 5975 / 4550 / 1095 Регистрация: 29.08.2013 Сообщений: 28,170 Записей в блоге: 3
	23.03.2016, 13:35
	а подумать? 0

@nikon11211 0 / 0 / 0 Регистрация: 06.03.2016 Сообщений: 49
	23.03.2016, 13:37 [ТС]
	Помогите пожалуйсто я понимаю к чему вы клоните к тому что дбгрид менять на дбтекст или другие компоненты но у меня уже с гридом много циклов и кода поэтому этот вариант отподает помогите советом не издевайтесь 0

@nikon11211 0 / 0 / 0 Регистрация: 06.03.2016 Сообщений: 49
	23.03.2016, 14:04 [ТС]
	все работает но отображается только 1 ячейка нужно чтоб отображались 2 ячейки 0

@qwertehok 5975 / 4550 / 1095 Регистрация: 29.08.2013 Сообщений: 28,170 Записей в блоге: 3
	23.03.2016, 14:05
	покажи как сделал 0

@nikon11211 0 / 0 / 0 Регистрация: 06.03.2016 Сообщений: 49
	23.03.2016, 14:12 [ТС]
	krapotkin Спасибо все заработало теперь доп вопрос мне нужно чтобы все данные отображались в 1 строку. Хочу чтобы каждый найденный результат плюсовался к строке предыдущего 0

@nikon11211 0 / 0 / 0 Регистрация: 06.03.2016 Сообщений: 49
	23.03.2016, 14:16 [ТС]
	Вот сразу бы так и безо всяких переменных спасибо программисты! 0

Вывод полей выделенной строки в DBGRID 1 формы в memo 2 формы

Решение