Загрузить файл

[Pol1212]

Да, да имя файла, ибо не указывать его несколько раз. Суть задачи состоит в том что бы нажимать на кнопку и выводить поэтапно текст. Т.е. нажал на кнопку часть текста вывел, осмыслил его, после нажимаешь еще раз и выводишь дальше текст и так пока не дойдешь до конца файл.

[Stilet]

чтоб на кнопку нажал и он открылся без поиска его.

procedure TForm1.Button1Click(Sender: TObject);
begin
 RichEdit.LoadFromFile(ExtractFilePath(ParamStr(0))+'Этап 1.rtf');
end;

Каждый этап - отдельная кнопка.

[Pol1212]

в этом то и дело, нужно что бы была одна, и при нажатии выводилась информация поэтапно(

[min@y™]

нужно что бы была одна, и при нажатии выводилась информация поэтапно

список имён файлов.
при нажатии на кнопку подставляй нужное.
можно без списка - вычислять имя, если есть закономерность.

[Pol1212]

можно какой нибудь пример?

[min@y™]

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

можно какой нибудь пример?

может быть, кто-нить напишет. а мне лень: я лежу на диване под тёплым пледом и тыкать клаву неудобно. на животе у меня – кот. свободна только одна рука, в ней – мышь, которой я тыкаю по сенсорной клаве на экране.

да и задача неинтересная и элементарная, не вызывает охотничьего рефлекса. пусть школота блеснёт интеллектом!

[Pol1212]

procedure TForm1.Button1Click(Sender: TObject);
var k:integer;
begin
k:=0;
if //не понятно как написать проверку на кнопку что бы увеличивать значение
k:=k+1;
case k of
1: RichEdit1.Lines.loadFromFile(ExtractFilePath(ParamStr(0))+ '1.rtf');
2: RichEdit1.Lines.loadFromFile(ExtractFilePath(ParamStr(0))+ '2.rtf');
//3: RichEdit1.Lines.loadFromFile(ExtractFilePath(ParamStr(0))+ 'text.rtf');
end;
end;

нет не сижу просто так)

[min@y™]

Ладно, хрен с тобой. Всё равно пришлось в сортир вставать.

procedure TForm1.Button1Click(Sender: TObject);
var
  fName: string;
begin
  fName:= ExtractFilePath(ParamStr(0)) + IntToStr(Button1.Tag + 1) + '.rtf';
  // или так: fName:= Format('%s%d.rtf', [ExtractFilePath(ParamStr(0)), Button1.Tag + 1]);
  
  if FileExists(fName)
    then begin
           RichEdit1.Lines.LoadFromFile(fName);
           Button1.Tag:= Button1.Tag + 1;
         end
    else begin
           Button1.Tag:= 0; // не обязательно
           ShowMessage('Файл "' + fName + '" не найден.'); // не обязательно
         end;
end;

[Slym]

procedure TForm1.Button1Click(Sender: TObject);
var k:integer;
FileName:string;
begin
  k:=k+1;
  FileName:=ExtractFilePath(ParamStr(0))+IntToStr(k)+'.rtf';
  if fileExists(FileName) then
    RichEdit1.Lines.loadFromFile(FileName);
end;

[min@y™]

не надо так

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

procedure TForm1.Button1Click(Sender: TObject);
var k:integer;
FileName:string;
begin
k:=k+1; // не надо так!
FileName:=ExtractFilePath(ParamStr( 0))+IntToStr(k)+'.rtf';
if fileExists(FileName) then
RichEdit1.Lines.loadFromFile(FileNa me);
end;