Помогите С Кодом С Richedit При Переносе В Listview Последняя Строка Пропадает

[Sascha]

Вот сама программа и в ней видно что в верхнем окне 6 строк а в нижней 5 сам код находится ниже
мне нужно именно регулярные выражения , если есть у кого какие идеи помогите


Код программы

unit Unit1;

interface

uses

  System.Classes,
  Vcl.Controls, Vcl.Forms, RegExpr, math, Vcl.ComCtrls, sListView,
  sButton, sRichEdit, sSkinManager, Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    sRichEdit1: TsRichEdit;
    sButton1: TsButton;
    sListView1: TsListView;
    sSkinManager1: TsSkinManager;
    procedure sButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}


procedure TForm1.sButton1Click(Sender: TObject);
var
  r: TRegExpr;
  tc: TListItem;
begin
  sListView1.Clear;
  r := TRegExpr.Create;
  r.Expression :=
    '(\d{2}:\d{2}:\d{2}:\d{2})      (\d{2}:\d{2}:\d{2}:\d{2})         .*?([ -_A-Z]+.MP3)';
  if r.Exec(sRichEdit1.Text) then
  begin
    repeat
      tc := sListView1.Items.Add;
      tc.Caption := r.Match[1];
      tc.SubItems.Add(r.Match[2]);
      tc.SubItems.Add(r.Match[3]);
    until not r.ExecNext;
  end;
  tc.Free;
end;

end.

и маленький кусочек текст

10:41:07:07      10:41:26:05         4.MERCY-MUSE.MP3
10:41:30:22      10:41:49:08         12 OH LOVE.MP3
10:42:06:07      10:42:29:13         8.CATHEDRAL-POPVIRUS INTERNATIONAL.MP3
10:43:14:13      10:43:44:18         2.SUPERHEROES-THE SCRIPT.MP3
10:43:52:07      10:44:09:04         2.BELIEVE-MUMFORD & SONS.MP3
10:44:19:06      10:44:31:19         1.YOU CAN NEVER BE READY-SUNRISE AVENUE.MP3

 

[Lomanu4]

Вот сама программа и в ней видно что в верхнем окне 6 строк а в нижней 5 сам код находится ниже
мне нужно именно регулярные выражения , если есть у кого какие идеи помогите

Посмотреть вложение 281
Код программы

unit Unit1;

interface

uses

  System.Classes,
  Vcl.Controls, Vcl.Forms, RegExpr, math, Vcl.ComCtrls, sListView,
  sButton, sRichEdit, sSkinManager, Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    sRichEdit1: TsRichEdit;
    sButton1: TsButton;
    sListView1: TsListView;
    sSkinManager1: TsSkinManager;
    procedure sButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}


procedure TForm1.sButton1Click(Sender: TObject);
var
  r: TRegExpr;
  tc: TListItem;
begin
  sListView1.Clear;
  r := TRegExpr.Create;
  r.Expression :=
    '(\d{2}:\d{2}:\d{2}:\d{2})      (\d{2}:\d{2}:\d{2}:\d{2})         .*?([ -_A-Z]+.MP3)';
  if r.Exec(sRichEdit1.Text) then
  begin
    repeat
      tc := sListView1.Items.Add;
      tc.Caption := r.Match[1];
      tc.SubItems.Add(r.Match[2]);
      tc.SubItems.Add(r.Match[3]);
    until not r.ExecNext;
  end;
  tc.Free;
end;

end.

и маленький кусочек текст

10:41:07:07      10:41:26:05         4.MERCY-MUSE.MP3
10:41:30:22      10:41:49:08         12 OH LOVE.MP3
10:42:06:07      10:42:29:13         8.CATHEDRAL-POPVIRUS INTERNATIONAL.MP3
10:43:14:13      10:43:44:18         2.SUPERHEROES-THE SCRIPT.MP3
10:43:52:07      10:44:09:04         2.BELIEVE-MUMFORD & SONS.MP3
10:44:19:06      10:44:31:19         1.YOU CAN NEVER BE READY-SUNRISE AVENUE.MP3

Добовляй с нулевого индекса или массива,так как строки начинаються с -1

 

[Sascha]

Добовляй с нулевого индекса или массива,так как строки начинаються с -1

Мне бы пример а лучше пример с моим кодом

 

[Lomanu4]

Мне бы пример а лучше пример с моим кодом

Memo1.Lines.Insert

 

[Sascha]

Memo1.Lines.Insert

Спасибо за ответ ну мне не нужно Memo1.Lines.Insert мне нужно что бы в ListView с RichEdit зааносилла посследнюю строкку

 

[Yaroslav]

Проверил все работает значит дело не регуляторном выражении
1) Проверить ричедит на предмент ентеров лишних строк
2) tc.Free; - В конце убрать возможно ссылка на элемент
3)
var
r: TRegExpr;
tc: TListViewItem;

begin

r := TRegExpr.Create;
r.Expression :=
'(\d{2}:\d{2}:\d{2}:\d{2}) (\d{2}:\d{2}:\d{2}:\d{2}) .*?([ -_A-Z]+.MP3)';
if r.Exec(Memo1.Text ) then
begin
repeat
tc := ListView1.Items.Add;
tc.Text := r.Match[3];
until not r.ExecNext;
end;

end;

 

[Lomanu4]

Проверил все работает значит дело не регуляторном выражении
1) Проверить ричедит на предмент ентеров лишних строк
2) tc.Free; - В конце убрать возможно ссылка на элемент
3)
var
r: TRegExpr;
tc: TListViewItem;

begin

r := TRegExpr.Create;
r.Expression :=
'(\d{2}:\d{2}:\d{2}:\d{2}) (\d{2}:\d{2}:\d{2}:\d{2}) .*?([ -_A-Z]+.MP3)';
if r.Exec(Memo1.Text ) then
begin
repeat
tc := ListView1.Items.Add;
tc.Text := r.Match[3];
until not r.ExecNext;
end;

end;
Посмотреть вложение 284

beerbomj

 

[Yaroslav]

beerbomj

ЧЕТО НЕ ТАК НАПИСАЛ?

 

[Lomanu4]

ЧЕТО НЕ ТАК НАПИСАЛ?

все првельно