Ver Mensaje Individual
  #3  
Antiguo 08-07-2010
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is online now
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 19.441
Reputación: 10
Neftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en brutoNeftali [Germán.Estévez] Es un diamante en bruto
Hola.
Lo primero hablemos con propiedad, sino no nos vamos a entender...

Cita:
Empezado por darkborrego Ver Mensaje
Necesito recorrer toda la base de datos y si en la columna "tipo" pone "troncal" restar el valor que haya en la columna "créditos" a otra variable que tengo en otra tabla.
Supongo que será toda la tabla.

Cita:
Empezado por darkborrego Ver Mensaje
for i:=0 to (necesito poner final de columna) do begin
Espero que será el final de la tabla.

Prueba con algo así:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  vcreaditos:integer;    // donde almacenaremos los creditos de cada asignatura
begin
   While (not tAsignatura.eof) do begin
      // acceder a los créditos
      vcreditos := tAsignatura.FieldByName('creditos').AsString;

      ...


      // siguiente registro
      tAsignatura.Next; 
                   end;
end;

Mención especial merece esta línea:

Código Delphi [-]
label6.caption:=label6.caption-columna_creditos;

label6.Caption ==> es una String
columna_creditos (o en el ejemplo de arriba vCreditos) ==> Es un entero

"No podemos SUMAR peras con MANZANAS porque la liamos".

Código Delphi [-]
// primeros convertimos el String a entero para poder sumar
i := vCreditos + StrToInt(Label6.Caption);
// el resultado lo volvemos a convertir a string para ponerlo en el Label
Label6.Caption := IntToStr(i);
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita