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; |