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

[enzo]

Hallo Jens

eine Entwarnung wird es nie geben den Du Fragst ob warn1='' , wenn Warn1 nicht leer fuehrt er es auch nicht aus.

Delphi-Quellcode:

if ([u]warn1 = ''[/u]) 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;

probier es mal so

Delphi-Quellcode:

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;

gruss
enzo

[edit=sakura] [delphi]-Tags Mfg, sakura[/edit]