aufrufen von Record

[foerster7892]

Delphi-Quellcode:

procedure TForm3.FormCreate(Sender: TObject);
begin
forcedirectories('C:\Users\user\Documents\Bücher');
AssignFile(Buecher, 'C:\Users\user\Documents\Bücher\111Buchtitel111.dat');
reset(Buecher);
Groesse:=filesize(Buecher);
for AlleBuecher := 1 to Groesse do
begin
  read(Buecher, x);
  Form3.RadioGroup2.Items.Add(x);//<---Was isn an dem Befehl falsch (eigl müsste ich doch da als wenn ich aufm Formular an der RadioGroup items dazugegeben hätte es haben müssen oder???)
end;
closefile(Buecher)
end;

procedure TForm3.Button2Click(Sender: TObject);
begin
  if (RadioGroup1.ItemIndex=0) then
  Suche := 'Buchname';
  if (RadioGroup1.ItemIndex=1) then
  Suche := 'Autor';
  if (RadioGroup1.ItemIndex=2) then
  Suche := 'Verlag';
  if (RadioGroup1.ItemIndex=3) then
  Suche := 'ISBN';

if (FileExists('C:\Users\user\Documents\Bücher\111Buchtitel111.dat')) then
  begin
    AssignFile(Buecher, 'C:\Users\user\Documents\Bücher\111Buchtitel111.dat');
    reset(Buecher);
    Groesse:=filesize(Buecher);
    AttributSuche:=Inputbox('Suche','Suchbegriff eingeben','');
    For AlleBuecher := 1 to Groesse do
    begin
      read(Buecher, x);
      AssignFile(Buchdatei, 'C:\Users\user\Documents\Bücher\' + x + '.dat');
      reset(Buchdatei);
      read(Buchdatei, Buch);
      if Suche='Buchname' then
      begin
        if (AttributSuche=Buch.Buchname) then
        Form3.RadioGroup3.Items.Add(x);
        closefile(Buchdatei);
        Funde:=Funde+1;
      end;
      if Suche='Autor' then
      begin
        if (AttributSuche=Buch.Autor) then
        Form3.RadioGroup3.Items.Add(x);
        closefile(Buchdatei);
        Funde:=Funde+1;
      end;
      if Suche='Verlag' then
      begin
        if (AttributSuche=Buch.Verlag) then
        Form3.RadioGroup3.Items.Add(x);
        closefile(Buchdatei);
        Funde:=Funde+1;
      end;
      if Suche='ISBN' then
      begin
        if (AttributSuche=Buch.ISBN) then
        Form3.RadioGroup3.Items.Add(x);
        closefile(Buchdatei);
        Funde:=Funde+1;
      end;
    end;
  end;
  showmessage('Es wurden ' +IntToStr(Funde)+ ' Bücher gefunden');
end;

end.

So dürfte es eigl funzen aber er Zeigt immer an das 0 Bücher gefunden wurden (Wenn ich Verlag wähle und Carlsen eingebe müsste er mindestens eins Finden)
Wissen sie/Weißt du was hier nicht stimmt????