Delphi 7, BDE, Capability not supported

Peruzzi · 30.08.2007. u 14:38

isprobao kod pre desetak dana, i sad kad sam ga ubacio u program taj isti kod mi pravi problem. cak i u test primeru koji je radio. greska je do sistema sigurno, jer nesto poceo xp da mi puca, ali svejedno - i to je bug. kako da se resi?

kad program dodje do dela u kome treba da napravi tabelu prijavi 'Capability not supported' i kad se klikne na ok program se otvori, ali fokus nije na njemu,vec ode u pozadinu

evo ga kod:

Kod:

procedure TForm1.FormCreate(Sender: TObject);
begin
  assignfile(F,'settings.cfg');reset(F);
  readln(F,bazapodataka);
  closefile(F);
  Table1.DatabaseName:=bazapodataka;
  Table1.TableName:='zalihe';
  if not Table1.Exists then
  begin
    Table1.Active:=False;
    Table1.TableType:=ttParadox;
    Table1.FieldDefs.Clear;

    Table1.FieldDefs.AddFieldDef.Name:='ID';
    Table1.FieldDefs.AddFieldDef.DataType:=ftAutoInc;
    Table1.FieldDefs.AddFieldDef.Required:=True;
     Table1.FieldDefs.AddFieldDef.Name:='ime';
     Table1.FieldDefs.AddFieldDef.DataType:=ftString;
     Table1.FieldDefs.AddFieldDef.Required:=True;

    Table1.IndexDefs.Clear;
    Table1.IndexDefs.AddIndexDef.Name:='';
    Table1.IndexDefs.AddIndexDef.Fields:='ID';
    Table1.IndexDefs.AddIndexDef.Options:=[ixPrimary];
    Table1.CreateTable;
  end;
  Table1.Open;
end;

Pjer_Nis · 30.08.2007. u 17:03

Sto ga ne debagujes korak po korak? I vidi da li je fajl koji otvaras u odgovarajucem formatu.

Peruzzi · 30.08.2007. u 23:01

sredjeno...

prepisao sam kod, na drugaciji nacin, i radi. kako - ebem li ga. al dobro, bitno da radi

greska je bila u liniji Table1.CreateTable

a nov kod izgleda ovako

Kod:

procedure TForm1.FormCreate(Sender: TObject);
begin
  assignfile(F,'settings.cfg');reset(F);
  readln(F,mestoprograma);
  closefile(F);
  mestoprograma:=copy(mestoprograma,1,length(mestoprograma)-3);

  with Table1 do
  begin
    Active := False;
    DatabaseName := mestoprograma;
    TableType := ttParadox;
    TableName := 'zalihe';
    if not Table1.Exists then
    begin
      with FieldDefs do begin
        Clear;
        with AddFieldDef do begin
          Name := 'ID';
          DataType := ftAutoInc;
          Required := True;
          end;
        with AddFieldDef do begin
          Name := 'ime';
          DataType := ftString;
          Size := 255;
          end;
        with AddFieldDef do begin
          Name := 'tip';
          DataType := ftString;
          Size := 255;
          end;
        with AddFieldDef do begin
          Name := 'komada';
          DataType := ftString;
          Size := 10;
          end;
        with IndexDefs do begin
          Clear;
          with AddIndexDef do begin
            Name := '';
            Fields := 'ID';
            Options := [ixPrimary];
            end;
        end;
      end;
      CreateTable;
    end;
    Open;
  end;
end;

koliko sam zapazio potpuno isti kao i stari, samo sto ovako napisan radi...

zasto?

Delphi 7, BDE, Capability not supported

Peruzzi

Domaćin

Pjer_Nis

Ističe se

Peruzzi

Domaćin

Slične teme