Fórum Array de function. É possível? #179529

type
  TMeuTipo1 = array[1..2] of string;

function MinhaFuncao1(): TMeuTipo1;
begin
MinhaFuncao1[1] := ´aaa´;
MinhaFuncao1[2] := ´bbb´;
end;

procedure Tform1.Button1Click(Sender: TObject);
var a, b: string;
begin
a := NomeDaFunction[1];
b := NomeDaFunction[2];
showmessage(a);
showmessage(b);
end;

function MinhaFuncao1(): TMeuTipo1; 
begin 
  result[1] := ´aaa´; 
  result[2] := ´bbb´; 
end;

procedure Tform1.Button1Click(Sender: TObject); 
var r : TMeuTipo1;
begin 
  r := NomeDaFunction;  
  showmessage(r[1]); 
  showmessage(r[2]); 
end;

TFunctionResult = record
      Text1, Texto2, Texto3, Texto4 : string;
    end;

function MinhaFuncao1(): TFunctionResult; 
begin 
  with result do
   begin
    text1 := ´aaa´;
    text2 := ´bbb´;
    text3 := ´ccc´;
    text4 := ´ddd´;
   end;
end;

procedure Tform1.Button1Click(Sender: TObject); 
var r : TFunctionResult; 
begin 
  r := NomeDaFunction;  
  showmessage(r.text1); 
  showmessage(r.text2); 
  //e assim vai
end;

procedure MinhaFuncao1(var Result1, Result2, Result3, Result4 : string);
begin 
  Result1 := ´aaa´; 
  Result2 := ´bbb´; 
  Result3 := ´ccc´; 
  Result4 := ´ddd´; 
end;

procedure Tform1.Button1Click(Sender: TObject); 
var R1, R2, R3, R4 : string;
begin 
  NomeDaFunction(R1, R2, R3, R4);  
  showmessage(R1); 
  showmessage(R2); 
  showmessage(R3); 
  showmessage(R4); 
end;

procedure TForm5.Button1Click(Sender: TObject);
var nI: Integer;
begin
for nI := 0 to 9 do
  begin
ShowMessage(RetornaVarios[0]);
ShowMessage(RetornaVarios[1]);
  end;
end;

function TForm5.RetornaVarios: TStringList;
begin
Result := TStringList.Create;
Result.Clear;
  {...Faça isso e aquilo ...}
  Result.Add(´X´);
  Result.Add(´Y´);
end;