Saludos,
Tengo un problema con la signacion de un variable tipo string reconoce el uno como numero no como caracter, Ejemplo
Código Delphi
[-]procedure TF_Informe.BBB1_2Click(Sender: TObject);
Var
Contador1: Integer;
begin
Contador1 := 0;
try
ModuloDatos.THistorial.First;
while not ModuloDatos.THistorial.Eof do begin
if ModuloDatos.THistorialPRI2.AsString = 1X then Begin
Contador1 := Contador1 + 1;
End;
ModuloDatos.THistorial.Next;
end;
finally
L_1_1_2.Caption := IntToStr(Contador1);
end;
end;
Reconoce el numero 1 como numero no como caracter y no se como solucionarlo,
Gracias