Estoy viendo los vectores en delphi, y tengo problemas con los de 2 dimensiones.
El ejercicio es que tengo que poner en un cuadro de 3 por 4 con un array de 2 dimensiones los ingresos de 4 sucursales durante 3 meses.
Despues de eso, tengo que hacer la suma por sucursal y por meses.
Me he quedado en el de insertar, he visto el codigo una y otra vez y sigo sin encontrar el fallo.
os dejo el codigo:
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
datos[ren,col]:= strtoint(edit1.Text);
col:= col+1;
edit1.Text:= ' ';
temp:= temp+inttostr(datos[ren,col]);
listbox1.Items.Add(temp);
if (col=5) then
begin
ren:=ren+1;
col:=1;
end;
if (ren=4) then
begin
showmessage('Lista llena');
end;
edit1.Visible:=false;
end;
end.