paar fragen zum 'Aus Datei lesen' mit readLn

[kagi3624]

Hallo, wie ignoriert man beim einlesen die erste Zeile und wieso muss Reset(myFile); vor der Schleife stehen? Dankeschön.

[Der schöne Günther]

Bist du dir sicher dass du mit Delphi 6 noch eine fast 20 Jahre alte Entwicklungsumgebung verwendest oder kannst du auch Methoden wie TFile.ReadAllText() usw verwenden?

[kagi3624]

Zitat von Der schöne Günther:

Bist du dir sicher dass du mit Delphi 6 noch eine fast 20 Jahre alte Entwicklungsumgebung verwendest oder kannst du auch Methoden wie TFile.ReadAllText() usw verwenden?

Ja, ich bin mir ziemlich sicher. Die Gründe sind..."üblich"

Also wenn ich sowas mache:

Code:

Reset(myFile);
readln(myFile, s);
while not Eof(myFile) do begin
readln(myFile, s);
machwasmit(s);
end;

reichtes zum ignorieren der ersten Zeile? Mir fällt da nichts weiter ein.

[bcvs]

Klar reicht das. Man kann sogar den 2. Parameter weglassen, wenn man nur überlesen will:
readln(myFile); In Delphi 6 ging aber auch schon TStringList.LoadFromFile.

[KodeZwerg]

Zitat von kagi3624:

wieso muss Reset(myFile); vor der Schleife stehen?

Reset probiert die externe Datei zu öffnen, per Grundeinstellung im Lese-/Schreibmodus.

Zitat von kagi3624:

reichtes zum ignorieren der ersten Zeile?

Ja, aber ein CloseFile(myFile) sollte noch vorkommen.

[Andreas13]

Hallo kagi3624,
wenn Du das Einlesen des Inhalts der Textdatei komplett "zu Fuß" machen willst (mußt) und noch keine Speicherschutzblöcke wie "Try ... Except" hast (Delphi 6), dann gehst Du wie im folgenden Beispiel vor:

Delphi-Quellcode:

VAR
  f : TextFile; // symbolische Dateivariable
  s : String; 

CONST
  MyTxtDatei = 'D:\Delphi6\TextDatei.txt'; // Speicherort Deiner Textdatei

Begin
  AssignFile(f, MyTxtDatei); // verknüpft die Dateivariable f mit Deiner Datei. Diese Verbindung wird erst mit CloseFile(f) aufgehoben.

  {$i-}       // Fehlermeldungen ausschalten
    Reset(f); // öffnet eine vorhandene Textdatei zum Lesen
  {$i+}       // Fehlermeldungen einschalten

  If IOResult <> 0 Then 
  Begin
    ShowMessage('Datei konnte nicht gefunden werden!'); 
    Exit;  // Routine oder Programm verlassen
  End;

  While NOT EoF(f) Do
  Begin
    ReadLn(f, s);
    MachWasMit(S);
     ...
  End;

  CloseFile(f); // schließt die geöffnete Datei

...
End.

Viel Erfolg!
Gruß, Andreas

[DeddyH]

Nur mal zur Info: Try-Except bzw. Try-Finally gab es schon in Delphi 1.

[himitsu]

Mit {$I-} werden keine Exceptions ausgelöst.

Zitat:

ShowMessage('Datei konnte nicht gefunden werden!');

Aber wie bei den Exceptions,
mit einem SchoMessage den Fehler mit einer sinnlosen Meldung zu überschreiben, wer das macht, gehört gesteinigt.

Hier sagt IOResult warum es nicht ging und genau das sollte man auch anzeigen,
denn es kann z.B. auch heißen geht nicht, weil ungenügend Rechte oder weil Datei bereits geöffnet.


Also ganz im Ernst, lass der {$I-} weg und lass das System die richtige Fehlermeldung anzeigen.