Delphi-Quellcode:
function FOctToDec(FWert: String): String;
function FBinToHex(FWert: String): String;
function FDecToBin(FWert: String): String;
Du "öffnest" damit 3 untergeordnete Funktionen und deklarierst (also
begin ... end;
sie nicht.
Nach dem
end;
deiner Methode, also das vor
procedure TForm1.Button3Clic
, welches aber eigentlich das END von der letzen Funktion ist, erwartet Delphi nun die Funktions-Rümpfe der restlichen beiden Funktionen und der übergeordneten Methode.
aber statt einem
begin (oder erstmal
var
) kommt bei dir nun schon die nächste Methode.
Es fehlt also was und demnach meckert Delphi, oder du hast eben zuviele Funktionen offen.
