Delphi-Quellcode:
function GetValue (ArrayName : string, ArrayIndex, Integer) : String;
begin
Result := '';
if Array_Name = 'ar_1' then
begin
Result := ar_1[ArrayIndex];
end else
if Array_Name = 'ar_2' then
begin
Result := ar_2[ArrayIndex];
end;
end;
Grüße // Martin
PS: Horror ist für jeden Projektplaner, wenn für eine Winzlingsaufgabe gleich der Grundlagenordner aus dem Regal geholt wird. Die Lösung von Sirius ist allerdings eleganter!