Fórum Duvida de principiante #386099

10/09/2010

0

Delphi

  Ola Amigos sou novo aqui     Tenho um Form   2 edits   1 DriveComboBox   1 DriveListBox   1 Button     Em meu  Desktop tenho uma pasta chamada mp3 e dentro dela pastas de muitos cantores.   Qro digitar a letra inicial do nome dos cantores nos edits, Exemplo  de  "A"(edit1) ate "D"(edit2) e quando eu clicar no button , aparecer no FileListBox  somente as pastas deste intervalo.    Alguem pode me ajudar.           vlw
Francisco Almeida

Francisco Almeida

Responder

Posts

13/09/2010

Leonardo Xavier

Você esta utilizando qual versão do Delphi?
Responder

Gostei + 0

13/09/2010

Francisco Almeida

Amigo obrigado por me reposder
estou usando o delphi 7
Responder

Gostei + 0

16/09/2010

Pietro Braga

Francisco, você veio do futuro? Olhe a data da postagem!!!
Responder

Gostei + 0

16/09/2010

Francisco Almeida

  Amigos Desculpem o erro de data
prometo da proxima vez reexaminar o texto antes de mandar
vlw o alerta Pietro.
   Mas continuo ainda com a duvida
            vlw amigos
Responder

Gostei + 0

16/09/2010

Wilson Junior

Teste este código

procedure TForm1.Button1Click(Sender: TObject);
var
  x: integer;
  Letra: string;
  De, Ate: Byte;
begin
  FileListBox1.Directory := DriveComboBox1.Drive + ':\';

  Letra := UpperCase( edDe.Text );
  De := Ord( Letra[1] );
  Letra := UpperCase( edAte.Text );
  Ate := Ord( Letra[1] );

  ShowMessage( 'Antes'#13#13 + FileListBox1.Items.Text );
  x := 0;
  while x < (FileListBox1.Items.Count - 1) do
  begin
    Letra := UpperCase( FileListBox1.Items[x] );
    if  ( Ord(Letra[2]) >= De ) and ( Ord(Letra[2]) <= Ate ) then
        Inc( x )
    else
        FileListBox1.Items.Delete( x )
    ;
  end;
  ShowMessage( 'Depois'#13#13 + FileListBox1.Items.Text );
end;


Espero ter colaborado.
Responder

Gostei + 0

16/09/2010

Francisco Almeida

Amigão vlw a força o codigo ta funconando so q como disse no post eu quero apenas o intervado das pastas q aparecem no FileListBox, não as que estao antes nem depois agradeço a força, to aqui modificando o codigo exercitando meu ainda pequeno conhecimento em delphi para ver se chego onde qro  vlw  
Responder

Gostei + 0

16/09/2010

Pietro Braga

Francisco, desculpa ae. Foi só uma brincadeira, esse erro não foi culpa sua. É automático.
Responder

Gostei + 0

16/09/2010

Francisco Almeida

flw amigão
Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar