With myObject do
begin
colour:= clRed;
size:= 23.5;
name:= 'Fred';
end;
Однако будьте осторожны, так как его использование может, к удивлению, сделать код более трудным для восприятия. А также это может создать такие проблемы, где изменение кода может подразумевать неправильный адресат для 'дочернего' поля, которое упоминают.
Примечания
В пределах предложения With, Delphi пробует решить эти 'неполные' ссылки, смотря сначала на адресат стоящий после With.
Затем просматриваются другие типы данных, типа локальных переменных, параметры подпрограмм и т.п. Это то, где начинаются некоторые опасности с ключевым With.
Используйте с осторожностью!
Похожие команды
Begin Ключевое слово, которое начинает операторный блок
End Ключевое слово, которое заканчивает операторные блоки
Record Структурный тип данных содержащий поля данных
Пример кода : Использование ключевого слова with со структурой записи
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;
John
Smith
7 Park Drive
Branston
Grimworth
Banmore
BNM 1AB
Sarah
Smith
7 Park Drive
Branston
Grimworth
Banmore
BNM 1AB
