[Massimo]

Добрый день. Помогите новичку. Надо задать что-то вроде константы типа массива, который состоит из 2х строк 10 столбцов. Первая строка типа string, вторая типа real. В последствии надо по заданному значению типа string, вернуть соответствующее ему значение типа real. Как это реализовать?

[lmikle]

Код:

type
  TRec = record
    Name : String;
    Value : Double;
  end;

const
  A : Array [1..2] Of TRec = ((Name: 'a'; Value: 0.1),
                              (Name: 'b'; Value: 0.2));

[Страдалецъ]

Так пойдет?

Код:

Const
 Arr: Array[1..2] of record S: String; V: Real; end = ((S:'Элемент1';V:1.5),(S:'Элемент2';V:2.0));

[Страдалецъ]

А у меня компактнее

[Massimo]

Спасибо, с этим все получилось. А как организовать поиск стрингового значения и вернуть соответствующую ему цифру?

[Massimo]

т.е. интересует синтаксис обращения к этому масссву, с самим поиском вроде все понятно.

[Страдалецъ]

Для моего варианта так:

Код:

var
  i: Integer;
  Result: Real;
begin
 for i := 1 to 2
 do if Arr[i].S = 'Элемент1'
 then Result := Arr[i].V;
end;

[Massimo]

Большое спасибо.