Перевод с паскаля

[SilverFish]

Подскажите, пожалуйста, как этот код будет выглядеть на С++?

Код

//FireMonkey
//Cбор имени каталогов и файлов на диске С
 var SDA:TStringDynArray;
 i:integer;
begin
 SDA:=TDirectory.GetFileSystemEntries('C:\','*.*');
 for i:=0 to High(SDA) do ListBox1.Items.Ass(SDA[i]);
end;
 

Код

//назначение серого цвета с помощью компонента TBWTrackBar
procedure TForm1.BWTrackBar1Change(Sender:TObject);
var GRAY:byte;
begin
 GRAY:=Round($FF*BWTrackBar1.Value);
 Rectangle1.Fill.Color:=GRAY + GRAY SHL 8 +  GRAY SHL 16 + $FF SHL 24;  
end;
 

Спасибо.

[S0mbre]

Как-то так

Код

TStringDynArray SDA = TDirectory::GetFileSystemEntries("C:\\", "*.*);
for(int i=SDA.Low; iItems->Add(SDA[i]);

+

Код

void __fastcall TForm1::BWTrackBar1Change(TObject* Sender)
{
   unsigned char GRAY = Round(0xFF * BWTrackBar1->Value);
   Rectangle1->Fill->Color = GRAY + GRAY  8 + GRAY  16 + 0xFF  24;
}