Lazarus znów pokazuje błędy...
Mogłby mi ktoś Pokazać, jak to poprawnie wykonać?
0
3
Błąd składni: oczekiwano średnika
- jak myślisz, czego zatem brakuje po end
w czterdziestej drugiej linijce?
0
efekt wstawienia średnika po end w 42 linijce...
0
@NoChybaNieBardzo: 1. W linii 44 brakuje Ci (
. 2. Czy jest taka metoda w interfejsie jak w linii 39? Wygląda, że nie.
0
Poza tym nadal nie ma średników na końcach linii 46 oraz 50-tej.
1
@NoChybaNieBardzo: tak ma wyglądać zdarzenie kliknięcia w przycisk:
procedure TForm1.Button1Click(Sender: TObject);
var
a, h, P: Single;
begin
a := StrToFloat(Edit1.Text);
h := StrToFloat(Edit2.Text);
P := a * h / 2;
Label6.Caption := FloatToStr(P);
end;
I nie wstawiaj do postów zrzutów ekranu z kodem – wstawiaj skopiowany kod z edytora, w odpowiednie znaczniki. A jak koniecznie potrzebujesz zrobić zrzut ekranu to obrazek dodawaj do załączników postów, a nie na jakieś hostingi.