[erledigt] .Caption wird nicht gesetzt (Noob-Alarm!)

[enzo]

Hallo Jens

Lass dein Programm wie es ist , ich habe es vorhin falsch verstanden.

Das Problem ist einfach:

so sieht es bei dir aus:

if (warn1 = '') then begin
if (warn2 = '') then begin
Edit1.Text := Edit2.Text; //.!1.test.ok
Label4.Font.Color := clWindowText;
Label4.Font.Style := [];
Label4.Caption := 'Warnungen: keine'; //.!1
// Form1.Label4.Caption := 'Warnungen: keine'; //.!1.test.nok
end
end
else
Label4.Font.Color := clRed;
Label4.Font.Style := [fsBold];
Label4.Caption := warn1 + warn2;

end;





if (warn1 = '') then begin
if (warn2 = '') then begin
Edit1.Text := Edit2.Text; //.!1.test.ok
Label4.Font.Color := clWindowText;
Label4.Font.Style := [];
Label4.Caption := 'Warnungen: keine'; //.!1
// Form1.Label4.Caption := 'Warnungen: keine'; //.!1.test.nok
end
end
else
BEGIN
Label4.Font.Color := clRed;
Label4.Font.Style := [fsBold];
Label4.Caption := warn1 + warn2;
END;
end;



Schreibe nach else begin und am ende end;



gruss enzo