Форум: "Основная";
Текущий архив: 2003.05.15;
Скачать: [xml.tar.bz2];
Вниз
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]Спасибо.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.05.15;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.009 c