| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Сравнение имен файлов

Yo-yo ©   (2006-05-01 12:17:00) 

у меня есть массив mas  Стринговый, в который занесены имена определённых файлов
программа читает названия файлов из определённой папки
Как сделать проверку типо если mas[x] <> имя читаемого файла
тогда добавляем его в Memo

пожалуйста пример кода...

---

antonn   (2006-05-01 14:00:00) [1]

var i:integer; {St:Tstrings и выше}
begin
for i:=0 to St.count-1 do
if St.strngs[i]<>'имя определенного файла' then
 memo.lines.add(St.strngs[i]);
end;

для игноррирования регистра - lowercase().

---

Anatoly Podgoretsky   (2006-05-01 13:16:00) [2]

А ты так и просил, чего же теперь хочешь?

---

alex-drob   (2006-05-01 13:16:00) [3]

А если:
f:=false;
for x := 1 to 3 do
begin
if mas[x] = fs.filename then f:=true;
end;
if not f then memo1.lines.add(fs.filename)

---

EvS   (2006-05-01 13:07:00) [4]

Файлы-то как ищещь?

---

Yo-yo   (2006-05-01 13:00:00) [5]

а вот и нет
смотри допустим
mas[1] := '1.txt';
mas[2] := '2.txt'
mas[3] := '3.txt'
и в папке файлы с такими же именами

for x := 1 to 3 do
begin
if mas[x] <> fs.filename then memo1.lines.add(fs.filename);
end;
так не выходит, добавляются файлы

так я не знаю  имена файлов ищутся в каком порядке
походу не по имени упорядочены...

---

alex-drob   (2006-05-01 12:42:00) [6]

Так и сделать
if mas[x]<>fs.filename then memo1.lines.add(fs.filename)

---

Наверх