Ver Mensaje Individual
  #3  
Antiguo 18-01-2005
Luli Luli is offline
Miembro
 
Registrado: oct 2004
Posts: 76
Reputación: 20
Luli Va por buen camino
Lightbulb Otra vez con el arreglo

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:

Código:
 
const
Longitud=2; 
Altura=3;
type
Horizontal = 1.. Longitud;
Vertical   = 1..Altura;
Tabla	  = Array[Horizontal,Vertical] of Integer;
 
var
  Form3: TForm3;
  contador_variable: integer;
  Variable: String;
  Valor:	Integer;
  i: integer;
  j: integer;
implementation
{$R *.dfm}

procedure TForm3.Button1Click(Sender: TObject);
begin
if(contador_variable < 3)  //este tres es porque quiero que acepte
 //un numero determinado de variables 
 
then begin
//1.- Se guarda la variable y su valor en la tabla
//2.- Se incrementa el contador porque solo seran tres variables las que se puedan recibir
 
contador_variable:=contador_variable+1;
///////////////////////////////////////////////////////////////////////////////
//SE GUARDA LA VARIABLE Y SU VALOR EN LA TABLA

Variable:= Edit1.Text;
Valor:= StrToInt(Edit2.Text);
 
 
// aqui es donde ya no sé como guardar el nombre de la variable en una celda y su valor en la celda de junto... lo que se me ocurre es algo así:
 
  Tabla[i,j]:= Variable;
  j:=j+1;
  Tabla[i,j]:= Valor; 
//pero no sé si se pueda y otra cosa ¿como imprimo los valores de la tabla en un TEdit, por ejemplo? esto para poder comprobar que se guardaron los datos correctos y en los sitios correctos
 
///////////////////////////////////////////////////////////////////////////////
 
//3.- Se limpia el formulario, listo para recibir otra variable
 ListBox1.Items.Add('		   '+Edit1.Text+'					  '+Edit2.Text);
 //ValueListEditor1.keys[Edit1.Text];

end;
if(contador_variable>3)
then begin
//Mostrar mensaje de que solo se pueden recibir X variables
ShowMessage ('No es posible declarar más variables');

end;
 // Limpiar los edit 1 y 2
 Edit1.Text:= '';
 Edit2.Text:= '';

end;
procedure TForm3.Button2Click(Sender: TObject);
begin
close;
end;
end.

Bueno, a ver si no abrumo con tanta duda, es que no he programado mucho en delphi, solo en turbo c y todo esto es nuevo, muchas gracias
Responder Con Cita