D�vida com copia de String

Question

Ol� Galera do F�rum,Tentei fazer aqui mais n�o consegui ...exemplo o Edit recebe:brasil frutas legumesquero descartar o brasil do edit copiar o frutas em uma string e legumes em outrasendo que frutas ...

Joaoshi · Answer

Colega,edit1.text := �brasil frutas legumes�;No onClick edit2.text := [b:4146c2fc89]Copy[/b:4146c2fc89](edit1.text,8,length(edit1.text) - 8);Vai ser descartado a palavra �brasil�.O exemplo e simplorio, mas pode ser uma caminho.Espero ter ajudado....

Delphitotal · Answer

joaoshi Obrigado!to removendo o brasil que vai ser sempre fixo com o stringreplace ai sobre o frutas legumesqueria copiar cada um deles eh colocar em uma string, tpo:str1 := primeiracopia;str2 := segundacopia;sendo que primeiracopia e segundacopia seria o metodo pra copiar as 2 palavras...mais essas palavras v�o mudar ent�o a l�gica seria copiar a primeira depois copiar a segunda depois do espa�o !mais n�o sei como proceder....

Joaoshi · Answer

Colega,Crie um projetinho novo cole um botao, um listbox, um edit.No edit digite->  brasil frutas legumes NO evento onClick do button: ExtractStrings([� �],[� �],Pchar(Edit1.Text),ListBox1.Items);Dai voc� pode ter uma ideia para continuar.Espero ter ajudado....

Xadriano · Answer

[quote:0f8854f3c2=�joaoshi�]Colega,edit1.text := �brasil frutas legumes�;No onClick edit2.text := [b:0f8854f3c2]Copy[/b:0f8854f3c2](edit1.text,8,length(edit1.text) - 8);Vai ser descartado a palavra �brasil�.O exemplo e simplorio, mas pode ser uma caminho.Espero ter ajudado.[/quote:0f8854f3c2]ol� joaoshiestava dando uma olhada nesse t�pico e me interessei:consegui colocar futas e legumes num edit, mas como fa�o para colocar apenas a apalavra  �frutas�) ?apos isso, tem como  colocar �frutas� na area de tranferencia?desde ja agrade�o,Adriano...

Marcelo.mileris · Answer

Ol�, criei algo r�pido aqui s� para vc ter uma id�ia ok?

Criei uma procedure e uma fun��o

// Fun��o que retorna os espa�os da stsring
function TForm1.CountEspacos(Txt : String) : Integer;
var
  I : Integer;
begin
  I := 0;
  Txt := Trim(Txt);
  while Pos(� �,Txt) > 0 do
  begin
    I := I + 1;
    Delete(Txt,1,Pos(� �,Txt));
  end;
  Result := I;
end;

//procedure que retorna um StringList
procedure TForm1.Explode(Txt : String; var Retorno : TStringList);
var
  I, Count : Integer;
begin
  Count := CountEspacos(Txt);
  for I := 0 to Count do
  begin
    if Pos(� �,Txt) > 0 then
      Retorno.Add(Copy(Txt,1,Pos(� �,Txt)))
    else
      Retorno.Add(Trim(Txt));
    Delete(Txt,1,Pos(� �,Txt));
  end;
end;

Para utilizar:

var
  Retorno : TStringList;
begin
  Retorno := TStringList.Create;
  Explode(edit1.Text, Retorno);
  ShowMessage(Retorno.Text);
end;

Ai vc poder� manipular o StringList como quiser, lembrando que o �ndice do StringList come�a do 0(zero)

Assim:

ShowMessage(Retorno[1]);

F�rum D�vida com copia de String #348559