Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

Страницы: 1 2 >
kvorubin © (2005-12-09 13:58:00)
Если слова совпадают, хорошо, а если есть такие каких нету в том списке, значит переносим их в Мемо3 (целый день сижу над этим)

app (2005-12-10 14:35:00) [1]
Хватит спамить и создавать ветки, будь рад что не в Потрепаться.

Profi (2005-12-10 13:42:00) [2]
А еще можно через множества сдалать.

Наиль (2005-12-10 06:42:00) [3]

> [26] Джо © (10.12.05 05:21)
> Что за линии? я просто в задумчивости...

Memo.lines

Джо (2005-12-10 05:21:00) [4]
Что за линии? я просто в задумчивости...

Gydvin (2005-12-09 17:26:00) [5]
Ну а масcивы или tstringlist не побыстрее

Digitman (2005-12-09 15:47:00) [6]

> kvorubin

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

Digitman (2005-12-09 15:43:00) [7]
Я плакаль ..

> kvorubin © (09.12.05 13:58)

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

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

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

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

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

Плохиш (2005-12-09 15:21:00) [8]

> MU © (09.12.05 15:18) [21]

Это мне или афтору? http://www.delphimaster.ru/cgi-bin/forum.pl?id=1134127864&n=0

MU (2005-12-09 15:18:00) [9]
см [18]
Только еще у Strings в Memo3 CaseSensitive и Duplicates в Ignore
поставить

Плохиш (2005-12-09 15:12:00) [10]
Господа, вы что это здесь "пургу" гоните?
Пришёл такой реальный пацан, а вы сначала ветку к каким-то начинающим переместили, теперь "пургу" гоните. Не хорошо-с. Пацан так ждёт, когда ему правильное решение найдут.

msguns (2005-12-09 15:05:00) [11]
>Игорь Шевченко © (09.12.05 14:52) [18]

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

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

> 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])

evvcom (2005-12-09 14:48:00) [13]

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

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

kvorubin (2005-12-09 14:41:00) [14]
Спасибо за добрые поддерживающие слова начинающим..

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

Alexander Panov (2005-12-09 14:36:00) [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:23:00) [16]
Читал, не помогает...

Плохиш (2005-12-09 14:19:00) [17]

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

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

kvorubin (2005-12-09 14:19:00) [18]
Так скажет кто нить????

kvorubin (2005-12-09 14:10:00) [19]
Список в мемо1 и список в мемо2, сравнить = которых нет в мемо2 переместить их в мемо3 (список в мемо1 и мемо2 если учитевать линии то алфавит не совпадает)

Alexander Panov (2005-12-09 14:09:00) [20]
И в чем хранятся списки.

Страницы: 1 2 >

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »