Problem mit Combobox

[uwewo]

Hi Superwinger,

hier mal ein kleiner Codeschnipsel um die ComboBox zu füllen

Delphi-Quellcode:

begin
ComboBox.Items.Clear;//Alle Einträge entfernen
 { alle Dateien mit Endung SAV suchen }
  if FindFirst(dir+'\DATA\save\'+'*.sav', $23, Search)= 0 then 
    repeat
      ComboBox.Items.Add(Search.Name);
    until FindNext(Search) <> 0;
end;

Uwe