All pastes #17042 Raw Edit

Steve

public text v1 · immutable
#17042 ·published 2005-07-06 14:54 UTC
rendered paste body
procedure TfmMain.FillMaps;
var
  F : TSearchRec;
begin
  FindFirst(Config.PoADir + '/maps/',faAnyFile,F);
  repeat
    if ExtractFileExt(F.Name) = '.bsp' then
      cbMapList.Items.Add(ExtractFileName(F.Name));
  until FindNext(F) <> 0;
  FindClose(F);
end;