Модераторы: volvo877, Snowy, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Помогите составить таблицу, Не могу составить таблицу 
:(
    Опции темы
COOLJohn
  Дата 6.1.2006, 09:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 33
Регистрация: 30.12.2005

Репутация: нет
Всего: нет
Подскажите, как сделать таблицу в TURBO PASCALе 7.0.
Если можно, то с примером.
Вообще я хотел составить часть телефонного справочника, который содержит в себе таблицу из семи столбцов и неограниченным количеством строк, т. е. по сохранению пользователем нового адресата в базе данных прибавляется одна строка и т.д. и т.п.
PM MAIL   Вверх
Albinos_x
Дата 6.1.2006, 11:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Evil Skynet
****


Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: нет
Всего: 108
тебе нужно вывод на экран сделать или хранение в памяти/в файле... или пример реализации?


--------------------
"Кто владеет информацией, тот владеет миром"    
Уинстон Черчилль
PM MAIL ICQ   Вверх
mntek
Дата 6.1.2006, 11:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


freakin_brain
*


Профиль
Группа: Участник
Сообщений: 57
Регистрация: 15.8.2004
Где: saint-petersburg

Репутация: нет
Всего: 1
ну таблицу

Код

type
  mytable = record
    field1,
    field2: string;
  end;
  myarr = array of mytable;


потом
запись в файл
Код

var
  myfile: file of mytable;
  myarr1: myarr;
  i: integer;
begin
  {открытие файла}
  writeln(myfile, myarr1[i]); //запись i элемента твоей бд в файл.
  ...


чтение таким же макаром.
Код

...
  while not eof(myfile) do
  begin
    readln(myfile, myarr1[i]);
    inc(i);
  end;


вывод на экран
Код

  writeln(myarr[i].field1); //выводит 1 поле
PM MAIL WWW ICQ   Вверх
volvo877
Дата 6.1.2006, 13:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 2
Всего: 116
mntek, задание внимательно читаем:
Цитата(mntek @ 6.1.2006, 10:26 Найти цитируемый пост)
myarr = array of mytable;

Цитата(COOLJohn @ 6.1.2006, 08:08 Найти цитируемый пост)
Подскажите, как сделать таблицу в TURBO PASCALе 7.0.

TP70 не поддерживает динамические массивы в таком виде, как Дельфи... Их надо реализовывать... Хотя можно попробовать обойтись без массива (печатать данные напрямую из файла, например), ну а там где нужна, скажем, сортировка - пользоваться не массивом, а связным списком...
PM MAIL   Вверх
Fedor
Дата 6.1.2006, 17:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Днепрянин
****


Профиль
Группа: Участник
Сообщений: 2090
Регистрация: 8.2.2003
Где: Великий

Репутация: нет
Всего: 32
Тебе просто нужно при выводе на экран печатать символы типа |, _, и др. Символы печатаешь, указывая их код ASCII. Все это можно посмотреть в таблицах, либо написать программу из 5 строк и все узнать.


--------------------
Мы - Днепряне. Мы всех сильней.
PM ICQ   Вверх
profispb
Дата 8.1.2006, 12:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 220
Регистрация: 27.12.2005
Где: Санкт - Петербург

Репутация: нет
Всего: 1
При выводе на экран таблица рисуется с помощью кодов ASCII таблицы, а потом в неё считывается информация из файла. smile
--------------------
В жизни, я люблю делать, то что я люблю. А не то что модно, престижно и выгодноЛюблю когда начинает работать, то что без меня не работало!
PM MAIL ICQ   Вверх
Albinos_x
Дата 8.1.2006, 13:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Evil Skynet
****


Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: нет
Всего: 108
Цитата(profispb @ 8.1.2006, 12:36 Найти цитируемый пост)

При выводе на экран таблица рисуется с помощью кодов ASCII таблицы, а потом в неё считывается информация из файла.

я думаю что лучше это делать отдновременно...


--------------------
"Кто владеет информацией, тот владеет миром"    
Уинстон Черчилль
PM MAIL ICQ   Вверх
mntek
Дата 8.1.2006, 21:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


freakin_brain
*


Профиль
Группа: Участник
Сообщений: 57
Регистрация: 15.8.2004
Где: saint-petersburg

Репутация: нет
Всего: 1
Цитата(volvo877 @ 6.1.2006, 13:57)
mntek, задание внимательно читаем:
TP70 не поддерживает динамические массивы в таком виде, как Дельфи... Их надо реализовывать... Хотя можно попробовать обойтись без массива (печатать данные напрямую из файла, например), ну а там где нужна, скажем, сортировка - пользоваться не массивом, а связным списком...

хм... а кто мешает сделать сразу очень большой массив. размерностью в несколько тысяч элементов.
паскаль очень продуктивно работает с памятью. а отдельно разбираться с реализацией динамических массивов - не уверен, что это спасет.
PM MAIL WWW ICQ   Вверх
volvo877
Дата 8.1.2006, 22:26 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 2
Всего: 116
Цитата(mntek @ 8.1.2006, 20:24 Найти цитируемый пост)

а кто мешает сделать сразу очень большой массив. размерностью в несколько тысяч элементов.
Вот таких
Цитата(mntek @ 6.1.2006, 10:26 Найти цитируемый пост)

type
  mytable = record
    field1,
    field2: string;
  end;
?
Ограничение в 64К на блок. Максимум, что тебе позволит компилятор - массив из 127 таких элементов. Ну, уменьшив размер строки, доведешь до 1000...
Да и сегмент данных у тебя в программе только один, куда остальные данные девать будешь? Так что - не все так просто... smile
PM MAIL   Вверх
Albinos_x
Дата 8.1.2006, 22:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Evil Skynet
****


Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: нет
Всего: 108
Зачем же так сложно... прочитал в переменную данного типа например:
Цитата
type
  mytable = record
    field1,
    field2: string;
  end;

вывел на экран, потом опять читаешь и выводишь на экран....т.е. в цикле и не нада никаких массивов...


--------------------
"Кто владеет информацией, тот владеет миром"    
Уинстон Черчилль
PM MAIL ICQ   Вверх
Guest
Дата 9.1.2006, 11:52 (ссылка) | (голосов: 0) Загрузка ... Загрузка ... Быстрая цитата Цитата


Unregistered
проблема в чем?как её нарисовать, или как вывысти данные в этой таблицы на экран?
  Вверх
Zero
Дата 12.1.2006, 15:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2169
Регистрация: 23.10.2004
Где: Россия, г. Рязань

Репутация: нет
Всего: 24
Цитата(COOLJohn @ 6.1.2006, 10:08 Найти цитируемый пост)

Подскажите, как сделать таблицу в TURBO PASCALе 7.0.
Если можно, то с примером.

В общем случае если тебе таблицу нужно нарисовать, то я это делал 2 года назад как в прикреплённом файле.

Присоединённый файл ( Кол-во скачиваний: 14 )
Присоединённый файл  TEST.PAS 1,33 Kb
PM MAIL ICQ   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi"
THandle
Rrader
volvo877

Запрещается!

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

2. Публиковать ссылки на варез

3. Оффтопить

  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, THandle, Rrader, volvo877.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Object Pascal: кроссплатформенные технологии | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0780 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.