Форум: "Начинающим";
Текущий архив: 2015.03.29;
Скачать: [xml.tar.bz2];
ВнизСкопировать данные из одного указателя в другой Найти похожие ветки
← →
TForm (2014-02-07 12:56) [0]Как правильно скопировать данные из RecPtr в GlobalRecPtr?
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;
type
TRec = packed record
Id: Integer;
Name: string[21];
end;
PRec = ^TRec;
var
Form1: TForm1;
implementation
var
GlobalRecPtr: PRec;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
RecPtr: PRec;
begin
New(RecPtr);
try
with RecPtr^ do
begin
Id := 1;
Name := "test";
end;
// Скопировать значения полей в GlobalRecPtr
finally
Dispose(RecPtr);
end;
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
ShowMessage(IntToStr(GlobalRecPtr^.Id) + #13#10 + GlobalRecPtr^.Name);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
New(GlobalRecPtr);
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
Dispose(GlobalRecPtr);
end;
end.
← →
RWolf © (2014-02-07 13:00) [1]GlobalRecPtr^ := RecPtr^;
← →
MBo © (2014-02-07 13:56) [2]Если нет динамических полей, как в данном случае, то
Move(RecPtr^, GlobalRecPtr^, SizeOf(TRec));
иначе присвоение или копирование каждого поля по отдельности.
Вот только зачем это нужно?
← →
MBo © (2014-02-07 15:11) [3]Чего-то я перебдел ;)
[1] здесь достаточно.
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2015.03.29;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.001 c