자유롭게 질의 및 응답을 할 수 있는 게시판입니다. 개발자 여러분의 답변이 큰 도움이 됩니다.
- 제품설치/등록 오류 문의: 설치/등록 Q&A 이용 (제품 구매 고객 한정)
Delphi 안드로이드 앱개발시..object관련에러..
2015.04.28 01:02
xe7에서 안드로이드앱개발중입니다.
기존에 아래와같은 코딩을 사용하여 개발을 했는데요 .. pc에서는 무리없이 실행되어
이번에 앱개발할때도 적용시키려고하니 에러가 납니다.
object를 관리하는 list를 사용하지못할때..object를 관리하는 다른방법이 있을까요??
unit Unit1;
interface
uses
System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.StdCtrls;
type
TComDataRecordptr = ^TComDataRecord;
TComDataRecord = packed Record
FDataLen : Word;
FPacketData : array [1..10] of Byte;
end;
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.fmx}
procedure TForm1.Button1Click(Sender: TObject);
var
TmpList : TStringList;
TmpPointer : TComDataRecordptr;
begin
TmpList := TStringList.Create;
TmpPointer := GetMemory(sizeof(TComDataRecord));
TmpPointer.FDataLen := 10;
TmpPointer.FPacketData[1] := $10;
TmpList.AddObject('', Pointer(TmpPointer));
end;
end.
댓글 2
Delphi 안드로이드 앱개발시..object관련에러..
2015.04.28 01:02
xe7에서 안드로이드앱개발중입니다.
기존에 아래와같은 코딩을 사용하여 개발을 했는데요 .. pc에서는 무리없이 실행되어
이번에 앱개발할때도 적용시키려고하니 에러가 납니다.
object를 관리하는 list를 사용하지못할때..object를 관리하는 다른방법이 있을까요??
unit Unit1;
interface
uses
System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.StdCtrls;
type
TComDataRecordptr = ^TComDataRecord;
TComDataRecord = packed Record
FDataLen : Word;
FPacketData : array [1..10] of Byte;
end;
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.fmx}
procedure TForm1.Button1Click(Sender: TObject);
var
TmpList : TStringList;
TmpPointer : TComDataRecordptr;
begin
TmpList := TStringList.Create;
TmpPointer := GetMemory(sizeof(TComDataRecord));
TmpPointer.FDataLen := 10;
TmpPointer.FPacketData[1] := $10;
TmpList.AddObject('', Pointer(TmpPointer));
end;
end.
TStringList 대신 TList를 쓰니 되네요