Forum: Object-Pascal / Delphi-Language
Delphi
by foerster7892,
2. Dez 2008
AssignFile(Buecher, 'C:\Users\user\Documents\Bücher\111Buchtitel111.dat');
if (FileExists('C:\Users\user\Documents\Bücher\111Buchtitel111.dat')) then
reset(Buecher)
else
rewrite(Buecher);
reset(Buecher);
while not Eof(Buecher) do
begin
read(Buecher, x);
Form3.RadioGroup2.Items.Add(x);
Forum: Object-Pascal / Delphi-Language
Delphi
by foerster7892,
2. Dez 2008
@michael habbe: ich hab das einfach mal so eingesetzt wie dus gesagt hast (jetzt startets nicht mehr) (im Aufruf Stack wird angezeigt auf die Prozedure kann nicht zugegriffen werden)
@deddyh : ich mach das noch mal neu wenn ich es so fertig bekommen hab (ich hab mich auch darüber gefreut das de mir das geschickt hast (dadurch lernt man immer was dazu))
Forum: Object-Pascal / Delphi-Language
Delphi
by foerster7892,
2. Dez 2008
dann kommt immer fehler 104 und 32 wo genau und so ka hier schaut selbst ich weiß nicht was da falsch läuft
ach und das ich suboptimal programmiere wurde mir schon gesagt lasst es bitte trotzdem so (ich sitz jetzt schon ne ganze weile and dem problem)
ich hab das jetzt nochmal auf textfile geändert
Forum: Object-Pascal / Delphi-Language
Delphi
by foerster7892,
2. Dez 2008
ka hab ich erst gehabt und dann geändert weils nciht ging
Forum: Object-Pascal / Delphi-Language
Delphi
by foerster7892,
2. Dez 2008
AssignFile(Buecher, 'C:\Users\user\Documents\Bücher\111Buchtitel111.dat');
if (FileExists('C:\Users\user\Documents\Bücher\111Buchtitel111.dat')) then
reset(Buecher)
else
rewrite(Buecher);
Groesse:= FileSize(Buecher);//<---- is File of ShortString(dort sind die Namen aller eingetragenen Bücher gespeichert)
for AlleBuecher := 1 to Groesse do
begin
read(Buecher, x);
...