String und array

[sirius]

Oder vielleicht so:

Delphi-Quellcode:

const
  ar : array[1..2,0..2] of string = (('ar_1', 'info_1', 'info_2'),
                                     ('ar_2', 'info_a1', 'info_a2'));


function getvalue(aName:string;aIndex:integer):string;
var i:integer;
begin
  result:='';
  for i:=1 to 2 do 
    if ar[i,0]=aName then result:=ar[i,aIndex];
end;