RoyTan
09-10-2011, 13:54:04
Saludos,
Tengo un problema con la signacion de un variable tipo string reconoce el uno como numero no como caracter, Ejemplo
procedure TF_Informe.BBB1_2Click(Sender: TObject);
Var
Contador1: Integer;
begin
Contador1 := 0;
// contamos todos los registros y lo comparamos
try
ModuloDatos.THistorial.First;
while not ModuloDatos.THistorial.Eof do begin
if ModuloDatos.THistorialPRI2.AsString = 1X then // reconoce el 1 como numero no como caracter y da error
Begin
Contador1 := Contador1 + 1;
End;
ModuloDatos.THistorial.Next;
end;
finally
L_1_1_2.Caption := IntToStr(Contador1);
end;
// Fin de la cuenta de todos los registros
end;
Reconoce el numero 1 como numero no como caracter y no se como solucionarlo,
Gracias
Tengo un problema con la signacion de un variable tipo string reconoce el uno como numero no como caracter, Ejemplo
procedure TF_Informe.BBB1_2Click(Sender: TObject);
Var
Contador1: Integer;
begin
Contador1 := 0;
// contamos todos los registros y lo comparamos
try
ModuloDatos.THistorial.First;
while not ModuloDatos.THistorial.Eof do begin
if ModuloDatos.THistorialPRI2.AsString = 1X then // reconoce el 1 como numero no como caracter y da error
Begin
Contador1 := Contador1 + 1;
End;
ModuloDatos.THistorial.Next;
end;
finally
L_1_1_2.Caption := IntToStr(Contador1);
end;
// Fin de la cuenta de todos los registros
end;
Reconoce el numero 1 como numero no como caracter y no se como solucionarlo,
Gracias