procedure TForm1.Button1Click(Sender: TObject);

var

MyFile : TStringList;

i, j : integer;

str : string;

begin

MyFile := TStringList.Create;

for i := 1 to Query1.RecordCount do begin

str := '';

for j := 0 to Query1.FieldCount-1 do

str := str + Query1.Fields[j].AsString+'|';

MyFile.Add(str+#13#10);

Query1.Next;

end;

MyFile.SaveToFile('MyText.txt');

MyFile.Free;

end;

위에서 질문하신것을 만드는 Proceudre같군요... MyFile은 임의의 StringList이름이고요

(아무이름이나 줘도 되는...) 첫줄은 StringList를 생성해 줬고요...(Text로 만들기

위함인것 같군요...) 밖의 For문은 선택된 데이타들의 레코드 카운트 만큼 돌아가는

군요... 그 안의 for문은 하나의 레코드에 있는 Field의 값들을 추출하는 방식이고요

마지막의 +'|' 는 각 필드를 구분한 구분자가 되는군요...

아래의 #13#10이것은 Key의 이벤트를 사용한것 같군요(Enter Key...)

제가 설명을 잘 못해서리.... 대충 이렇게 되는것 같군요... 그럼...







김아성 wrote:

> 안녕하세요 ^^;

> 아래의 소스에서

> MyFile : TStringList;

> 이부분이 무슨 내용인지 몰라서요

> 그리고 아래 소스 부분에 대해서도 주석을 부탁드립니다.

>

> procedure TForm1.Button1Click(Sender: TObject);

> var

> MyFile : TStringList;

> i, j : integer;

> str : string;

> begin

> MyFile := TStringList.Create;

> for i := 1 to Query1.RecordCount do begin

> str := '';

> for j := 0 to Query1.FieldCount-1 do

> str := str + Query1.Fields[j].AsString+'|';

> MyFile.Add(str+#13#10);

> Query1.Next;

> end;

> MyFile.SaveToFile('MyText.txt');

> MyFile.Free;

> end;