Delphi Symbol fila al código ANSI -- delphi camp Relacionados El problema

delphi symbol row to ansi code


-3
vote

problema

Español

Necesito hacer algún programa simple, pero no sé para empezar. Por ejemplo, obtuve la fila de símbolos - 1M213P03A - y esta fila necesita convertir a un código ANSI, pero solo estas letra "M", "P", "A". En el resultado, debe tener esto - 1109213112397 Necesito hacer esto con formularios, y esta fila de símbolos necesita escribir usuario, que use este programa.

¿Puede alguien ayudarme?

Original en ingles

I need to make some simple program ,but I don't know to start with. For example ,I got symbol row - 1m213p03a - and this row need to convert to ANSI code ,but only these letter "m", "p" ,"a". In result need to got this - 1109213112397 I need to make this with forms ,and this symbol row need to write user ,who use this program.

Can anyone help me?

  
   
   

Lista de respuestas

1
 
vote

Puedo darle la cabeza con el algoritmo de conversión. Debería trabajar en todas las versiones de Delphi. El algoritmo está buscando a través de caracteres de cadena de entrada, si el carácter es el número, entonces está escrito en la cadena de resultados, de lo contrario, se convierte en la representación decimal ANSI de carácter subyacente.

  function Convert(const input: string): string; var   i: integer; begin   result := '';   for i := 1 to Length(input) do     if input[i] in ['0' .. '9'] then result := result + input[i]     else result := result + IntToStr(Ord(input[i])); end;  var   s: string;  s := Convert('1m213p03a');   
 

I can give you head start with conversion algorithm. It should work in all Delphi versions. Algorithm is searching through input string characters, if character is number then it is written in result string as-is, otherwise it is converted to decimal ANSI representation of underlying character.

function Convert(const input: string): string; var   i: integer; begin   result := '';   for i := 1 to Length(input) do     if input[i] in ['0' .. '9'] then result := result + input[i]     else result := result + IntToStr(Ord(input[i])); end;  var   s: string;  s := Convert('1m213p03a'); 
 
 

Relacionados problema

10  ¿Cuál es la forma idiomática de hacer la programación de socket de Async en Delphi?  ( Whats the idiomatic way to do async socket programming in delphi ) 
¿Cuál es la forma normal que las personas que escriben el código de red en Delphi usan el estilo de Windows con Windows Socket Socket I / O? Aquí está mi in...

4  Delphi gana API CREATETIMERQUETIMER HILOS Y HILO FORMATION FORMATIONDATETETETE  ( Delphi win api createtimerqueuetimer threads and thread safe formatdatetime cras ) 
Esto es un poco de una larga pregunta, pero aquí vamos. Hay una versión de FormatDataTime que se dice que es seguro de hilo en el que usa GetLocaleFormatSe...

49  Cómo obtener la memoria utilizada por un programa Delphi  ( How to get the memory used by a delphi program ) 
Sé cómo usar el uso de la memoria del sistema utilizando GlobalMemoryStatusex, pero eso me dice lo que está utilizando todo el sistema operativo. Tengo much...

2  Migrar a Delphi 2009 - Error de typeCast no válido  ( Migrate to delphi 2009 invalid typecast error ) 
Estoy convirtiendo el proyecto GRAPHICIX a Delphi 2009. Tengo problemas en la conversión del siguiente procedimiento en la unidad scanf_c.pas . Aquí está e...

6  La utilidad de actualización automática de mi aplicación está activando antivirus  ( My applications auto update utility is triggering anti virus ) 
He creado una aplicación de actualización automática que se distribuye a 100s de los usuarios. La utilidad de actualización automática está siendo marcada p...

4  Mostrando la forma MDI como modal  ( Showing mdi form as modal ) 
Esto sonará contra la naturaleza de MDI .. Necesito mostrar un formulario MDI (Formstyle = FSMDichild) como modal a veces. Y también necesito acceder a la pie...

1  Delphi 5: ¡Ideas para simular métodos "obsoletos" o "desaprobados"?  ( Delphi 5 ideas for simulating obsolete or deprecated methods ) 
Quiero marcar un método como obsoleto, pero Delphi 5 no tiene tal característica. Por el bien de un ejemplo, aquí hay un método de maquillaje con su forma d...

31  ¿Puede una DLL de Windows recuperar su propio nombre de archivo?  ( Can a windows dll retrieve its own filename ) 
Un archivo EXE de Windows tiene acceso a la cadena de comandos que lo invocó, incluyendo su camino y nombre de archivo. p.ej. C:MyAppMyApp.exe --help . Per...

3  Control de giro en Delphi [CERRADO]  ( Spin control in delphi ) 
cerrado. Esta pregunta no cumple con pautas de desbordamiento de pila . Actualmente no está aceptando respuestas. ...

2  Necesidad de abrir y escribir una tabla DBASE4. ¿Qué ruta Delphi por favor?  ( Need to open and write a dbase4 table which delphi route please ) 
Tengo la necesidad de abrir y agregar una tabla DBASE4 con Delphi (7 y 2009/10). Actualmente se hace utilizando el código enrollado en casa. Supongo que esta ...




© 2022 respuesta.top Reservados todos los derechos. Centro de preguntas y respuestas reservados todos los derechos