String und array

[mschaefer]

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!