Matriz como Paramentro de una funcion

[ingel]

Function Mifuncion(p1:string ; VAR vITems : array of string ):string;

y en el procedimiento que la llama la matriz esta declarada localmente como :

VAR vDetalleItems : array [1..4,1..5] of string;

y el error lo da al COMPILAR :

[Error] Uutiles.pas(499): Incompatible types: 'Char' and 'String'

[ecfisa]

Hola.

Un ejemplo base:

Código Delphi [-]
...
type
  TMatStr4x5 = array [1..4,1..5] of string;

function foo(p1:string; var mt : TMatStr4x5 ):string;
begin
  mt[1,1] := 'mt[1,1] = ' + p1;
  Result  := mt[1,1];
end;

Ejemplo de uso:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  mt: TMatStr4x5;
  s : string;
begin
  s := foo('hola', mt);
  ShowMessage(s + #10 + mt[1,1]);
end;

Saludos

Pd.: Recuerda usar las etiquetas cuando incluyas código fuente.

[cloayza]

Te sugiero este código:

Código Delphi [-]
type
  TMatrizString=array[1..4,1..5] Of string;

  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure MatrizCeros(var m:TMatrizString);
    procedure MatrizPrint(var m:TMatrizString);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.MatrizCeros(var m:TMatrizString);
var
   i:Integer;
  j: Integer;
begin
     for i := 1 to 4 do
        for j := 1 to 5 do
            m[i,j]:='0';
end;

procedure TForm1.MatrizPrint(var m:TMatrizString);
var
   i:Integer;
  j: Integer;
begin
     Memo1.Lines.Clear;
     for i := 1 to 4 do
        for j := 1 to 5 do
            Memo1.Lines.Add(Format('m[%d,%d]=%s',[i,j, m[i,j]]));
end;


procedure TForm1.Button1Click(Sender: TObject);
var
   m:TMatrizString;
begin
     MatrizCeros(m);
     MatrizPrint(m);
end;

Saludos cordiales

[ingel]

Solucionado... Muchas GRacias !!

[cloayza]

Cuando respondí no había ninguna respuesta...

No se le ocurra pensar Don Ecfisa, que fue un copy - paste...

Los meritos son suyos...así lo indica la hora...

Un abrazo

[ecfisa]

Empezado por cloayza

...
Cuando respondí no había ninguna respuesta...
Los meritos son suyos...así lo indica la hora...

Ni lo menciones, eso me ha pasado montones de veces. Por otro lado, tu respuesta es mucho mas completa

Saludos