Urgnet jakakoliv rada dobra!!! – Delphi – Fórum – Programujte.com

ahoj takze mam takovy problem mam soubor datoveho typu a v nem
nejake polozky typu jmeno prijmeni a jeste znamka a ted bych potreboval pomoc jak mam udelat proceduru ktera kdyz zadam do editu mi v souboru vyhleda polozku podle zadane znamky a vypise zkousel jsem to delat pres while not eof(file)do read (file,polozka) do begin
if polozka.znamka= rovna obsahu editu tak vypisu tu polozku bohuzel to tak nefunguje a vzdy mi to vpyise akorad posledni polozku nic jineho jen posledni polozku ze souboru nevi nekdo co s tim???

Mělo by to být správně, ale 1.Nezapomněls' otevřít soubor pomocí Reset(soubor), abys' nastavil ukazatel na začátek?

2. Bych se podíval, jestli soubor správně assignuješ.
3. Jestli je polozka správného typu.
Mělo by to vypadat následovně:

AssignFile(soubor,'data.dat');

Reset(soubor);

While not(eof(soubor)) do {TADY POZOR, u not eof musíš dát to eof do závorek, jinak to ti vyhodí spoustu divných chyb}

	Begin

		Read(soubor,polozka);

		if polozka.znamka=Edit1.Text then vypíšeš položku (např Label1.Caption:=Polozka.Nazev);

	end;

CloseFile(soubor);

tak jo diky vsem ale toto vsechno jsem mel a stejne to nefungovalo tak jsem to vyresil pomoci jedne promene typu boolean a priakzu break a pak podle hodnoty promene jsem pokracoval dal pomoci if ... ale aj tak diky moc davam to sem dkyby mel nekdo podobny problem jako ja protoze sjem videl ze naprogramovat evidenci je docela oblibeny ukol...