|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
12.12.2006, 23:13 | #1 |
Регистрация: 12.12.2006
Сообщений: 3
|
тип запись на паскале
вообщем задание такое:дан список компьтеров с параметрами название,частота,обьем памяти ОЗУ и HDD ,стоимость,нужно определить компьтер с максимальной частотой и вывести все сведения о нем в мемо 2,вот нахождение компьтера с максимальной частоты и невыходит вот фрагментик ввода в мемо1 даных о компьтерах если кто может напишите плиз для батон2 нахождение компьтера с максимальной частотой
Type comp=record N:String[20]; CH:real; O,H:integer; C:real; cd:char; end; var m_zap:array[1..20]of comp; k:integer; procedure TForm1.FormCreate(Sender: TObject); begin k:=0; end; procedure TForm1.Button1Click(Sender: TObject); begin k:=k+1; with m_zap[k] do begin n:=edit1.text; ch:=StrToFloat(edit2.Text); o:=StrToInt(edit3.text); h:=StrToInt(edit4.text); c:=StrToFloat(edit5.text); Memo1.Lines.Add(n+'|'+FloatToStr(ch )+'|'+IntToStr(o)+'|'+IntToStr(h)+' |'+FloatTosTR(c)); end; Edit1.Clear; Edit2.Clear; Edit3.Clear; Edit4.Clear; Edit5.Clear; Edit1.SetFocus; end; буду весьма благодарен ато чтото мне эти записи вообще в голову не лезут... Последний раз редактировалось связист; 12.12.2006 в 23:21. |
12.12.2006, 23:21 | #2 |
Андрей
Форумчанин
Регистрация: 21.11.2006
Сообщений: 457
|
Код:
ICQ: 5311314
[SIGPIC][/SIGPIC] |
12.12.2006, 23:28 | #3 |
Регистрация: 12.12.2006
Сообщений: 3
|
Пасиба огромное,все оказалось намного проще чем я думал,я вообще пытался найти максимум в поле частота,но он чет так не неработал чет там с типами не то было а щас все работает пасиб!
|
12.12.2006, 23:31 | #4 |
Андрей
Форумчанин
Регистрация: 21.11.2006
Сообщений: 457
|
Честно говоря я думал что m_zap[i].C и есть частота. По идее надо сравнивать именно частоту! Ну раз работает...
ICQ: 5311314
[SIGPIC][/SIGPIC] |
12.12.2006, 23:38 | #5 |
Регистрация: 12.12.2006
Сообщений: 3
|
|
13.12.2006, 08:59 | #6 | |
Delphi/C++/C#
Участник клуба
Регистрация: 29.10.2006
Сообщений: 1,972
|
Цитата:
Этот пример не рабочий полностью. А не проще было использовать Grid? Красивая табличка, работать с ней можно как с двумерным массивом, (и сортировать проще, отсортировал по частоте и нужный комп в самом верху получился) |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
запись CD | chekanoff | Общие вопросы Delphi | 2 | 10.04.2008 00:04 |
Запись в файл на С++ | Mails | Помощь студентам | 7 | 31.03.2008 14:37 |
запись в файл | Prisian | Общие вопросы Delphi | 6 | 24.07.2007 13:43 |
Запись *.jpg в blob | John_chek | Мультимедиа в Delphi | 4 | 03.04.2007 11:35 |