Заполнение таблиц. |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
Заполнение таблиц. |
alex9910 |
Сообщение
#1
|
Новичок Группа: Пользователи Сообщений: 16 Пол: Мужской Репутация: 0 |
Саму таблицу я могу нарисовать а как сделать ввод данных в саму таблицу?
Полный текст задачи: Имеются некоторые данные фирмы, занимающейся реализацией товаров: Название поставщика поставляющего товар, Номер склада, Количество товара (в тоннах). Вывести на экран в виде таблицы сведения о доставке Y тонн продукции на склад № X, Ввод исходных данных реализовать тоже в таблице, чтобы избежать подсказок ввода. Хранить исходные данные в массивах (каждый столбец таблицы отдельный массив). Всем спасибо ;) |
alex9910 |
Сообщение
#2
|
Новичок Группа: Пользователи Сообщений: 16 Пол: Мужской Репутация: 0 |
up
|
IUnknown |
Сообщение
#3
|
Гуру Группа: Пользователи Сообщений: 1 013 Пол: Мужской Ада: Разработчик Embarcadero Delphi: Сторонник Free Pascal: Разработчик Репутация: 627 |
Что "up"? Ты ж не сказал ничего, как ты таблицу рисовать собрался, какой у тебя режим, графический или текстовый. Для текстового режима, например, не надо ничего делать отдельно. Выводишь таблицу вместе с данными:
constвыведет │ # 1 │ 1.2300 │ Чем не таблица? |
alex9910 |
Сообщение
#4
|
Новичок Группа: Пользователи Сообщений: 16 Пол: Мужской Репутация: 0 |
Что "up"? Ты ж не сказал ничего, как ты таблицу рисовать собрался, какой у тебя режим, графический или текстовый. Для текстового режима, например, не надо ничего делать отдельно. Выводишь таблицу вместе с данными: constвыведет │ # 1 │ 1.2300 │ Чем не таблица? Виноват А вот если например Наименование | Склад | Кол-во Наименование что бы буквами вводилось, а все остальное цифрами. Так как-то можно сделать? p. s. Рисовать обычным write. И таблицу будет заполнять сам "пользователь" Сообщение отредактировано: alex9910 - |
IUnknown |
Сообщение
#5
|
Гуру Группа: Пользователи Сообщений: 1 013 Пол: Мужской Ада: Разработчик Embarcadero Delphi: Сторонник Free Pascal: Разработчик Репутация: 627 |
Показываю на примере, как вводить числа, слова вводить еще проще, там не надо проверять ошибки.
uses crt;Запусти и посмотри, как себя ведет программа. Но тут вот какой казус: заполнять данные придется последовательно, начиная от первой строки и до последней, то есть ты не сможешь сначала заполнить третью, потом - пятую, а потом первую. Либо программу придется значительно усложнить (скажем, использовать вот эту наработку, некое подобие меню, какую строку пользователь выбрал - ту потом и будет заполнять). Реши для себя, что тебе надо, если не получится реализовать самостоятельно - пиши, я помогу. |
alex9910 |
Сообщение
#6
|
Новичок Группа: Пользователи Сообщений: 16 Пол: Мужской Репутация: 0 |
IUnknown
Большое спасибо, я посмотрю и если что попрошу Вас помощи. |
alex9910 |
Сообщение
#7
|
Новичок Группа: Пользователи Сообщений: 16 Пол: Мужской Репутация: 0 |
IUnknown,
а для текста так?
|
IUnknown |
Сообщение
#8
|
Гуру Группа: Пользователи Сообщений: 1 013 Пол: Мужской Ада: Разработчик Embarcadero Delphi: Сторонник Free Pascal: Разработчик Репутация: 627 |
Я ж написал, что для текста можно обработку ошибок не делать:
for i := 1 to size do , строка в любом случае будет прочитана. |
alex9910 |
Сообщение
#9
|
Новичок Группа: Пользователи Сообщений: 16 Пол: Мужской Репутация: 0 |
Я ж написал, что для текста можно обработку ошибок не делать: for i := 1 to size do , строка в любом случае будет прочитана. А почему только одна строка заполняется при переходе на следующую вылетает.... |
IUnknown |
Сообщение
#10
|
Гуру Группа: Пользователи Сообщений: 1 013 Пол: Мужской Ада: Разработчик Embarcadero Delphi: Сторонник Free Pascal: Разработчик Репутация: 627 |
Замени Read(f) на ReadLn(f)
|
alex9910 |
Сообщение
#11
|
Новичок Группа: Пользователи Сообщений: 16 Пол: Мужской Репутация: 0 |
|
IUnknown |
Сообщение
#12
|
Гуру Группа: Пользователи Сообщений: 1 013 Пол: Мужской Ада: Разработчик Embarcadero Delphi: Сторонник Free Pascal: Разработчик Репутация: 627 |
Не спрашивай, реально или нет. Реально сделать всё. Спрашивай, как это сделать. К примеру,
вот так... (Показать/Скрыть)
|
alex9910 |
Сообщение
#13
|
Новичок Группа: Пользователи Сообщений: 16 Пол: Мужской Репутация: 0 |
Не спрашивай, реально или нет. Реально сделать всё. Спрашивай, как это сделать. К примеру, вот так... (Показать/Скрыть)
Ого-го , такого еще не видел) А если я без rec сделаю? там же считай все останется , только немного подредактировать.. На сколько я понял это для того что бы не описывать много переменных... |
IUnknown |
Сообщение
#14
|
Гуру Группа: Пользователи Сообщений: 1 013 Пол: Мужской Ада: Разработчик Embarcadero Delphi: Сторонник Free Pascal: Разработчик Репутация: 627 |
Да, тогда тебе придется описывать 3 массива (ну, или сколько там у тебя будет полей). Тебе это надо? И потом, ты ж вроде собрался БД делать, надо как-то и в файл сохранять. Это что, тоже будешь по отдельности делать? Записью-то проще.
|
alex9910 |
Сообщение
#15
|
Новичок Группа: Пользователи Сообщений: 16 Пол: Мужской Репутация: 0 |
Да, тогда тебе придется описывать 3 массива (ну, или сколько там у тебя будет полей). Тебе это надо? И потом, ты ж вроде собрался БД делать, надо как-то и в файл сохранять. Это что, тоже будешь по отдельности делать? Записью-то проще. Я учусь в колледже rec не проходили а базы тоже Просто я толком не смогу rec обьяснить.... хоть и можно почитать в интернете... |
alex9910 |
Сообщение
#16
|
Новичок Группа: Пользователи Сообщений: 16 Пол: Мужской Репутация: 0 |
IUnknown,
А как например можно сохранить в txt простейшим способом? |
IUnknown |
Сообщение
#17
|
Гуру Группа: Пользователи Сообщений: 1 013 Пол: Мужской Ада: Разработчик Embarcadero Delphi: Сторонник Free Pascal: Разработчик Репутация: 627 |
Write(что_то) выведет что_то на экран, а
var txt : text;запишет это же что_то в текстовый файл... |
Текстовая версия | 19.04.2024 16:50 |