TrackBar con BD

[JoseFco]

"Tolomeo se mudo al Polo Norte"

[[eduarcol]]

Empezado por JoseFco

Bueno cuando yo cree el codigo le acigno un valor a cada una de las posiciones y esas no cambiaran mas nunca.

Un Saludo.

bueno entonces animate con la matriz es lo mas sencillo

[roman]

Pues no sé si estoy entendiendo, pero creo que tú mismo ya lo resolviste.

Defines un arreglo

Código Delphi [-]
var
  Valores: array[0..15] of Integer;

Cada índice del arreglo corresponde a una de las 16 posiciones del TrackBar y accedes a sus valores con

Valores[TrackBar.Position]

// Saludos

[[Delphius]]

Ahora entiendo.

Me parece que lo que ofrece roman es una buena solución, y sobre todo por ser bastante simple.

A ese array o vector le puedes asignar los valores muy cómodamente en cualquier momento, cuando sea necesario. Basta con indicar el índice:

Código Delphi [-]
Valores[0] := 50;
Valores[1] := 400;
...
Valores[15] := xx;

Y de igual manera para leer el valor:

Código Delphi [-]
una_variable := Valores[una_posicion];

Saludos,

[JoseFco]

"Tolomeo se mudo al Polo Norte"

[roman]

Código Delphi [-]
Label1.Caption := IntToString(Valores[TrackBar1.Position)];

// Saludos

[JoseFco]

"Tolomeo se mudo al Polo Norte"

[[Delphius]]

Un pequeñito, bien diminuto, chascarillo para roman, si me lo permiten:
1. Es IntToStr()
2. Hay un error en el último corchete. Debe ir antes del paréntesis:

Código Delphi [-]
Label1.Caption := InToStr(valores[TRackBar.Position]);

Saludos,