Also bei diesem Code:
Code: Alles auswählen
procedure loadDatei();
Var
dOF : TextFile;
eData : String;
begin
AssignFile(dOF, Form1.kDatenb.datei);
try
Reset(dOF);
ReadLn(dOF,eData);
Form2.LiD.Text := 1;
ReadLn(dOF,eData);
Form2.CheckBox1.Checked := StrToBool(eData);
ReadLn(dOF,eData);
Form2.LiD1.Text := eData;
ReadLn(dOF,eData);
Form2.DateEdit1.Text:= eData;
ReadLn(dOF,eData);
Form2.LiD3.Text := eData;
ReadLn(dOF,eData);
Form2.ComboBox1.Text := eData;
ReadLn(dOF,eData);
Form2.LiD4.Text := eData;
ReadLn(dOF,eData);
Form2.LiD5.Text := eData;
Repeat
ReadLn(dOF,eData);
Form2.Memo1.Lines.add(eData);
until EOF(dOF);
Close(dOF);
finally
end;
end;
Diese Funktion löst folgenden Fehler aus:
Projekt Test hat Exception-Klasse »External: SIGSEGV« ausgelöst.
In Datei 'unit2.pas' in Zeile 87:
Form2.LiD.Text := eData;
Ich kann diese Zeile Auskommentieren, es kommt immer wieder dieser Fehler, selbst wenn ich die Variable gegen einen normalen String Text 'Test' austausche.
Wo ist da mein Fehler?
Verwende Lazarus 1.8.4 rUnversioned directory FPC 3.0.4 x86_64-linux-gtk2