Есть текстовый файл вида:
xxxxxxxxxxxx yyyyyyyyyy zzzzzzzzzzz y1y1y1y1y z1z1z1z1z1 zzzzzzzzzzz z1z1z1z1z1 yyyyyyyyyy
Данный текстовый файл загружается в memo1 по нажатию кнопки. Удалить дубликаты слов и вывести слова в 1 экземпляре в memo2.
procedure TForm1.Button1Click(Sender: TObject);
var i,j,k:integer;
begin
Memo1.Lines.Loadfromfile('Text1.txt'); //записываем текст в Memo1
i := 0;
while i<=Memo1.Lines.Count-1 do
begin
k:=0;
for j:=0 to Memo2.Lines.Count-1 do
begin
if Memo2.Lines.Strings[j] = Memo1.Lines.Strings[i] //проверяем, есть ли очередная строка в Memo2
then k:=k+1; //если есть, считаем
end;
if k=0 then Memo2.Lines.Add(Memo1.Lines.Strings[i]);//если повторений ноль, записываем в Memo2
i := i+1; //переходим к следующей строке
end;
end;
end.
Похожие записи/страницы:
- Вывести в Memo2 надпись "В 10-ку!(win)", при условии, что число, сгенерированное функцией [random] в Memo1,…
- Суммы всех членов в строке и столбце - Delphi(Делфи)
- Расположить столбцы матрицы D[M,N] в порядке возрастания элементов k-ой строки - Delphi(Делфи)
- Программа, которая считывает английский текст из файла и выводит его на экран, заменив каждую первую букву слов,…
- Дано множество чисел и некоторое число. Можно ли из множества выбрать два элемента, которые в сумме дают…
- Заполнить одномерный целочисленный массив размерности n числами, введёнными с клавиатуры. Поменять местами…
- Заполнить одномерный целочисленный массив размерности n числами, введёнными с клавиатуры. Вставить после…
- С помощью компонента Memo заполнить строковый массив. Вывести в компоненты Edit самую длинную и самую короткую…