тип запись

[связист]

вообщем задание такое:дан список компьтеров с параметрами название,частота,обьем памяти ОЗУ и 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;

буду весьма благодарен ато чтото мне эти записи вообще в голову не лезут...

[AVer]

var n,i:=integer;
...
begin
for i:=1 to 20 do
if m_zap[i].C > n then
n:=i;
...

После этого в переменной n будет номер компа с наибольшей частотой.

[связист]

Сообщение от AVer

var n,i:=integer;
...
begin
for i:=1 to 20 do
if m_zap[i].C > n then
n:=i;
...

После этого в переменной n будет номер компа с наибольшей частотой.

Пасиба огромное,все оказалось намного проще чем я думал,я вообще пытался найти максимум в поле частота,но он чет так не неработал чет там с типами не то было а щас все работает пасиб!

[AVer]

Честно говоря я думал что m_zap[i].C и есть частота. По идее надо сравнивать именно частоту! Ну раз работает...

[связист]

Сообщение от AVer

Честно говоря я думал что m_zap[i].C и есть частота.

Нет m_zap[i].C это тогда поле цены получаеца,а вот m_zap[i].Ch
вот это уже выходит поле частоты,стоило одну лекцию прогулять и уже нифига не получаецо все больше не казеню,а массивы были намного проще...

[zetrix]

Сообщение от AVer

var n,i:=integer;
...
begin
for i:=1 to 20 do
if m_zap[i].C > n then
n:=i;
...

После этого в переменной n будет номер компа с наибольшей частотой.

Этот пример не рабочий полностью. А не проще было использовать Grid? Красивая табличка, работать с ней можно как с двумерным массивом, (и сортировать проще, отсортировал по частоте и нужный комп в самом верху получился)