Разработка приложения для android delphi xe5

[Аватар]

В принципе, ИМХО, можно ещё так сделать:

Угу, проще

// Изначально Button2.Enable=False

const cText1: array[1..3] of String =
              ('Текст1 Текст1 Текст1',
               'Текст2 Текст2 Текст2 Текст2',
               'Текст3 Текст3');

var Number: Integer = Low(cText1)-1;

procedure TForm1.SaveToMemo;
begin
  Memo1.Text:=cText1[Number];
  Button1.Enabled:=Number<High(cText1);
  Button2.Enabled:=Number>Low(cText1);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Inc(Number);
  SaveToMemo;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Dec(Number);
  SaveToMemo;
end;

'Текст1 строка1'+#13#10+'Текст1 строка2'+#13#10+'Текст1 строка3'

Такое и без сложения катит

'Текст1 строка1'#13#10'Текст1 строка2'#13#10'Текст1 строка3'

[=_=Настя=_=]

Аватар, а в чем проблема, нажимаю вперед 1 раз появляется "Текст1 Текст1 Текст1" и кнопка "вперед" блокируется, а когда нажимаю Назад, начинают вообще какие то не понятные буквы и символы появляются.

[Аватар]

Мне то откуда знать что у вас за проблема. Наверно что-то не так скопипастели

[=_=Настя=_=]

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

Мне то откуда знать что у вас за проблема. Наверно что-то не так скопипастели

нет все так

[Streletz]

Сообщение от =_=Настя=_=

нет все так

Что всё и что так?
Я уже писал выше, что без Вашего кода понять в чём проблема, мягко говоря, сложновато. Поэтому, Ваш код в студию!

[=_=Настя=_=]

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

Что всё и что так?
Я уже писал выше, что без Вашего кода понять в чём проблема, мягко говоря, сложновато. Поэтому, Ваш код в студию!

unit Unit3;

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;

type
  TForm3 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    Button2: TButton;
    Panel1: TPanel;
     procedure SaveToMemo;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation

{$R *.fmx}

{ TForm3 }

const cText1: array[1..3] of String =
              ('Текст1 Текст1 Текст1',
               'Текст2 Текст2 Текст2 Текст2',
               'Текст3 Текст3');

var Number: Integer = Low(cText1)-1;

procedure TForm3.Button1Click(Sender: TObject);
begin
  Dec(Number);
  SaveToMemo;
end;

procedure TForm3.Button2Click(Sender: TObject);
begin
  Inc(Number);
  SaveToMemo;
end;

procedure TForm3.SaveToMemo;
begin
  Memo1.Text:=cText1[Number];
  Button1.Enabled:=Number<High(cText1);
  Button2.Enabled:=Number>Low(cText1);
end;

end.

[Streletz]

Совсем другое дело!
Проблема была в том, что, к сожалению, FireMonkey, в отличие от VCL, не всегда корректно работает с массивами.
Код, выложенный в теме, был сделан для VCL. Поэтому, если там всё работает, то здесь возникают ошибки.
В общем, вот исправленный код FireMonkey. Теперь, по идее, должен нормально работать. Исправленные строки подчёркнуты.

unit Unit4;

interface

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

type
  TForm4 = class(TForm)
    Memo1: TMemo;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    procedure SaveToMemo;
  public

  end;
const
cText1: array[1..3] of String =
              ('Текст1 Текст1 Текст1',
               'Текст2 Текст2 Текст2 Текст2',
               'Текст3 Текст3');
var
  Form4: TForm4;
  Number: Integer = 0;

implementation

{$R *.fmx}

{ TForm4 }

procedure TForm4.Button1Click(Sender: TObject);
begin
  Dec(Number);
  SaveToMemo;
end;

procedure TForm4.Button2Click(Sender: TObject);
begin
  Inc(Number);
  SaveToMemo;
end;

procedure TForm4.SaveToMemo;
begin
  Memo1.Text:=cText1[Number];
  Button1.Enabled:=(Number>1) and (Number<=Length(cText1));
  Button2.Enabled:=(Number>=0) and (Number<Length(cText1));
end;

end.

P.S. Этот баг был в FireMonkey и в более ранних версиях. Однако, судя по всему, даже с выходом XE5, разработчики его так и не устранили.

[Stilet]

FireMonkey, в отличие от VCL, не всегда корректно работает с массивами.

Неожиданно О_о
Я думал что FM это просто двигло для красоты формы, но никак не ядро или фреймворк. С чего это он в менеджер памяти лезет то?

[=_=Настя=_=]

Streletz, спасибо большое за помощь! А можно сюда еще пару вопросов задать? Вообщем:

Почему в ex5 не работает:

application.Terminate;

[Stilet]

Все там работает. Почему ты решила что не работает?