Forum: Object-Pascal / Delphi-Language
Delphi
by foerster7892,
30. Nov 2008
Und es kommt in der Radiobox bei dir jedesmal nen dings dazu wenn die schleife durchrennt???
Forum: Object-Pascal / Delphi-Language
Delphi
by foerster7892,
30. Nov 2008
AlleBuecher, Funde :integer;
x, AttributSuche, Suche :shortstring;
naja eigl dachte ich das ich zu der Radiobox mit dem Befehl items die ich nach dem Prozess auswählen kann hinzufügt mit dem Befehl aber das macht er nicht
Forum: Object-Pascal / Delphi-Language
Delphi
by foerster7892,
30. Nov 2008
Das ist der Buchtitel (wird aus der datei ausgelesen die alle Bücher enthält(nur die Buchtitel))
der Buchtitel ist der Dateiname des jeweiligen buches ohne .dat
Forum: Object-Pascal / Delphi-Language
Delphi
by foerster7892,
30. Nov 2008
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...
Forum: Object-Pascal / Delphi-Language
Delphi
by foerster7892,
30. Nov 2008
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';
Forum: Object-Pascal / Delphi-Language
Delphi
by foerster7892,
30. Nov 2008
Das Problem ist ja das ich mehrere Bücher anlege und die Buchnamen die gleichzeitig auch die Dateinamen sind (Harry Potter.dat)
Diese Speichere ich nochmal extra als .dat (in dieser werden die Dateinamen immer ergänzt) so kann ich Später die Bücher wieder aufrufen
aber wie kann ich dann noch auf Buchname und Verlag zugreifen und die ausgeben????
Forum: Object-Pascal / Delphi-Language
Delphi
by foerster7892,
30. Nov 2008
und dann kann ich da einfach wieder auf TBuch zugreifen (is ja keine einfache Variable)?
Forum: Object-Pascal / Delphi-Language
Delphi
by foerster7892,
30. Nov 2008
Ich würde gerne nen record nach der Speicherung wieder aufrufen und die einzelnen Unterpunkte bearbeiten(Buchname...)
Type TBuch=Record
Buchname: String;
Autor: String;
Verlag: String;
ISBN: String;
end;