에러메시지를 올려보세요



sati wrote:

> var

> Form1: TForm1;

>

> implementation

>

> {$R *.DFM}

>

> procedure TForm1.FormCreate(Sender: TObject);

> begin

> Table1.Open;

> end;

>

> procedure TForm1.Button2Click(Sender: TObject);

> begin

> if table1.recordcount>0 then table1.delete

> else showmessage('장난 하나!');

> end;

>

> procedure TForm1.Button3Click(Sender: TObject);

> var

> name:string;

> begin

> table1.indexfieldnames:=name;

> inputquery('검색할 이름','검색할이름을 입력하세요',name);

> table1.findnearest([name]);

> end;

>

> procedure TForm1.Button1Click(Sender: TObject);

> begin

> if not table1.active then

> table1.open;

> try

> table1.insert;

> table1.fieldbyname('name').value:=editname.text;

> table1.fieldbyname('jumin').value:=strtoint(editjumin.text);

> table1.fieldbyname('so').value:=editso.text;

> table1.fieldbyname('what').value:=editwhat.text;

> table1.post;

> table1.refresh;

> except

> showmessage('다시 입력하시오!');

> end;

> end;

>

> end.

>

> 프로그램을 맹글라다가 애러가나는대 name과 table1이 뭐 어쩌구 저쩌구라구 나오는대 도대체 무슨말인지 알수가 있어야지 좀 가르쳐주세요..초보라서 뭐가뭔지 하나도 모으겠답니다..

필드 타입이 틀리다는 것 같은데..



흠..



필드 타입이 같은지부터 확인하세여..



int 형에 str 넣으면 당연히 에러나겠져?