aufrufen von Record

[foerster7892]

Delphi-Quellcode:

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);
    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.Suche);//<---das Funzt nciht da suche kein Element von TBuch ist aber wenn ich zum Test einfach mal Buch.Autor hinpacke gehts auch nicht (Buch is angeblich nihct mit shortstring kompatibel) 
      AttributSuche:=Inputbox('Suche','Suchbegriff eingeben','');
      if (AttributSuche=Buch.Suche) then
      Form3.RadioGroup3.Items.Add(x);//<--- und hier werden keine Items in der RadioGroup hinzugefügt die ich dann auswählen könnte(ka why)



      closefile(Buchdatei);

HELP