Bestaetigung
Version vom 5. November 2013, 16:11 Uhr von Pfotenhauer (Diskussion | Beiträge) (Die Seite wurde neu angelegt: „{|class="wikitable" === RAP-Funktion "{{SEITENNAME}}" === |'''Beschreibung''' || function Bestaetigung(const aFrage: String): Boolean; |- |'''Parameter'''…“)
RAP-Funktion "Bestaetigung"
Beschreibung |
function Bestaetigung(const aFrage: String): Boolean; |
Parameter |
aFrage - String mir einer Frage, die sich durch Ja oder nein beantworten lässt |
Rückgabewert |
TRUE, falls 'OK' angeklickt wird, FALSE sonst |
Beispiel |
Procedure ReportBeforePrint; var lFilename : String; begin If Bestaetigung('Soll der Text geladen werden?') then begin lFilename:=FileOpenDlg('*.txt','c:\Texte','Textdateien|*.txt|Alle Dateien|*.*'); If lFilename <> then Memo1.Text:=LoadFromFile(lFilename) end; end; |
Zurück zu RAP-Funktionen