Zły kod...

Jak zastapic lub poprawic ten kod... hmm...

procedure TForm1.Button2Click(Sender: TObject);
begin
if Label1.Font.Color := clRed then
showmessage('czerwony');
end;

--Ozyrys Pozdrawiam !

to proste wystarczy dać

if Label1.Font.Color = clRed then
showmessage('czerwony');
bez dwukropka

--POzdrOWieNIa

procedure TForm1.Button2Click(Sender: TObject);
begin
if Label1.Font.Color = clRed then nie ":=" tylko "="
beginto nie jest potrzebne
showmessage('czerwony');
end; //nie jest to potrzebne
end;

Kurczę znów ktuś mnie wyprzedził :)

HAHAHA :D
ale skąd Ci się wzieło tam jeszce begin i end pod if`em ?? przecieŻ ozyrys nic takiego nie pisał ??
{browar} --POzdrOWieNIa

if opek = true then
begin

end;

tak też może być - jest wygodniej dla mnie :) {browar}

{wstyd} {wstyd} Az wstyd ze zapytalem , wpisujac procedure z rozpedu wpisalem " := " {wstyd} {wstyd} --Ozyrys Pozdrawiam !

Nie ma sie czego wstydzic nikt nie jest doskonaly... ;) --Delphi 6, Pascal

----====Pozdrawiam @LL====----
------====== RFL ======------
--==[ [email protected] ]==--
----====[ GG: 3532533 ]====----

:-) może i masz racje... :-) --Ozyrys Pozdrawiam !