Fórum Linhas do Memo para Combobox apartir de caracter!? #176637

Caro Cyber Dark,

O código só funciona com a primeira linha porque você indicou ao programa que tratasse somente a primeira linha (MemoLogs.Lines.Strings[0]).

Sempre que um objeto possuir mais de uma linha e você quiser tratar todas você deve ter um laço para controlar esse tratamento.

Logo, seu código ficaria assim:

procedure TForm1.Button1Click(Sender: TObject);
var
Counter: Integer;
begin

For Counter := 0 to MemoLogs.Lines.Count - 1 do
Begin
Combobox1.Items.Add(Copy(MemoLogs.Lines.Strings[Counter],pos(´&´,MemoLogs.Lines.Strings[Counter])+1,pos(´l´,MemoLogs.Lines.Strings[Counter])-pos(´&´,MemoLogs.Lines.Strings[Counter])-1));
end;
end;

Pô, mais uma vez estou aqui agradecendo a boa vontade do pessoal, muito obrigado mesmo pois estou ate sem palavras, certas coisas eu ainda nao sei fazer porque sou iniciante e estou aprendendo no ´braço´ por falta de verba pra fazer um curso de aperfeiçoamento, tudo que aprendi ate hoje foi lendo tutoriais e fuçando em exemplos prontos, mais uma vez obrigado!!!

Falows basilio.sp!!!! :D :D :D
Funciou legal!!!!