Программирование разветвляющихся алгоритмов

– при входе
onExit – при

выходе

Методы

Memo1.Lines.LoadFromFile(filename)
– загрузка из текстового файла
Memo1.Lines.SaveToFile(filename)
– сохранение в текстовом файле

end else begin

end;

true

false

0 then begin
Edit3.Text := ‘На 0 делить нельзя’;
end

else begin
Edit3.Text := FloatToStr(m/a);
end;

if Shape1.Brush.Color = clRed then
begin
Shape2.Brush.Color := clRed;
Shape1.Brush.Color := clBlack;
end else begin
Shape2.Brush.Color := clBlack;
Shape1.Brush.Color := clRed;
end;

end;
true
false

begin
begin
Edit3.Text := FloatToStr(m/a);
end;
Пример 2
if Shape1.Brush.Color = clRed

then
Edit1.Text :='Стой';
if Shape1.Brush.Color = clGreen then
Edit1.Text :='Иди';

Пример 1

Значение2: begin инструкции 2 end;
…
ЗначениеN: begin

инструкции N end;
else begin инструкции end;
end;

true

true

true

…

false

clYellow : Edit1.Text:='Внимание';
else Edit1.Text:='Светофор неисправен';
end;
Пример 1
case d of

'+': begin c:=a+b; end;
'-': begin c:=a-b; end;
'*': begin c:=a*b; end;
'/': begin c:=a/b; end;
end;

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

переменную fn для хранения имени файла. Первоначально она пуста.

if fn='' then begin
if SaveDialog1.Execute then begin
Memo1.Lines.SaveToFile(SaveDialog1.FileName);
form1.Caption:= SaveDialog1.FileName;
fn:=SaveDialog1.FileName;
end;
end else begin
Memo1.Lines.SaveToFile(fn);
end;

к пунктам:
Создать
fn:='';

Открыть
fn:=OpenDialog1.FileName;

Сохранить как

fn:=SaveDialog1.FileName;

К разделу Var
fn:string;

чего-либо (файла, цвета, шрифта и т.д.)
Имеет классы-потомки для каждого

отдельного вида диалога

Общий метод для всех потомков: Execute – выполнение диалога
Пример: Dialog1.Execute;

Может выступать и как свойство логического типа
Пример: if Dialog1.Execute then …