Zugriffsverletzung in Funktion

[if-else]

Das Programm soll ein kleiner Vokabeltrainer werden, die Vokabeln werden in einer Textdatei gespeichert. Der Fehler tritt auf, wenn eine Vokabelliste abgespeichert werden soll.

[Luckie]

Hälts du es für eine gute Idee mit deinen Dateien das Systemverzeichnis zu zu müllen:

Code:

AssignFile(fh,'C:\WINDOWS\Voka_history.dat');

Hinzukommt, dass es nicht unbedingt "Windows" heißen muss und auch nicht zwingend auf Laufwerk "c:\" liegen muss.

Und was machst du hier:

Delphi-Quellcode:

filep := OpenDialog1.FileName; 

//Name der ausgewählten Datei auslesen 
pos('.txt',filep); 
y := 0; 
repeat 
  inc(y); 
posi := pos('.txt',filep)-y; 

until filep[posi] = '\'; 

fname := copy(filep,length(filep)-y-2,y-1);

Die Eigenschaft Filename enthält doch den Dateinamen und Pfad. Und wenn du nur den Dateinamen brauchst nutze ExractFilename.

Mal ganz abgesehen davon ob in OpenDialog1.Filename überhaupt was sinnvolles drinne steht, wenn man ihn nicht erst mit Execute ausführt.

[Mikender]

Hey if-else ein kleiner Tipp
ich würde ein OpenDialog immer mit if ausführen

Delphi-Quellcode:

if Opendialog1.Execute then
begin
//Mach was
end;

WARNUNG!!! Dies ist ein Pseudo-Code