Separar Letras de uma string e colar em uma combobox

Delphi

29/05/2017

Boa tarde!
procurando na web achei essa função para pegar as letras dos HDD

function tbDriveLetters: string;
{ Uso: S := tbDriveLetters; - retorna 'ACD' se existir as unidades A:, C: e D: }
var
  Drives: LongWord;
  I: byte;
begin
  Result := '';
  Drives := GetLogicalDrives;
  if Drives <> 0 then
    for I := 65 to 90 do
      if ((Drives shl (31 - (I - 65))) shr 31) = 1 then
      Result := Result + Char(I);
end;

só que preciso de outra função para separar as letra e por no ComboBox para que cada Letra seja um item do Combobox.
Eduardo Silva

Eduardo Silva

Curtidas 0

Respostas

Natanael Ferreira

Natanael Ferreira

29/05/2017

Exemplo:

var
  Letras: string;
  I: Integer;
begin
  Letras := 'ABC';
  for I := Low(Letras) to High(Letras) do
    ComboBox1.Items.Add(Letras[I]);
end;
GOSTEI 0
Emerson Nascimento

Emerson Nascimento

29/05/2017

Não entendi a necessidade... mas existe um componente pronto que faz exatamente isto.
GOSTEI 0
POSTAR