Procedure TForm1. Button11Click (Sender: TObject);
Var I: Integer;
The begin
I:=pos ('. ', edit1. The Text).
If i> 0 then
A:=edit1. Text
The else
A:=edit1. Text + button11. Caption;
Edit1. Text:=A;


The end;

Red part of the problems: [Error] calculator. Pas (177) : Missing operator or semicolon

CodePudding user response:

Code computer tried through, no problem about D7,

Whether the calculator. Pas defines the POS function,

CodePudding user response:

The code is no problem, you the problem of Delphi