Чтение из текстового файла и обработка посимвольная

[MadHamster]

Сообщение от дмитрий12123

Как в этот код добавить проверку на нажатие кнопки после begin ?

readln;

Если я правильно понял.

[BDA]

Как в этот код добавить проверку на нажатие кнопки после begin ?

Вы напишите, что пытаетесь сделать.
Например, так:

var t : boolean;
...
procedure TForm1.Button1Click(Sender: TObject);
begin
    t := true;
end;
...
procedure ...
begin
    if t then
    begin

    end;
    readln(f, buf);       // прочитать строку из файла
    Memo1.Lines.Add(buf); // добавить строку в поле Memo1
    t := false;
end;

[дмитрий12123]

я хочу написать программу ,чтоб при нажатии на 1 й клик открывается файл, но строка открывается в окне только при нажатии на 2й клик. На следующее нажатие 2го стирается строка и заполняется следующая строка.

      procedure TForm1.Button1Click(Sender: TObject);
var
   f: TextFile;       // файл
   fName: String[80]; // имя файла
   buf: String[80];   // буфер для чтения строк

begin
  .....
   while not EOF(f) do
     begin
       if on.button2.click then begin     
        Memo1.Lines.delete;
        readln(f, buf);       // прочитать строку из файла
        Memo1.Lines.Add(buf); // добавить строку в поле Memo1
        if buf.str.to.int = 999 then a:=1; else a:=0;
     end;
     end;
   CloseFile(f); // закрыть файл
end;

Т.е. необходимо в процедуре обработки нажатия кнопки надо проверить условие нажата ли 2я кнопка.