Delphi 10 | Android | Проблема с Memo

[YurMak]

Здравствуйте, уважаемые!
Появилась непонятка, прошу помощи.

Задача: прочитать содержимое текстового файла вывести его в Memo с особыми визуальными параметрами (шрифт, размер шрифта, выравнивание...)

Делаю так:

unit MemoTest;

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.ScrollBox, FMX.Memo, FMX.Controls.Presentation;

type
  TForm3 = class(TForm)
    ToolBar1: TToolBar;
    Memo1: TMemo;
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;
  TextFile: string = 'File Path+File.txt';
  StrList: TStringList;
  WS: string=' ';
implementation

{$R *.fmx}

procedure TForm3.Button1Click(Sender: TObject);
var i:integer;
begin
        Memo1.Lines.Clear;
        StrList:= TStringList.Create;
        StrList.LoadFromFile(TextFile);
        for i := 0 to StrList.Count - 1 do

        begin
            WS:= StrList[i]; // Здесь идет какая-то обработка строки
            Memo1.Lines.Add(WS);
        end;
        StrList.Free;
        Label1.Text:=IntToStr(Memo1.Lines.Count);
end;


end.

Всё работает корректно, но только с первого раза.
При повторном нажатии на Button (ну например, нужно открыть другой файл в том же цикле) всё срабатывает, но в конце Memo, после текста появляются пустые строки!!! И количество их растёт с каждым нажатием (чтением файла).

Не могу понять причину.

При тестировании под Windows-32 этого не наблюдается, Memo каждый раз выделяет столько строк, сколько их в файле.
А при тестировании под Android вот такая беда.

Усть ли у Memo возможность "очиститься" полностью и обнулить количество строк?

Буду благодарен любым подсказкам.

[PTyTb32]

procedure TForm3.Button1Click(Sender: TObject);
begin
        Memo1.Lines.Clear;
       Memo1.Lines.LoadFromFile(TextFile);
        Label1.Text:=IntToStr(Memo1.Lines.Count);
end;

пробуй...

[YurMak]

Неет!
Мне не нужно читать файл в Memo!
Мне нужно прочитать его именно в TStringList для последующей обработки (выделение части строки) и циклического внесения в Memo.
Вот:
Цитата:
Всё работает корректно, но только с первого раза.
При повторном нажатии на Button (ну например, нужно открыть другой файл в том же цикле) всё срабатывает, но в конце Memo, после текста появляются пустые строки!!! И количество их растёт с каждым нажатием (чтением файла).
Как решить эту проблему?

[PTyTb32]

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

Неет!
Мне не нужно читать файл в Memo!
Мне нужно прочитать его именно в TStringList для последующей обработки (выделение части строки) и циклического внесения в Memo.
Вот:
Цитата:
Всё работает корректно, но только с первого раза.
При повторном нажатии на Button (ну например, нужно открыть другой файл в том же цикле) всё срабатывает, но в конце Memo, после текста появляются пустые строки!!! И количество их растёт с каждым нажатием (чтением файла).
Как решить эту проблему?

окей, а чисто случайно в файлы не вписываются пустые строки?

можешь еще вот так добавить, если это не нарушит концепции программы

procedure TForm3.Button1Click(Sender: TObject);
var i:integer;
begin
        Memo1.Lines.Clear;
        StrList:= TStringList.Create;
        StrList.LoadFromFile(TextFile);
        for i := 0 to StrList.Count - 1 do

        begin
            if StrList[i] <> '' then
            begin
              WS:= StrList[i];
              Memo1.Lines.Add(WS);
            end;
        end;
        StrList.Free;
        Label1.Text:=IntToStr(Memo1.Lines.Count);
end;

[Аватар]

StrList.LoadFromFile(TextFile);
Memo1.Lines.Assign(StrList);

и ни каких циклов))

[YurMak]

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

можешь еще вот так добавить, если это не нарушит концепции программы

Спасибо, попробую.

[YurMak]

Сообщение от Аватар

и ни каких циклов))

Спасибо, но в таком случае я не смогу редактировать строку.
И мне не важно, как заполнить Memo.
Мне важно его полностью очистить и обнулить строки!!!

[Serge_Bliznykov]

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

Спасибо, но в таком случае я не смогу редактировать строку.

прочитали в TStringList. Отредактировали в нём нужные строки.

и потом:

Сообщение от Аватар

Memo1.Lines.Assign(StrList);

и никаких циклов.

[PTyTb32]

Serge_Bliznykov прав, так правильнее, проще и быстрее