Solamente el Ultimo digito

[Camilo]

Hola Amigos:

Tengo una tabla Paradox con un campo numerico; necesito aislar el ultimo digito de todos los registros que son de 6 digitos.

Este numero aislado lo necesito en un edit.
Uso delphi 7 y paradox.

Gracias por su gentil ayuda muy importante para mi.

[[enecumene]]

Hola, excusame por mi ignorancia pues no logre entender lo que explicas, a que te refieres con aislar el ultimo digito?.

Saludos.

[Camilo]

Gracias Enecumene por tu interes.

El campo Placa tiene registros como estos: "012456", "451278" y asi mas de 500 registros.

Para el primer ejemplo, necesitaria que el "6" me saliera solito en un Edit, para el sgundo caso el "8" y asi.

Gracias.

[[enecumene]]

Ok. ahora entendi, pues para eso tienes que usar la funcion RightStr de delphi, esta en la ayuda de Delphi.

Saludos.

[defcon1_es]

Empezado por Camilo

Gracias Enecumene por tu interes.

El campo Placa tiene registros como estos: "012456", "451278" y asi mas de 500 registros.

Para el primer ejemplo, necesitaria que el "6" me saliera solito en un Edit, para el sgundo caso el "8" y asi.

Gracias.

Código Delphi [-]
....
Aux := Dataset.FieldByName(CAMPO).AsString;
Edit.Text := Aux[6];
....

[Camilo]

Oye disculpame pero ayer intente usarla y paso que: o no se como usarla o la funcion Rightstr no esta en mi delphi 7; por lo menos me salio un mensaje de Undelcared.
Ahora disculpame tu mi ignorancia la verdad soy mas aficionado que formado.
Gracias

[Camilo]

defcon1_es: Mil gracias por tu ayuda.

Disclupa no entiendo lo de aux. Podrias colocarlos en un onclick por favor (como para tonticos en la materia como yo)
Gracias.

[[enecumene]]

Tienes que declarar la variabale Aux, asi:

Código Delphi [-]
var
Aux: string;
begin
Aux := Dataset.FieldByName(CAMPO).AsString;
Edit.Text := Aux[6];
end;

[ContraVeneno]

Empezado por Camilo

Oye disculpame pero ayer intente usarla y paso que: o no se como usarla o la funcion Rightstr no esta en mi delphi 7; por lo menos me salio un mensaje de Undelcared.
Ahora disculpame tu mi ignorancia la verdad soy mas aficionado que formado.
Gracias

Ayer me dijiste que delphi 7 si tiene incluida la función RigthStr...


http://www.clubdelphi.com/foros/showthread.php?t=49990


¿paradox tendrá una función "substring" o "copy" ?

[Camilo]

Contraveneno; la verdad es que me sale un mensaje de error al compilar asi:"[Error] Unit4.pas(188): Undeclared identifier: 'RigthStr'. de ahi que afirmo que el problema es de "Chofer" como decimos el Colombia.

Espero que me expliques por favor con plastilinas para un preescolar de delphi.

Gracias.

[defcon1_es]

Ok, creia que era evidente que habia que declarar la variable auxiliar,
por eso puse los puntitos....

Ejemplo:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var Aux: String;
begin
// En vez de Table1 debes usar tu dataset, y en vez de 'CAMPO' debes 
// poner el nombre del campo que contiene los valores numericos.
  Aux := Table1.FieldByName('CAMPO').AsString;
  Edit1.Text := Aux[6];
end;

[Camilo]

Perfecto Muchachos Muchas Gracias. disculpen que lo que para ustedes es facil para algunos de quienes empezamos es un complique.

Gracias de Nuevo a todos.

[[enecumene]]

Te funciono el ejemplo de defcon1_es?.

Saludos.

[jhonny]

Camilo, la función RightStr esta en la unidad StrUtils, debes verificar que dicha unidad este siendo incluida en el uses de tu unidad.

Por otro lado la opcion que te muestra defcon1_es me parece buena pero en caso de que una de esas "placas" no sea de 6 caracteres te podria presentar problemas, se que en Colombia tenemos los carros con las placas de 6 digitos, pero recuerda que hay motos y estas son de 5 digitos , de manera que creo que para estos casos es mejor usar RightStr.

Pero si definitivamente no encontraste la función RightStr, podriamos hacer un pequeño "ajuste" a la función que nos muestra defcon1_es y dejarla asi:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
// En vez de Table1 debes usar tu dataset, y en vez de 'CAMPO' debes 
// poner el nombre del campo que contiene los valores numericos.
  Edit1.Text := Table1.FieldByName('CAMPO').AsString[Length(Table1.FieldByName('CAMPO').AsString)];
end;

[[enecumene]]

Mira un pequeño ejemplo de la funcion RightStr por si acaso, y es como dice johhny que debes verificar que SysUtil este en el uses del proyecto:

Código Delphi [-]
var s : string;
begin
  
s := 'ABOUT DELPHI PROGRAMMING';
s := RightStr(s,5); //aqui en tu caso seria en vez de 5 es 1
// s = 'MMING' resultado
end;

espero que te aclare.

Saludos.

[Camilo]

Hola Jhonny que gustaso compartir con tigo.

Pues hago lo que me indican y me sale un error de "Acces Violations at adrress 044dcb15 in module proyet1.exe read off adrress..." o algo asi.

Gracias por la paciencia a mi desesperante ignorancia.

[Camilo]

Si si esta en la Uses, pero al compilar tu ejemplo me sale el mismo mensaje "[Error] Unit4.pas(200): Undeclared identifier: 'RightStr'"

[[enecumene]]

Eso esta extraño hombre, hay que investigar eso.

[jhonny]

Empezado por Camilo

Hola Jhonny que gustaso compartir con tigo.

Pues hago lo que me indican y me sale un error de "Acces Violations at adrress 044dcb15 in module proyet1.exe read off adrress..." o algo asi.

Gracias por la paciencia a mi desesperante ignorancia.

Igualmente hombre, es un gustaso .

¿Verificaste que SysUtils estuviera dentro de las uses?, enecumene te a puesto un ejemplo muy sencillo pero que sinceramente debe ser bastante aplicable a lo que necesitas .

¿Cual de las opciones estas usando?, muestranos el codigo .

[jhonny]

Jejeje, no se porque se me trocaron los cables, la unidad a referenciar no es SysUtils, es StrUtils .

Muestranos las Uses que estas usando. Acabo de ensayar el asunto y me funciona bien.