procedure TForm1.bbt1Click(Sender: TObject);
var
vS: TStrings;
vI: Integer;
begin
vs := TStringList.Create;
vS.Add('A');
vS.Add('B');
vS.Add('C');
vS.Add('D');
vS.Add('E');
vS.Add('F');
for vI := 0 to vS.Count - 1 do
begin
ShowMessage(IntToStr(vS.IndexOf(vS.Strings[vI])) + ' - ' +
vS.Strings[vI]);
end;
end;
De: delphi-br@yahoogrupos.com.br [mailto:delphi...@yahoogrupos.com.br] Em
nome de deco0_07
Enviada em: segunda-feira, 15 de dezembro de 2008 10:01
Para: delphi-br@yahoogrupos.com.br
Assunto: [delphi-br] Dúvida com TStringList
Tem como eu descobrir o indice de um determinada linha do StringList?
ex...
tenho um edit com as linha que nao quero copiar
usar um for pra percorrer todas as linhas e num if verificar se a linha
que esta no stringlist é igual a que esta no edit
o problema é que nao consigo pegar o indice dessa linha...
ja usei indexof, mas se tenho linhas com valores repetidos ele ignora
tbm...
vlww's
__________ Informação do NOD32 IMON 3684 (20081211) __________
Esta mensagem foi verificada pelo NOD32 sistema antivírus
http://www.eset.com.br
[As partes desta mensagem que não continham texto foram removidas]
