[Tutorial]Manipulação de String

[KaiqueHunter]

Acredito que é por que, se quiser inverter várias url, poderá por todas de uma vez no memo.
Bem, ao menos essa deve ser a finalidade do código dele, que, no momento, não esta fazendo isso

Se for isso é mais recomendado que ele inverta linha por linha,usando um For e percorrendo linha por linha,exemplo Memo1.Lines[I].

[kalangosk8er]

Hmm, obrigado pelas repostas.

Irei daqui a pouco dar uma olhada no progama depois posto o resultado


Ah, é isso mesmo, estou usando memo para poder converter mais de 1 link ao memso tempo.

[kalangosk8er]

CoderSc

Tenta assim então:

                                                         procedure TForm1.Button2Click(Sender: TObject);
var
TextoOriginal, TextoReverso : string;
I : integer;
begin
if length(Memo1.Text) <> 0 then begin
TextoOriginal := Memo1.Text;
for I := 0 to Length(TextoOriginal) -1 do
TextoReverso := TextoReverso + TextoOriginal[length(TextoOriginal) -I];
end else begin
ShowMessage('Campo do Memo1 está vazio.');
exit;
end;
Memo2.Text := TextoReverso;
end;

Assim não funcionou. Estava dando erro no else, mas ai resolvi por a menssagem 1º se não funcionar seguir o codigo ai funcionou.

  Var
    I: Integer;
    Manipular: String;
    Revertida: String;
    begin

      if Memo1.Text = '' then
        ShowMessage('vazio')
            else
              begin
              Manipular:= Memo1.Text;
                  For I:= 0 To Length(Manipular) Do

    Begin
      Revertida:= Revertida + Manipular[Length(Manipular) - I]
           end;
             end;
                Memo2.Text:= Revertida
                  end;

Obrigado Pela ajuda de todos, conforme for modificando o programa vou postando aqui

[CoderSc]

Assim não funcionou. Estava dando erro no else, mas ai resolvi por a menssagem 1º se não funcionar seguir o codigo ai funcionou.
Obrigado Pela ajuda de todos, conforme for modificando o programa vou postando aqui

Aqui esse código que postei funcionou perfeitamente e não apareceu nem erro, qualquer coisa poste ai suas dúvidas para que possamos o ajuda-ló
e por preferência crie um tópico com sua dúvida, assim deixa o fórum um pouco mais organizado e todos possam ver qual o objetivo do tópico.

t+