[dixa]

Здравствуйте уважаемые! Есть вопрос, который я не могу решить, замучился уже искать, если поможете буду очень рад:
Пользователь выбирает значение(предположим из listbox) и дальше мне нужно определить в каком значении это искать:

Код:

1 2 3 4 5 6 7 8

MyRec = record     Name: string[100];     property1: integer;     property2: integer;     property3: integer;     end; var   kurs: MyRec;

Забили какими-то значениями(kurs.name:=бла бла бла,kurs.property1:=10, kurs.property2:=25, kurs.property3:=55) затем запустили прогу, пользователь выбрал значение например "property1"
Теперь мне надо достать значение из listbox :

Код:

1	Listbox1.Items[Listbox1.ItemIndex]

Достаю, теперь мне надо выдать значение предположим kurs.property1
То есть мне надо выдернуть значение "10".
Как это сделать?...

[AND_REY]

Так можно попробовать:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34

Type  TMystr = Packed Record   Name: String;   Property1: Integer;   Property2: Integer;   Property3: Integer;  end;   Var   Mystr: Array [0..4] of TMystr;   procedure TForm1.FormActivate(Sender: TObject); var  i: Integer; begin Randomize;  For i:=0 To 4 Do   begin    Mystr[i].Name:= IntToStr(i)+') Строка.';    Mystr[i].Property1:= Random(100);    Mystr[i].Property2:= Random(200);    Mystr[i].Property3:= Random(300);    Listbox1.Items.Add(Mystr[i].Name);   end; end;   procedure TForm1.ListBox1Click(Sender: TObject); Var  Property1, Property2, Property3: Integer; begin Property1:= Mystr[Listbox1.ItemIndex].Property1; Property2:= Mystr[Listbox1.ItemIndex].Property2; Property3:= Mystr[Listbox1.ItemIndex].Property3; end;

[dixa]

нет, можно конечно вручную это сделать как вы предлагаете, но хотелось бы автоматизировать это(вдруг у меня свойств будет не 3, а 50), то бишь хочу чтобы было что-то вроде:
n:=kurs.Listbox1.Items[Listbox1.ItemIndex];
но так он собака не работает, ругается на ошибку...

[lmikle]

Читай про RTTI.
Только вот не помню, работает ли это с записями. С классами точно работает.

[AND_REY]

Первое что пришло в голову при большом колличестве Property:
(Массив можно сохр и загружать из файла).

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35

Type  TMystr = Packed Record   Name: String;   PropertyX: Array [1..50] of Integer;  end;   Var   Mystr: Array [0..4] of TMystr;   procedure TForm1.FormActivate(Sender: TObject); var  i,j: Integer; begin Randomize;  For i:=0 To 4 Do   begin    Mystr[i].Name:= IntToStr(i)+') Ñòðîêà.';    For j:=1 To 50 Do     begin      Mystr[i].PropertyX[j]:= Random(100);     end;    Listbox1.Items.Add(Mystr[i].Name);   end; end;   procedure TForm1.ListBox1Click(Sender: TObject); Var  PropertyX: Array [1..50] of Integer;  i: Integer; begin  For i:= 1 To 50 Do   begin    PropertyX[i]:= Mystr[Listbox1.ItemIndex].PropertyX[i];   end; end;

[dixa]

Спасибо большое, в особенности AND_Ray...