5 respuestas en este tema

[FGarcia]

Pues eso, como actualizar el valor de sbPeso.Position en cada iteracion de este loop?

delphi

while (sbPeso.position >= StrToInt(edtArranque.Text )) do
    begin
      i := i +1;
      lbli.Caption := IntToStr(i);
      TablaPeso[i] := sbPeso.Position;
      if i >= MaxTabla then
         begin
           shape1.brush.Color := clWhite;
           break;
         end;
    end; 

Con delphi directamente en windows si no mal recuerdo hay que hacer una llamada a un API de mensajes. Es lo mismo para Lazarus? La aplicacion es un pequeño demo que se ejecutara siempre en windows.

Como siempre se agradece la ayuda y su tiempo.

[escafandra]

Mira a ver si funciona Update, pero en ese bucle no cambia el valor de sbPeso.position


Saludos.

[Wilson]

Pregunto:  ¿Obtienes el valor para sbPeso.Position a partir de la variable i?

[FGarcia]

Disculpas por la tardanza pero ando en varios frentes....

Basicamente es una simulacion en donde voy deslizando el scrollbar (sbPeso) y necesito que al ingresar al loop el valor de sbPeso.position sea actualizado para ir llenando a l record TablaPeso[i].

Ando bastante mal en mi logica

Saludos!

[Wilson]

Más preguntas:
1- Deslizas manualmente el sbpeso, o quieres que se deslice solo. Entiendo que quieres que se deslice solo, tal  como en un reproductor de audio o vídeo.

2- Con qué inicializas la variable I?

3- Finalmente aclara si lo que quieres es incrementar la posición de sbPeso conforme se incrementa I.

Adivinando un poco, y si es como lo planteo en la tercera pregunta, aún desconociendo con qué inicializas I (me imagino que es con el valor de edArranque), sería algo así.

delphi

while (sbPeso.position >= StrToInt(edtArranque.Text )) do
    begin
      i:= StrToInt(edtArranque.Text );
      i := i +1;
      sb.Position := i;
      sb.Invalidate; //Redibuja el control en su nueva posición
      lbli.Caption := IntToStr(i);
      TablaPeso[i] := sbPeso.Position;
      if i >= MaxTabla then
         begin
           shape1.brush.Color := clWhite;
           break;
         end;
    end;

[FGarcia]

Gracias por el interés Wilson!

1. Deslizo manualmente el sbPeso. Tal vez después lo quiera hacer automático.
2. I:= 0;
3. Quiero que en cada iteración del lazo se lea el nuevo valor de sbPeso y así esos nuevos valores sean cargados en TablaPeso[i]

La idea final es realizar algo asi como una campana de Gauss (pero no lo es)