Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 14.03.2014, 00:59   #1
Anton5474
Новичок
Джуниор
 
Регистрация: 12.03.2014
Сообщений: 8
По умолчанию Delphi Тип Запись

Определить тип данных запись, имеющий поля марка машины, год выпуска, цвет, дата продажи, цена. определить массив из 10 записей.
в программе ввести в массив данные и вывести на экран список машин, отсортированный по маркам.

сам не справляюсь, с формами у меня плохо( нужна помощь, буду очень благодарен!!(приложение не в консоли, а в форме)
Anton5474 вне форума Ответить с цитированием
Старый 14.03.2014, 01:55   #2
type_Oleg
Старожил
 
Аватар для type_Oleg
 
Регистрация: 02.03.2008
Сообщений: 2,504
По умолчанию

Цитата:
Сообщение от Anton5474 Посмотреть сообщение
.. с формами у меня плохо( нужна помощь, буду очень благодарен!!(приложение не в консоли, а в форме)
А " с формами " проще, чем с консолями.
Используйте например StringGrid для ввода и вывода. Одну или две.
И что непонятно ?
Код:
type 
Tachka = record
 marka:string[20];  // или просто string, если не надо сохранять в файле
 god:Integer; 
 // и т.д.
end;
tMnogoTachek = array[1..10] of Tachka;
type_Oleg вне форума Ответить с цитированием
Старый 14.03.2014, 02:57   #3
Anton5474
Новичок
Джуниор
 
Регистрация: 12.03.2014
Сообщений: 8
По умолчанию

Спасибо, буду разбираться)
а непонятно в основном как выводить, проблемно у меня с этим
Anton5474 вне форума Ответить с цитированием
Старый 14.03.2014, 09:07   #4
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Цитата:
непонятно в основном как выводить
Если в Стринггрид то
Код:
with StringGrid do begin RowCount:=Length(tMnogoTachek); ColCount:=2;
 for i:=low(tMnogoTachek) to high(tMnogoTachek) do begin
  cells[1,i]:=tMnogoTachek[i].marka;
  cells[2,i]:=IntToStr(tMnogoTachek[i].god);
 end;
end;
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 14.03.2014, 09:53   #5
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,229
По умолчанию

Stilet, в гриде нумерация от нуля.
Поэтому при таком коде второй столбец и вся последняя строчка в StringGrid не поместятся.

Тогда уже:
Код:
RowCount:=Length(tMnogoTachek)+1; 
ColCount:=3;
Впрочем, ваш код как пример-иллюстрация к тому, как можно вывести данные на форуму - отлично подходит!
Все мелкие детали вроде длины массива, индексации стрингрида и массива - это уже детали, которые допиливаются самостоятельно в процессе отладки...
Serge_Bliznykov вне форума Ответить с цитированием
Старый 14.03.2014, 11:17   #6
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,097
По умолчанию

Цитата:
Stilet, в гриде нумерация от нуля.
А, ну да. Это я про FixedRow вспомнил, но не указал в коде чтоб его учитывало:
RowCount:=High(tMnogoTachek);
I'm learning to live...
Stilet вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Читатели библиотеки - задача на тип запись (record) в Pascal\Delphi Ski Помощь студентам 1 15.05.2012 21:43
Тип запись. Объявление типа запись. Маленыч Паскаль, Turbo Pascal, PascalABC.NET 1 11.05.2012 20:42
Тип-запись(type ... record) в Delphi Pascal; отладка программы Legky Помощь студентам 1 22.12.2010 19:13
Тип-запись(type ... record) в Delphi Pascal Legky Помощь студентам 1 13.12.2010 10:29
Тип-запись(type ... record) в Delphi Pascal Legky Помощь студентам 0 12.12.2010 21:31