|
Registriert seit: 28. Apr 2008
Ort: Stolberg (Rhl)
6.659 Beiträge
FreePascal / Lazarus
|
AW: Funktion mit Variablen
22. Dez 2018, 20:53
Naja man könnte auch so etwas machen:
Delphi-Quellcode:
if self.Edit1.Text='F1' then wert:=funktion1
else if self.Edit1.Text='F2' then wert:=funktion2
else if self.Edit1.Text='F3' then wert:=funktion3
usw
else ShowMessage(self.Edit1.text+' idt eine unbekannte Funktion');
Gruß
K-H
Programme gehorchen nicht Deinen Absichten sondern Deinen Anweisungen
R.E.D retired error detector
|