Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Компоненты Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 12.06.2019, 11:29   #31
linda88
Пользователь
 
Регистрация: 17.01.2019
Сообщений: 78
По умолчанию

Спасибо котятки.
вот что вышло:
Код:
unit DELETE;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.StdCtrls,
  FMX.Layouts, FMX.Memo, FMX.Controls.Presentation, FMX.ScrollBox;

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    Memo2: TMemo;
    Memo3: TMemo;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Memo1MouseLeave(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  I2,I:INTEGER;
 s:STRING;

implementation

{$R *.fmx}

procedure TForm1.Button1Click(Sender: TObject);
begin

 for i:=1 to length(s) do
case s[i] of
' ','а'..'я','А'..'Я':MEMO1.Text:=MEMO1.Text+s[i];
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
I2 := 0;
for I := 0 to memo2.Lines.Count -1 do
  if  length(Trim(memo2.Lines[i]))>0 then
     if memo3.Lines.IndexOf(memo2.Lines[i])<0 then
     begin
      memo3.Lines.Append(memo2.Lines[i]);
     if I =memo2.Lines.Count -1 then
     memo2.Lines.Clear;

     end;
     for I := 0 to memo3.Lines.Count -1 do
     begin

     Inc(I2);
      memo2.Lines.Add(inttostr(i2)+'. '+memo3.Lines[i]);
      if I = memo3.Lines.Count -1 then
     memo3.Lines.Clear;

     end;

 end;

procedure TForm1.Memo1MouseLeave(Sender: TObject);
begin
 S:= MEMO1.Text;
   MEMO1.Text:='';
end;

end.

Последний раз редактировалось linda88; 12.06.2019 в 11:32.
linda88 вне форума Ответить с цитированием
Старый 12.06.2019, 12:45   #32
Аватар
Старожил
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Сообщений: 19,042
По умолчанию

Мемо можно почистить и вне цикла )
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
Аватар вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Удаление дубликатов SolovejK Общие вопросы Delphi 7 13.03.2015 23:31
Удаление дубликатов Wind-up Bird Microsoft Office Excel 9 02.02.2012 12:49
Удаление дубликатов строк hon Паскаль, Turbo Pascal, PascalABC.NET 10 02.08.2011 05:29
удаление дубликатов в ListView fate Общие вопросы Delphi 8 12.05.2011 16:51
Удаление дубликатов Deltist Microsoft Office Excel 11 14.01.2011 16:01