ReadLn - Welche Zeile?

[StanY]

Mh, ich will ganz simpel eine bestimmte Zeiler einer Textdatei auslesen.

Allerdings habe ich das Problem, dass ich es, trotz Suchfunktion, nicht schaffe, herauszubekommen, woher Delphi die Zeile weiß, die ich auslesen will.

Mit Reset setze ich ja den Curson bzw. den Zeiger an den Anfang, aber wie setze ich ihn auf den Anfang der z.B. 2ten Zeile?

[ste_ett]

s. Delphi Hilfe :)

Zitat:

Beschreibung

In Delphi liest ReadLn eine Textzeile aus der angegebenen Datei und setzt den Dateizeiger in die nächste Zeile.

[StanY]

Joa, da kann ich 1 auslesen, dann 2, dann 3 etc.

Nur was, wenn ich NUR die zweite Zeile auslesen will? oO

[Dax]

Du kannst nicht einfach so einen Dateicursor versetzten, du musst schon Read oder ReadLn aufrufen. Diese Funktionen setzen dann den Dateicursor woanders hin.

[StanY]

Toll.

Und wie komme ich _nur_ an die zweite Zeile ran?

Von mir aus auch mit anderen Methoden als ReadLn... wenn das anscheind nicht geht \:

Das muss doch möglich sein.

edit: btw. wenn die Funktion den Cursor setzen kann, dann kann ich das ja auch irgendwie ^^

[Dax]

Zweite Zeile?

Delphi-Quellcode:

ReadLn(InFile);
ReadLn(Infile, Buffer);

[StanY]

Zweite Zeile war nur ein Beispiel. Was wenn ich an die 5326467423543 Zeile ran will.

Ist dann:

Delphi-Quellcode:

for i := 0 to 5326467423542 do begin
  ReadLn(F);
end;
ReadLn(F,BUffer);

auch noch möglich bzw resourcen sparend?

[Dax]

Da ReadLn in diesem Fall nichts einliest, sondern nur den Dateicursor verschiebt, geht das und verbraucht (ausser Prozessorzeit) kaum Resourcen.Die einzig andere Möglichkeit, dies Akzeptabel zu lösen wäre mit Streams.

[Alex_ITA01]

meiner Meinung nach geht das mit Seek()...
guck mal in die Delphi-Hilfe.Da steht alles drinne

Delphi-Hilfe-Beispiel:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);

var
   f: file of Byte;
   size: Longint;
   S: string;
   y: Integer;
begin
  if OpenDialog1.Execute then
  begin
    AssignFile(f, OpenDialog1.FileName);
    Reset(f);
    try
      size := FileSize(f);
      S := 'File size in bytes: ' + IntToStr(size);
      y := 10;
      Canvas.TextOut(5, y, S);
      y := y + Canvas.TextHeight(S) + 5;
      S := 'Seeking halfway into file...';
      Canvas.TextOut(5, y, S);

      y := y + Canvas.TextHeight(S) + 5;
      Seek(f, size div 2);
      S := 'Position is now ' + IntToStr(FilePos(f));
      Canvas.TextOut(5, y, S);
    finally
      CloseFile(f);
    end;
  end;
end;

MFg Alex

[Luckie]

Ich werfe mal die StringListe hier in die Runde. ;)