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

← →
Yo-yo (2006-05-01 12:17) [0]

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

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

← →
alex-drob © (2006-05-01 12:42) [1]

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

← →
Yo-yo (2006-05-01 13:00) [2]

а вот и нет
смотри допустим
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;
так не выходит, добавляются файлы

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

← →
EvS © (2006-05-01 13:07) [3]

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

← →
Anatoly Podgoretsky © (2006-05-01 13:16) [4]

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

А если:
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)

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().

Сравнение имен файлов Найти похожие ветки