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.