Forum: Object-Pascal / Delphi-Language
Delphi
by TheReaper,
12. Dez 2004
nee, nur andere Prozeduren. Ich versuch das mal mit FileMode:=2; zu machen. Soweit scheint das jetzt zu funzen.
...
for i:=delete to (filesize(f1)-1) do
begin
FileMode:=2;
reset(f1);
seek(f1,i);
read(f1,liste);
seek(f1,i-1);
Forum: Object-Pascal / Delphi-Language
Delphi
by TheReaper,
12. Dez 2004
Funktioniert schon wieder nicht. :( Hab an dem Code nichts geändert. Er meckert immer rum das keine zugriffsrechte vorhanden sind. Kann mir jemand helfen?
Forum: Object-Pascal / Delphi-Language
Delphi
by TheReaper,
12. Dez 2004
Wie gesagt, Ich kann Datensätze lesen. Also wird das File auch Fehlerfrei geöffnet.
Ich hab nochmal versucht ein Datensatz zu ändern/anzulegen, und es hat funktioniert, obwohl ich nicht ein Bit an dem ganzen Code verändert habe. :gruebel: Keine Ahnung warum es aufeinmal geht. (Bug im Delphi???)
Forum: Object-Pascal / Delphi-Language
Delphi
by TheReaper,
12. Dez 2004
Ich öffne die Datei ganz normal mit
AssignFile(f1, 'bla.bla');
{$I-}
reset(f1);
if IOResult<>0 then Rewrite(f1);
{$I+}
Schreib- , Leserechte hab ich nicht geändert. Daten aus der Datei lesen geht ohne Probs. Nur mit dem Schreiben gehts nich. :(
Forum: Object-Pascal / Delphi-Language
Delphi
by TheReaper,
11. Dez 2004
Guten Morgen! :)
Ich hab seit neuestem ein Problem mit dem Code:
...
for i:=delete to (filesize(f1)-1) do
begin
seek(f1,i);
read(f1,liste);