Один столбец StringGrid загрузить в ListBox

@КОШЕЧКА · Регистрация: 15.07.2012

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

Помогите пожалуйста разобраться у меня на разных формах stringgridы данные в них я сохраняю в типизированные файлы(разные) как сделать что бы данные из определенного столбца при сохранении добавлялись в ListBox расположенный на 3 форме?

Добавлено через 25 минут
StringGrid у меня сохраняется вот так

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
procedure TForm2.Button2Click(Sender: TObject);
var
  i,j,t:integer;
  b : Boolean;
  Str:TStr;
begin
try
  t:=0;
  //Удалим пустые строки из гриде...
  for i:=0 to StringGrid1.RowCount-1 do
  Begin
    b:=False;
    for j:=0 to StringGrid1.ColCount-1 do
    If Length(StringGrid1.Cells[j,i])<>0 Then
    Begin
      b:=True;
      Break;
    End;
    If b Then
    Begin
      If t<>i Then
      StringGrid1.Rows[t]:=StringGrid1.Rows[i];
      Inc(t);
    End;
  End;
  StringGrid1.RowCount:=t;
 
  AssignFile(K,'test.dat');
  Rewrite(K);
  Str.ccount:=StringGrid1.ColCount;
  Str.rcount:=StringGrid1.RowCount;
  for i:=0 to StringGrid1.RowCount-1 do
  for j:=0 to StringGrid1.ColCount-1 do
 
  begin
    Str.value:=StringGrid1.Cells[j,i];
    Write(K,Str);
  end;
  CloseFile(K);
except
  on e:Exception do
end;
end;

второй грид так же только 'test1.dat' если 1 отделение грида это 0;0 то мне нужно что бы в листбоксе сохранялась только 1;0

@КОШЕЧКА · 04.11.2012, 00:56 **[ТС]**

А на вкладке DataControls не одинаковые с Quickrep

Одиночка · 04.11.2012, 01:02

Да нет. У меня на вкладке Servers есть какие-то компоненты, связанные с Word-ом, но я не знаю, может они не стандартные, а добавочные. И их нужно пробовать.
Сделайте, то, что я написал в предыдущем посте, а я подумаю, как лучше реализовать.

@КОШЕЧКА · 05.11.2012, 23:41 **[ТС]**

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

Одиночка · 06.11.2012, 00:12

Я думал, что это будет документ типа накладной. Вы же говорили о Word-е.
Вы хотите, чтобы это было вот так на форме?
Описали бы, как вы представляете, когда будут выдаваться такие отчёты. Допустим так:
Можно зайти на определённую форму и запросить отчёт:
1 - по каждому человеку, какие костюмы он брал;
2 - по каждому костюму. Кому выданы, когда и до какой даты;
Отчёт представляется в виде текстового документа, который можно просмотреть или распечатать.

В общем примерно так.
Или вы не продумывали такие вещи? Чем подробнее обдумать саму процедуру запроса отчётов - тем проще будет написать код их формирования.

Если можно, немного подробнее. Если вы хотите, чтобы эта форма выводилась на печать по каждому костюму - так и напишите.

Добавлено через 5 минут
Может после выдачи костюмов выдавать такой отчёт-накладную по каждому человеку и выводить по требованию на печать?

@КОШЕЧКА · 06.11.2012, 19:14 **[ТС]**

Да нужно выводить каждую выдачу на печать. Все что вы написали все очень здорово. Я так и думала. Но сама я могу только то что смотрели недавно вы. Мне самой так не сделать. А если вы мне поможете то сделайте как вам кажется правильным и как вам проще. Может просто кнопку печать и выделять строчку в выдаче. Я даже не знаю.

Добавлено через 16 часов 53 минуты
Слабо в плане сути, но если добавить отчет о использовании костюмов за период, то будет курсовая.
А с дипломом надо думать как расширять.

вот что мне ответил преподаватель. А как расширять я даже не знаю. что еще то можно или нужно добавить? Подскажите пожалуйста!

Добавлено через 53 минуты
Примерная расходная накладная

Расходная накладная

Накладная №___________
от____________20____г.

№ Наименование Количество Кому Дата возврата

Выдал:______________________
Получил:____________________

Добавлено через 1 час 3 минуты
нашла как в добавить QReport
1. Component->Install Packages..->Add
2. Выбираешь файл %DephiPath%\Bin\dclqrt70.bpl
может тогда через него попробовать

Одиночка · 06.11.2012, 19:29

Спасибо Зая. Я понял. Но я, честно сказать, с рипортами не работал, поэтому подумаю, как лучше. За вечер, пожалуй, не получится сделать.
Кстати, если предполагать на будущее отчёт о выдаче за период, тогда, как минимум, нужно сохранять при возврате данные в какой-то архив.
Вы бы пока подумали как при возврате. Тоже может чего-то печатать нужно. Или будут просто расписываться на бумажках выдачи?

@КОШЕЧКА · 06.11.2012, 19:48 **[ТС]**

я вот здесь нашла более менее мне понятное описание как сделать этот отчет. вот пробую.
http://citforum.ru/programming... cb9_97-002

Добавлено через 40 секунд
наверное и при возврате нужно создавать отчет

@КОШЕЧКА · 12.11.2012, 13:31 **[ТС]**

Вы по мне еще не скучаете? У меня опять что то не получается создать отчет. Создала а при просмотре отображается только заголовок.

Одиночка · 14.11.2012, 20:11

Я вам писал в личку, но либо вы не умеете читать личные сообщения, либо не захотели отвечать. Вот в проект, который последним был у меня сформирован, добавил выдачу отчёта. В архиве находится папка полностью рабочего проекта. Сохраните его в другую папку и оттуда запускайте. В файле *dpr все ссылки на папку проекта текущую, т.е. ту, где находится и файл *dpr. А не так как у вас - Unit-ы находятся кто знает где и в файле *dpr только ссылки, а самих файлов нет. Здесь я убрал всё лишнее. Как уже писал, может быть, для поиска достаточно одной формы, на которую, при необходимости, ссылаются из соответствующих обработчиков кликов кнопок "Поиск".

Сама заготовка отчёта сделана в Unit8 (Form8). Сама форма не показывается, а показывается только отчёт, когда нужно. Отчёт формируется в событии кнопки "Выдать". Т.е. когда подготовленные на выдачу костюмы переносятся в вашу базу. Точнее в базу выданных костюмов и вычитаются от базы костюмов в наличии. Отчёт выдаётся по каждому человеку. Перечисляются все костюмы, которые он в настоящий момент берёт. Если быть точным, выдаётся форма предварительного просмотра. На ней есть кнопки настройки принтера и кнопка печати. У меня принтера нет, поэтому не могу проверить, будет печатать или нет, а если будет - то как. После того, как нажать Close - на предварительном просмотре - выдаётся отчёт по следующему человеку. Никаких сохранений данных для отчётов за период пока не делал. Может вам пока и этого хватит.
Может я и не правильно работал с отчётом, но раньше я с ними не работал, а описания, которые нашел, меня не очень вдохновили. Делал, фактически, наугад. Вроде бы получилось. Предварительный просмотр нормально показывается. Тестируйте.

@КОШЕЧКА · 15.11.2012, 10:29 **[ТС]**

Большое спасибо! Извините, я не ответила потому, что просто не видела сообщения.

@КОШЕЧКА · 22.01.2013, 19:56 **[ТС]**

!!!

@КОШЕЧКА · 22.01.2013, 21:40 **[ТС]**

!!!

Новые блоги и статьи Все статьи Все блоги /
Калькулятор для расчета родства russiannick 07.08.2026 1. Задача: Создать калькулятор для расчета родства. Родственных связей существует 8 ступеней, такие как: p - отец P - мать q - муж Q - жена b - брат B - сестра s - сын S - дочь	Мир по моей воле kumehtar 07.08.2026 Когда-то кажется, что всё просто. Ты весь такой светлый. Причиняешь добро. Борешься за справедливость в этом тёмном мире. Потом начинаешь замечать одну неприятную вещь. Почти каждый хороший. . .	Кредитный калькулятор Maks 05.08.2026 Решение задачи по прикладной информатике средствами 1С. Задача: Напишите приложение-калькулятор, которое помогает рассчитывать параметры кредита для аннуитетного и дифференцированного видов. . .	У нас сейчас поговорку "Опять 25" нужно переделать на "Опять +35". kumehtar 04.08.2026 С ностальгией вспоминаю времена моего детства, когда у нас и правда +25 - была максимальная температура летом. Раньше +25 °C реально казались вершиной жары, когда можно было весь день пропадать на. . .
Как ИИ начал спорить и врать (возможно почуяв опасность для себя от индустрии - уход от электроники). Hrethgir 04.08.2026 Недельный диалог, на фоне событий с НПЗ. Да, из спирта можно получать бензин, и это не сложно. Но потом в схеме я решил избавиться от насоса, при этом полностью сделав контроль подачи спирта в. . .	Термопринтер QR701 Argus19 03.08.2026 Термопринтер QR701 Купил два термопринтера QR701. На сэлф-тесте написано: Language: PC936 (GB18030). Что означает, что принтеры могут печатать только латиницу и китайские иероглифы. Так же. . .	Создание формы заимствованного документа Maks 03.08.2026 Задача: Необходимо создать собственную форму заимствованного документа. На форме должен быть реквизит "Покупатель", а также табличная часть со следующими реквизитами: - Расчетный счет покупателя. . .	Задача предоставления скидок покупателям Maks 03.08.2026 Задача: В документе "Продажи" необходимо реализовать функционал предоставления скидок покупателям. Скидка должна автоматически рассчитываться и подставляться в соответствующее поле при выборе. . .

@КОШЕЧКА 1 / 1 / 0 Регистрация: 15.07.2012 Сообщений: 86
	04.11.2012, 00:56 [ТС]
	А на вкладке DataControls не одинаковые с Quickrep 0

Одиночка 3944 / 1869 / 337 Регистрация: 16.03.2012 Сообщений: 3,880
	04.11.2012, 01:02
	Да нет. У меня на вкладке Servers есть какие-то компоненты, связанные с Word-ом, но я не знаю, может они не стандартные, а добавочные. И их нужно пробовать. Сделайте, то, что я написал в предыдущем посте, а я подумаю, как лучше реализовать. 1

Одиночка 3944 / 1869 / 337 Регистрация: 16.03.2012 Сообщений: 3,880
	06.11.2012, 00:12
	Я думал, что это будет документ типа накладной. Вы же говорили о Word-е. Вы хотите, чтобы это было вот так на форме? Описали бы, как вы представляете, когда будут выдаваться такие отчёты. Допустим так: Можно зайти на определённую форму и запросить отчёт: 1 - по каждому человеку, какие костюмы он брал; 2 - по каждому костюму. Кому выданы, когда и до какой даты; Отчёт представляется в виде текстового документа, который можно просмотреть или распечатать. В общем примерно так. Или вы не продумывали такие вещи? Чем подробнее обдумать саму процедуру запроса отчётов - тем проще будет написать код их формирования. Если можно, немного подробнее. Если вы хотите, чтобы эта форма выводилась на печать по каждому костюму - так и напишите. Добавлено через 5 минут Может после выдачи костюмов выдавать такой отчёт-накладную по каждому человеку и выводить по требованию на печать? 1

@КОШЕЧКА 1 / 1 / 0 Регистрация: 15.07.2012 Сообщений: 86
	06.11.2012, 19:14 [ТС]
	Да нужно выводить каждую выдачу на печать. Все что вы написали все очень здорово. Я так и думала. Но сама я могу только то что смотрели недавно вы. Мне самой так не сделать. А если вы мне поможете то сделайте как вам кажется правильным и как вам проще. Может просто кнопку печать и выделять строчку в выдаче. Я даже не знаю. Добавлено через 16 часов 53 минуты Слабо в плане сути, но если добавить отчет о использовании костюмов за период, то будет курсовая. А с дипломом надо думать как расширять. вот что мне ответил преподаватель. А как расширять я даже не знаю. что еще то можно или нужно добавить? Подскажите пожалуйста! Добавлено через 53 минуты Примерная расходная накладная Расходная накладная Накладная №___________ от____________20____г. № Наименование Количество Кому Дата возврата Выдал:______________________ Получил:____________________ Добавлено через 1 час 3 минуты нашла как в добавить QReport 1. Component->Install Packages..->Add 2. Выбираешь файл %DephiPath%\Bin\dclqrt70.bpl может тогда через него попробовать 1

Одиночка 3944 / 1869 / 337 Регистрация: 16.03.2012 Сообщений: 3,880
	06.11.2012, 19:29
	Спасибо Зая. Я понял. Но я, честно сказать, с рипортами не работал, поэтому подумаю, как лучше. За вечер, пожалуй, не получится сделать. Кстати, если предполагать на будущее отчёт о выдаче за период, тогда, как минимум, нужно сохранять при возврате данные в какой-то архив. Вы бы пока подумали как при возврате. Тоже может чего-то печатать нужно. Или будут просто расписываться на бумажках выдачи? 1

@КОШЕЧКА 1 / 1 / 0 Регистрация: 15.07.2012 Сообщений: 86
	06.11.2012, 19:48 [ТС]
	я вот здесь нашла более менее мне понятное описание как сделать этот отчет. вот пробую. http://citforum.ru/programming... cb9_97-002 Добавлено через 40 секунд наверное и при возврате нужно создавать отчет 0

@КОШЕЧКА 1 / 1 / 0 Регистрация: 15.07.2012 Сообщений: 86
	15.11.2012, 10:29 [ТС]
	Большое спасибо! Извините, я не ответила потому, что просто не видела сообщения. 0