Wisst ihr was hier falsch ist?
Die erste Zeile der geladenen Datei soll nun ausgelesen und der Edit-Komponente als Text zugewiesen werden. (Diese ist mit einer UpDown-Komponente Verknüpft.)
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
var konfig: TStringlist;
begin
konfig:= TStringlist.Create;
bederf:= (combobox1.Text <> combobox2.Text) and (ComboBox1.ItemIndex <> 0) and (ComboBox2.ItemIndex <> 0) and (ComboBox1.Text <> '') and (ComboBox2.Text <> '') and (edit1.Text <> '') and (edit4.text <> '') and (edit1.Text <> edit4.Text);
button3.Enabled := bederf;
vokabelns := TStringlist.Create;
vokabelnf := TStringlist.Create;
Schwierigkeit := TStringlist.Create;
fehlerbegrenzung := 1;
if FileExists(DateiPfad) then
begin
konfig.loadfromfile(DateiPfad);
fehlerbegrenzung:= StrToInt(Konfig.Strings[0]);
end;
label2.Caption:= 'Die Fehlerbegrenzung liegt im Moment bei: ';
edit2.Text:= IntToStr(fehlerbegrenzung);
konfig.Free;
end;