Как сделать поиск по компоненту Tmemo??

[photozaz]

Подскажите как организовать поиск по Tmemo?? Ну например: если в предложении есть ',' , то это предложение перенести в Memo2..

[Stilet]

Делить в другой TStringList по Delimiter:='.' и в цикле по нему пройтись функой pos на предмет запятой, улавливаешь?

[photozaz]

Сообщение от Stilet

Делить в другой TStringList по Delimiter:='.' и в цикле по нему пройтись функой pos на предмет запятой, улавливаешь?

ну поверхностно.. можешь более подробный пример привести?

[mihali4]

МЕМО состоит из строк - LINES.
А функция POS возвращает позицию искомого символа (запятой в нашем случае) или 0, если этого символа нет.
Вывод:
последовательный перебор всех строк МЕМО с проверкой POS на наличие запятой...

[Stilet]

Ну примерно так:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    ListBox1: TListBox;
    ListBox2: TListBox;
    procedure Memo1Change(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
 s:TStringList;
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Memo1Change(Sender: TObject);
var i:integer;  a:string;
begin
ListBox1.Clear;
s.Clear;
a:=StringReplace(Memo1.Text,#13,'',[rfReplaceAll]);
a:=StringReplace(a,#10,'',[rfReplaceAll]);
s.DelimitedText:=a;
ListBox2.Items:=s;
//********* FOR ******************
for i :=0  to s.Count-1 do
begin
 if pos(',',s[i])>0 then ListBox1.Items.Add(s[i]);
end;
//******* END FOR ****************{}
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
s:=TStringList.Create;
 s.Delimiter:='.';
end;

end.