Copiar informações da ListView

[QualquerPC 0]

Olá, Por favor!

 

Podem me explicar como eu faço para copiar uma linha

específica da Listview e colocar essa informação num edit?

 

Exemplo:

Caption--------AMD64 family

MaxClockSpeed--3000

 

Minha intenção é inserir esse valor 3000 num edit,

sendo que ele está dentro de um listview.

 

Espero que tenham me entendido.

Eu agradeço a atenção e a ajuda.

Obrigado!!!

[bdexterholland 0]

você pode usar o comando Copy. Sua função é copiar um trecho da string de origem.

Seu uso é o seguinte:

Copy(StringDeOrigem, APartirDeQualCaractere, QuantosCaracteresACopiar);

onde:

String de origem: String completa que contém o trecho que deseja copiar

APartirDeQualCaractere: Número que indica a posição que deverá começar a copiar, ex: se uma frase tem 20 caracteres e eu quiser copiar a partir do 7, então informo 7 neste parâmetro

QuantosCaracteresACopiar: Quantidade de caracteres a copiar a partir do caractere informado no parâmetro anterior

[QualquerPC 0]

você pode usar o comando Copy. Sua função é copiar um trecho da string de origem.

Seu uso é o seguinte:

Copy(StringDeOrigem, APartirDeQualCaractere, QuantosCaracteresACopiar);

onde:

String de origem: String completa que contém o trecho que deseja copiar

APartirDeQualCaractere: Número que indica a posição que deverá começar a copiar, ex: se uma frase tem 20 caracteres e eu quiser copiar a partir do 7, então informo 7 neste parâmetro

QuantosCaracteresACopiar: Quantidade de caracteres a copiar a partir do caractere informado no parâmetro anterior

 

 

 

 

Olá! bdexterholland!

Obrigado pela sua dica, eu só não agradeci antes porque até o momento eu não consegui

fazer o que eu queria através dessa dica, e já procurei outras alternativas pela internet,

mas também não deram certo.

Eu não sei se ficou bem clara, mas a minha intenção é copiar certo dado que está numa célula

(Coluna B, linha 2, por exemplo)da listview e colar esse dado em um edit ou label.

Se esse procedimento que me falou é o que eu preciso fazer, então vou continuar tentando.

Obrigado!

[QualquerPC 0]

Olá!

Eu fiz da seguinte forma:

 

 

procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.text := ListView.Items.Item[1].caption; // para coluna 1
end;

 

--

 

procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.text := ListView.Items.Item[1].SubItems.Strings[0];  // para coluna 2
end;

 

 

Funcionou como eu queria.

Obrigado pela ajuda!

 

Fique com Deus.