Topic: Memo...

Всем хорошего настроения!!!
Дмитрий...Благодаря парсингу имею:
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
Form1.Memo1.Text:=(Email);  // Email: String;

привет
привет
здравствуйте

Вопрос:
1.)  как по клику на Button проверить все строчки в Memo1 на предмет дубликата  и оставить данные без повтора???
2.)  как в переменной "Emai" проверить все строчки на предмет дубликата  и оставить данные без повтора???

привет
здравствуйте

Re: Memo...

Дубликаты всегда располагаются на соседних строчках? Или могут быть и так ?

привет
здравствуйте
привет
Dmitry.

Re: Memo...

DriveSoft wrote:

Дубликаты всегда располагаются на соседних строчках? Или могут быть и так ?

Дубликаты могут располагаться в любой очерёдности....

Re: Memo...

Расположите на форме Memo1 и Memo2, в Memo1 напишите

привет
привет
здравствуйте

в Memo2 будут строки без повторов

procedure Form1_Button1_OnClick (Sender: string; var Cancel: boolean);
var
    i,c: integer;
    sl: TStringList;
begin
    sl := TStringList.Create;

    c := Form1.Memo1.Lines.Count-1;
    for i := 0 to c do
    begin
        if sl.IndexOf(Form1.Memo1.Lines[i]) = -1 then
            sl.Add(Form1.Memo1.Lines[i]);
    end;


    Form1.Memo2.Lines := sl;
    sl.free;
end;
Dmitry.

Re: Memo...

Это просто здорово!!! СПАСИБО!!!

6 (edited by RZ-007 2017-02-02 01:20:45)

Re: Memo...

Доброго времени суток!!!
Дмитрий подскажите скрипт или SQL-запрос для Memo1...если такое возможно:
Memo1 лежит на Form1...оно не привязано к таблице!!!
===============================================
В  Edit1 вводим нужное слово для поиска в Memo1....клик на Button1
а)  В Memo1 видем все найденые слова, если можно их как то все выделить(чтоб можно бало
     увидеть их нахождение в Memo1???
б) есть способ подсчитать найденый текст в Memo1 в результате поиска???

Re: Memo...

RZ-007 wrote:

В  Edit1 вводим нужное слово для поиска в Memo1....клик на Button1
а)  В Memo1 видем все найденые слова, если можно их как то все выделить(чтоб можно бало
     увидеть их нахождение в Memo1???
б) есть способ подсчитать найденый текст в Memo1 в результате поиска???

К сожалению данный компонент не имеет возможности множественного выделения текста, можно выделить только какой либо один текст.

Dmitry.

8 (edited by RZ-007 2017-02-03 10:28:41)

Re: Memo...

Извените а есть проект примера:
1)

выделить только какой либо один текст  Пост № 7

2) если в мемо есть такой ещё же текст, то по клику на битон "далее" в мемо покажет  его...
3) в лабере подсчитать сколько найдено повторов текста в мемо которого указали в поиске???

Re: Memo...

RZ-007 wrote:

Извените а есть проект примера:
1)

выделить только какой либо один текст  Пост № 7

2) если в мемо есть такой ещё же текст, то по клику на битон "далее" в мемо покажет  его...
3) в лабере подсчитать сколько найдено повторов текста в мемо которого указали в поиске???

Сделал для вас проект с примером

Post's attachments

Attachment icon Find text.zip 4.37 kb, 420 downloads since 2017-02-06 

Dmitry.

Re: Memo...

Здравствуйте! Есть Memo с данными, которые берутся из таблицы. Если в тексте написать кавычки и попытаться сохранить изменения

SQLExecute('UPDATE Klient SET klientinfo ="' + frmVsiZamovl.Memo1.Text + '" WHERE id = ' +Form1.TableGrid1.sqlValue);

появится сообщение об ошибке. Какое может быть решение?

Re: Memo...

collagen
Здравствуйте.


вместо

frmVsiZamovl.Memo1.Text

используйте

frmVsiZamovl.Memo1.sqlValue

свойство sqlValue содержит текст, в котором уже экранированы спецсимволы, также присутствуют двойные кавычки.


SQLExecute('UPDATE Klient SET klientinfo =' + frmVsiZamovl.Memo1.sqlValue + ' WHERE id = ' +Form1.TableGrid1.sqlValue);
Dmitry.

Re: Memo...

Благодарю.