Uzupełnienie kodu dla bazdy danych w Pascalu.

\Witam naisałem tai program.

uses
  crt;

type
  Tadres = record
    nazwisko : string[60];
    imie : string[60];
    telefon : string[12];
    miasto : string[60];
    ulica : string[60];
    mail : string[60];
  end;
var
  adresowanie : text;

  adres : Tadres;
  wybor : byte;
  nazwa : string;
  i : byte;

procedure dopisz;

begin
  clrscr;
  write('podaj nazwisko ');
  readln(adres.nazwisko);
  write('podaj imie ');
  readln(adres.imie);
  write('podaj telefon ');
  readln(adres.telefon);
  write('podaj miasto ');
  readln(adres.miasto);
  write('podaj ulice ');
  readln(adres.ulica);
  write('podaj mail ');
  readln(adres.mail);

  assign(adresowanie, 'adresowanie.txt');
{$I-}
  append(adresowanie);
{$I+}
  if IORESULT <> 0 then
  begin
    writeln('nie ma pliku!');
    writeln(ioresult);
    readkey;
    exit;
  end;
  writeln('');
  writeln(adresowanie, adres.nazwisko);
  writeln(adresowanie, adres.imie);
  writeln(adresowanie, adres.telefon);
  writeln(adresowanie, adres.miasto);
  writeln(adresowanie, adres.ulica);
  writeln(adresowanie, adres.mail);
  close(adresowanie);

end;

begin
  repeat
    clrscr;
    writeln('1 - DOPISYWANIE DO BAZY ');
    writeln('2 - WYSZUKIWANIE W BAZIE ');
    writeln('3 - STATYSTYKA W BAZIE ');
    writeln('4 - WYJSCIE Z BAZY');
    write('podaj opcje ');
    readln(wybor);
    case wybor of
      1 : dopisz
        {2:wyszukiwanie;
        3:statystyka;}
    end;
  until (wybor = 4);
end.

Potrzebuję jeszcze procedurę statyki bazy danych podającej liczbę rekordów oraz funkcje wyszukiwania w bazie danych według nazwiska i numeru telefonu. Próbowałem coś wyczarować ale cośnie wyszło. Proszę o pomoc

olejcie te załaczniki jakiś nie potrzebny plik wskoczył.

Jaka to baza danych skoro masz jeden rekord, który tylko zapisujesz do pliku? Powinieneś mieć tablicę rekordów i tą zapisywać i odczytywawć

czyli chodzi o to że mam dopisać tak:

var
adresowanie:array[1...5] of Trades;
adres:Tadres; //( i tak dalej)?

dodanie znacznika <code class="pascal"> - @furious programming

A tak, bo źle spojrzałem, jest ok, bo masz append, czyli dopisujesz do pliku kolejne rekordy. Jakieś wytyczne zadania? Bo możesz na początku programu wczytać do tablicy całą zawartość pliku, działać na niej i zapisywać zmiany przy wyjściu z programu (albo na bieżąco). Łatwiej jest wtedy operować, ale rozmiar byłby z góry ograniczony.

Tylko dodam od siebie, że jeszcze raz za któreś z zasad łamiących regulamin Twój wątek poleci do Kosza:

• temat sformułowany jak z czterech liter (czyli z d..y), temat wątku ma po krótce opisywać problem
• brak formatowania kodu i niewstawienie go we właściwe znaczniki, to też musiałem poprawić za Ciebie
• tagi wzięte z czterech liter (myślisz, że gdy dasz tag pomoc każdy rzuci wszystko i poleci na pomoc?)

Szanuj czytelników forum i chcąc uzyskać pomoc, powinieneś też komunikaty błędów podać w formie tekstu, a nie jako screenshoty. Nie umiesz sam formatować kodu? To wspomóż się http://olesio.eu/jcf - ostatni raz robię to za Ciebie. Przestrzegaj regulamin i zasady forum. Nieważne czy nowicjusz. I czy pierwszy raz tutaj.