Инструменты пользователя

Инструменты сайта


programmirovanie_v_dx:podchinjonnye_formy

Различия

Здесь показаны различия между двумя версиями данной страницы.

Ссылка на это сравнение

Предыдущая версия справа и слева Предыдущая версия
programmirovanie_v_dx:podchinjonnye_formy [2018/04/09 21:00]
jurist23rus
programmirovanie_v_dx:podchinjonnye_formy [2018/04/23 11:04] (текущий)
7bit Форматирование кода
Строка 7: Строка 7:
 procedure AppendBnClick(Sender:​ TObject); ​ procedure AppendBnClick(Sender:​ TObject); ​
 begin begin
- if (Self.State <> dsInsert) and (Self.State <> dsEdit) and (Self.Edit = asOk) then +  ​if (Self.State <> dsInsert) and (Self.State <> dsEdit) and (Self.Edit = asOk) then 
- with Self.Forms['​товары'​] do +  with Self.Forms['​товары'​] do 
- ​begin +  begin 
-  Append; +    Append; 
-  Fields['​Количество'​] := 1; +    Fields['​Количество'​] := 1; 
-  if EditWindow.ShowModal = mrOk then +    if EditWindow.ShowModal = mrOk then 
-   ​Post +      Post 
-  else +    else 
-   ​Cancel; +      Cancel; 
- end;+  end;
 end; end;
 </​code>​ </​code>​
programmirovanie_v_dx/podchinjonnye_formy.txt · Последние изменения: 2018/04/23 11:04 — 7bit