Мужики, как сравнить 2 списка со словами???

← →
kvorubin © (2005-12-09 13:58) [0]

Если слова совпадают, хорошо, а если есть такие каких нету в том списке, значит переносим их в Мемо3 (целый день сижу над этим)

← →
MU © (2005-12-09 13:59) [1]

1-ый "список" слов - это текст или он уже разбит на слова?

← →
kvorubin © (2005-12-09 14:00) [2]

разбит на слова

← →
msguns © (2005-12-09 14:02) [3]

Самый простой алгоритм - сложить оба списка, добавив в "хвост" каждому элементу "номер" списка: А или Б. Результирующий список сортануть и пробежаться по нему, проверяя наличие пар.

← →
kvorubin © (2005-12-09 14:03) [4]

А если по алфавиту не совпадает ни та колонка ни эта, то???

← →
alex_*** © (2005-12-09 14:04) [5]

проще по-моему в акцес залить и запрос прогнать

← →
kvorubin © (2005-12-09 14:05) [6]

а чё это такое???

← →
msguns © (2005-12-09 14:05) [7]

>alex_*** © (09.12.05 14:04) [5]
>проще по-моему в акцес залить и запрос прогнать

Лучше в уракл.

← →
Alexander Panov © (2005-12-09 14:06) [8]

kvorubin © (09.12.05 14:03) [4]
А если по алфавиту не совпадает ни та колонка ни эта, то???

Это как?

← →
kvorubin © (2005-12-09 14:06) [9]

А всё таки???

← →
Alexander Panov © (2005-12-09 14:09) [10]

И в чем хранятся списки.

← →
kvorubin © (2005-12-09 14:10) [11]

Список в мемо1 и список в мемо2, сравнить = которых нет в мемо2 переместить их в мемо3 (список в мемо1 и мемо2 если учитевать линии то алфавит не совпадает)

← →
kvorubin © (2005-12-09 14:19) [12]

Так скажет кто нить????

← →
Плохиш © (2005-12-09 14:19) [13]

> kvorubin © (09.12.05 14:10) [11]

Читать про циклы и про метод IndexOf у TStrings

← →
kvorubin © (2005-12-09 14:23) [14]

Читал, не помогает...

← →
Alexander Panov © (2005-12-09 14:36) [15]

Вот тебе простейшее решение "в лоб";
var
i,j: integer;
isFound: Boolean;
begin
for i := 0 to Memo1.Lines.Count-1 do
begin
isFound := False;
for j := 0 to Memo2.Lines.Count-1 do
begin
if Memo1.Lines[i]=Memo2.Lines[j] then
begin
isFound := True;
break;
end;
end;
if isFound then Continue;
Memo3.Lines.Add(Memo1.Lines[i]);
end;
end;

PS.
Без знания основ бессмысленно заниматься программированием.

← →
kvorubin © (2005-12-09 14:41) [16]

Спасибо за добрые поддерживающие слова начинающим..

isFound: Boolean; --- а эту штуку я впервые вижу, ранее никогда не сталкивался..

← →
evvcom © (2005-12-09 14:48) [17]

> isFound: Boolean; --- а эту штуку я впервые вижу

впервые что? isFound или Boolean?
а i,j: integer; ты уже видел раньше?

← →
Игорь Шевченко © (2005-12-09 14:52) [18]

> isFound: Boolean; --- а эту штуку я впервые вижу, ранее
> никогда не сталкивался..

И не сталкивайся дальше

var
I: Integer;
begin
for I:=0 to Pred(Memo1.Lines.Count) do
if Memo2.Lines.IndexOf(Memo1.Lines[I]) = -1 then
Memo3.Lines.Add (Memo1.Lines[I])

← →
msguns © (2005-12-09 15:05) [19]

>Игорь Шевченко © (09.12.05 14:52) [18]

Изящное решение.
Только неверное ;)

← →
Плохиш © (2005-12-09 15:12) [20]

Господа, вы что это здесь "пургу" гоните?
Пришёл такой реальный пацан, а вы сначала ветку к каким-то начинающим переместили, теперь "пургу" гоните. Не хорошо-с. Пацан так ждёт, когда ему правильное решение найдут.

см [18]
Только еще у Strings в Memo3 CaseSensitive и Duplicates в Ignore
поставить

Я плакаль ..

> kvorubin © (09.12.05 13:58)

> сравнить 2 списка

ДВА списка !
ДВА их, как я понял ... ну да два их и два - криминала пока нет ...

> а если есть такие каких нету в том списке

а здесь ты горбатого лепишь !!!!

в каком. нафих, "том списке". если по условию их два ?!)

> kvorubin

что за бред ты там гнал-то про "списки с линиями" ?)

Ну а масcивы или tstringlist не побыстрее

Что за линии? я просто в задумчивости...

А еще можно через множества сдалать.

Хватит спамить и создавать ветки, будь рад что не в Потрепаться.

Мужики, как сравнить 2 списка со словами??? Найти похожие ветки