Nabend
Bei meinen derzeitigen Projekt hab ich wieder ein kleines Problemchen
Kurze Beschreibung:
Es soll in einen Eingabedialog eine Eingabe gemacht werden können und diese beim Klick auf 'OK' an einen Textdatei angehängt werden, andernfalls soll eine Meldung ausgeben werden, dass nichts Hinzugefügt wurde.
Delphi-Quellcode:
procedure TForml.Hinzufgen1Click(Sender: TObject);
var Datei:Textfile; Eingabe:String; ClickedOK: Boolean;
begin
AssignFile(Datei,ExtractFilePath(ParamStr(0))+'\liste.txt');
reset(Datei);
Eingabe := 'Default String';
ClickedOK := InputQuery('Neue Kategorie anlegen', 'Bitte geben Sie eine neue Kategorie ein:', Eingabe);
if ClickedOK then
writeln(Datei,'[' + Eingabe + ']')
else
showmessage('Es wurde keine neue Kategorie angelegt!');
end;
Das Problem: Dialog erscheint-->Eingabe wird gemacht und mit 'OK' bestätigt-->Vorgang wird mit der Meldung 'E/A-Fehler 105' abgebrochen und der Zeiger wird auf die Zeile -->writeln(Datei,'[' + Eingabe + ']')<-- gesetzt.
Könnt Ihr mir da weiterhelfen?
mfg NDR