Использовать Запись для сохранения информации из свойств различных классовDelphi , Синтаксис , Записи и МножестваИспользовать Запись для сохранения информации из свойств различных классов
Оформил: DeeCo { Es ist manchmal interessant, Informationen die zusammen gehoren in Records abzuspeichern. In einer Klassendeklaration kann der Record dann als Sammelstelle benutzt werden, was zum einen die Ubersichtlichkeit des Programmes erhoht, zum anderen eine gewisse Logik widderspiegelt. Der Zugriff auf die einzelnen Felder des Records kann von au?erhalb der Klasse mittels Eigenschaften (Properties) erfolgen, was zu besseren Code fuhrt... Letzlich konnen Records z.B. sehr einfach dann in Dateien abgespeichert bzw. von dort aus wieder geladen werden. This wird dann in einem einzigen Vorgang erledigt: das Speichern des Records. } { You sometimes wish to store multiple information in a given class like in the example: alltogether when it belongs together. Thus accessing this information from out of the class can be achieved using property declaration. Its a good way to "clean your code" and make it as "logic" as possible. You also may have to store or load information from your class using file or stream technology. This can be done at once for the recorded information from within the given class. } type TPersonRecord = Record FirstName: String; LastName: String; BirthDate: TDate; End; TForm4 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private fActualUser: TPersonRecord; ... procedure SaveActualUser(S: TFileStream); // it's an example procedure LoadActualUser(S: TFileStream); ... public property FirstName: string read fActualUser.FirstName write fActualUser.FirstName; property LastName : string read fActualUser.LastName write fActualUser.LastName; property BirthDate: TDate read fActualUser.BirthDate write fActualUser.BirthDate; end; procedure TForm4.SaveActualUser(S: TFileStream); begin // All that stuff at once in your Stream S.Write(fActualUser, SizeOf(fActualUser)) end; procedure TForm4.LoadActualUser(S: TFileStream); begin // All that stuff at once back in your class S.Read(fActualUser, SizeOf(fActualUser)); end; Статья Использовать Запись для сохранения информации из свойств различных классов раздела Синтаксис Записи и Множества может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: Записи и Множества ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |