Problem mit Laden einer Datei (ReadLn)

[Kasch]

du meinst alle "n" rauslöschen?

[mkinzler]

nein abber es auf den Wert 0 setzen, bevor du es benutzt.

Siehe dazu auch schon mehrere Beiträge in diesem Thread ( von mir, Dax, Hawkeye219)

[Helmi]

Hallo,

wie meine "Vorredner" schon sagten, die Variable a muss auf 0 gesetzt werden.

Du solltest vielleicht auch einen try/finally-Block einfügen.

so z. B.:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var

    daten: array[1..1000]  of string[64];
    a : Integer;
    datei: textfile;

begin
  try
    AssignFile(datei,'d:\string.txt');
    reset(datei);
    a := 0;
    while not eof(datei) do
      begin
        inc (a);
        Readln(datei,daten[a]);
      end;
  finally
    closefile(datei);
  end;
end;

[Kasch]

hallo,

hatte es vergessen zu schreiben, aber habe es gleich nach dem ersten Hinweis ausprobiert. Fehlermeldung ist nun eine andere, aber der schwere Absturz bleibt...

[mkinzler]

Funktioniert es mit der Abwandlung?

Delphi-Quellcode:

     inc (a);
      Readln(datei,s);
      daten[a] := s;

[Helmi]

Kann es sein, dass deine Textdatei größer ist als dein Array?

Ich hab das mal getestet und dann bekomm ich einen Fehler bei der Bereichsprüfung.

Wenn du mal die angehängte Datei als Test-Datei verwendest, dann wirst du merken, dass es bei Array[1..1000] funktioniert, aber bei Array[1..10] nicht mehr.

[omata]

Und wieviel Zeilen sind in der Datei? Bei > 1000 knallt es auch...

[Hawkeye219]

Hallo Kasch,

befolge Markus' ersten Rat und nimm eine TStringList. Die Verwendung des Arrays bringt viele Nachteile mit sich:

• Was ist, wenn die Länge einzelner Zeilen den Wert 64 überschreitet? In diesem Fall kannst du die Zeilen nicht mehr vollständig verarbeiten, da du nur Platz für 64 Zeichen pro Zeile reserviert hast.
• Was passiert, wenn die Datei mehr als 1000 Zeilen enthält? Dein Code stellt das nicht fest und schreibt in nicht reservierten Speicher (was übrigens auch den Absturz erklären würde).
• Wenn die Zeilen der Datei unterschiedlich lang sind, mußt du trotzdem für jede Zeile den Platz für die maximale Zeilenlänge reservieren, da alle Arrayelemente den selben Typ besitzen müssen.
• Du mußt die Anzahl der Zeilen bereits zur Compile-Zeit kennen, um dein Array zu dimensionieren.

Die Stringliste ist wesentlich flexibler und bietet dir mehr Möglichkeiten als das Array.

Gruß Hawkeye

//Edit: 2. Seite übersehen!