용이사랑 wrote:

>

>

> 현재 수치당 레코드 생성하는 방법 아시는분 부탁드려요

>

> ex)

> 수치입력-> 100

> 레코드 100개 생성

> 수치입력->20

> 레코드 101부터 다시 20개 생성(생성시 각각의 no부여)

> .

> .

> .

> .

> 어떻게 해야 할지 잘 모르겠어요....

> 도움 부탁드려요 ...



생성시 각각의 no부여한다는 것이 정확히 무슨 뜻인지 모르겠습니다.

해당 no가 레코드번호?, 개수인지?

아니면 필드의 데이타의 내용인지?



정확히 다시 한번 올려주세요

생성시 각각의 no부여한다는 것이 정확히 무슨 뜻인지





아래는 반복할 개수만큼(예를 들어 100) 레코드를 추가하는 소스입니다.

procedure TForm1.Button1Click(Sender: TObject);

var

i: integer;

begin

for i:=1 to i+100 do beign

Table1.Insert;

Table1.Fields[0].AsString := 'aaa';

Table1.Fields[1].AsString := 'aaa';

Table1.Fields[2].AsString := 'aaa';

Table1.Fields[3].AsString := 'aaa';

Table1.Post;

end;

end;

강호규 wrote:

> 답장감사합니다.

그런데요

/...edit1.text값 레코드는 생성됩니다.

문제는요

edit1.text:=3 이면

입력값은 동일한 데이터가 3개 입력된다는 것이죠

1

1

1 이런식으로....

제가 해야되는건요

1

2

3 ---> 자동으로 +1증가된값이 나타나야 하거든요



edit1.text:=4이면

4

5

6

7....이런식으로요

도움 다시 한번 부탁드려요