Retirar espaços entre 2 string
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
Bom eu queria separa em memo2 tipo assim
ARQUEIRO777:rianieeu2
Lembrando cada arquivo tem um numero de espaço diferentes entre eles.
obrigado
Memo1
ARQUEIRO777 rianieeu2 @@ ÿÿÿÿ GodZillA @ @ žu bzk 00%)* RkF 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
Andre
Curtidas 0
Respostas
Gabriel Baltazar
08/12/2015
tente a stringreplace
StringReplace(str, ' ', '', [rfReplaceAll]);
GOSTEI 0
Andre
08/12/2015
Amigo fiz assim
edit1.Text:=StringReplace((form1.Memo1.Lines[0]), ' ', '', [rfReplaceAll]);
mais gostaria saber teria como por um ':' em vez do espaço
edit1.Text:=StringReplace((form1.Memo1.Lines[0]), ' ', '', [rfReplaceAll]);
mais gostaria saber teria como por um ':' em vez do espaço
GOSTEI 0
Gabriel Baltazar
08/12/2015
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;GOSTEI 0
Andre
08/12/2015
Obrigado vou testa aqui
GOSTEI 0
Andre
08/12/2015
Nossa amigo vc é 10 me ajudou muito. obrigado mesmo gostaria de aprende delphi com essa qualidade poderia me indicar algo ?
GOSTEI 0
Gabriel Baltazar
08/12/2015
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.
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.
GOSTEI 0