1 with data name do Statement; 2 with data name do begin Statement; {...} end;
Ключевое слово With - удобство, обеспеченное Delphi для того, чтобы сослаться на элементы сложной переменной, типа записи или объекта. Это упрощает код, удаляя потребность в префиксе для каждого упомянутого элемента переменной со сложным именем. Например: myObject.colour:= clRed; myObject.size:= 23.5; myObject.name:= 'Fred'; может быть перезаписан: With myObject do begin colour:= clRed; size:= 23.5; name:= 'Fred'; end; Однако будьте осторожны, так как его использование может, к удивлению, сделать код более трудным для восприятия. А также это может создать такие проблемы, где изменение кода может подразумевать неправильный адресат для 'дочернего' поля, которое упоминают.
|
type // Объявление записи клиента TCustomer = Record firstName : string[20]; lastName : string[20]; address1 : string[100]; address2 : string[100]; address3 : string[100]; city : string[20]; postCode : string[8]; end; var John, Sarah : TCustomer; begin // Установка подробностей клиента Джона With John do begin firstName := 'John'; lastName := 'Smith'; address1 := '7 Park Drive'; address2 := 'Branston'; address3 := 'Grimworth'; city := 'Banmore'; postCode := 'BNM 1AB'; end; // Установка подробностей сестры Джона - просто копируя целой записи Sarah := John; // И затем изменяем имя Sarah.firstName := 'Sarah'; // Теперь показываем подробности обоих клиентов With John do ShowCustomer([firstName, lastName, address1, address2, address3, city, postCode]); With Sarah do ShowCustomer([firstName, lastName, address1, address2, address3, city, postCode]); end; // Процедура, которая отображает переменный число строк procedure TForm1.ShowCustomer(const fields: array of string); var i : Integer; begin // Отображение всех переданных полей - примечание: массивы начинаются с 0 for i := 0 to Length(fields)-1 do ShowMessage(fields[i]); end;
|
В пределах предложения With, Delphi пробует решить эти 'неполные' ссылки, смотря сначала на адресат стоящий после With. Затем просматриваются другие типы данных, типа локальных переменных, параметры подпрограмм и т.п. Это то, где начинаются некоторые опасности с ключевым With. Используйте с осторожностью!
|