Subversion Repositories spacemission

Rev

Rev 15 | Rev 26 | Go to most recent revision | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 15 Rev 24
Line 79... Line 79...
79 
  res := FindFirst(fdirectory+'Spielstände\*.sav', 0, sr);
 79 
  res := FindFirst(fdirectory+'Spielstände\*.sav', 0, sr);
80 
  try
 80 
  try
81 
    while (res = 0) do
 81 
    while (res = 0) do
82 
    begin
 82 
    begin
83 
      if (sr.name <> '.') and (sr.name <> '..') then
 83 
      if (sr.name <> '.') and (sr.name <> '..') then
84 
        LevelListBox.items.Add(copy(sr.Name, 0, length(sr.name)-4));
 84 
        LevelListBox.items.Add(ChangeFileExt(sr.Name, ''));
85 
      res := FindNext(sr);
 85 
      res := FindNext(sr);
86 
    end;
 86 
    end;
87 
  finally
 87 
  finally
88 
    FindClose(sr);
 88 
    FindClose(sr);
89 
  end;
 89 
  end;