Cita:
Empezado por Luli
Hola, bueno no me expliqué bien, lo del arreglo es porque quiero tener una tabla con los datos que introdujo el usuario para usarlos más tarde, estos datos son: el nombre de una variable cualquiera (a, b, w, etc) y su valor (1, 28, 3, etc.) estos datos los da el usuario y para recibirlos utilicé un TEdit.
Lo que no sé es como los guardo en esa tabla, en ese arreglo, ya me habían comentado que tendría que convertir uno de los datos a int y yo escribí este codigo
|
Éste código tiene algunos errores (y alguno de concepto también).
Lo primero, es que si debes almacenar una cadena y un Integer, el array debe ser de Strings (en lugar de enteros), ya que un entero se puede almacenar como string, pero no al contrario.
Otro error que he visto, es que Tabla lo tienes definido dentro de tipos (type) y no dentro de variables (var) y luego intentas trabajar con el; Si lo defines como Tipo debes definir una variable de ese tipo, y si lo defines como variable puedes usarla directamente.
El código con alguna corrección quedaría así, revísa los cambios:
Código Delphi
[-]
const
Longitud=2;
Altura=3;
type
Horizontal = 1..Longitud;
Vertical = 1..Altura;
var
Tabla: Array[Horizontal,Vertical] of String;
Form1: TForm1;
contador_variable: integer;
Variable: String;
Valor: String;
i: integer;
j: integer;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
if(contador_variable < 3)
then begin
contador_variable:=contador_variable+1;
Variable:= Edit1.Text;
Valor:= Edit2.Text;
Tabla[i,j]:= Variable;
j:=j+1;
Tabla[i,j]:= Valor;
ListBox1.Items.Add(' '+Edit1.Text+' '+Edit2.Text);
end;
if(contador_variable>3)
then begin
ShowMessage ('No es posible declarar más variables');
end;
Edit1.Text:= '';
Edit2.Text:= '';
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Close;
end;
end.