Как считать построчно с конца файла Memo Delphi fmx?

[yooSee]

Привет ребята! Вобщем есть текст в Memo с которого нужно брать строки с конца файла т.е. memo.lines.count-1 в цикле, 

после этого создавая отельно динамически компоненты,  заносить текстовые  строки с memo в эти созданные динамически компоненты, ниже пример:

procedure TVKBaseForm.Button2Click(Sender: TObject);
var
  rec: TRectangle;
  txt: Ttext;
  i: word; // - можно и integer сути не поменяет
begin
  for i := Memo1.Lines.Count - 1 downto 0 do
  begin
    rec := TRectangle.Create(Self);
    rec.Parent := MainLayout1;
    rec.Height := 15;
    rec.Align := TAlignLayout.Top;

    txt := Ttext.Create(Self);
    txt.Parent := rec;
    txt.Align := TAlignLayout.Client;
    txt.Text := Memo1.Lines.Strings[i];
  end;
end;

Работает, но не правильно. Почему выдает не правильный порядок при выводе? почему создает сначала первый файл? Почему создает не все? Может есть какая-то синхронизация? 

Пробовал так же

A: integer;
begin

  A := 1; // Присваеваем единицу

  While A <> Memo1.Lines.Count - 1 do 
  begin
    A := A + 1; 
    s := Memo1.Lines.Strings[A]; 

    Application.ProcessMessages;

    rec := TRectangle.Create(Self);
    rec.Parent := MainLayout1;
    rec.Height := 15;
    rec.Align := TAlignLayout.Top;

    txt := Ttext.Create(Self);
    txt.Parent := rec;
    txt.Align := TAlignLayout.Client;
    txt.Text := s;

Помогите разобраться

[sinuke]

если я правильно понял проблему, то надо явно указывать координату для компонента, желательно чтобы она была "координата предыдущего + высота предыдущего + 1"

Изменено 15 июня, 2017 пользователем sinuke

[yooSee]

46 минут назад, sinuke сказал:

если я правильно понял проблему, то надо явно указывать координату для компонента, желательно чтобы она была "координата предыдущего + высота предыдущего + 1"

не кажется не в этом дело, теряется не пойму где. если делать так то все адекватно выходит. 

var
  i: integer;
begin
for i := memo1.Lines.Count-1 downto 0 do
  begin
    memo2.Lines.Add(memo1.Lines.Strings[i]);
  end;
end;

если делат атк к примеру то выведет сначала последний потом все по порядку, в чем затуп?

var
  i: integer;
  txt: TText;
begin
  for i := Memo1.Lines.Count - 1 downto 0 do
  begin
    txt := TText.Create(self);
    txt.Parent := Form2;
    txt.Align := TALignLayout.Top;
    txt.Text := Memo1.Lines.Strings[i];

  end;
end;

 

Изменено 15 июня, 2017 пользователем Роман Фил

[sinuke]

я так понял, что ваш код выдает следующее:

 

а надо:

как я и говорил, нужно просто указывать координату вновь создаваемому компоненту:

var
  i: integer;
  p: Integer;
  txt: TText;
begin
  p := 0;
  for i := Memo1.Lines.Count - 1 downto 0 do
  begin
    txt := TText.Create(self);
    txt.Parent := Form2;
    txt.Position.Y := p + 1;
    txt.Align := TALignLayout.Top;
    txt.Text := Memo1.Lines.Strings[i];
    p := Round(p + txt.Height);
  end;
end;

[yooSee]

18 минут назад, sinuke сказал:

я так понял, что ваш код выдает следующее:

 

а надо:

как я и говорил, нужно просто указывать координату вновь создаваемому компоненту:

var
  i: integer;
  p: Integer;
  txt: TText;
begin
  p := 0;
  for i := Memo1.Lines.Count - 1 downto 0 do
  begin
    txt := TText.Create(self);
    txt.Parent := Form2;
    txt.Position.Y := p + 1;
    txt.Align := TALignLayout.Top;
    txt.Text := Memo1.Lines.Strings[i];
    p := Round(p + txt.Height);
  end;
end;

Спасибо большое помог) 

[yooSee]

30 минут назад, sinuke сказал:

я так понял, что ваш код выдает следующее:

 

а надо:

как я и говорил, нужно просто указывать координату вновь создаваемому компоненту:

var
  i: integer;
  p: Integer;
  txt: TText;
begin
  p := 0;
  for i := Memo1.Lines.Count - 1 downto 0 do
  begin
    txt := TText.Create(self);
    txt.Parent := Form2;
    txt.Position.Y := p + 1;
    txt.Align := TALignLayout.Top;
    txt.Text := Memo1.Lines.Strings[i];
    p := Round(p + txt.Height);
  end;
end;

а если добавилась строка в memo то все компоненты удалять и пересоздавать с новым или проверять на наличие строк и создавать не достающие7 может есть еще какие варианты?

[sinuke]

16 минут назад, Роман Фил сказал:

а если добавилась строка в memo то все компоненты удалять и пересоздавать с новым или проверять на наличие строк и создавать не достающие7 может есть еще какие варианты?

не надо удалять/пересоздавать. просто нужно контролировать эти добавляющиеся строки в Memo. для этого можно использовать свойства Tag и TagString чтобы знать, какой компонент соответствует какой строке.

[yooSee]

В 16.06.2017 в 01:49, sinuke сказал:

не надо удалять/пересоздавать. просто нужно контролировать эти добавляющиеся строки в Memo. для этого можно использовать свойства Tag и TagString чтобы знать, какой компонент соответствует какой строке.

спасибо большое все помогло)