Zeile aus einer Textdatei ab einem bestimmten Zeichen auslesen

[Konstantin H.]

Danke für die viele Vorschläge,

zuerst @DeddyH. Die Variante ist super, jedoch gibt es ein Problem mit FileExists

Delphi-Quellcode:

var   z: integer; //Laufvariable
      s: string;
      datei: TextFile;
      p: integer;
begin
    p := 11;
    If OpenDialog1.Execute then
      If not FileExists then
        MessageDlg('Keine Datei Ausgewählt!', mtWarning, [mbOK], 0)
      else
       begin
        AssignFile(datei, OpenDialog1.FileName);//Vorbereitung zur Auslesung
        reset(datei);
        z := 0;
        txt_eingabe.clear;
        repeat //benötigte Zeilen auslesen
         inc(z);
         readln(datei, s);
         txt_eingabe.Lines.Add(Copy (s, p));
        until z = 40;
        CloseFile(datei);
       end;
end;

Bei dieser Variante, meint der Compiler, dass die Zeile If not FileExists then nicht genügend Parameter hat. Auch mit FileExists = true...

EDIT: Alles klar, danke Jumpy!

@himitsu

Das habe ich mit deinem Denkanstoss angestellt, da kommt ein fehler in der for-schleife "list out of bounds"

Delphi-Quellcode:

var    SL: TStringList;
       z: integer;

begin
  SL := TStringList.Create;
  try
   OpenDialog1.Execute;
   SL.LoadFromFile(OpenDialog1.FileName);
   for z := SL.Count -1 downto 0 do
     begin
      while SL.Count > 40 do SL.Delete(SL.Count);
      SL[z] := Copy(SL[z], 11, Length(SL[z]));
     end;

    txt_eingabe.Text := SL.Text;

  finally
     SL.Free;
  end;
end.

Hast du eine Ahnung woran das liegen könnte?