Dúvida com copia de String

Delphi

06/11/2007

Olá Galera do Fórum,

Tentei fazer aqui mais não consegui ...

exemplo o Edit recebe:

brasil frutas legumes

quero descartar o brasil do edit copiar o frutas em uma string e legumes em outra

sendo que frutas e legumes vão mudar sempre!

Alguém pode ajudar?


Delphitotal

Delphitotal

Curtidas 0

Respostas

Joaoshi

Joaoshi

06/11/2007

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.


GOSTEI 0
Delphitotal

Delphitotal

06/11/2007

joaoshi Obrigado!
to removendo o brasil que vai ser sempre fixo com o stringreplace ai sobre o

frutas legumes

queria 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.


GOSTEI 0
Joaoshi

Joaoshi

06/11/2007

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.


GOSTEI 0
Xadriano

Xadriano

06/11/2007

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.


olá joaoshi

estava 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


GOSTEI 0
Marcelo.mileris

Marcelo.mileris

06/11/2007

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]);



GOSTEI 0
POSTAR