Ошибки с учловиями в Delphi

[TaYgA]

Всем доброго времени суток. Столкнулся с проблемой написания условия.
1) Пишу так:

  if (yes.checked=True) then begin
    AssignFile(f,ExtractFilePath(paramstr(0))+'help');
    Reset(f);
    while not Eof(f) do begin
      Readln(f,i);
      if (i<>'1') then begin 
        form2.Showmodal;
        Continue;
      end;
    end;
    CloseFile(f);
  end;

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

if (Form1.Button.Click=True) then begin
..............................

почему то не работает....

[Utkin]

Думаю лучше грузить не текст, а число либо попробуйте:

if (Trim(i)<>'1') then begin

Trim - отсечение пробелов по краям строки.

[Gerzs]

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

2) Как написать условия, что если на такой то форме нажата такая то кнопка то выполнить действия...

if (Form1.Button.Click=True) then begin
..............................

Для этого есть обработчики событий.

[TaYgA]

Utkin, спасибо!
Gerzs, при нажатии на форме Form1 кнопку у меня открывается допустим Form2, а в Form3 нужно написать условие, что если кнопка была нажата сделать такие то действия. Прописать в Form1 это не получится....

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

  if FileExists(ExtractFilePath(paramstr(0))+'help') then begin
    AssignFile(f,ExtractFilePath(paramstr(0))+'help');
    Reset(f);
    while not Eof(f) do begin
      Readln(f,i);
      if (Trim(i)<>'1') then Helpin.Timer1.Enabled:=True
        else Helpin.Timer1.Enabled:=False;
      Continue;
    end;
    CloseFile(f);
  end
    else Helpin.Timer1.Enabled:=True;

Файл имеет вид:

3
2
5
6
7
4
1

Если в файле встречается "1", то Timer1.Enabled:=False, а у меня он всегда True... Что не так?!?!?

[Gerzs]

В обработчике события кнопке на Form1 вызывай процедуру, в которой описано твое действие.

[TaYgA]

Gerzs, в данной ситуации я не использую никаких кнопок. На каждой форме в процедуре FormShow я прописал Helpin.Show т.е. это условие находится в этой процедуре!!!

Понял где стопорится Delphi? но как исправить эту ошибку и почему она возникает не пойму.... Добавил в проект ListBox и проверил какие значения принимает переменная i... Оказывается, что у файла считывается только первая строчка. Как это исправить?

[Utkin]

Да не мучайся ты вручную. Загрузи уже в невидимый Мемо и рассматривай файл как массив строк.

[raxp]

только первая строчка. Как это исправить?

...
repeat
 Readln(f,i);
 ...
until eof(f);
...

[SERG1980]

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

Да не мучайся ты вручную. Загрузи уже в невидимый Мемо и рассматривай файл как массив строк.

Тогда уж лучше в StringList. Помоему это лучше всех никаких readln assign и т.д

var SL:TStringList;
     i:integer;
......
SL:=TStringList.Create;
SL.LoadFromFile(ExtractFilePath(Application.ExeName)+'help');
for i:=0 to SL.Count-1 do
if Pos('1',SL[i])>0 then
begin
//ваши действия
break;
end;
SL.Free;

А почему ваш файл HELP не имеет расширения?

[TaYgA]

Делаю как вы мне и посоветывали, используя скрытый компонент. Объясните мне пожалуйсто, как работает эта строчка:

if Pos('1',SL[i])>0 then