Avançar (Botão)

[Spawnight]

Bom pessoal eu to montando um livrinho infantil no delphi... ai fui criando partes da historias todos em bloco de notas...

ai criei um form cm um mesmo ... e cm os botoes embaixo ... (avançar e voltar) e um de sair... gostaria de saber cm teria q fazer para o botão avançar sempre quando criado receber o valor por exemplo de inicio ia estar assim ( memo1.loadfromfile('c:\historia1.txt') ... ai quando eu clicasse no avançãr o memo ia receber o valor (memo1.loadfromfile('c:\historia2.txt') e assim por diante...

Gostaria de uma ideia pra sempre ele ta recebendo o valor novo.

Obrigado.

espero contato

obs: sou iniciante em delphi.

[Duduh_Capixaba]

Crie uma variável para controlar o nome dos arquivos. Tipo assim:

Declare uma variável numérica para o formulário (no meu exemplo declarei "i" como integer).

var
  Form1: TForm1;
  i: Integer;

implementation

{$R *.dfm}

procedure TForm1.FormActivate(Sender: TObject);
begin
  i := 1;
  Memo1.Lines.LoadFromFile('C:\Texto' + inttostr(i) + '.txt');
end;

procedure TForm1.AnteriorClick(Sender: TObject);
begin
  i := i - 1;
  if FileExists('C:\Texto' + inttostr(i) + '.txt') then
    Memo1.Lines.LoadFromFile('C:\Texto' + inttostr(i) + '.txt')

  else begin
    ShowMessage('Acabaram os arquivos!');
    i := i + 1;
  end;
end;

procedure TForm1.ProximoClick(Sender: TObject);
begin
  i := i + 1;
  if FileExists('C:\Texto' + inttostr(i) + '.txt') then
    Memo1.Lines.LoadFromFile('C:\Texto' + inttostr(i) + '.txt')

  else begin
    ShowMessage('Este é o primeiro arquivo!');
    i := i - 1;
  end;
end;

Editado Agosto 11, 2008 por Duduh_Capixaba