| 253 |
|
|
| 254 |
|
begin |
| 255 |
|
list := TStringList.Create; |
| 256 |
+ |
list.CaseSensitive := True; |
| 257 |
|
list.Sorted := True; |
| 258 |
|
for i := 0 to GetFileCount - 1 do |
| 259 |
|
begin |
| 271 |
|
ST_IDAsc, ST_IDDesc: list.Add(id + ';' + name + ';' + extension); |
| 272 |
|
ST_NameAsc, ST_NameDesc: list.Add(name + ';' + id + ';' + extension); |
| 273 |
|
ST_ExtAsc, ST_ExtDesc: list.Add(extension + ';' + id + ';' + name); |
| 274 |
< |
ST_ExtNameAsc, ST_ExtNameDesc: list.Add(name + ';' + extension + ';' + id); |
| 274 |
> |
ST_ExtNameAsc, ST_ExtNameDesc: list.Add(extension + ';' + name + ';' + id); |
| 275 |
|
end; |
| 276 |
|
end; |
| 277 |
|
end; |