Скачать: CL | DM;

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

← →
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]

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

---

← →
alex-drob ©   (2006-05-01 13:16) [5]

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

---

← →
antonn ©   (2006-05-01 14:00) [6]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.025 c