ListEdit Сравнение

← →
nokk9 (2003-05-03 16:28) [0]

Есть Listedit1 и Listedit2. В Listedit1 загружается список слов из файла, в список слов создаётся во время работы программы.
Задача заключается в следующем:
Провести сравнение списков в Listedit1 и Listedit2 и, в случае совпадения слов, вывести результат, с указанием всех совпавших слов.
Люди!!! Помогите с примером!!!!

← →
Fenik © (2003-05-03 21:03) [1]

Listedit или ListBox?

Самый медленный и простой способ:

procedure TForm1.Button1Click(Sender: TObject);
var B: Boolean;
i, j, k: Integer;
s1: string;
begin
for i := 0 to ListBox1.Items.Count - 1 do
begin
s1 := ListBox1.Items[i];
for j := 0 to ListBox2.Items.Count - 1 do
if s1 = ListBox2.Items[j] then
begin
B := True;
for k := 0 to ListBox3.Items.Count - 1 do
if s1 = ListBox3.Items[k] then
begin
B := False;
Break;
end;

if B then
ListBox3.Items.Add(s1);
end;
end;
end;

← →
Михайлов Антон © (2003-05-03 21:12) [2]

Ну тут может быть несколько вариантов:
1) соблюдая регистр
2) соблюдая последовательность слов в обоих листах...

или нужно просто вывести слова, которые есть в обоих листах??

← →
nokk9 (2003-05-05 00:32) [3]

Спасибо.

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