Hallo,
bei folgendem code bekomme ich einen nicht ganz klaren 'Compiler Hinweis':
code:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var Nachricht: integer;
begin
Try
Memo1.Lines.SaveToFile('Status\Status' + ' ' +Datum.Caption+' Uhr.txt');
Except
Nachricht := MessageDlg('Fehler bei speichern von "Status", Verzeichnis existiert nicht mehr.'
+#13#10+#13#10 + 'Neustart des Programms erstellt neues Verzeichnis.',mtInformation,[mbOK],0);
end;
end;
Compiler Hinweis:
"Auf 'Nachricht' zugewiesener Wert wird niemals benutzt"
##################################
Ich habe es aber getestet, es funktioniert tadellos.