Delphi - нужна помощь

[Psi_X]

Есть программа которая перегоняет из DBF файла в TXT....(предыдущая работала по 32 полям, теперь надо чтобы по 274)
Есть ее исходники, но при компиляции выдает ошибки.
Я программирование вообще не знаю, вот жду помощи....

[Psi_X]

Я все еще надеюсь на помощь)

[Stilet]

Может тебе чтоб не париться просто открыть DBF в Экзеле и сохранить его как TXT?
Кстати Есть такая утилита, к делфям в комплекте идет. DataPump называется.

[Psi_X]

выгрузка в эксель есть, можно и в тхт сохранить, есть одно но...надо чтобы было все по вертикали, а не по горизонтали...да и каждый раз 274 поля в ручную переносить не удобно....

может посмотрите все же проекты прикрепленные...

[Stilet]

Есть ее исходники, но при компиляции выдает ошибки.

А ошибку привести не судьба?

Посмотрел, BDE у меня не стоит посему навскидку KFMDBF переделай примерно так:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, DB, Buttons,  DBTables;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Timer1: TTimer;
    BitBtn1: TBitBtn;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    apollotable1: TTable;
    procedure BitBtn1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  dbasename:string;

implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
close;
end;

procedure TForm1.FormCreate(Sender: TObject);
label 1;
var
w1,w2,s,ffs,ss:string;
ff:textfile;
i,j:integer;

begin

timer1.Enabled:=false;
str(paramcount,s);
if paramcount < 2 then close;
apollotable1.TableName:=paramstr(1);
apollotable1.active:=true;
assignfile(ff,'q.txt');
rewrite (ff);
j:=apollotable1.RecordCount;
str(j,ss);
label3.caption:=ss;
if j=0 then goto 1;
for j := 1 to apollotable1.RecordCount  do
 begin
 apollotable1.RecNo:=j;
 str(j,ss);
 label4.caption:=ss;
 writeln(ff,'*****');
for i:=0 to 274 do
 begin
 write(ff,i);
 w1:=apollotable1.Fields[i].DisplayName;
 w2:=apollotable1.Fields[i].displayText;
 writeln (ff,':',w1,':',w2);
 end;
  end;
1:
closefile(ff);
apollotable1.active:=false;
if paramstr (3)= 'c' then  close;
end;

end.

ТОлько копию проекта сделать не забудь )

[5naip]

Может тебе чтоб не париться просто открыть DBF в Экзеле и сохранить его как TXT?

насколько я знаю, эксель не поддерживает пбольше 65535 строк. Насчет 2007 не ручаюсь

[Psi_X]

Попробовал с новым кодом.

Выдает такую же ошибку:

[Фатальная ошибка] Unit1.pas(7): File not found: 'ApoDSet.dcu'

[Stilet]

Psi_X

Копипасти мой пример ПОЛНОСТЬЮ.
Или в разделе Uses удали ApoDSet

[Psi_X]

Я пробовал удалять, но при компиляции, он опять появляется и выдает все ту же ошибку....

[Stilet]

Значит мой код ты не скопипастил полностью или тебе нужно на самой форме удалить этот компонент.