pasar como parametro arrayq
 

Hola!! Vereis tengo un array dinamico y mi problema es q lo tengo dentro de una funcion y kiero devolver ese array, y no tengo ni idea de como devolverlo. Esto es lo q kiero hacer :

function Nombre (): ;
var
array : array of string;
begin

array[0] := ' cod';
array[1] := 'NOMBRE';
end;
No me ha sido dificil encontrar declarraciones de arrays y como fijar la longitud xo no encuentro ejemplos xa esto q pido.
Se q la la pregunta es un poco tonta, xo es q e estado buscando y no e encontrado nada q me solucione mi duda y es la 1º vez q utilizo arrays.

x cierto se me ha olvidao poner q tb e vijado la la longitud con setlength(array,2);

Declara un tipo de datos para el arreglo:

Código Delphi [-]
type
  TStringArray: array of String;

function Persona(Codigo, Nombre: String): TStringArray;
begin
  SetLength(Result, 2);

  Result[0] := Codigo;
  Result[1] := Nombre;
end;

// Saludos

Buenas!! Gracias x contestar. Así lo q me hace es devolverlo todo de una no?. No kiero pasarle parametros. El valor se lo doy yo.Me da un error en
type
TStringArray : array of String;

yo esto, lo tengo en una unit q le e añadido y le e puesto.:

unit UCampos;

interface

type
TStringArray = array of String;

function CamContDes(): TStringarray;
begin

setlength(result,2);
result[0] := '001';
result[1] := 'pepe'
end;

Y luego cuando llame a la funcion y lo asigne, tendra q ser otro array o como lo puedo hacer xq :confused: .

Gracias!!