Problem mit seek und Textdatei

[firefighter10]

Hallo zusammen

Ich beschäftige mich seit kurzem mit Lazarus/FPC und bin jetzt auf ein Problem gestoßen, dass sich weder durch googln noch durch Suche hier im Forum lösen lies.
Ich möchte Daten in eine Textdatei speichern und diese an einer anderen Stelle im Programm wieder auslesen lassen. Dabei sollen die Daten jedoch in anderer Reihenfolge ausgelesen werden, nämlich in folgender:
z.B.:
Zeile 5 und 6, danach
Zeile 3 und 4,….
Ich wollte dies so lösen, indem ich in der Variablen „Zeiger“ mitzähle, welche Zeile gerade dran ist, davon dann zwei abziehen, und dann mit seek(F,Zeiger) zu eben dieser Neuen Position springe.
Leider kommt vom Compiler folgende Meldung:

unit1.pas(104,13) Error: Call by var for arg no. 1 has to match exactly: Got "Text" expected "File"

Leider habe ich keine Ahnung was das bedeuten soll!

Danke
Firefighter10

Hier die entsprechenden Quelltextzeilen:

Code: Alles auswählen

var
  Form1: TForm1;
   F: TextFile;
   s,p: string;
   t,l,a,j,k,Zeiger:Integer;    
 
AssignFile(F, 'C:\User\XXXXX\Desktop\XXXXXXX.txt');
  append(F);      
 
Zeiger := (Zeiger - 2);
  Seek (F,Zeiger);
  Readln (F,P);
  Image2.top := StrToInt(P);
  Readln (F,P);
  Image2.left:= StrToInt(P);
  Zeiger := (Zeiger - 2);
  Seek (F,Zeiger);

[theo]

Ich kenne mich mit altmodischem Filezugriff nicht gut aus, aber ich glaube nicht, dass man in TextFile seeken kann.

Willst du nicht lieber eine TStringList nehmen? Da geht das wesentlich einfacher.

[firefighter10]

Für mich ist es wichtig mit einem Editor auf die Datei zugreifen zu können, auserhalb des eigentlichen Programms.
Wenn dies mit einer TStringList auch funktioniert verwende ich auch gern diese.

[theo]

Für mich ist es wichtig mit einem Editor auf die Datei zugreifen zu können, auserhalb des eigentlichen Programms.
Wenn dies mit einer TStringList auch funktioniert verwende ich auch gern diese.

Klar geht das. Speichert nichts weiter als Textzeilen.

[firefighter10]

Super!

Dann mach ich das so.
Danke für die schnelle Antwort