Codificar un string en Delphi.

[[maeyanes]]

Hola...

Prueba con esto:

Código Delphi [-]
program ASD;

uses
  sysutils, dialogs;

Var
  Texto: string;
  Car: string;
  Car1: string;
  Car2: string;
  Palabra: string;
  Mensaje: string; 
  I: Integer;

begin
  Mensaje := InputBox('Ingresar mensaje', 'Ingrese un mensaje', '');
  Texto := '';
  // Recorremos todo el mensaje
  For := 1 to Length(Mensaje) do
  begin
    // Obtenemos el siguiente caracter
    Car := Copy(Mensaje, I, 1);
    // Si no es un espacio en blanco, lo concatenamos con Texto
    if Texto <> ' ' then
      Texto := Texto + Car
    else
      // Si la longitud de la palabra es par, hacemos el intercambio
      if Length(Texto) mod 2 = 0 then
      begin
        Car1 := Copy(Texto, 1, 1);
        Palabra := Copy(Texto, 2, Length(Texto) - 1);
        Car2 := Copy(Texto, Length(Texto), 1);
        Palabra := Car2 + Palabra + Car1;
        ShowMessage(Palabra);
        Texto := ''
      end
  end
end.

[napsterk89]

Empezado por maeyanes

Hola...

Prueba con esto:

Código Delphi [-]
program ASD;

uses
  sysutils, dialogs;

Var
  Texto: string;
  Car: string;
  Car1: string;
  Car2: string;
  Palabra: string;
  Mensaje: string; 
  I: Integer;

begin
  Mensaje := InputBox('Ingresar mensaje', 'Ingrese un mensaje', '');
  Texto := '';
  // Recorremos todo el mensaje
  For := 1 to Length(Mensaje) do
  begin
    // Obtenemos el siguiente caracter
    Car := Copy(Mensaje, I, 1);
    // Si no es un espacio en blanco, lo concatenamos con Texto
    if Texto <> ' ' then
      Texto := Texto + Car
    else
      // Si la longitud de la palabra es par, hacemos el intercambio
      if Length(Texto) mod 2 = 0 then
      begin
        Car1 := Copy(Texto, 1, 1);
        Palabra := Copy(Texto, 2, Length(Texto) - 1);
        Car2 := Copy(Texto, Length(Texto), 1);
        Palabra := Car2 + Palabra + Car1;
        ShowMessage(Palabra);
        Texto := ''
      end
  end
end.

Probé pero ingreso el texto y queda en un loop o algo así porque no da ningún resultado. Gracias igualmente, mientras sigo intentando xD

"Palabra := Copy(Texto, 2, Length(Texto) - 1);" eso es una buena idea en lugar de usar el Delete, no se me había ocurrido!

[[maeyanes]]

Hola...

El código anterior lo escribí al vuelo y basándome en el código que tenías, así que tiene algunos errores...

La línea Palabra := Copy(Texto, 2, Length(Texto) - 1) en realidad debería decir: Palabra := Copy(Texto, 2, Length(Texto) - 2), para que obtenga la subcadena sin el primer y último caracter.

Ahora, esta es una versión ya comprobada:

Código Delphi [-]
var
  C: string;
  C1: string;
  C2: string;
  Texto: string;
  Palabra: string;
  Mensaje: string;
  I: Integer;

begin
  Texto := InputBox('Ingresar mensaje', 'Ingrese un mensaje', '');
  Palabra := '';
  for I := 1 to Length(Texto) do
  begin
    C := Copy(Texto, I, 1);
    // Vamos formando la palabra a analizar
    if C <> ' ' then
      Palabra := Palabra + C;
    // Si es un espacio en blanco o ya llegamos al final del texto
    if ((C = ' ') or (I = Length(Texto))) then
    begin
      // Si la longitud es par, hacemos el intercambio
      if Length(Palabra) mod 2 = 0 then
      begin
        // Obtenemos el primer caracter
        C1 := Copy(Palabra, 1, 1);
        // Obtenemos el último caracter
        C2 := Copy(Palabra, Length(Palabra), 1);
        // Obtenemos la subcadena sin el primer y último caracter
        Palabra := Copy(Palabra, 2, Length(Palabra) - 2);
        // Concatenamos la cadena con el primer y último caracteres invertidos
        Palabra := C2 + Palabra + C1
      end;
      // Armamos el mensaje a mostrar
      Mensaje := Mensaje + ' ' + Palabra;
      Palabra := ''
    end
  end;
  // Mostramos el mensaje ya procesado (Trim elimina los espacios en blanco al inicio y final de la cadena)
  ShowMessage(Trim(Mensaje))

Saludos...

[napsterk89]

Funciona perfecto! Muchas gracias, más tardo lo miro más detenidamente así capto bien la idea, me hubiese gustado deducirlo solo pero necesito aprender eso porque seguro me lo toman en un examen dentro de pocos días. Muchas gracias por la ayuda!

[funkybahiense]

Hola napster! cual de todos mis compañeros sos? en el recu nos tomaron otro mas facil!

[Casimiro Noteví]

Empezado por funkybahiense

!

Bienvenido a clubdelphi, ¿ya leiste nuestra guía de estilo?, gracias por tu colaboración