Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi: FireMonkey
Войти
Регистрация
Восстановить пароль
 
YurMak777
0 / 0 / 0
Регистрация: 16.03.2017
Сообщений: 5
1

Android: некорректная работа Memo

14.09.2017, 13:55. Просмотров 386. Ответов 4
Метки нет (Все метки)

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

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

Делаю так:

Код:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
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 возможность "очиститься" полностью и обнулить количество строк?

Буду благодарен любым подсказкам.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
14.09.2017, 13:55
Ответы с готовыми решениями:

Прозрачный listbox и memo, android
Возник вопрос, можно ли избавиться от белого фона и сделать так, что бы была...

Некорректная работа OpenDialog в win7
Доброго времени суток всем, уважаемые форумчане! Столкнулся с такой проблемой:...

работа с MEMO
у вас очень интересный форум, но нужной инфы я не нашел (может есть, но...

Работа с Memo и Массивом
Здравствуйте Господа программисты!!! Не могли бы вы помочь мне с составлением...

Работа с компонентом memo
Такой вопрос: Примерный код: Case RadioGroup1.ItemIndex of ...

4
TAZAQ
101 / 100 / 51
Регистрация: 28.01.2014
Сообщений: 306
15.09.2017, 00:15 2
Delphi
1
Memo.Lines.LoadFromFile
0
YurMak777
0 / 0 / 0
Регистрация: 16.03.2017
Сообщений: 5
15.09.2017, 08:25  [ТС] 3
Добавлено через 3 минуты
Цитата Сообщение от TAZAQ Посмотреть сообщение
1
Memo.Lines.LoadFromFile

Не могу!
Я файл читаю в TStringList, обрабатываю строки, а потом в цикле построково добавляю в Memo.
На при повторном обращении к циклу в Memo добавляются (или остаются неудаленные) пустые строки.

Как полностью очистить Memo и количество строк в нем привести к 0 ?
0
D1973
Модератор
3575 / 2577 / 1258
Регистрация: 21.01.2014
Сообщений: 10,842
Записей в блоге: 3
Завершенные тесты: 1
15.09.2017, 09:14 4
Даже если и так, т.е. через СтрингЛист, то зачем там какой-то цикл для заполнения?
Сделали, что надо, в своем стринглисте, а под конец
Delphi
1
Memo1.Lines.Assign(StrList);
0
YurMak777
0 / 0 / 0
Регистрация: 16.03.2017
Сообщений: 5
21.09.2017, 22:11  [ТС] 5
Спасибо всем за советы! Все получилось.
0
21.09.2017, 22:11
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
21.09.2017, 22:11

Работа с компонентом memo - поиск слова,или строчек
Есть программа - моя,в ней есть компонент memo,мне нужно чтоб по нажатию типо...

Работа с jpeg на android
Какой можно подключить модуль для работы с изображениями на андроид, сам JPEG...

FMX.Android работа с файлами
Можно ли работать с файлами через TFileStream? Если да, то куда лучше кидать...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru