Объясните,пожалуйста,как работать с массивом

[Oksanator]

Пожалуйста,помогите 13-летней школьнице!Делфи начала изучать в этом году.
В поле "Прыжки в длину" необходимо ввести данные в колонку "Результат" и при нажатии кнопки должен высветиться соответствующий балл в колонке "Очки". (Данные результатов и баллов уже известны. Напр. результат 250-балл 65). Можно сделать через условие,но писанины очень много Пробовала через массивы но ничего не выходит

var 
a: array[1..70,1..130]of integer;
i,j:Integer;

begin
if edit1.text=inttostr(i) then
begin
for i:=1 to 70 do begin
 for j:=1 to 130 do begin
  a[i,j]:=0;
  edit2.text:=intTostr(j);
end;
end;
end;
end;

[RUSt88]

мне на ум только приходит конструкция case в функции:
например, переменная типа int Rez - длина прыжка

function Resultat(Res: Integer): integer;
case Res of
0..50: return 0;
50..100: return 50;

и т.д.

единственное, тебе надо сделать перебор всех EditBox'ов в цикле и вставить туда функцию

я сейчас не помню, посмотри в справке
вроде так

var mass: array[0..N] of Integer;
for i:= 0 to N do begin \\ сначала пробегаем по результату и запоминаем
if Components[i] is TEditBox then
mass[i] := StrToInt(TEditBox(Components[i]).Text);
end;
\\ дальше пробегаем по баллам и заполняем с помощью функции
k := 0;
for i := M to L do begin \\m-порядковый № EditBox - 1 (балл), N - конечный
if Components[i] is TEditBox then
TEditBox(Components[i]).Text := IntToStr(Resultat(mass[k]));
inc(k);
end;

код сырой, Ctrl+V работать не будет

[Oksanator]

Спасибо! Пошла разбираться