|
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.
Используйте с осторожностью!
|
