Inverter posi��o de caracteres em string

Question

Amigos, estou com uma string onde guardo uma determinada data como segue abaixo:�15/10/1984�Gostaria de uma rotina em que eu entrasse com essa string e que ela me desse o resultado assim:�19841015�O m...

Rjun · Answer

Na function abaixo n�o esta sendo feito tratamento para as �/�.

function InverteString(Texto: string): string
var
  i: integer;
begin
 result := ��;
  for i := Length(Texto) Downto 1 do
    result := result + Texto[i];
end;

Massuda · Answer

Se estiver usando um BD, a n�o ser que seja formato DBF, acho que deve existir algum tipo de campo que sirva para armazenar datas sem precisar se preocupar com este tipo de detalhe.

Deixando isso de lado, assumindo que sua data esteja sempre no formato DD/MM/AAAA, voc� pode fazer algo assim...

var
  S1: string;
  S2: string;
...
  S1 := �25/08/2005�;  
  S2 := Copy(S1, 7, 4) + Copy(S1, 4, 2) + Copy(S1, 1, 2);
  // S2 = �20050825�
...

Wilson Brito · Answer

[code:1:b6343bf421]var  Data1: TDate;  Data2: String;begin  Data1 := StrToDate(�15/10/1984�);  //yyyy = ano | mm = m�s | dd = dia  Data2 := FormatDateTime(�yyyymmdd�,Data1);end;[/code:1:b6343bf421]...

Alansvieceli · Answer

Cara, q viajem..uma vez em uma entrevista de emprego o cara mando eu fazer exatamente essa fun��o..pensei q nunca mais ia ver isso...hehehehe..muito bom...Abra�o a todos......

Alanhfs · Answer

Massuda, eu estou usando Access , e nele tem sim um campo para datas, s� que estou implementando um form de pesuisa bem gen�rico, que apresenta problemas em campos do tipo data, por isso estou optando por fazer desta maneira.
N�o testei o que me passou, mas pelo que deu pra entender era isso mesmo que eu estava precisando.

Valeu1

F�rum Inverter posi��o de caracteres em string #293040