1:
2:
3:
4:
5:
6:
7:
8:

var Zaehler1 :Integer;
    Zaehler2 :Integer;


function FindeVariable:Integer;
begin
  Result := MachIrgendwas('Zaehler' + IntToStr(1));
end;					

1:
2:
3:
4:
5:
6:

var zahler : Array [1..2] of Integer;

begin
  Result := MachIrgendwas(Zaehler[1]);

end;					

1:
2:

Merker_Roba_335A_Belegt = '493.5';
Merker_Roba_335A_Reset  = '493.6';					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

function FindeVariable(VariablenName:String):String;
begin
  Result := MachIrgendwas(VariablenName);
end;


procedure LosGehts;
var s :String;
begin
  s := FindeVariable('Merker_Roba_' + '335A' + '_Belegt');
  Showmessage(s);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

type
  TMyRecord = record
    Name, Value: String;
  end;

const
  MyData: array[0..1] of TMyRecord = (
    (Name: '335A_Belegt'; Value: '493.5'), // Merker_Roba_335A_Belegt
    (Name: '335A_Reset'; Value: '493.6')   // Merker_Roba_335A_Reset
  );					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

    
const
      Merker_Roba_Namen : Array [0..1] of String = ('335A', '0815');
      Merker_Roba_Belegt : Array [0..1] of Double = (493.5, 999.5);

Function GetIndexFromName(name : string) : Integer;
var i : integer;
begin
  result := -1;

  i := low(Merker_Roba_Namen);
  while (i <= high(Merker_Roba_Namen)) and (Result < 0) do
  begin
    if Merker_Roba_Namen[i] = Name then
      result := i;
    inc(i);
  end;

end;

begin
  ShowMessage(FloattoStr(Merker_Roba_Belegt[GetIndexFromName('335A')]));
end;