Retirar espaços entre 2 string

08/12/2015

3

Ola galera tudo bem ? bom sou novo aqui estou tendo dificuldade de retira espaços entre 2 string na primeira linha de um memo.

Memo1
ARQUEIRO777     rianieeu2                                                                                                                                                                                                                       @@                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                    ÿÿÿÿ        GodZillA        @  @ žu bzk00%)* RkF 7 — a	 •Sÿ0È%ÒX Ušš— a	 •SÿDÈ + Š5<+	ç+ê5<
è+ê5<
é+í<
5
ê+ê<
­<  +	        R+	    1+	<<        •+	                            "      l
=Z                                    x                            û=    “jnm                û=x    û=x                                                                                    ûÈ=u  ûÈ=l                                                                                                                                                                                                                                                                                                  #–   M ÿ?    o 9 p



                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                        !
È    3
È    ,È=  Ý+5<à+<                Ô+5<Ú+5<?	à.

 ×+5<V+<  V+<          òÈ=                                                                                                                                                          š=                            i
=c    k
=b                                                                                                                                                                                                                                                                                                                                    Æ      ,È    Ë+G;                 Æ      È+ I; è+ 5*                Æ      œ=    Š	      Å+G(        Æ      â+ GË+ G(<Æ+ G<        n  5R+ <5}+ 5Æ+ G(                £=    Ê+ *                 W<+  Ê+G<                2+ 
¤=    M+ G<}+           |+                                                                    €¨ÿÿÿÿÿÿÿÿÿÿ ÿ  ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ



Bom eu queria separa em memo2 tipo assim
ARQUEIRO777:rianieeu2


Lembrando cada arquivo tem um numero de espaço diferentes entre eles.

obrigado
Responder

Posts

tente a stringreplace

StringReplace(str, ' ', '', [rfReplaceAll]);
Responder

11/12/2015

Andre

Amigo fiz assim

edit1.Text:=StringReplace((form1.Memo1.Lines[0]), ' ', '', [rfReplaceAll]);


mais gostaria saber teria como por um ':' em vez do espaço
Responder
Fiz essa função aqui pra testar, veja se vai te atender.

procedure TForm1.FormCreate(Sender: TObject);
var
  str : string;
  aux : string;
begin
  str := 'aaaaa    bbbbbb';

  aux := Copy(str, 1, Pos(' ', str));
  Str := StringReplace(str, aux, '', [rfReplaceAll]);
  aux := Trim( aux  ) + ':' + Trim(str);

  ShowMessage(aux);
end;
Responder

11/12/2015

Andre

Obrigado vou testa aqui
Responder

11/12/2015

Andre

Nossa amigo vc é 10 me ajudou muito. obrigado mesmo gostaria de aprende delphi com essa qualidade poderia me indicar algo ?
Responder
Pow a melhor maneira de aprender é a prática mesmo. É assim que venho aprendendo. Caso não trabalhe com Delphi você pode montar algum projeto seu pessoal como forma de estudo ou mesmo pegar uma aplicação existente como base e tentar desenvolver outra igual do zero.
Vai tirando dúvidas em fóruns e assim vai desenvolvendo.
Nunca estudei Delphi mas trabalho com ele a 5 anos.
Com as experiências e trocas de ideias do dia a dia a gente vai aprendendo.
Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira