Mensajes codificados
 

Estoy tratando de hacer un programa que codifique mensajes, es decir, que al introducir en él un texto, éste se cambie a un código numérico y viceversa.
Necesito trabajar con un memo, o con otro componente que trabaje con texto.

El problema que tengo es el siguiente:
Necesito que el programa cuente seis caracteres (por poner un ejemplo) desde el comienzo del texto, y que justo ese caracter lo cambie por otro, digamos "x", pero los demás los deje como estaban.

Ejemplo:

Hola soy Samu.
123456..........

El programa haría
Hola sxy Samu.

También me valdría que no lo cambiara, sino que únicamente me dijera "ahí hay una O"
He tratado de usar la función "pos" y la función "length", pero sigo dando palos de ciego.
¿Me podéis ayudar y explicar cómo se hace?:o

Recuerda que las cadenas de texto se pueden tratar como arrays de caracteres, es decir, si queremos obtener el cararcter numero 6:

Código Delphi [-]
var
  str: String;
  C: Char;
begin
  str:= 'Hola soy seoane';
  C:= str[6];
  // Si lo quieres cambiar
  str[6]:= 'x';
end;

Este es el metodo mas rapido de obtener el caracter numero 6, pero no el mas seguro, puede ser que la cadena solo tenga 3 caracteres lo que provocaria un error. Entonces podemos usar este otro metodo mas seguro, pero mas lento:

Código Delphi [-]
var
  Str: string;
  C: string; // Ojo un string y no un char
begin
  Str:= 'Hola soy seoane';
  C:= copy(Str,6,1); // Si el caracter 6 no existe devolvera una cadena vacia
end;

Ok
 

Thank you very much!!!!!! :D :D

Todo lo que se aprende aki :]