Array an Function / Procedure übergeben

[moggaz]

Hallo,

hab ne weile hier umhergeschnüffelt aber nicht so die antwort gefunden.

Anmerkung: Blutiger Anfänger
Ich habe folgendes Problem:

Ich habe 3 Arrays und eine funktion die in einem 'von mir zur laufzeit festgelegtem array' etwas suchen soll.....
Aber wie übergebe ich den Array Name an die funktion ?

Ich habe also 3 arrays

Delphi-Quellcode:

Var
 test1: array[1..10] of string;
 test2: array[1..10] of string;
 test3: array[1..10] of string;

Und eine funktion

Delphi-Quellcode:

function such(s:string ;  XXXXX???): string;
begin

result:=s;
end;

Ausführen möchte ich das dann etwa so .....

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin

such('muh',test1      {oder test2 oder test3, soll variable bleiben}   );

end;

//quasi soll nur noch angegeben werden was, in welchem array gesucht werden soll .....


Hab etwas mit "type" gefunden aber das ging auch nciht so richtig ..... er wollte dann bei der übergabe noch etwas haben (ka was)





Kann mir da wer helfen ¿