Array de dimensiones

[Aleca]

Código Delphi [-]
var
  Form1: TForm1;
  datos: array[1..3,1..4] of integer;
  ren:integer=1;col:integer=1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin

end;

procedure TForm1.InsertarClick(Sender: TObject);
var 
  temp:string;
begin
  col := col + 1;
  if (col=5) then   
  begin
     ren:=ren+1; 
     col:=1;
  end;
   
  if (ren=4) then 
  begin
     showmessage('Lista llena'); 
     edit1.Visible:=false;
  end
  else
    datos[ren,col]:=strtoint(edit1.Text);
 
  edit1.Text := ' ';
  temp := temp+inttostr(datos[ren,col]);
  listbox1.Items.Add(temp);
end;

end.

Creo q seria algo asi.
PD: hay q leer la guia de estilo.

[[Chris]]

Falta información!
Cuál es el error que te da tu código?

[JLMN22]

Empezado por Chris

Falta información!
Cuál es el error que te da tu código?

Cuando pongo mi codigo, en la lista pone 0 no el valor que le he metido al edit.

He metido el codigo que me ha dejado una persona del foro, y lo que hace es meter en forma de columa datos, es decir, que no lo hace como un cuadro.

[Aleca]

Empezado por JLMN22

Cuando pongo mi codigo, en la lista pone 0 no el valor que le he metido al edit.

He metido el codigo que me ha dejado una persona del foro, y lo que hace es meter en forma de columa datos, es decir, que no lo hace como un cuadro.

1) te pone 0 porque lo blanqueas antes de cargarlo a lista.
2) tenes que invertir los if para llenarlo por fila y sumar x col en vez de ren