Einzelnen Beitrag anzeigen

malibu85

Registriert seit: 27. Dez 2007
45 Beiträge
 
#1

Funktion Seek (arbeiten mit Datein)

  Alt 7. Jan 2008, 07:54
Guten Morgen zusammen und allen ein frohes neues jahr.

Ich habe auch gleich eine frage. und zwar geht es um das anlegen und verwalten von datein und Datensätzen. In vielen büchern fast man alles unter dem Kapitel "Árbeiten mit Datein" zusammen. Ich habe bisher herausgefunden, wie mn eine Datei anlegt und durch die folgende anweisung kann ich genau auf die erste Position einen Datenstz einfügen.
Delphi-Quellcode:
                                    with satz do
                                         begin
                                         Key := StrToInt(edit1.text);
                                         Wert1 := edit2.text;
                                         Wert2 := StrToInt(edit3.text);
                                         Anzahl:= StrToInt(edit4.text);
                                      end;


                                      reset(Dat); //hier war mein großes Problem!!!!
                                      seek(Dat,0);

                                      if (filepos(Dat)=0) then
                                         begin
                                         write(dat,satz);


                                        

                                          

                                         end;
mit dieser anweisung kann man genau einen Datensatz auf die erste Position einfügen...irgendwie komme ich aber mit der seek anweisung nicht zurecht. Ich würde z.b gern bei der ersten position in der datei starten und bis zum ende durchlaufen, wenn ich dann das letzte element gefunden habe dann soll ein neues rechts eingefügt werden.

Was genau sagt eigentlich die Funktion
seek(Dat,filepos(Dat)-1); aus?
Kann es sein dass dadurch der zeiger in der datei immer um eine stelle nach links verschoben wird?
  Mit Zitat antworten Zitat