Сравнить строки

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

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

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