자유롭게 질의 및 응답을 할 수 있는 게시판입니다. 개발자 여러분의 답변이 큰 도움이 됩니다. 
- 제품설치/등록 오류 문의: 설치/등록 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를 쓰니 되네요