Jak wyszukac rekord w pliku *.dat

0

mam plik *.dat kilka rekordow np 10
rekord zawiera po dwie pozycje
IMIE
NUMER domu

teraz jak zrobic zeby odczytac imie po danym numerze domu ?

0

Zakładam, że znasz strukturę rekordu.
np.

type Rekordzik=packed record
imie: string [30];
nr_domu: integer;
end;

Otwierasz plik jako

F: file of Rekordzik

ustawiasz dlugosc tablicy dynamicznej

 dane : array of Rekordzik

na FileSize(F)

robisz
BlockRead(F,dane[0],FileSize(F));

CloseFile(F)

i teraz szukasz


```delphi
for i:=0 to High(dane) do
if dane[i].nr_domu=szukany_nr then
begin
  szukane_imie:=dane[i].imie;
  Break;
end;

tylko uważaj jak dwie osoby będą miały ten sam nr domu to ten sposób znajdzie pierwszą tylko.

0

Dzieki pq wszystko sie zgadza :) DZIEKI

1 użytkowników online, w tym zalogowanych: 0, gości: 1