Daten beim einlesen verschluckt, warum?

**Masterof**

Hallo!

Ich habe ein Problem, ich lese Daten aus einer Textdatei in ein Record. Die Zeilenlänge in der Textdatei ist max 241 Zeichen.
Wenn ich die Datei einlesen und den Inhalt des Records anzeigen lasse, fehlen an verschiedenen Stellen Daten. Ich habe den Quelltext mit dem ich lese und ausgeben unten dazugefügt. Wo könnte der Datenverlust passieren, warum und wie umgeht man das ganze.
Quelltext:

zusammenfalten · markieren

Delphi-Quellcode:

			Type

   TDaten = Record

          Daten: string[255];

              end;

var

  frmmain: Tfrmmain;

implementation

{$R *.dfm}

procedure Tfrmmain.FormCreate(Sender: TObject);

var myfile : File of TDaten;

    czle : string;

    i, zeiger: integer;

    data: Tdaten;

begin

if opendialog.Execute then

begin

  i:=0;

  assignfile(myfile, opendialog.FileName);

  reset(myfile);

  try

   while not eof(myfile) do

   begin

    read(myfile,data);

    memdaten.Lines.Add(data.daten);

    end;

MfG Master

Daten beim einlesen verschluckt, warum?

Daten beim einlesen verschluckt, warum?

Forumregeln