[Tutorial]Manipulação de String

[KaiqueHunter]

Oi pessoal esse é meu primeiro Tutorial então vamos pegar leve caso eu cometa algum erro rsrs.

Enfim,vamos falar de Manipulação de String:

P:Mas oque seria isso ?

R:Manipular String,seria basicamente poder editar a nosso favor uma String.

P:Mas oque seria uma String ?

R:String,é basicamente uma Lista de Caracteres,ou seja ela pode conter palavras,textos,até numeros desde que eles sejam convertido pro formato de String.

Primeira coisa é entender que uma String comun tem um tamanho maximo de 255 caracteres,é logico,isso se não usar algum metodo de mudanças que veremos mas para frente,então a pergunta é,e se eu quizer criar uma String que pode conter no maximo 10 caracteres ?
Simples,basta pensar,se String é uma lista de caracteres então basta colocar deste modo:

Var
ManipulacaoDeString: String[10];

Essa "ManipulacaoDeString",é uma String de no maximo 10 caracteres,ai vem outra pergunta,e se eu quizer pegar o 5º caractere dessa String ?

Simples,como String é um Array de caracteres,podemos fazer deste geito:

ManipulacaoDeString:= 'Tutorial'
ShowMessage(ManipulacaoDeString[5])

Neste caso o resultado seria a letra R,como podem ver não é tão dificel,com esta mesma logica podemos até mesmo inverter uma String usando um For exemplo:

Var
I: Integer;
ManipulacaoDeString: String;
StringRevertida: String;
Begin
ManipulacaoDeString:= 'lairotuT'; //Como podem ver a String já está invertida e iremos reinverter
 For I:= 0 To Length(ManipulacaoDeString) Do//O For repite do 0 até o 8,que é o tamanho da String.
  Begin
   StringRevertida:= StringRevertida + ManipulacaoDeString[Length(ManipulacaoDeString) - I];
  End;
ShowMessage(StringRevertida);
End;

Como podem ver,com um pouco de logico facilmente consegui reverter a String,mas vcs que são Novatos e estão intereçados devem estar se perguntando pra que serve alguns comandos né ? Então vou explicar alguns comandos usados na manipulação de String em geral:

Comandos:

Length - Esse comando consegue pegar o tamanho de String em numero,ou seja no caso se eu tiver uma String com o valor "Tutorial",ele resultara em 8.

Exemplo de Uso:

Var
I: Integer;
S: String;
Begin
S:= 'Aprendendo a programar xD';
I:= Length(S); 
ShowMessage(IntToStr(I)); //O IntToStr é usado para converter nosso valor de Inteiro para String,nesse caso o valor retornado é 25.
End;

Pos - Esse comando é usado para pegar a posição em numero de uma SubString dentro de nossa String,usando-o eu poderia pegar a posição de "O" numa String "Comando",neste caso retornaria 2.

Exemplo de Uso:

Var
I: Integer;
S: String;
Begin
S:= 'Aprendendo a Programar xD';
I:= Pos('n',S); //Neste caso a função retornaria 5,pois é em que posição em numero a SubString "n" está.
ShowMessage(IntToStr(I)); //Função usada para poder visualizar o resultado,em forma de dialogo.
End;

Copy - Esse comando é usado para copiar partes de uma String podendo ser passado para outra String,ou copiar para a mesma String.

Exemplo de Uso:

Var
String1: String;
StringQueCopia: String;
Begin
String1:= 'Valor vai ser copiado';
StringQueCopia:= Copy(String1,14,7); //Como podem ver ele vai começar copiar do caractere 14 e vai copiar 7 em diante,ou seja do 14 até o 21,retornado "Copiado".
End;

Ai pessoal por enquanto são só esses mas se quizer se aprofundar mais no assunto tem muito mais ainda como :

Insert.
Delete.
LowerCase.
UpperCase.
StringReplace.
Entre outas...

Até a proxima

[kalangosk8er]

Bem legal, parabens.

[R0Dr1g0.]

Algo que não foi abordado é o null terminator.
Numa string de tamanho 255 podem ter sido usados apenas 99,então no fim tem o null terminator para indicar que é o fim da string atual,para que não seja colocado lixo (por causa do espaço restante) na string

[acpguedes]

Ate eu que não sou Delpheiro entendi!

Logo seu tutorial está simples e claro, o que são otimas qualidades em um tutorial!

Parabens, garoto!

[eduardu0]

Como o acp falou, claro e simples!

Parabéns cara, precisamos de gente assim contribuindo para o fórum!

[kalangosk8er]

Eu aproveitando este post, comecei a fazer um inversor de links.
Adicionei 2 memos mas estou com dificuldades em saber se o memo esta vazio.

Estou fazendo mais ou menos assim:

if memo1.text:= '' then

Mas não funciona, alguem sabe como fazer isso ?

Obrigado!

[R0Dr1g0.]

Eu aproveitando este post, comecei a fazer um inversor de links.
Adicionei 2 memos mas estou com dificuldades em saber se o memo esta vazio.

Estou fazendo mais ou menos assim:

if memo1.text:= '' then

Mas não funciona, alguem sabe como fazer isso ?

Obrigado!

Memo.Lines.Count deve resolver.

[CoderSc]

Eu aproveitando este post, comecei a fazer um inversor de links.
Adicionei 2 memos mas estou com dificuldades em saber se o memo esta vazio.

Estou fazendo mais ou menos assim:

if memo1.text:= '' then

Mas não funciona, alguem sabe como fazer isso ?

Obrigado!

Tenta assim:

if Length(Memo1.Text) = 0 then
ShowMessage('Memo vazio') else ShowMessage('Memo contem texto');

[kalangosk8er]

Não deu, ele continua o codigo.


Oque eu quero fazer é bem simples, quero verificar se estavazio se não estiver continuar o codigo se tiver exibir a menssagem de campo vazio.

[kalangosk8er]

Olha o codigo:

  Var
    I: Integer;
    Manipular: String;
    Revertida: String;
  Begin
    if Memo1.Lines.Count = 0 then
      ShowMessage('Campo De links Vazio')
      else
  Manipular:= Memo1.Text;
    For I:= 0 To Length(Manipular) Do
  Begin
    Revertida:= Revertida + Manipular[Length(Manipular) - I]
  End;
    Memo2.Text:= Revertida;
  End;