Duvida de principiante

Delphi

10/09/2010

  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

Curtidas 0

Respostas

Leonardo Xavier

Leonardo Xavier

10/09/2010

Você esta utilizando qual versão do Delphi?
GOSTEI 0
Francisco Almeida

Francisco Almeida

10/09/2010

Amigo obrigado por me reposder
estou usando o delphi 7
GOSTEI 0
Pietro Braga

Pietro Braga

10/09/2010

Francisco, você veio do futuro? Olhe a data da postagem!!!
GOSTEI 0
Francisco Almeida

Francisco Almeida

10/09/2010

  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
GOSTEI 0
Wilson Junior

Wilson Junior

10/09/2010

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.
GOSTEI 0
Francisco Almeida

Francisco Almeida

10/09/2010

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  
GOSTEI 0
Pietro Braga

Pietro Braga

10/09/2010

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

Francisco Almeida

10/09/2010

flw amigão
GOSTEI 0
POSTAR