VPF::Удаление строк в каторых меньше 30 символов

BeeMaster

Дата 21.6.2008, 16:04 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 117
Регистрация: 3.4.2008

Репутация: нет
Всего: нет

Всем привет. Помогите пожалуйста с написанием скрипта каторый бы удалял бы из MEMO строки короче 30 символов.

Есть наподобие этого скрипт но он заменяет пробелы на энтер.

Код


unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
r:array of integer;
begin
SetLength(r,Memo1.Lines.Count+1);
for i:=0 to High(r)-1 do
Memo1.Lines[i] := StringReplace(Memo1.Lines[i], ' ', sLineBreak, [rfReplaceAll]);
end;


end.

Я просто не знаю как найти эти строки и их удалить. Помогите пожалуйсто исходником.

Rrader

Дата 21.6.2008, 16:12 (ссылка)

(нет голосов)

Загрузка ...

Inspired =)

Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

Репутация: 18
Всего: 191

Код


procedure TForm1.Button1Click(Sender: TObject);
var
  List: TStringList;
  I: Integer;
  S: String;
begin
  List := TStringList.Create;
  try
    for I := 0 to Memo1.Lines.Count - 1 do
    begin
      S := Memo1.Lines[I];
      if Length(S) >= 30 then List.Add(S);
    end;
    Memo1.Lines.Assign(List);
  finally
    List.Free;
  end;
end;

--------------------

Let's do this quickly!
Rest in peace, Vit!

Qu1nt

Дата 21.6.2008, 16:17 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 602
Регистрация: 13.1.2007

Репутация: 22
Всего: 50

Код


procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  with Memo1.Lines do
    for i := Count - 1 downto 0 do
      if Length(Strings[i]) < 30 then
        Delete(i);
end;

BeeMaster

Дата 21.6.2008, 18:04 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 117
Регистрация: 3.4.2008

Репутация: нет
Всего: нет

Rrader, огромный респект!!!

Qu1nt, У тебя скрипт если чистит большой текст то зависает комп. ОЧЕНЬ ОЧЕНЬ медленно чистит по сравнению с Rrader

MetalFan

Дата 21.6.2008, 18:42 (ссылка)

(нет голосов)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 22
Всего: 128

сделай TMemo.Lines.BeginUpdate/EndUpdate в начале/конце операции.

--------------------

There are always someone smarter than you...

ne0n

Дата 21.6.2008, 19:20 (ссылка)

(нет голосов)

Загрузка ...

PlayBoy

Профиль
Группа: Участник
Сообщений: 733
Регистрация: 5.8.2005
Где: Н.Новгород

Репутация: 1
Всего: 11

Цитата(BeeMaster @ 21.6.2008, 18:04

)

У тебя скрипт

скрипт.... smile

Это сообщение отредактировал(а) ne0n - 21.6.2008, 19:20

--------------------

http://sa-sec.org
как я вам? smile

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »