Delphi - Terminaciones numéricas

   
Vista:

Terminaciones numéricas

Publicado por Ragaru (33 intervenciones) el 22/12/2012 16:03:04
Table1 no puede tener más de 100 registros ya que los números que puede contener son de 1
o 2 cifras (del 0 al 99). Gracias por su sugerencia y de acuerdo con ella he escrito el siguiente
código que equivale a hacer 10 veces la rutina de comprobación:
procedure TForm1.BitBtn2Click(Sender: TObject);
var
X : Integer;
T1, T2 : String;
begin
Table1.First; Table2.Open;
if Table2.RecordCount> 0 Then
While Not Table2.EOF Do
Table2.Delete;
For X := 0 To 9 Do
Begin
Table1.First;
While NOT Table1.Eof Do
Begin If Table1Numero.Value > 9 Then
Begin
T2 := IntToStr(Table1Numero.Value); T1 := Copy(T2,2,1);
End
Else
T1 := IntToStr(Table1Numero.Value);
If T1 = IntToStr(X) Then
Begin Table2.Append;
Table2Terminacion.Value := Table1Numero.Value;
Table2.Post;
End; // End If ¿qué deberia añadir o quitar a este codigo y cual
Table1.Next; sería el código alternativo que usted aconsejaria?
End; // End While Gracias y un afectuoso saludo
End; // End For .. To
end;
Pero aqui entran todos los numeros de Table1, tengan o no otros con la misma terminación
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
información
Otras secciones de LWP con contenido de Delphi
- Código fuente de Delphi
- Cursos de Delphi
- Temas de Delphi
- Chat de Delphi
información
Códigos de Delphi
- Fibonacci
- My Bomber Man
- Graficar expresiones