한국 델파이 개발자 모임 - Error incompatible Type 인데요... 함 봐주세요..

Error incompatible Type 인데요... 함 봐주세요..

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

TFlatButtonUnit;

type

TMember = packed record

Info : array[0..10] of array[0..10] of string;

end;

TForm1 = class(TForm)

FlatButton1: TFlatButton;

procedure FlatButton1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

member,testmember : TMember;

implementation

{$R *.DFM}

procedure TForm1.FlatButton1Click(Sender: TObject);

//var

// testmember : Tmember;

begin

testmember.Info[0,0] := 'asfadfdfsgdsgfdsgsdgfsdgsdfgsdgfsdgdsfg';

if member <> testmember then//여기서 타입이 틀리다는 메시지가 나옵니다..

member := testmember;

showmessage(member.Info[0,0]);

end;

end.

이 게시물을

2 COMMENTS

이만준 • 2001.02.06 03:09

안녕하세요...

님의 코드에서

if member <> testmember then

이러한 비교는 의미가 없습니다....

이미 member와 testmember는 메모리가 따로 할당되어있기때문이죠...

이런한 비교를 사용하고 싶다면 포인터를 이용해야합니다...

포인터를 쓰면 복잡해지니까....

if member.Info[0, 0] <> testmember.Info[0, 0] then

이런식으로필드를 비교해서 사용하시면 됩니다...

그리고

member := testmember;

이 코드는 testmember의 내용을 member로 카피합니다....

메모리는 각각 따로 존재하구요...

기럼...

초보초보 wrote:

> unit Unit1;

>

> interface

>

> uses

> Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

> TFlatButtonUnit;

>

> type

>

> TMember = packed record

> Info : array[0..10] of array[0..10] of string;

>

> end;

>

>

>

> TForm1 = class(TForm)

> FlatButton1: TFlatButton;

> procedure FlatButton1Click(Sender: TObject);

> private

> { Private declarations }

> public

> { Public declarations }

> end;

>

> var

> Form1: TForm1;

> member,testmember : TMember;

> implementation

>

> {$R *.DFM}

>

> procedure TForm1.FlatButton1Click(Sender: TObject);

> //var

> // testmember : Tmember;

> begin

>

> testmember.Info[0,0] := 'asfadfdfsgdsgfdsgsdgfsdgsdfgsdgfsdgdsfg';

>

> if member <> testmember then//여기서 타입이 틀리다는 메시지가 나옵니다..

> member := testmember;

> showmessage(member.Info[0,0]);

>

>

> end;

>

> end.

>
- 0
- 0
- 삭제
- 수정
- 댓글
초보초보 • 2001.02.06 05:03

만준님 감사요.. 이제야 머리가 좀 맑아 지는거 같습니다..

이만준 wrote:

>

> 안녕하세요...

>

> 님의 코드에서

>

> if member <> testmember then

>

> 이러한 비교는 의미가 없습니다....

> 이미 member와 testmember는 메모리가 따로 할당되어있기때문이죠...

> 이런한 비교를 사용하고 싶다면 포인터를 이용해야합니다...

> 포인터를 쓰면 복잡해지니까....

>

> if member.Info[0, 0] <> testmember.Info[0, 0] then

> 이런식으로필드를 비교해서 사용하시면 됩니다...

>

> 그리고

> member := testmember;

> 이 코드는 testmember의 내용을 member로 카피합니다....

> 메모리는 각각 따로 존재하구요...

>

> 기럼...

>

>

> 초보초보 wrote:

> > unit Unit1;

> >

> > interface

> >

> > uses

> > Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

> > TFlatButtonUnit;

> >

> > type

> >

> > TMember = packed record

> > Info : array[0..10] of array[0..10] of string;

> >

> > end;

> >

> >

> >

> > TForm1 = class(TForm)

> > FlatButton1: TFlatButton;

> > procedure FlatButton1Click(Sender: TObject);

> > private

> > { Private declarations }

> > public

> > { Public declarations }

> > end;

> >

> > var

> > Form1: TForm1;

> > member,testmember : TMember;

> > implementation

> >

> > {$R *.DFM}

> >

> > procedure TForm1.FlatButton1Click(Sender: TObject);

> > //var

> > // testmember : Tmember;

> > begin

> >

> > testmember.Info[0,0] := 'asfadfdfsgdsgfdsgsdgfsdgsdfgsdgfsdgdsfg';

> >

> > if member <> testmember then//여기서 타입이 틀리다는 메시지가 나옵니다..

> > member := testmember;

> > showmessage(member.Info[0,0]);

> >

> >

> > end;

> >

> > end.

> >
- 0
- 0
- 삭제
- 수정
- 댓글

(NOTICE) You must be logged in to comment on this post.

- 김정규
- 2001.02.06 03:32
- 0 COMMENTS
- /
- 0 LIKES
VSFlexGrid에 대해서..
- 초보
- •
- 2001.02.06 03:31
- 1 COMMENTS
- /
- 0 LIKES
메모장에서요 ???
- kylix
  
  •
  
  2001.02.06 13:42
  
  procedure TForm1.SaveButtonClick(Sender: TObject); var SaveDialog: TSaveDialog; begin Sa...
- 초보
- •
- 2001.02.06 03:04
- 1 COMMENTS
- /
- 0 LIKES
StringGrid의 셀을 마우스로 클릭했을때 이벤트 입니다.
- 허더비
  
  •
  
  2001.02.06 20:04
  
  초보 wrote: > 스트링그리드에서 한 셀을 클릭 했을때 그 셀의 폰트는 검정색으로 배경은 흰색으로 표현해...
- 모름이
- •
- 2001.02.06 02:58
- 1 COMMENTS
- /
- 0 LIKES
제발좀 도와주세여~~~~
- 모름이
  
  •
  
  2001.02.06 21:09
  
  모름이 wrote: > 안녕하세여~ > 델파이를 사랑하는 한국의 젊은이 입니다. > 지금 winshoes 컴포런트를 ...
- 박성혜
- 2001.02.06 02:52
- 0 COMMENTS
- /
- 0 LIKES
[Shellxecute를 이용한 Personal Web Server(PWS)뛰우기
- hsh
- 2001.02.06 02:47
- 0 COMMENTS
- /
- 0 LIKES
★ oracle package관련..
- 고스트
- •
- 2001.02.06 02:53
- 1 COMMENTS
- /
- 0 LIKES
오라클에서 TNS 관련된 문제 입니다~~~
- coolling
  
  •
  
  2001.02.06 03:15
  
  TNS업데이트가 뭘 말하는 건가요... Oracle Net8 Easy Config에서 서비스Name과 TCP/IP설정, 프로토콜등의...
- nurihong
- 2001.02.06 02:27
- 0 COMMENTS
- /
- 0 LIKES
Tray Icon에서 팝업메뉴 없애기,,,
- 델초보
- •
- 2001.02.06 02:25
- 1 COMMENTS
- /
- 0 LIKES
dbgrid에서 특정 cell의 값 읽어오기.. 알려주세요.
- 이만준
  
  •
  
  2001.02.06 03:39
  
  안녕하세요... dbgrid는 스트링그리드 처럼 Cell을 가지고 있지 않습니다.... 데이타는 모두 DataSet...
- 답변 갈망자
- •
- 2001.02.06 01:58
- 2 COMMENTS
- /
- 0 LIKES
<질문>인터베이스 질문 - 진짜 아는 사람 없나요???
- 정우성
  
  •
  
  2001.02.06 03:34
  
  안녕하세여.. 정우성입니다. 음.. 저두 그것 때문에.. 고민 좀 했습니다. 저는 이런식으로 해결했습...
- 답변 갈망자
  
  •
  
  2001.02.06 03:56
  
  답변 감사합니다. 오늘 꼭 실행해 보도록 하겠습니다. 근데 혹시 express버젼말고 다른 버젼에서는 그런...
- 바보
- •
- 2001.02.06 01:41
- 6 COMMENTS
- /
- 0 LIKES
델파이에서 오라클 프로시저 반복 호출
- 김영현
  
  •
  
  2001.02.06 22:57
- 유레카
  
  •
  
  2001.02.06 02:14
- 바보
  
  •
  
  2001.02.06 03:18
- 유레카
  
  •
  
  2001.02.06 04:05
- 바보
  
  •
  
  2001.02.06 04:48
- 유레카
  
  •
  
  2001.02.06 20:11
- 궁금녀
- •
- 2001.02.06 01:30
- 2 COMMENTS
- /
- 0 LIKES
Treeview에서의 이동
- 김경식
  
  •
  
  2001.02.06 03:12
  
  실질적으로 지금의 작업은 이동이 되는게 아니라 TargetTree에 새로운 노드를 만들고, SourceTree에서 선택...
- 궁금녀
  
  •
  
  2001.02.06 03:32
  
  김경식님, 답변 감사합니다. moveto는 동일 트리내에서는 이동이 잘 되는 데 다른 트리로의 이동이 자유롭...
- 김영미
- •
- 2001.02.06 01:23
- 6 COMMENTS
- /
- 0 LIKES
공통 모듈을 만들때 폼명[Object]을 변수로 쓸수있나요?
- 이만준
  
  •
  
  2001.02.06 03:33
- 김영미
  
  •
  
  2001.02.06 03:54
- 이만준
  
  •
  
  2001.02.06 04:26
- 김영미
  
  •
  
  2001.02.06 04:46
- 이만준
  
  •
  
  2001.02.06 05:10
- 김영미
  
  •
  
  2001.02.06 05:16
- 3107
- •
- 2001.02.06 01:08
- 1 COMMENTS
- /
- 0 LIKES
오라클 연결될때의 마우스 커서 모양
- 3107
  
  •
  
  2001.02.06 02:50
  
  해결했습당.........^^ 같은 문제로 고민하는 사람은 메일 주세요 > 코딩 상에서 while문 안에서 d...
- 초보초보
- •
- 2001.02.06 00:54
- 2 COMMENTS
- /
- 0 LIKES
Error incompatible Type 인데요... 함 봐주세요..

unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, TFlatButtonUnit; type TMember = packed record Info : array[0..10] of array[0..10] of string; end; TForm1 = class(TForm) ...
- 이만준
  
  •
  
  2001.02.06 03:09
  
  안녕하세요... 님의 코드에서 if member testmember then 이러한 비교는 의미가 없습니다.... ...
- 초보초보
  
  •
  
  2001.02.06 05:03
  
  만준님 감사요.. 이제야 머리가 좀 맑아 지는거 같습니다.. 이만준 wrote: > > 안녕하세요... > >...
- 때밀이
- •
- 2001.02.06 00:48
- 2 COMMENTS
- /
- 0 LIKES
마우스 오른쪽 버튼 클릭시 왼쪽버튼 클릭한 것과 같은 효과..
- 조덕진
  
  •
  
  2001.02.06 01:27
  
  델고수를 꿈꾸는 초봅니다. 꽁수지만, 팝업메뉴가 뜰때 Tab 컨트롤의 Fosuc를 체크하여 변경해 주면 되...
- 때밀이
  
  •
  
  2001.02.06 04:30
  
  음...SetFocus를 해도 안되고...Focused를 해도 안되는군요.. 계속 찾아봐야겠네요.. 아시는 분 없나요? ...
- 김진성
- 2001.02.06 00:41
- 0 COMMENTS
- /
- 0 LIKES
자유곡선으로 선택한 영역에 대하여
- 초보
- •
- 2001.02.06 01:00
- 1 COMMENTS
- /
- 0 LIKES
필드명은 나오는데 데이타가 나오질 않아여
- 임형호
  
  •
  
  2001.02.06 01:24
  
  초보 wrote: > IF RADIOGROUP1.ITEMINDEX = 0 THEN > > QUERY1.CLOSE; > QUERY1.SQL.Clear; > ...
- 남경임
- 2001.02.06 00:36
- 0 COMMENTS
- /
- 0 LIKES
질문제목과 분류를 꼭 해주시길 부탁드립니다.
- 김상민
- 2001.02.06 00:28
- 0 COMMENTS
- /
- 0 LIKES
StatusBar에서요 임의로 크기를 조정하면

초보초보
2001/02/06 00:54
Views264

Likes0

Comments2

Reports0
Tag List
수정
삭제
목록으로

←First Page

1969 1970 1971 1972 1973 1974 1975 1976 1977 1978

Last Page→