저도 그것 땜에 헤맨적이 있었죠....

아래내용을 참조하세요....



procedure TFrmInfo.SpeedButton1Click(Sender: TObject);

Var sFile: TStringList;

begin

sFile:= TStringList.Create;

sFile.Add( '=================================');

sFile.Add( '작업그룹: '+edit1.text);



//+edit1.text의 내용을 Query1.FieldByName('필드명').AsString;으로 바꾸면 되겠죠..?



sFile.Add( '컴퓨터이름: '+edit2.text);

sFile.Add( '현재사용자: '+edit3.text);

sFile.Add( '컴퓨터날짜형식: '+edit4.text);

sFile.Add( '메모리크기: '+edit5.text+'KB');

sFile.Add( '운영체제: '+edit6.text);

sFile.Add( 'CPU 속도: '+edit7.text+'Mhz');

sFile.Add( 'IP 번호: '+edit8.text);

sFile.Add( '총 디스크: '+edit9.text+'KB');

sFile.Add( '남은디스크: '+edit10.text+'KB');

sFile.Add( '=================================');

sFile.SaveToFile(ExtractFileDir(Application.ExeName)+'DATA'+EDIT11.TEXT+'.txt'); //여기는실행프로그램이 있는폴더아래의 data폴더아 래..txt파일로 저장합니다.

sFile.Free;

ShowMessage('감사합니다. '+Edit11.Text+'님! 자료가 정상적으로 저장되었습니다.');

Close;

end;

화일 하나를 오픈시키고

select 한 내용을 하나씩 write하시면 되겠네요..

^^;



한보람 wrote:

> 이럴 경우는 어떻게 해야하는지.. 제가 워낙 초보라서..

>

> paradox테이블을 사용하고 있습니다.

>

> 쿼리를 이용해 table에서 원하는 내용을 추출했습니다.

> 디비그리드를 통해서는 볼수가 있습니다. 그런데, 사용자가 그 내용을 text로 화면에 보여주기를 원하고 있습니다.

>

> 즉, copy -> paste를 통해 다른 곳으로 복사하려구 합니다.

>

> 코딩으로 해야 하나요?

>

> 고수님들의 도움 부탁합니다.