Delphi 7, BDE, Capability not supported
Prikazujem rezultate 1 do 3 od 3

Tema: Delphi 7, BDE, Capability not supported

  1. #1
    Peruzzi nije na forumu
    је дошао тихо и ушао у легенду...
    Domaćin Peruzzi (avatar)
    Učlanjen
    03.08.2003.
    Pol
    muški
    Lokacija
    Shumadija
    Poruke
    3.924
    Reputaciona moć
    92

    Podrazumevano Delphi 7, BDE, Capability not supported

    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;




  2. #2
    Ističe se
    Učlanjen
    01.07.2004.
    Pol
    muški
    Lokacija
    Nis
    Poruke
    2.774
    Reputaciona moć
    78

    Podrazumevano Re: Delphi 7, BDE, Capability not supported

    Sto ga ne debagujes korak po korak? I vidi da li je fajl koji otvaras u odgovarajucem formatu.
    Čiste ruke
    Hladna glava
    I vatreno srce

  3. #3
    Peruzzi nije na forumu
    је дошао тихо и ушао у легенду...
    Domaćin Peruzzi (avatar)
    Učlanjen
    03.08.2003.
    Pol
    muški
    Lokacija
    Shumadija
    Poruke
    3.924
    Reputaciona moć
    92

    Podrazumevano Re: Delphi 7, BDE, Capability not supported

    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?


Slične teme

  1. c++ ili delphi
    Autor rdpetar u forumu Programiranje
    Odgovora: 9
    Poslednja poruka: 02.08.2013., 20:53
  2. GMC not supported?
    Autor sofronije000 u forumu Softver
    Odgovora: 7
    Poslednja poruka: 10.02.2009., 13:13
  3. DELPHI 7
    Autor dakinaki u forumu Programiranje
    Odgovora: 3
    Poslednja poruka: 02.03.2006., 08:08
  4. delphi 4
    Autor kmd u forumu Programiranje
    Odgovora: 6
    Poslednja poruka: 26.01.2005., 20:29
  5. Delphi
    Autor anon1mus u forumu Programiranje
    Odgovora: 2
    Poslednja poruka: 15.05.2004., 13:51

Pravila za slanje poruka

  • Ne možete kreirati novu temu
  • Ne možete poslati odgovor
  • Ne možete dodati priloge
  • Ne možete prepraviti svoju poruku
  •