{codecitation class="brush: pascal; gutter: false;" width="600px"}
Автор: OAmiry (Borland)
В том случае, когда
{ Подразумеваем, что
Также это автоматически создаст файл схемы }
procedure TForm1.Button1Click (Sender: TObject);
var
oDest: TTable;
oBMove: TBatchMove;
begin
try
oDest:= nil;
oBMove:= nil;
Table1.Close;
oDest:= TTable.Create (nil);
with
begin
DatabaseName:= 'c:\delphi\files';
TableName:= 'Test.Txt';
TableType:= ttASCII;
end; {Обратите внимание
oBMove:= TBatchMove.Create (nil);
with
begin
Source:= Table1;
Destination:= oDest;
Mode:= batCopy;
Execute;
end;
finally
if Assigned (oDest) then
oDest.Free;
if Assigned (oBMove) then
oBMove.Free;
end;
end;
{ Теперь, допустим, файл схемы существует;
сам текстовый файл может как быть, так его может и
С помощью файла схемы
procedure TForm1.Button2Click (Sender: TObject);
var
oTxt: TTable;
i: Integer;
f: System.Text;
begin
try
oTxt:= nil;
if not FileExists ('c:\delphi\files\Test.Txt') then
begin
AssignFile (f, 'c:\delphi\files\Test.Txt');
Rewrite (f);
CloseFile (f);
end;
oTxt:= TTable.Create (nil);
with
begin
DatabaseName:= 'c:\delphi\files';
TableName:= 'Test.Txt';
TableType:= ttASCII;
Open;
end;
with Table1 do
begin
DisableControls;
if not
Open;
First;
while not
begin
oTxt.Insert;
{ В данном случае файл схемы описывает формат текстового файла;
примере фактически один
for i:=
oTxt.Fields[i].AsString:= Fields[i].AsString;
oTxt.Post;
Next;
end;
end;
finally
Table1.EnableControls;
if Assigned (oTxt) then
oTxt.Free;
end;
end;
{/codecitation}