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

Сравнить строки   Найти похожие ветки 

← →
OlegM ©   (2003-06-18 07:53) [0]

Привет всем!
Такой вопрос, как сравнить две строки и удалить из одной то чего в другой нет?

---

← →
ЮЮ ©   (2003-06-18 08:08) [1]

>как сравнить две строки
AnsiCompareText(s1, s2) = 0
>и удалить из одной то чего в другой нет
s1 := s2 // в s1 будет только то, что в s2 и ничего лишнего :-)

---

← →
Rol   (2003-06-18 10:25) [2]

>OlegM А что имеется в виду "то, чего нет в другой"? Слова? Символы? Что?!

>ЮЮ Скорее всего, Вы дали именно тот ответ, который и нужен был ОлегМ. :)
А что, если, например:
s1="Слово2 Слово3 Слово4" - строка, из которой надо удалять
s2="Слово1 Слово2 Слово4" - строка, с которой нужно сравнить
Следуя указаниям автора, получим: s1="Слово2 Слово4".

---

← →
Palladin ©   (2003-06-18 10:51) [3]

а что если, коровы летают? только когда их невидно
а вдруг у спрашивающего есть голова, только он туда ест...

если рассматривать единицу "то" как символ, то

var
s1,s2:string;
i,p:integer;

for i:=1 to length(s2) do
begin
p:=pos(s2[i],s1);
while p<>0 do
begin
delete(s1,p,1);
p:=pos(s2[i],s1);
end;
end;

---

← →
Anatoly Podgoretsky ©   (2003-06-18 11:02) [4]

Rol (18.06.03 10:25)
А у меня получилось только "3" остальное там есть

---

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

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



Память: 0.45 MB
Время: 0.011 c