느티나무 wrote:

> 안녕하세요..

> 한가지 궁금...

> 123,456,788,888,555,333

> 32432,2345,2345,2345,23452

> 이런 text 화일을 빠르게 파라독스DB에

> 넣는 방법 아시는 분

> 알려 주세여..

>

> 목 많이 받으세요...



다음 예제는 파라독스 테이블을 텍스트 파일로 바꾸는 예제거든요.

두 테이블을 서로 바꾸면 반대 효과가 나겠죠.. ^^



unit Unit1;



interface



uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls,DBTables, ExtCtrls;



type

TForm1 = class(TForm)

Panel1: TPanel;

Button1: TButton;

Button2: TButton;

Memo1: TMemo;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;



var

Form1: TForm1;



implementation



{$R *.DFM}



procedure TForm1.Button1Click(Sender: TObject);

var

t1, t2: tTable; {t1 = PW table; t2 = ASCII version}

begin

t1 := tTable.create(self);

with t1 do begin

DataBaseName := 'DBDEMOS';

tableName := 'customer.db';

open;

end;

t2 := tTable.create(self);

with t2 do begin

DataBaseName := 'C:';

tableName := 'myfile.txt';

TableType := ttASCII;



createTable;

open;

edit;

BatchMove(t1, batCopy);

close;

end;

t1.close;



end;



procedure TForm1.Button2Click(Sender: TObject);

begin

Memo1.Lines.LoadFromFile('C:MyFile.Txt');

end;



end.