사실 의도를 정확하게 알 수는 없지만..
나름대로 상상한 결과는..
아래와 같이 두가지의 의도를 의심케 하는 곳이 있습니다..
소스는 제 나름대로 약간 모양만 바꾸었습니다..
(보기 좋게..)
첫번째 의심나는 곳은..
혹시 의도가 순차적으로 레코드를 하나씩 찾는 거 아닙니까??
FindKey는 현재의 인댁스의 필드의 내용 중..
[]안에와 같은 곳을 찾는 것입니다..
만약 순차적으로 레코드를 하나씩 부르려면..
Table1.First;
While not Table1.EOF do
With Table1 do
Begin
Edit;
FieldByName('testF').AsInteger := 10;
Post;
Next;
End;
두번째는 테이블 화일 이름이 정말 Table1Name입니까??
여하튼 데이타 베이스 프로그래밍에 대해서..
조금더 연구를 하셔야겠습니다..
아래는 제가 임의대로 수정한 것입니다..
From 류..
---------
Table1.Open;
For i:= 1 to 100 do
With Table1 do
Begin
// 첫번째 의심나는 곳..
FindKey([i]);
Edit;
FieldByName('testF').AsInteger := 10;
Post;
End;
Table1.Close;
With Query1 do
Begin
Close;
// 두번째 의심나는 곳..
// 만약 테이블의 화일명이 Table1Name이 아니라면..
SQL.Text:= 'Select * From '+Table1.TableName;
Open;
End;
|