Hallo,
hier mal ein paar Änderungen am Code:
Delphi-Quellcode:
var EinleseString: Char; // wir lesen sowieso immer nu einzelne Zeichen - brauchen also nicht unbedingt einen String
zweiteListBox: boolean;
begin
Vokabel:=''; //dann bricht das Prog beim Einlesen auch ab
zweiteListBox := false;
OpenDialog1.Execute; // <--- Du solltest hier schauen ob das nicht false zurückgibt, dann hat der Benutzer nämlich abbrechen gedrückt!
AssignFile(Datei,OpenDialog1.FileName);
Reset(Datei); // <---- Was ist denn wenn's einen Fehler gibt?!
// Rest wie oben.
end;
Es gab bei deiner Version immer eine
AV da dein EinleseString falsch verwendet wurde. Du müßtest den
imho mit EinleseString[1] angeben damit es richtig funktioniert, oder halt nur einen Char-Typ nehmen - du liest ja immer nur ein Zeichen.