Filush-Baza

unit DataBase;
  interface
    uses crt, io;
  type
        TDataBase = Object
          Items : array of TData;
          Procedure AddItem;
          Procedure ChangeItem(Model: String);
          Procedure RemoveItem(Model: String);
        //  Procedure SortByMarka;
        //  Procedure SortByModel;
        end;
    var
      i : integer;

  implementation

  Procedure TDataBase.AddItem;
    begin
      SetLength(Items,length(items)+1);
      Items[high(items)].Model :='byleco';
      Items[high(items)].Marka :='byleco';  // TRZEBA POPRAWIC, bo niema gui !
    end;
  Procedure TDataBase.ChangeItem(Model: string);
    var
     Count, id: integer;
   begin
     for Count :=low(Items) to high(items) do       // szukanie id dla modelu
       if Items[Count].Model = Model then
        begin
         id :=Count;
         break;
        end;
      Items[id].Model := 'costam';
      Items[id].Marka := 'costam';    // jak wyzej , trzeba poprawic jak bedzie gui
    end;
  Procedure TDataBase.RemoveItem(Model: String);
    var
     Count, id: integer;
     Buffer : TData;
    begin
     for Count :=low(Items) to high(items) do       // szukanie id dla modelu
       if Items[Count].Model = Model then
        begin
         id :=Count;
         break;
        end;
        for Count := id+1 to high(Items) do      //Przesuwanie Danych w tablicy
          begin
           Buffer.Model := Items[Count].Model;
           Buffer.Marka := Items[Count].Marka;
           Items[Count-1].Model := Buffer.Model;
           Items[Count-1].Marka := Buffer.Marka;
          end;
    end;
  end.