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:
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