Fórum Retirar espaços entre 2 string #539348
08/12/2015
0
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
Curtir tópico
+ 0Posts
08/12/2015
Gabriel Baltazar
StringReplace(str, ' ', '', [rfReplaceAll]);
Gostei + 0
11/12/2015
Andre
edit1.Text:=StringReplace((form1.Memo1.Lines[0]), ' ', '', [rfReplaceAll]);
mais gostaria saber teria como por um ':' em vez do espaço
Gostei + 0
11/12/2015
Gabriel Baltazar
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
11/12/2015
Andre
Gostei + 0
11/12/2015
Andre
Gostei + 0
14/12/2015
Gabriel Baltazar
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
Clique aqui para fazer login e interagir na Comunidade :)