Ver Mensaje Individual
  #2  
Antiguo 06-01-2007
Avatar de Onti
Onti Onti is offline
Miembro
 
Registrado: jul 2003
Ubicación: La Paz - Bolivia
Posts: 500
Reputación: 23
Onti Va por buen camino
Bueno vamos por partes, veamos el caso de invertir una palabra, para ello utilizaremos los siguientes ingredientes:
1 variable para almacenar la palabra
1 variable para almacenar el resultado
1 instruccion "for" para recorrer cada letra de la palabra
1 " length para obtener el nro de letra de la palabra


Preparacion
tome la variable resultado inicializandola, luege obtenga con la instruccion length el nro de letras de la palabra, aplique un recorrido inverso de la palabra utilizando vigorosamente la instruccion "for" almacenando el resultado en la variable resultado, espere paciantemente 0.0000005 segundo y estra lista su variable con el resultado

aqui va el codigo

Código Delphi [-]
 Var 
    CadOrigen, CadFinal :String;
    La                        :Integer; 
 Begin
   // Inicializar
     CadOrigen :='casa';
     CadFinal   :='';

  // Recorrido
    For length(CadFinal) dowto 1 do
      CadFinal :=CadFinal+CadOrigen[La];
 End;

Nota : puede haber algun error lo hice de memoria aqui no tengo delphi
Responder Con Cita